[DELPHI] Settare valore massimo di una ProgressBar

[Franz78]

Ciao a tutti
utilizzo una progress bar per visualizzare l'andamento del caricamento di un file
se il file mi supera i 2 GB la progress bar mi da errore
mi dice che la proprietà max è fuori range.....

questo è il codice con cui
inizializzo e muovo la progress bar

procedure TUpload.IdFTP1WorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin

ProgressBar1.Max := AWorkCountMax;
ProgressBar1.Position := 0;

end;

procedure TUpload.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
lblProgress.Caption := 'Sended: ' + NByteToString(AWorkCount);
Application.ProcessMessages;
end;

Non sono un espertop di delphi ma come faccio ad impostare AWorkCountMax ??
c'è un modo?

Inoltre che voi sappiate esiste un limite per l'upload con indy ftp? è possibile che non mi carichi file di + di 2 gb?

Grazie per le risposte

[Franz78]

Up

[alka]

E' possibile che il range del valore che stai tentando di impostare come massimo della barra sia superiore a quello assegnato al tipo di dato cui fa riferimento la proprietà Max del controllo.

La soluzione che propongo io non è proprio il massimo, nel senso che si tratta di un "escamotage", ma potrebbe essere sufficiente (tenendo conto che la stessa ProgressBar non è generalmente un controllo con cui si vuole fornire un risultato con precisione estrema).

Potresti dividere entrambi i valori di posizione e massimo della barra per 2, o per un fattore che garantisca che i valori rimangano al di sotto del range massimo.

Ciao!