JPGzu BMP ohne Umbenennen

[Johannes013]

Hallo Leute,

ich arbeite an einem Programm, dass nur mit Bitmaps arbeitet. Nun ist auch ein kleiner Konverter dabei, der eine JGP bild ing ein BMP machen soll. Über einen SavePictureDialog laüft das nicht, zumindest ist das Bitmap dann ungültig.

Wie kann ich ein JPG in ein ECHTES Bitmap machen?

Ich hoffe in diesem tollen Forum auf antwort :zwinker:


mfg Johannes013 :wink:

[toms]

Zitat:

Zitat von Johannes013

Über einen SavePictureDialog laüft das nicht, zumindest ist das Bitmap dann ungültig.

Hallo, wie meinst du das? Mit dem TSavePictureDialog wählst du ja nur den Pfad+Dateinamen aus.

[Larsi]

Delphi-Quellcode:

uses
  JPEG;

procedure JPEGtoBMP(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp:  TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100; {Default Value}
    jpeg.LoadFromFile(FileName);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;

Du kannst die Datei ja nicht einfach umbennnen und dann ist die ein anderes Format :) Der Code sollte funktionieren.

[Johannes013]

ja, ich habe bisher noch nicht viel erfahrung mit Dialogs.

[DeddyH]

Versuch es mal mit TBitmap.Assign(TJPEGImage)

[Johannes013]

danke. kurze nebenfrage (ich will kein neues THEMA aufmachen): Wie mach ich Menüs diese Trennstriche (s. Anhang)???

[DeddyH]

Caption auf "-" setzen (ohne Anführungsstriche).

[Johannes013]

vielen, vielen dank. auch fürs konvertieren. :thumb: :cheers: :coder: :dancer2: :hello: :roteyes: :balloon: :wink:

[SirThornberry]

Zitat:

Zitat von Johannes013

danke. kurze nebenfrage (ich will kein neues THEMA aufmachen): Wie mach ich Menüs diese Trennstriche (s. Anhang)???

Bei uns gilt aber - neue Frage neues Thema :) Egal wie klein die Frage zu sein scheint, stelle bitte immer pro Thema nur eine Frage.