[DELPHI] FTP con Indy e visualizzazione byte inviati e rimasti

[Franz78]

Ciao a tutti,
premetto che sn proprio alle prime armi con delphi.....alle primissime.
o costruito un ocx che fa l'ftp di un file con indy..e fin qui tutto bene....
ho fatto anche la progress bar...che si muove al caricamento del file.....
volevo sapere se c'era un modo per far visualizzare quanti byte sono rimasti e
quanti inviati...

se c'è una proprietà di indy, qualcosa insomma che mi ritrova questa informazione.


Grazie per le risp.

Ciao

[alka]

Come hai fatto a creare una ProgressBar funzionante se non sei in possesso delle informazioni relative ai byte inviati e totali? :master:

P.S.: controllo OCX? VVoVe:

[Franz78]

la progress bar la cosa + facile del mondo (la fortuna del principiante si)
ci sn 2 eventi.....workbegin e work....
ho sfruttato quelli ed il gioco è fatto......

ma quindi si possono sapere i byte inviati? e rimasti?


il controllo ocx è stata una richiesta dall'alto nn è dipesa da me.

[alka]

Originariamente inviato da Franz78
ci sn 2 eventi.....workbegin e work....
ho sfruttato quelli ed il gioco è fatto......

Mmm... non restituiscono i valori espressi in byte? Non ricordo...

Originariamente inviato da Franz78
il controllo ocx è stata una richiesta dall'alto nn è dipesa da me.

Auguri al richiedente... sì, l'avevo intuito, volevo solo fare una battuta.

[Franz78]

mmm nn so cosa restituiscono veramente.......
io ho fatto una cosa veramente stupida...pero funziona...
ho trovato questo (che dovrebbe fare al caso mio)
ma nn riesco a farlo funzionare...

http://forum.dsdt.info/viewtopic.php?t=31263

[alka]

Originariamente inviato da Franz78
mmm nn so cosa restituiscono veramente.......

Mi risulta trattarsi di byte.

Comunque, nel dubbio, si può consultare anche la documentazione Indy.

[Franz78]

ok studiando qua e la son riuscito a fare questo:

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
if AWorkCountMax > 0 then ProgressBar1.Max := AWorkCountMax
else ProgressBar1.Max := BytesToTransfer;
ProgressBar1.Position := 0;
label1.Caption := IntToStr(ProgressBar1.Max);
end;

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);

begin
ProgressBar1.Position := AWorkCount;
label1.Caption := IntToStr(ProgressBar1.Position);
end;


procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position:=0;
end;

La domanda è a questo punto.....la riga evidenziata non dovrebbe far si che la label si aggiorni continuamente? aggiornando anke il valore che si sta inviando?
a ma rimane fissa...

[alka]

Fai un giro di debug... sicuramente c'è una svista da qualche parte. :master:

[Franz78]

HO risolto aggiungendo questo:

Application.ProcessMessages;

[alka]

Originariamente inviato da Franz78
HO risolto aggiungendo questo

Sarà fonte di grossi problemi...