用SQL语句操作SQL Server数据库的Image字段(50分)

  • 主题发起人 主题发起人 ldbyj
  • 开始时间 开始时间
L

ldbyj

Unregistered / Unconfirmed
GUEST, unregistred user!
请问在Delphi中如何用SQL语句操作SQL Server数据库的Image、Binary类型字段,比如向
表中插入照片数据,用SQL语句实现可以吗?
 
插入图像:
if OpenPDia.Execute then
begin
GoodsT.Edit;
(GoodsT.FieldByName('Photo') as TBlobField).loadfromfile(openPdia.filename);
end;
读出jpg,bmp到image中:
procedure TMainFrm.ReadPhotoActExecute(Sender: TObject);
var
JP: TJPEGImage;
bs: TBlobStream;
bmp: Tbitmap;
begin
if not (Table1.IsEmpty) then
begin
bs := TBlobStream.Create((Table1.FieldByName('photo') as TBlobField), bmRead);
try
jp := TJPEGImage.Create;
jp.LoadFromStream(bs);
Image1.Picture.Assign(jp);
bs.free;
jp.free;
except
bs.Free;
jp.Free;
bs := TBlobStream.Create((Table1.FieldByName('photo') as TBlobField), bmRead);
bmp := Tbitmap.Create;
bmp.loadFromStream(bs);
image1.Picture.Assign(bmp);
bs.free;
end;
end;
end;
查查以前的问题,也有很多!
 
接受答案了.
 
后退
顶部