本文整理自网络,侵删。
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 pagecontrol.ttabsheet与drivecombobox.items同步
更多相关阅读请进入《Delphi》频道 >>