Как сохранить и загрузить изображения с помощью VB 6

Question

Я использую VB 6 с SQL Server 2005. Я установил тип данных поля темы в базе данных на «Изображение».Когда я сохраняю изображение из элемента управления изображением, оно отображается в двоичном виде в БД.Однако я не могу загрузить двоичный файл из БД в систему управления изображением.Как программно сохранить и загрузить изображение с помощью управления изображением?

Answer 1

Возможно, он вам не подходит, но в таких случаях я обычно выкидываю байты во временный файл, а затем использую стандартный VB6 LoadImage для перехода с диска в объект изображения. Конечно, вы должны затем удалить временный файл. Это единственный известный мне способ без использования Win API и / или пользовательских библиотек типов.

Answer 2

Довольно упрощенный пример, который загружает изображение из набора записей (RS) в управление изображением (Image1):

Set strStream = New ADODB.Stream
strStream.Type = adTypeBinary
strStream.Open

strStream.Write RS.Fields("**YourImageField**").Value

strStream.SaveToFile "C:\Temp.bmp", adSaveCreateOverWrite
Image1.Picture = LoadPicture("C:\Temp.bmp")
Kill ("C:\Temp.bmp")