关于如何显示数据库中的图片的问题?(100分)

  • 主题发起人 主题发起人 保保
  • 开始时间 开始时间

保保

Unregistered / Unconfirmed
GUEST, unregistred user!
请问?如何将图片保存在SQL SERVER并显示在delphi中,多谢
 
TBlobField(DataSet.FieldByName('GraphField')).LoadFromFile('GraphFile');
 
保存同楼上
显示载入jpeg格式的图片如下
procedure TFFrm.LoadPicture;
var
lBlobStream: TStream;
lGraphic: TGraphic;
begin
DBImage1.Picture.Graphic:=nil;
if ADoquery1.Eof then
exit;
lGraphic:=nil;
lBlobStream := ADoquery1.CreateBlobStream(ADoquery1.FieldByName(picture), bmRead);
try
if lBlobStream.Size > 1 then
begin
lBlobStream.Position := 0;
lGraphic := TJpegImage.Create;
lGraphic.LoadFromStream(lBlobStream);
DBImage1.Picture.Graphic := lGraphic;
end;
finally
lBlobStream.Free;
lGraphic.Free;
end;
end;
 
结束吧!没什么好说的,楼上都说了
 
后退
顶部