Image exportieren in mehreren Typen

[taktaky]

Hallo

ich möchte mein Bild in Image1 als jpeg, bmp, gif, tiff speichern

Wie mache ich den Filter von einem SaveDialog1?
Ich kann momentan das Bild nur als jpeg, jpg, bmp speichern aber als gif oder tiff ?!

Delphi-Quellcode:

Image1.Picture.Bitmap.Assign(b);
Image1.Picture.SaveToFile('test.bmp');
Image1.Picture.SaveToFile('test.jpg');
Image1.Picture.SaveToFile('test.jpeg');

Gruß

[Matze]

Hallo,

kannst du dich bitte etwas genauer ausdrücken?

Wie man den Filter des TSaveDialogs zuweist, findest du im Forum, beispielsweise hier.

Vor dem Abspeichern musst du das Bild natürlich auch in das entsprechende Format konvertieren. Dafür gibt es einige Units bzw. Dlls, die das für dich erledigen können. Ein Beispiel wäre FreeImage.
Es reicht nicht aus, die Datei mit einer anderen Endung zu speichern.

Grüße

[taktaky]

wie viel Typen hat FreeImage und wie kann ich installieren oder verwenden?
Ich habe die Source für Delphi downloadetet und möchte sie testen

hier ist mein klein Projekt mit 5 Filter

[Matze]

Zitat:

Zitat von taktaky

wie viel Typen hat FreeImage

Das steht alles da

Zitat:

Zitat von taktaky

und wie kann ich installieren oder verwenden?

Schau dir die Delphi-Demos an. Sie befinden sich in \Wrapper\Delphi\demo

Es gibt auch eine schöne Dokumentation.

Also lass dir hier nicht alles erzählen sondern strenge dich zukünftig selbst ein wenig an.

Grüße

[Blackheart]

Delphi-Quellcode:

unit FilterSaveAs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if savedialog1.Execute then
    begin
If SaveDialog1.FilterIndex = 1 Then SaveDialog1.Filename := 'test.jpeg';
If SaveDialog1.FilterIndex = 2 Then SaveDialog1.Filename := 'test.jpg';
If SaveDialog1.FilterIndex = 3 Then SaveDialog1.Filename := 'test.bmp';
If SaveDialog1.FilterIndex = 4 Then SaveDialog1.Filename := 'test.gif';
If SaveDialog1.FilterIndex = 5 Then SaveDialog1.Filename := 'test.tiff';
//saveDialog1.DefaultExt := '.jpg,.bmp';  // macht nicht !
image1.picture.savetofile(savedialog1.FileName+'.bmp');
      end;
end;

end.

Programmieren ist glaub ich nicht dein Ding, such dir ein anderes Hobby. :wink:

[taktaky]

Bist Du blind :mrgreen:
Ich habe in dem Projekt nur die 5 Filter vorbereitet, was Du versehen hast

Delphi ist ja mein Hoppy aber nicht mein Fach :mrgreen:

[Matze]

Fange jetzt nicht an, Mitglieder zu beleidigen. Dein Code-Stil ist wirklich alles andere als ordentlich und selbst zeigst du meist keinerlei Eigeninitiative, die zum Programmieren zwingend gehört.
Was dein Code macht bzw. machen soll hat Blackheart mit Sicherheit verstanden.

Da bereits alles gesagt wurde und das Thema vermutlich nun zu unnötigen Diskussionen führen würde, mache ich hier zu.

G E S C H L O S S E N