1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| procedure TForm3.Button3Click(Sender: TObject);
begin
if not (IdFTP1.Connected) then Connection;
if IdFTP1.Connected then
begin
with IdFTP1 do
try
try
IdFTP1.Get('Clients.csv','clients.csv',true);
except
On E : Exception do
ShowMessage(Format('Erreur durant le téléchargement : %s',[E.message]));
On E : Exception do
ShowMessage(Format('Erreur inconnue : %s',[E.Message]));
end;
finally
end;
end;
end;
procedure TForm3.Connection;
begin
try
IdFTP1.Connect();
except
On E:Exception do Label1.Caption:=(E.message);
end;
end; |
