读入
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;