如何在IMAGE里显示库中JPEG的内容(50分)

我搞了半天都不成。。总说写入流错误。。。

uses jpeg

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls,jpeg;

type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
jpegImage:TJPEGImage;
begin
jpegImage:=TJPEGImage.Create;
//jpegImage.LoadFromFile('E:/fnetpacs/images/20030627/00000003.jpg');
jpegImage.LoadFromStream();
Image1.Picture.Assign(jpegImage);
end;

end.

.LoadFromStream(CreateBlobStream(FieldByName('Graphic'), bmRead))

你用的是dbimage吧。它好象只支持bmp.
不然你试试
Image1.Picture.Assign(DBImage1.Picture);
Timage是可以接收jpeg的。

这是我的。。总报stream write error
－－－－－－－－
stream:tMemoryStream;
Jpeg:TJpegImage;
begin

jpeg.create;
stream.Create ;
TblobField(adoQuery2.FieldByName('pic')).SaveToStream(fff) ;
Jpeg.LoadFromStream(stream);
Image1.Picture.Assign(Jpeg);

Jpeg没create??

jpeg 我 create了。。刚才输的时候给误删了

接受答案了.