procedure TfrmMain.FTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
pbProgress.Max := AWorkCountMax;
pbProgress.Position := 0;
pbProgress.Visible := true;
procedure TfrmMain.FTPWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
pbProgress.Position := AWorkCount;
procedure TfrmMain.FTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
pbProgress.Visible := false;
Open in new window
Author Closing Comment
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
If you are experiencing a similar issue, please ask a related question
Join the community of 500,000 technology professionals and ask your questions.
Join & Ask a Question
Join our community for more solutions or to ask questions.
For immediate help use Live now!