Zastapienie komunikatow generowanych przez wyjatki

0

Witajcie.
Chce zapytac jak zrobic obsluge komunikatow generowanych przez komponent IdFTP podczas kiedy wystapia zdarzenia np: serwer FTP nie odpowiada lub polaczenie internetowe zostalo przerwane? Chodzi mi o to zeby nie pojawialy sie pola z komunikatami tylko zebym mogl w ich miejsce podjac jakas akcje ale zeby te akcje dotyczyly wyjatkow wygenerowanych przez wszystkie polecenia komponentu.
Teraz np musze w try except obudowywac kazda wywolana procedure czy funkcje z komponentu i jest to zdziebko upierdliwe.
Pozdrawiam.

0

Możesz stworzyć klasę dziedziczącą po IdFTP lub metodę wywołującą metodę z IdFTP opakowaną w try except np:

function TMyForm.Put(aLocalFile, aRemoteFile: String): Boolean;
begin
  try
    IdFTP.Put(aLocalFile,aRemoteFile);
    Result := True;
  except
    Result := False;
  end;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1