Which work event occurred

Giganews Newsgroups
Subject: Which work event occurred
Posted by:  wahome (rayha…@bigpond.net.au)
Date: Thu, 29 Dec 2005

How do I get confirmation that a file has been uploaded or deleted. Below is
how I imagine it is done.

procedure TForm1.Button1Click(Sender: TObject);
begin
    IdFTP1.Put(myfile);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    IdFTP1.Delete(myfile);
end;

procedure TForm1.IdFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
    If AWorkMode = ???? then
        StatusBar1.SimpleText := 'File transferred successfully..';

    If AWorkMode = ???? then
        StatusBar1.SimpleText := 'File deleted successfully..';
end;

Replies