Article Rating

  • 0 Rating(s)
  • 0
  • 0
  • 0
  • 0
  • 0

Error Handling in asynchronous mode

procedure TMain.clUploader1StatusChanged(Sender: TObject; Status: TclProcessStatus);   
begin   
   case Status of   
      psSuccess: ShowMessage('Process completed successfully');   
      psFailed: ShowMessage((Sender as TclUploader).Errors.Text);   
      psTerminated: ShowMessage('Process stopped');   
      psErrors: ShowMessage('Process completed with some warnings');   
   end;   
end; 

Article ID: 44, Created On: 1/23/2010, Modified: 1/23/2010