Bonsoir,
J'ai un soucis avec PUT de IdFTP
Je n'arrive pas à transferer de fichier sur mon FTP,
J'ai essayé sur Free et sur lycos, ça ne marche plus.
Y'a til une erreur dans mon code?
le code reste bloqué sur IdFTP1.Put('c:\img.wmf');
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 begin if IdFTP1.Connected then IdFTP1.Disconnect; IdFTP1.Username := 'monpseudo'; IdFTP1.Password := 'monpass'; IdFTP1.Host := 'ftp.membres.lycos.fr'; // ou 'ftpperso.free.fr'; IdFTP1.Port := 21; IdFTP1.Connect; IdFTP1.TransferType := ftBinary; IdFTP1.Put('c:\img.wmf'); IdFTP1.Disconnect; MessageBoxA(handle, PChar('ok'), PChar('Titre'), MB_OK); end;
pourtant l'image ne fait que quelque ko
Partager