procedure TForm1.Button1Click(Sender: TObject);
var
imgSeal:TMemoryStream;
img:TStream;
begin
imgSeal:=TMemoryStream.Create;
//这是得到图片
imgSeal:=getImage(pchar(trim(edit1.text)),pchar(trim(edit2.text)),pchar(trim(edit3.text)));
imgSeal.SaveToFile('c:/test.txt');
showmessage('流文件存为c:/test.txt');
img.CopyFrom(imgSeal,0);
image1.Picture.Bitmap.LoadFromStream(img);
imgSeal.Free;
end;
请指教！
