用TMEMORYSTREAM來讀圖片顯示不出來，你有解決的方法嗎？

[Help_ycf]

如果是BMP文件很成功
MS：TMEMORYSTREAM；
。。。。
//從數據庫中讀出相片存爲流
tblobfield(adoquery1.FieldByName('photo')).SaveToStream(ms);
image1.picture.bitbmp.loadfromstream(ms)
//顯示得很好

但如果流是JPEG的話，則顯示不出來，怎麽處理？

[ppbaobei123]

在USES中加入JPEG，就可以在IMANGE中显示图片了。

[ppbaobei123]

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs，JPEG;//注意这里


image1.picture.loadfromstream(ms)；//这不要Bitmap了

[Help_ycf]

jpeg已經加了，但
image1.picture.loadfromstream(ms)編譯不過

[zdcnow]

var
MS_JpegStream:TMemoryStream;
M_BitMap:TBitMap;
M_Jpeg:TJpegImage;
begin
try
MS_JpegStream:=TMemoryStream.Create;
M_BitMap:=TBitMap.Create;
M_Jpeg:=TJpegImage.Create;
if extractfileext(filename)='.bmp' then
begin
M_BitMap.LoadFromFile(filename);
M_Jpeg.Compress;
M_Jpeg.Assign(M_BitMap);
end
else if extractfileext(filename)='.jpg' then
begin
M_Jpeg.LoadFromFile(filename);
end;
M_Jpeg.SaveToStream(MS_JpegStream);
image1.Picture.Graphic:=nil;
MS_JpegStream.Position:=0;//！！！
image1.Picture.Graphic.LoadFromStream(MS_JpegStream);
finally
MS_JpegStream.Free;
M_BitMap.Free;
M_Jpeg.Free;
end;

[zdcnow]

详细可以看看这里的代码：
http://www.csdn.net/expert/topic/973/973247.xml?temp=.441189

[Help_ycf]

zdcnow(磁效应)
image1.Picture.Graphic.LoadFromStream(MS_JpegStream);
到了這句就報錯了

[zdcnow]

Help_ycf(不懂):
对filename处理一下就可以。
比如：
filename:=openpicturedialog1.FileName;
filename是一个图象文件的文件名。

[zdcnow]

这样可以了，不好意思，刚才写少了一句：
procedure TForm1.Button3Click(Sender: TObject);
var
MS_JpegStream:TMemoryStream;
M_BitMap:TBitMap;
M_Jpeg:TJpegImage;
begin
openpicturedialog1.Execute;
filename:=openpicturedialog1.FileName;
try
MS_JpegStream:=TMemoryStream.Create;
M_BitMap:=TBitMap.Create;
M_Jpeg:=TJpegImage.Create;
if extractfileext(filename)='.bmp' then
begin
M_BitMap.LoadFromFile(filename);
M_Jpeg.Compress;
M_Jpeg.Assign(M_BitMap);
end
else if extractfileext(filename)='.jpg' then
begin
M_Jpeg.LoadFromFile(filename);
end;
M_Jpeg.SaveToStream(MS_JpegStream);
image1.Picture.Graphic:=nil;
image1.Picture.Graphic:=TJpegImage.Create;//写少了这里，不好意思
MS_JpegStream.Position:=0;//！！！
image1.Picture.Graphic.LoadFromStream(MS_JpegStream);
finally
MS_JpegStream.Free;
M_BitMap.Free;
M_Jpeg.Free;
end;
end;

[Help_ycf]

謝謝你了，給分了，能不能解決一下另一個問題？有QQ嗎？

[zdcnow]

现在在工作中，不能上qq,呵呵。
可以给我短信。