搞定了图片在数据库的读取问题, 大家也看看.

[web700]

完整的代码如下:

//这个是保存的代码
procedure TForm1.Button1Click(Sender: TObject);
var
MyJPEG : TJPEGImage;
MS: TMemoryStream;

begin
if opendialog1.Execute then
begin
MyJPEG := TJPEGImage.Create;
try
with MyJPEG do
begin
image1.Picture.LoadFromFile(opendialog1.FileName);
Assign(Image1.Picture.Graphic);
MS:=TMemoryStream.create;
SaveToStream(MS);
MS.Position:=0;
adoTable1.append;
TBlobField(adoTable1.FieldbyName('picture')).LoadFromStream(MS);
adoTable1.Post;
messagebox(getactivewindow(),'图像保存完毕！','保存',mb_ok);
end;
finally
MyJPEG.Free;
end;

end;
end;


//这个是读取的代码
procedure TForm1.Button2Click(Sender: TObject);
var tempstream:TmemoryStream; // tempstream:tstringstream 也可以
tempjpeg:TJPEGImage;

begin
try
tempstream:=TmemoryStream.Create(); // tempstream:=tmemorystream.create(' ');
TBlobField(adotable1.FieldByName('picture')).SaveToStream(tempstream);
tempstream.Position:=0;
tempjpeg:=TJPEGImage.Create;
tempjpeg.LoadFromStream(tempstream);
DBImage1.Picture.Bitmap.Assign(tempjpeg);
finally
tempstream.Free;
tempjpeg.Free;
end;

end;

end.


//可能这个对高手来说算个啥, 但是你我这样的人菜人还真是费了手脚.
请高人指教.

[startjoy]

支持！！！

[jiangjian0427]

up

[btdjw]

我也支持哦

[rocker1218]

支持哦！

[bestilemon]

帮了我大忙了！
谢谢！

[killer2008]

读取代码有问题，adotable要先数据库连接