在线等待？？？如何将数据库中的图片信息读出写入。。。一定给分

Question

在线等待？？？如何将数据库中的图片信息读出写入一定给分

Answer 1

存入：
TBlobField(Table.FieldByName('tp')).LoadFromFile(d:\a.jpg);
取出
TBlobField(Table.FieldByName('tp')).SaveToFile(d:\a.jpg);

Answer 2

1.儲存圖片的方法:
　(1).用 LoadFromFile 的方法
　Table1.Insert; // 將圖片存至 Table1 的 Field1 欄位
　Table1Field1.LoadFromFile('c:\Windows\Waves.bmp');
　Table1.Post;　(2).用 LoadFromStream 的方法
　var FS: TFileStream;
　begin
　　Table1.Insert;
　　FS := TFileStream.Create('c:\Windows\Winlogo.bmp', fmOpenRead);
　　try
　　　Table1Field1.LoadFromStream(FS);
　　finally
　　　FS.Free;
　　end;
　　Table1.Post;
　end;2.將 Blob 欄位取出, 在 Image1 上顯示:
uses jpeg;
var Stream1: TFileStream;
jpeg: TJPEGImage;
begin
　Stream1 := TBlobStream.Create(Table1Field1, bmRead); // 將 Table1 的 Field1 欄位取出
　try
　　jpeg.LoadFromStream(Stream1);
　　Image1.Picture.Assign(jpeg);
　finally
　　jpeg.Free;
　　Stream1.Free;
　end;
end;

Answer 3

TBlobField?将字段设置为TBlobField ，还是需要申明

Answer 4

TBlobField是一个类,如
TBlobField(Table.FieldByName('tp')).LoadFromFile(d:\a.jpg);只虽将Table.FieldByName('tp'))强制转换一下!
以便能用TBlobField中的方法,
不用声明,只接使用!