本文整理自网络,侵删。
1、存入字段
if p1.Graphic <> nil then
begin
Tmp.FieldByName('TP').Assign(p1.Graphic);
end;
2、读出到文件
TBlobFile(Tmp.FieldByName('TP') ).SaveToFile('c:\1.jpg');
提示:
1.Tmp.FieldByName('TP') 为Image字段2.p1为TPicture控件或变量――――――――――――――――
原文链接:https://blog.csdn.net/chelen_jak/article/details/18950005
相关阅读 >>
Delphi enablecontrols,disablecontrols函数
Delphi getmimetypefromfile 获取文件mime类型
Delphi getprocessmemoryinfo获取进程占用内存大小
更多相关阅读请进入《Delphi》频道 >>