|
#2
kt232010-04-17 19:03
|
程序代码：procedure TfrmMain.btnSaveClick(Sender: TObject);
var
strFn:String;
begin
self.sd.InitialDir:=self.reg.ReadString('保存水印图象');
self.sd.Title:='将嵌入水印后的图像保存为';
self.sd.Filter:='*.bmp|*.bmp';
if(self.sd.Execute)then
begin
strFn:=self.sd.FileName;
self.reg.WriteString('保存水印图象',ExtractFileDir(strFn));
SaveImage(self.Image2.Picture.Bitmap,strFn);
end;
end;
点了保存了，但是却没有生成出保存的图片来啊~帮帮忙~谢谢了 var
strFn:String;
begin
self.sd.InitialDir:=self.reg.ReadString('保存水印图象');
self.sd.Title:='将嵌入水印后的图像保存为';
self.sd.Filter:='*.bmp|*.bmp';
if(self.sd.Execute)then
begin
strFn:=self.sd.FileName;
self.reg.WriteString('保存水印图象',ExtractFileDir(strFn));
SaveImage(self.Image2.Picture.Bitmap,strFn);
end;
end;