BMP2JPEG - Konvertieren mit Progressbar ?

[Khabarakh]

Ja, das könnte schwer werden :stupid: .Assun könnte ja JPEG nachprogrammieren, einfach mal dizzy fragen und die Idee schnell wieder verwerfen :mrgreen: .
Aber dem ersten Posting nach geht es Assun schon um die Progressbar allgemein.

[Assun]

ok so konvertiere ich die Bilder :

Delphi-Quellcode:

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;

[100nF]

ui, das sieht wirklich nicht gut aus, ich glaube nicht das das geht.

[Assun]

irgendwie muss es doch gehen :-(

[Airblader]

Mit der Konvertierung nicht.
Da wirds schon einen Algo brauchen, in den du das einfplanzen kannst.

air

[Khabarakh]

Du kannst es ja wenigstens dritteln: Laden, Kopieren, Speichern.
Aber sieht man da bei den einzelnen Bildern überhaupt etwas :gruebel: ?

[Assun]

nein ! die bilder sollen lediglich umgewandelt werden

[jfheins]

Du könntest auch Versuchsreihen aufstellen, um die Zeit mit bestimmten Einstellungen zu berechnen, und dann die Progressbar in einem Timer weiterzählen (stepit), ab und zu mit Position korrigieren

;)

[Assun]

Mir ist gerade aufgefallen dass das Konvertieren der einzelnen Bilder sowieso sehr schnell geht, sodass eine Progressbar für die einzelnen Files gar nicht nötig ist.

Doch man soll ganze Ordner auswählen, und diese dann aufeinmal konvertieren können.

Könnte man da dann eine ProgressBar ins Spiel bringen ? Wenn ja wie ?

[Luckie]

Klar. Zähle pro Datei weiter.