VBを使用して画像を保存およびロードする方法6

Question

SQL Server 2005でVB 6を使用しています。データベースの件名フィールドのデータ型を 'Image'に設定しました。画像コントロールから画像を保存すると、DB上にバイナリとして表示されます。しかし、ImはDBから画像コントロールにバイナリファイルを読み込むことができません。画像コントロールを使用してプログラムで画像を保存して読み込むにはどうすればよいですか？

Answer 1

あなたには問題はないかもしれませんが、このようなシナリオでは通常、一時ファイルにバイトをダンプし、標準のVB6 LoadImageを使用してディスクからイメージオブジェクトに移動します。もちろん、その後、一時ファイルを削除する必要があります。これは、Win APIやカスタムタイプライブラリを使用しないとわかっている唯一の方法です。

Answer 2

画像制御（画像1）にレコードセット（RS）から画像をロードし、かなり単純な例：

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")