Approchの画像を表示するには？ (ID:23872)

名前

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

本文

自己レスです
Approachの画像の読み出しを  ADOを使用してやってみました、
Meta Bitmap Jpeg 全て違うとのエラーです。

下記のようにしています
procedure TForm1.Btn_MetaClick(Sender: TObject);
var
  BS    :TStream;
  Meta  :TMetafile;
begin
  Meta := TMetafile.Create;
  BS   := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('******'),bmRead);
  try
    Meta.LoadFromStream(BS);
    Image1.Picture.Graphic := Meta;
  finally
    BS.Free;
    Meta.Free;
  end;
end;

procedure TForm1.Btn_BitmapClick(Sender: TObject);
var
  BS    :TStream;
  Bitmap:Tbitmap;
begin
  Bitmap := TBitmap.Create;
  BS := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('******'),bmRead);
  try
    Bitmap.LoadFromStream(BS);
    Image1.Picture.Graphic := Bitmap;
  finally
    BS.Free;
    Bitmap.Free;
  end;
end;

procedure TForm1.Btn_JpegClick(Sender: TObject);
var
  BS    :TStream;
  Jpeg  :TJPEGImage;
begin
  Jpeg := TJPEGImage.Create;
  BS := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('*****'),bmRead);
  try
    Jpeg.LoadFromStream(BS);
    Image1.Picture.Graphic := Jpeg;
  finally
    BS.Free;
    Jpeg.Free;
  end;
end;

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

戻る