sql server下的Jpg图象(100分)

Z

zcq18

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在sql server下插入Jpg格式的图片。?
图象表为images
字段Image定义为image类型
 
读入
ADOTable1.Append;
TBlobField(ADOTable1.FieldByName('image')).LoadFromFile('C:/WINNT/Web/Wallpaper/Windows 2000.jpg');
ADOTable1.Post;

读出
var
Jpg:TJPEGImage;
Buf:TMemoryStream;
begin
Jpg:=TJPEGImage.Create;

Buf:=TMemoryStream.Create;
TBlobField(ADOTable1.FieldByName('image')).SaveToStream(Buf);
Buf.Position:=0;
Jpg.LoadFromStream(Buf);
Image1.Picture.Assign(jpg);

Buf.Free;
Jpg.Free;
 
接受答案了.
 
顶部