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控件或变量
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控件或变量