1楼就是正确代码 顶多你弄个 Savedialog对话框 选择一下保存路径if savedialog1.execute then DBImage1.Picture.SaveToFile(savedialog1.filename);
procedure TForm2.N1Click(Sender: TObject);var bmp:TBitmap; Jpg:TJpegImage; begin self.openpicturedialog1.FileName:=''; if self.OpenPictureDialog1.Execute then begin if self.OpenPictureDialog1.FilterIndex=1 then begin bmp:=TBitmap.Create; Jpg:=TJpegImage.Create; Jpg.LoadFromFile(self.OpenPictureDialog1.FileName); bmp.Assign(Jpg); self.bsskindbImage1.Picture.Bitmap.Assign(bmp); end else begin self.bsskindbImage1.Picture.Bitmap.LoadFromFile(self.OpenPictureDialog1.FileName); bsskinDBImage1.Picture.SaveToFile('C:\111.jpg');为什么存不进去呢
顶多你弄个 Savedialog对话框 选择一下保存路径if savedialog1.execute then
DBImage1.Picture.SaveToFile(savedialog1.filename);
bmp:TBitmap;
Jpg:TJpegImage;
begin
self.openpicturedialog1.FileName:='';
if self.OpenPictureDialog1.Execute then
begin
if self.OpenPictureDialog1.FilterIndex=1 then
begin
bmp:=TBitmap.Create;
Jpg:=TJpegImage.Create;
Jpg.LoadFromFile(self.OpenPictureDialog1.FileName);
bmp.Assign(Jpg);
self.bsskindbImage1.Picture.Bitmap.Assign(bmp);
end
else
begin
self.bsskindbImage1.Picture.Bitmap.LoadFromFile(self.OpenPictureDialog1.FileName); bsskinDBImage1.Picture.SaveToFile('C:\111.jpg');为什么存不进去呢