public:howto:ftp_progressbar [Ararat Synapse]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== ProgressBar for ftp receive/ send data ======

Here is some example code for read/ write data:
<code delphi>
// CallBack function, add more THookSocketReason events in case ..

procedure TftpForm.SockPutCallBack(Sender: TObject;
  Reason: THookSocketReason; const Value: string);
begin
  case Reason of
    HR_WriteCount: // HR_ReadCount // Value contains number of bytes
      begin
        inc(CurrentBytes, StrToIntDef(Value, 0)); // Increment uploaded bytes
        ProgressBar.Position := Round(1000 * (CurrentBytes / TotalBytes));
      end;
    HR_Connect: CurrentBytes := 0; // Reset 
    (*
      else
        begin
          v := getEnumName(typeInfo(THookSocketReason),
            integer(Reason)) + ' ' + Value);
          MemoLog.Lines.Add(v); // Show log in a Memo field
        end;
    *)
  end;
end;

// Init callback:

  ftp := TFTPSend.Create;
  try
    ftp.DSock.OnStatus := SockPutCallBack; // Update progressbar
    ftp.Username := ....
    ...
</code>
Download full example-code here: [[http://s-a.no/delphi/Synapse/ftpdemo3.zip|ftpdemo3.zip]]