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ß