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

名前

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

本文

いつも暖かいご指導ありがとうございます。

Delphi2005ではTJPEGImageは対応じゃないらしく、
コンパイルできませんでした。
自分なりに直してみたのですが……表示できませんでした。

procedure TForm1.Button1Click(Sender: TObject);
var
  Ima1: TBitmap;
  ID: integer;
  Strm: TADOBlobStream;
begin
  Ima1:= TBitmap.Create;
  ADOTable1.Open;
  Ima1.LoadFromFile('C:\sotuken\gazou.bmp');
  ADOTable1.Edit;

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

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

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

戻る