我读取它时写的代码如下:var
Ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
try
TBlobField(table1.FieldByName('huibiao')).SaveToStream(ms);
///////////////////////////////////////////
ms.Position := 0; //添加这一行
///////////////////////////////////////////
DBImage1.Picture.Bitmap.LoadFromStream(ms);
image2.Picture.Bitmap.LoadFromStream(ms);
finally
ms.Free;
end;
end;
Ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
try
TBlobField(table1.FieldByName('huibiao')).SaveToStream(ms);
///////////////////////////////////////////
ms.Position := 0; //添加这一行
///////////////////////////////////////////
DBImage1.Picture.Bitmap.LoadFromStream(ms);
image2.Picture.Bitmap.LoadFromStream(ms);
finally
ms.Free;
end;
end;
我照着你的修改了我的代码,但还是不行,
取不出来,很奇怪
保存图象可以用
Table1Blob.assign(image2.picture);
读取并显示图象用
Image1.Picture.assign(table1Blob);另外我用的数据库是paradox,图象用Graphic(blob)类型,DBImage和它直接连接就能显示图片了。希望这些对你有用。