同上
解决方案 »
- 请教高手Delphi中的窗体释放怎么解决?
- 如何将我的报表内容保存为word格式?
- 如果在一个程序中操控另一个程序??打个比方,现在一个程序A上有登录与注销两个功能,那么我怎样在程序B中实现对A的登录或是注销呢?
- 百分求助如何将delphi+ado+access的程序打包!
- CXGRID 里面的 DrawCell
- 那种下载来的带各种图片和ini的皮肤怎么支持?
- 截取111*111*111中的三个111
- 见人见智,请问在delphi中使用包的好处,大家踊跃发言啊!!!
- 各位,等这本书有消息后,我重发贴给你们加分,请问大家关于《Delphi高级开发指南》
- 为什么CSDN要扣我的专家分???我本来是2020的,今天怎么变成了1975了。。。。。
- delphi中如何计算乘方
- 问两个关于mdb数据库的基本问题!
(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;存入:
TBlobField(Table.FieldByName('tp')).LoadFromFile(d:\a.jpg);
取出
TBlobField(Table.FieldByName('tp')).SaveToFile(d:\a.jpg);