DELPHI Gemme TImage uden brug af SavePictureDialog
Jeg har et sammensat billede på TImage, som jeg gerne vil gemme direkte fra programmet uden at brugeren skal bestemme noget.Jeg har dannet hele filnavnet fra roden til filnavnet inden der skal gemmes, men jeg kan få det til at virke.
Jeg har følgende, som virker:
-----------------------------
procedure TForm1.btnGemClick(Sender: TObject);
var
SaveName : string;
begin
if SavePictureDialog1.Execute then
if FileExists(SavePictureDialog1.FileName) then
raise Exception.Create('File already exists. Cannot overwrite.')
else
imgBitmap3.Picture.SaveToFile(SavePictureDialog1.FileName);
end;
-----------------------------
Men der har jeg jo ikke magt over filnavnet eller placeringen, så jeg vil gerne bruge noget lignende dette:
-----------------------------
procedure TForm1.btnGemClick(Sender: TObject);
var
SaveName : string;
begin
// Lav filnavnet
SaveName := MakeSaveFileName(fullFileName);
og derefter noget lignende
imgBitmap3.Picture.SaveToFile(SavePictureDialog1.SaveName);
end;
-----------------------------
Det giver fejlmeldingen: Cannot create file
Det burde da være muligt!