CopyFileEx

[Dani]

Zitat:

Zitat von masadafish

hi
ich wollt mich zunächst für das tolle beispiel bedanken
aber ich habe ein problem denn sobald ich datein die größer als ca 2gb sind kopieren will stimmt die progressbar nicht mehr da der progrssbar.max wert ja ein integer
ist und msg.lparam und msg.wparam ja auch "nur" integer sind ... steh ich jetz nur auf der leitung oder ist was wirklich schwierig?
also hat wer ne ahnung wie man das abändern kann das es auch mit größeren datein funzt?

Du könntest den aktuellen Fortschritt in Promille umrechnen und dann einfach fest Progressbar1.Max := 1000 nehmen. Speichere dazu einfach den Int64-Wert, den dir CEXM_MAXBYTES liefert.

Delphi-Quellcode:

// wParam: lopart, lParam: hipart

[Hawkeye219]

Die Formel von Luckie ist allerdings nicht richtig, er addiert einfach beide Teile. Der richtige Wert errechnet sich so:

Delphi-Quellcode:

bytes := (Int64(Msg.LParam) shl 32) + Msg.WParam;

bytes ist natürlich als Int64 zu deklarieren.

Gruß Hawkeye

[himitsu]

Dann mußt du halt noch einen Divisor mit einbauen, welche die Werte vor der Übergabe an die ProgressBar anpaßt diesen kannst du ja setzen, sobald du die Dateigröße bekommst, also in CEXM_MAXBYTES.

Etwa so:

Delphi-Quellcode:

CEXM_MAXBYTES: 
  begin 
    if Int64(Msg.WParam) shl 32 + Msg.LParam <= $7FFFFFFF then Divisor := 1
    else Divisor := (Int64(Msg.WParam) shl 32 + Msg.LParam) div $7FFFFFFF;
    ProgressBar1.Max := Msg.WParam + Msg.LParam;

Delphi-Quellcode:

(Int64(Msg.WParam) shl 32 + Msg.LParam) div Divisor

PS: Lackie, muß in WndProc nicht

Delphi-Quellcode:

Msg.WParam + Msg.LParam

so sein?

Delphi-Quellcode:

Int64(Msg.WParam) shl 32 + Msg.LParam

Mist zu langsam -.-''

[Hawkeye219]

Zitat:

Zitat von himitsu

Mist zu langsam -.-''

...und auch nicht ganz korrekt! Der höherwertige Anteil steht in Msg.LParam. :zwinker:

[masadafish]

danke nochmal für die antworten ... ich habs jetz einfach in prozent umgerechnet
jetz hab ich dadurch eine ordenliche progressbar

[himitsu]

Zitat:

Zitat von Hawkeye219

...und auch nicht ganz korrekt! Der höherwertige Anteil steht in Msg.LParam. :zwinker:

Mist, hast Recht ... hier gibt's nicht zufällig 'nen Mod, der bei mir aus den ganzen WParam ein LParam und umgekehrt macht :?:

[Luckie]

Tipps noch mal richtig, dann kopiere ich das in meinen Code-Schnippsel rein. ;)

[Luckie]

Das Problem ist: Die Progressbar kommt nur mit Integer klar und nicht mit Int64. Will man eine Progressbar benutzen muss man sowieso in Prozent umrechnen. Ich habe den Code auf meiner Homepage korrigiert: http://www.michael-puff.de/Developer...opyFileEx.html

[himitsu]

Zitat:

Zitat von Luckie

Tipps noch mal richtig, dann kopiere ich das in meinen Code-Schnippsel rein. ;)

Nein, in Prozent muß es nicht sein ... der Wert muß halt "nur" in den Integer-Bereich gebracht (verkleinert) werden,
aber Prozent geht och ... is ja auch im entsprechendem Bereich.

Zitat:

Dann mußt du halt noch einen Divisor mit einbauen, welche die Werte vor der Übergabe an die ProgressBar anpaßt diesen kannst du ja setzen, sobald du die Dateigröße bekommst, also in CEXM_MAXBYTES.

Etwa so:

Delphi-Quellcode:

CEXM_MAXBYTES: 
  begin 
    if Int64(Msg.LParam) shl 32 + Msg.WParam <= $7FFFFFFF then Divisor := 1
    else Divisor := (Int64(Msg.LParam) shl 32 + Msg.WParam) div $7FFFFFFF;
    ProgressBar1.Max := (Int64(Msg.LParam) shl 32 + Msg.WParam) div Divisor;

Delphi-Quellcode:

(Int64(Msg.LParam) shl 32 + Msg.WParam) div Divisor;

PS: Luckie, muß in WndProc nicht

Delphi-Quellcode:

Msg.WParam + Msg.LParam

so sein?

Delphi-Quellcode:

Int64(Msg.WParam) shl 32 + Msg.LParam

Mist zu langsam -.-''


[edit] LParam <> WParam