如何儲存及取出？ |
|
|
|
lmk625
一般會員   發表：14 回覆：13 積分：5 註冊：2002-03-28 發送簡訊給我 |
|
|
hagar
版主   發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
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;
|
|
lmk625
一般會員 發表：14 回覆：13 積分：5 註冊：2002-03-28 發送簡訊給我 |
發表時間：2002-05-01 13:57:16
IP:203.75.xxx.xxx 未訂閱
系統時間：2024-04-25 14:15:27
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |