サーバにある画像をDelphiで表示させるには？ (ID:13239)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

細かいところまで丁寧に指導していただきありがとうございます。
例外も出なくなりました。
ＢＬＯＢに保存することができたと思います。

ところが、今度は画像を読み込めません。。。
お手数をおかけして申し訳ありませんが、読み込みについてもアドバイス等がありましたら、ご指導お願いします。
下のソースで例外などは出ません。
Image２に表示させたいのですが、表示してくれません。。。

// BLOB 項目に保存する
procedure TForm1.Button1Click(Sender: TObject);
var
  Ima1:  TBitmap;
  ID:integer;
  Strm: TADOBlobStream;
begin
  ADOTable1.Active:=True;
  Ima1:=Image1.Picture.Bitmap;
  ADOTable1.Insert;

{ BLOB ストリームを作成 }
  Strm := TADOBlobStream.Create(TBlobField(ADOTable1.FieldByName('IMAGE')), bmWrite);
  try
    { BITMAPをストリームに保存 }
    Ima1.SaveToStream(Strm);
    Strm.Free;
    Ima1.Free;
    ADOTable1.Post;
  finally
    ADOTable1.Close;
  end;
end;

// BLOB 項目から読み込む
procedure TForm1.Button2Click(Sender: TObject);
var
  Ima2:  TBitmap;
  ID:integer;
  Strm: TADOBlobStream;
begin
   ADOTable1.Active:=True;
  { BLOB ストリームを作成 }
  Strm := TADOBlobStream.Create(TBlobField(ADOTable1.FieldByName('IMAGE')), bmRead);
  try
    { BITMAPをストリームから読み込み }
    Ima2.LoadFromStream(Strm);
    { Image コンポーネントに表示}
    Image2.Picture.Assign(Ima2);
  finally
    Strm.Free;
    Ima2.Free;
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る