5,379
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button7Click(Sender: TObject);
var
pic:tmemorystream;
root:string;
begin
pic:=tmemorystream.create;
...
pic.Clear;
tblobfield(adoquery1.fieldbyname('zw')).savetostream(pic);
pic.Position:=0;
root:=path+'\aa\finger\001.pis';
myfile:=tinifile.Create(root);
myfile.WriteBinaryStream('','',pic);
end;
end;
myfile.Free;
pic.Free;
end;