存 :(jpg)
TblobField(adsMaster.FieldByName('Photo')).LoadFromFile(imagePath)
看:
procedure TEntryPersonInfor.ViewImage;
Var
Jpg :TJpegImage ;
Path :String ;
begin
GetDir(0,Path) ;
Image1.Picture :=Nil ;
Image1.Repaint;
TempJpg :=Path+ '/TempJpg.Jpg' ;
Jpg :=TJpegImage.Create ;
TBlobField(adsMaster.FieldByName('Photo')).savetoFile(TempJpg) ;
Jpg.LoadFromFile(TempJpg);
Image1.Picture.Assign(Jpg);
Jpg.Free ;
end;
做成临时文件是最稳定的,别忘删掉就行。
搜索一下 有大把大把的代码。