Hallo,
ich habe den obigen Quelltext für mich so verändert:
Delphi-Quellcode:
procedure TForm1.Graphalsjpgspeichern1Click(Sender: TObject);
begin
with JPGBild do begin
JPGBild := TJPEGImage.Create; //JPG erstellen
Assign(Image2); //JPG die Bilddaten vom Image übergeben
SaveToFile(SaveDialog1.FileName); // Speichern mit dem Filename vom SaveDialog
Free; // freigeben ...
end;
end;
Dann kommt beim Klick auf den Button jedoch folgender Fehler:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt Project1.exe ist eine
Exception der Klasse EConvertError aufgetreten. Meldung: 'TImage kann nicht zu TJPEGImage zugewiesen werden'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------
Was habe ich falsch gemacht?
Hilfe wäre nett...
Danke!