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

名前

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

本文

イメージが保存されていないようです。
下記でJpegファイルを保存しています。
//保存
procedure TForm1.Button7Click(Sender: TObject);
var
  jpeg  : TJPEGImage;
  Ima1  : TBitmap;
  ID    : integer;
  Strm  : TADOBlobStream;
begin
  jpeg  := TJPEGImage.Create;
  Ima1:=  TBitmap.Create;
  ADOTable2.Open;
  jpeg.LoadFromFile(FNAME);
  Ima1.Assign(jpeg);
  ADOTable2.Edit;
  { BLOB ストリームを作成 }
  Strm := TADOBlobStream.Create(TBlobField(ADOTable2.FieldByName('IMGDT')), bmWrite);
  try
    // BITMAPをストリームに保存
    Ima1.SaveToStream(Strm);
    //  解放
    Freeandnil(Strm);
    Freeandnil(jpeg);
    Freeandnil(Ima1);
    ADOTable2.Post;
  finally
    ADOTable2.Close;
  end;
end;
//表示
procedure TForm1.Button6Click(Sender: TObject);
var
  Ima2:  TBitmap;
  ID:integer;
  Strm: TADOBlobStream;
begin
   Ima2:=  TBitmap.Create;
   ADOTable2.Open;
  { BLOB ストリームを作成 }
  Strm := TADOBlobStream.Create(TBlobField(ADOTable2.FieldByName('IMGDT')), bmRead);
  try
    { Image コンポーネントに表示}
    Image2.Picture.Bitmap.LoadFromStream(Strm);
  finally
    Freeandnil(Strm);
    Freeandnil(Ima2);
  end;
end;

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

戻る