お世話になっております。
現在、Delphi2007とSQLServer2008を使用したアプリを作っております。
DBにVarBinary(MAX)で格納された画像データ(JPG)を取得
する方法を試しているのですが、細かい方法が不明で詰まって
しまいました。
現在作成してみたサンプルはこんな感じです。
DBから取得したデータをTimageのpictureに設定するものです。
※use にjpgは追加済み。接続はDBEXPRESS
procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJpegImage;
begin
jpg := TJPEGImage.Create;
SQLConnection1.Connected := True;
SQLQuery1.Close;
SQLQuery1.Open;
//↓ここでエラーになります。
jpg.Assign( SQLQuery1.FieldByName('colimg').AsBCD);
Image1.Picture.Graphic := jpg;
SQLQuery1.Close;
互換性エラーとなっているのですが、変換方法がよくわかりません。
ご存知の方いらっしゃいましたらご教授願えませんでしょうか。
よろしくお願いいたします。
過去ログを見ましょう
編集 削除