TImage Speichern

[Gehstock]

Ich möchte den Inhalt eines TImages per dialog als *.jpg speichern. Der Dialog klappt schonmal nur weiß er noch nicht was er speichern soll

[marabu]

Guten Morgen.

Über den Dialog ermittelst du nur den gewünschten Speicherort (filename). Du musst die Unit JPeg einbinden, das Bitmap aus der TImage-Komponente per Assign() der JPegImage-Komponente zuweisen und dann kannst du mit der Methode SaveToFile() die JPG-Datei erstellen.

Grüße vom marabu

[Gehstock]

Delphi-Quellcode:

procedure TFormMain.Button27Click(Sender: TObject);
begin
   with SaveDialog do begin
     FilterIndex:=1;
     FileName := IniFile.ReadString('Setup','Screen,+1','Screen.jpg');
     InitialDir := ExtractFilePath(FileName);
     FileName := ExtractFileName(FileName);
     if InitialDir = '' then IniFile.ReadString('Setup','DirOld','.\');
     if not DirectoryExists(InitialDir) then
      InitialDir := IniFile.ReadString('Setup','DirOld','.\');
     DefaultExt := 'jpg';
     Filter := 'Jpg (*.Jpg)|*.Jpg|All files (*.*)|*.*';
     Options:=Options+[ofFileMustExist]-[ofHideReadOnly]
        +[ofNoChangeDir]-[ofNoLongNames]-[ofNoNetworkButton]-[ofHideReadOnly]
        -[ofOldStyleDialog]-[ofOverwritePrompt]+[ofPathMustExist]
        -[ofReadOnly]-[ofShareAware]-[ofShowHelp];
     Title:='Screen Speichern';
   end;//with
  if SaveDialog.Execute then begin
        [color=#009fff]Image1.Create(SaveDialog.FileName,fmCreate);[/color]
         exit;
end;
end;

hab es so erzeugt aber "Incompitable types "TComponent" and "TFilename""

[marabu]

Eher so:

Delphi-Quellcode:

uses
  JPEG;

procedure TFormMain.Button27Click(Sender: TObject);
var
  jpg: TJpegImage;
begin
  with SaveDialog do 
  begin
    // ... 
    if Execute then
    begin
      jpg := tJpegImage.Create;
      jpg.Assign(Image1.Picture.Bitmap);
      jpg.SaveToFile(FileName);
      jpg.Free;
    end;
  end;
end;

Getippt und nicht getestet.

marabu

[TeronG]

Gibt es das Image1 (sammt Inhalt) schon?

dann sollte das nach "if SaveDialog.Execute then" funtzen

Delphi-Quellcode:

uses
  jpeg,
...

var
  JPGBild : TJPEGImage;
...

  with JPGBild do begin
    JPGBild := TJPEGImage.Create;  //JPG erstellen
    Assign(Image1.Picture);  //JPG die Bilddaten vom Image übergeben
    SaveToFile(SaveDialog.FileName);  // Speichern mit dem Filename vom SaveDialog
    Free;  // freigeben ...
  end;

EDIT: ??? Keine rote box?

[Gehstock]

@marabu klappt net
@TeronG genau so

danke euch beiden

[TeronG]

Zitat:

Zitat von Gehstock

@marabu klappt net
@TeronG genau so

danke euch beiden

mag sein .. ich glaub aber nicht, daß dir dein Delphi auch "klappt net" gesagt hat ;-)

[naudoc]

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!

[Khabarakh]

Vergleiche einmal genau deine und TeronGs "Assign"-Zeile.

[naudoc]

Ja, aber dann kommt ne andre Fehlermeldung..
und: gibt das picture auch die selbst(über canvas) gemalten Dinge ab?

DAnke!


EDIT:

Hier der Fehler:
---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EConvertError aufgetreten. Meldung: 'TPicture kann nicht zu TJPEGImage zugewiesen werden'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

Danke nochmal!

mfG