bmpZUjpeg ?

[taktaky]

Hallo,

Ich möchte mein Image nicht nur als .bmp sondern auch als .jpeg
so versuche ich das Image zu convertieren und gleichzeitig speichern :

Delphi-Quellcode:

function BmpToJpeg(bmp:TBitmap):TJpegImage;
begin
  BmpToJpeg := TJpegImage.Create;
  BmpToJpeg.Assign(bmp);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  saveDialog1.DefaultExt := '.bmp';
  if savedialog1.Execute then
    begin
      If ExtractFileExt(SaveDialog1.Filename) = '.bmp' then
          image1.picture.savetofile(SaveDialog1.FileName); // ok
      If ExtractFileExt(SaveDialog1.Filename) = '.jpeg' then
         BmpToJpeg(image1.picture.savetofile(SaveDialog1.FileName)); // Untyped Pointer

end;
end;
end;

[taaktaak]

taktaky, der Code ist echt suuuper optimiert!

Aber Scherz beiseite:
1. oben fehlt ein Free
2. überlege mal die Reihenfolge - du willst doch zuerst konvertieren und dann speichern. Nun schau dir mal deine zugehörige Zeile an

[Luckie]

Welchen Rückgabetyp hat die Methode SaveToFile von TImage und was für ein Typ erwartet deine Funktion BmpToJpeg?

[Matze]

Guck dir mal die Funktionsdeklaration an:

function BmpToJpeg(bmp: TBitmap): TJpegImage; Was du übergibst ist irgendwas, nur kein TBitMap. Lerne endlich mal die Programmier-Grundlagen.

Und wenn du die Suchfunktion genutzt hättest, hättest du auch eine ordentliche Methode zur Konvertierung gefunden: Bitmap -> JPeg umwandlung

[DeddyH]

Abgesehen davon sollte man IMO den FilterIndex des Dialogs auswerten und nicht die Dateiendung (was passiert bei einer Datei "Test.JPG"?).

[taktaky]

Zitat von Luckie:

Welchen Rückgabetyp hat die Methode SaveToFile von TImage und was für ein Typ erwartet deine Funktion BmpToJpeg?

Image-Type ist BMP
Also die Funktionen bekommt einen Typ von bmp und soll sie in jpeg convertieren

Es liegt nicht an die Funktion sondern an die Verknüpfung der Funktion in SaveDialog1 oder :

Vorher habe ich immer die gute Funktion verwendet

Delphi-Quellcode:

procedure Bmp2Jpeg(const BmpFileName, JpgFileName: string);
var
  Bmp: TBitmap;
  Jpg: TJPEGImage;
begin
  Bmp := TBitmap.Create;
  Jpg := TJPEGImage.Create;
  try
    Bmp.LoadFromFile(BmpFileName);
    Jpg.Assign(Bmp);
    Jpg.SaveToFile(JpgFileName);
  finally
    Jpg.Free;
    Bmp.Free;
  end;
end;

[taaktaak]

Und warum verwendest du sie jetzt nicht in angepasster Form weiter?

[taktaky]

Zitat von taaktaak:

Und warum verwendest du sie jetzt nicht in angepasster Form weiter?

Ich kann das Image Ohne Funktion bmpTojpeg als jpeg speichern und zwar so :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Jpeg: TJpegImage;
begin
  saveDialog1.DefaultExt := '.bmp';
  if savedialog1.Execute then
    begin
      If ExtractFileExt(SaveDialog1.Filename) = '.bmp' then
          image1.picture.savetofile(SaveDialog1.FileName); // ok
If ExtractFileExt(SaveDialog1.Filename) = '.jpeg' then
begin
  Jpeg := TJpegImage.Create;
  Jpeg.Assign(Image1.Picture.Graphic);
  Jpeg.SaveToFile(SaveDialog1.Filename); // so ist auch OK
  Jpeg.Free;
end;

end;
end;

Ich möchte nur wissen, wie ich die Funktion bmpTojpeg einbinden kann
Ich muss auch andere Funktionen : BMP2GIF, BMP2TIFF genauso machen

Gruß

[DeddyH]

Wieso muss das eigentlich eine Funktion sein? Pass doch Deine Procedure einfach an.

[Luckie]

Zitat von taktaky:

Zitat von Luckie:

Welchen Rückgabetyp hat die Methode SaveToFile von TImage und was für ein Typ erwartet deine Funktion BmpToJpeg?

Image-Type ist BMP
Also die Funktionen bekommt einen Typ von bmp und soll sie in jpeg convertieren

Es liegt nicht an die Funktion sondern an die Verknüpfung der Funktion in SaveDialog1 oder :

Richtig, denn die Methode SaveToFile ist eine Prozedur und hat keinen Rückgabetyp. Du übergibst also Unsinn an die Funktion.