bmpZUjpeg ?

[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ß