Thema: Delphi bmpZUjpeg ?

Einzelnen Beitrag anzeigen

taktaky
(Gast)

n/a Beiträge
 
#8

Re: bmpZUjpeg ?

  Alt 2. Jul 2008, 11:55
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) = '.bmpthen
          image1.picture.savetofile(SaveDialog1.FileName); // ok
If ExtractFileExt(SaveDialog1.Filename) = '.jpegthen
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ß
  Mit Zitat antworten Zitat