BMP2JPEG - Konvertieren mit Progressbar ?

[Assun]

Hi !

Ich habe vor ein kleines Tool zu schreiben, welches BMPs nach JPEGs und umgkehrt konvertieren kann.

Nun möchte ich für die einzelnen Pics eine ProgressBar mit laufen lassen.

Und es wäre natürlich auch schön, wenn es eine 2. ProgressBar gäbe, welche den Status der Konvertierung von allen Bildern angibt, sprich wielange es dauern wird, bis alle ausgewählten Pics konvertiert wurden.

Nur leider habe ich keine Ahnung von der Verwendung von ProgressBars.

Habt ihr vielleicht Tutorials dazu oder ein kleiner Beispiel Code ?

Vielen Dank !

Gruß Assun

[jfheins]

Da gibt es eigentlich nicht viel ...

Min, Max, Step(It) und Position ist schon fast alles ;)

[Assun]

Diese eigenschaften kenne ich ja !

Ich weis nur nicht wie man sie einsetzt ;-)

[Ultimator]

Min ist angenommen 1.
Max setzt du auf die Anzahl der zu konvertierenden Bilder.
Und jedesmal, wennn ein Bild fertig umgewandelt ist, rufst du ProgressBar1.StepIt auf ;)

//edit: Ergänzende Informationen siehe bei jfheins ;)

[jfheins]

Es gibt auch eine Delphi-Hilfe ;)

:arrow: Min: Minimalwert (z.B. 100)

:arrow: Max: Maximalwert (z.B. 0)

:arrow: Position: Position der progressbar, muss zwischen min und max liegen (z.B. 50)

@Ulti: dann müsste er Step auf 1 setzen :!:

[malo]

Min: Der Mindestwert der Progressbar
Max: Der Maximalwert
Position: Welchen Wert hat die Progressbar
Step: Da bin ich mir nicht so sicher. Ich glaub Step gibt an, wieviele Punkte man in der Position haben muss, damit sich ein "Feld" auf der Progressbar füllt (Max/Step würde dann imho die Anzahl der "Felder" der Progressbar ergeben).

Das war's auch schon ;)

//edit: Wo ist das rote Kästchen hin? :gruebel:

[jfheins]

Step ist die Anzahl an Einheiten, um die StepIt die Position erhöht ;)

Du kannst also statt Progressbar.position := Progressbar.position + 1;

Einfach step := 1 setzte, und dann Progressbar.stepit; ;)

Beispielcode für eine Progressbar:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 350 do
  begin
    ProgressBar1.Position := round (abs (sin (i/100) * 100)); // rumrechnerei, damit es cooler aussieht ...
    ProgressBar1.Repaint;
    Sleep(10);
  end;
end;

[idontwantaname]

ich glaube, ich versteht Assun nicht ganz
er weiß über den übergang mit der progressbar bescheit, er weiß nur nicht, welche berechnungen er anstellen muss, um herauszufinden, wann die bilder fertig sind ;)

zum thema:
vllt so: du ermittelst die anzahl der pixel, setzt das max auf die anzahl der pixel und zählst dann halt pro pixel eins dazu

[100nF]

hi,

willst du auch wissen, wie du die progressbar in dein code einbauen kannst?

wenn ja, poste mal dein code, den du nimmst um die bilder zu konvertieren.

gruss
urbanbruhin

[Ultimator]

Ich vermute mal mit
TJpegImage.Assign(TBitmap)
Deswegen wird das vermutlich n kleines Problem geben :?