CLIENT FTP AVEC L'API WINDOWS (WININET.DLL)
elguevel
Messages postés
718
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
-
31 août 2005 à 16:32
eclems Messages postés 104 Date d'inscription samedi 23 décembre 2000 Statut Membre Dernière intervention 9 mai 2013 - 12 oct. 2009 à 01:26
eclems Messages postés 104 Date d'inscription samedi 23 décembre 2000 Statut Membre Dernière intervention 9 mai 2013 - 12 oct. 2009 à 01:26
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/33543-client-ftp-avec-l-api-windows-wininet-dll
https://codes-sources.commentcamarche.net/source/33543-client-ftp-avec-l-api-windows-wininet-dll
12 oct. 2009 à 01:26
merci encore et bravo
27 févr. 2008 à 16:16
c'est exactement ce qu'il me fallait !
Merci,
François
18 juin 2007 à 15:24
j'ai besoin de ton aide.
InternetOpen( PChar('Tiny FTP'), INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0 ); les paramètre de cette instruction je les pas compris.
STRUCT_DATA : _WIN32_FIND_DATAA; ???????????????
InternetConnect( PConnexionInternet, Pchar(Serveur), Port, Pchar(Login), Pchar(MotDePasse), INTERNET_SERVICE_FTP, 0, 0 ); les 3 paramètre qui son à la fin.
merci d'avance
17 mai 2007 à 14:31
Je voudrai pas être rabat-joie, mais le langage SMS ou phonétique, c'est pénible à lire...
17 mai 2007 à 13:26
15 mai 2007 à 18:32
13 mars 2007 à 21:34
Vas y lache toi :-D
13 mars 2007 à 18:37
19 janv. 2007 à 18:11
Peux t-être une j'ai mal lu ?
A tout a l'heure
Merci
19 janv. 2007 à 09:55
19 janv. 2007 à 04:24
Bon pour l'instant, ça fonctionne bien !
Je voulais savoir comment on peut atteindre directement un sous répertoire sur le serveur ?
Merci et à bientôt Damien
Phephelavi
18 janv. 2007 à 20:18
As tu essayé de mettre un Application.ProcessMessages après l'upload ?
Je suis sur que c'est une connerie de rien du tout en plus ....
18 janv. 2007 à 18:19
Je ne sais pas pourquoi cela ne veut pas fonctionner mais j'ai trouvé une solution.
J'ai beau mettre même en "dur" le chemin et le nom du fichier, après un envoi du fichier, il n'est toujours pas sur le serveur. Que je passe par un String ou un FileName, et même un OpenDialog.FileName, rien n'y fait !
Tous les exemples que j'ai trouvé sur les forums, c'est toujours une application avec envoi, suppression, téléchargement en passant par une boite de dialogue mais jamais en passant par des variables et par une tâche de fond.
Alors, j'ai posé un panel, unTDirectoyListBox relié à un TFileListBox et un composant OpenDialog. Je mets le panel en invisible pour par que l'utilisateur le voit !
Dans la procédure d'envoi, je place :
...
OpenDialog1.FileName := FileListBox1.Items[FileListBox1.ItemIndex];
+ ton code d'envoi du fichier
...
Et là, je n'ai plus de problème.
Si tu as une info sur le sujet, je suis preneur pour comprendre le problème pourquoi je suis obligé de passer par un TFileListBox pour que le nom du fichier soit bien compris et que le fichier soit placé sur le serveur.
Merci et bon weekend à toi et à tous les développeurs !
Phephelavi
17 janv. 2007 à 11:38
Reprenez le, et augmenté le temps de pause, et aller y au pas à pas ... franchement là je vois pas !
Sinon on peut aussi sniffer la trame qui passe pour voir ce qui se deroule réelement :-s mais bon ..
17 janv. 2007 à 09:46
J'ai fini l'intégration d'une gestion de procédure d'envoi FTP en suivant votre code mais je n'arrive toujours pas à envoyer le fichier sur le serveur.Dans l'exemple ci-dessous, j'ai repris votre premier code pour expliquer :
Voici une partie du code qui concerne l'envoi du fichier :
if OpenConnexion(Self.Handle, Serveur, Login, MotPasse, StrToInt(Port))
then begin
UpLoadFile(FichierLocal, ExtractFileName(FichierServeur));
Sleep(2000);
ShowMessage('Transfert réussi !');
...
end;
Dans ce cas, le fichier n'est pas mis sur le serveur (pas d'erreur, les variables contiennent bien les bonnes données)
Si je modifie le code comme ci-dessous :
if OpenConnexion(Self.Handle, Serveur, Login, MotPasse, StrToInt(Port))
then begin
if OpenDialog.Execute
then begin
OpenDialog.Title := 'CobraSecurite';
FichierLocal := OpenDialog.FileName;
UpLoadFile(FichierLocal, ExtractFileName(FichierServeur));
end;
Sleep(3000);
ShowMessage('Transfert réussi !');
end;
Là, ca marche, le fichier est sur le serveur. Je ne comprends pas pourquoi avec OpenDialog c'est OK, c'est au niveau de la chaine ? Je n'ai pas de routeur, juste le parefeu de Windows XP, un anti-virus, rien de plus conventionnel. Puis de toute façon, ca marche avec FTPExpert ou votre TinyFTP.
Mais l'envoi du fichier doit-être "transparent" pour l'utilisateur, il ne doit pas être obligé de passer par une boite de dialogue.
Merci encore pour aide, je continue...
Phephelavi
17 janv. 2007 à 08:43
Je continue à chercher et je vous contacterai
Oui, excusez moi, j'ai posté 2 fois
A+
16 janv. 2007 à 21:11
sinon n'a tu pas de probleme lié au reseau comme par exemple un firewall (ou anti virus genre norton) ou meme un routeur (meme si çà serai etonnant que çà vienne de là ) ?
16 janv. 2007 à 21:05
Voilà, j'ai modifié mon code, voici la procédure entière mais rien n'y fait, le fichier n'est toujours pas sur le serveur alors que la connexion et le transfert se sont bien déroulé (message de fin)
procedure TFCobraSAgent.EnvoyerFichierFTP;
//Se connecte au serveur et envoie le fichier de service de l'agent en cours
var
FichierLocal : string; //Nom du fichier en local Windows
FichierServeur : string; //Nom du fichier pour le serveur
Serveur : string; //Adresse serveur, ex : perso-ftp.wanadoo.fr
Login : string; //Nom utilisateur, ex : mr.martin@wanadoo.fr
MotPasse : string;
Port : string; //Le n° du port, FTP par défaut = 21
PConnexionInternet : HINTERNET;
PConnexionFTP : HINTERNET;
begin
//On récupère d'abord les paramètres du serveur (par un Reguitry
FCobraS.LireParamFTP(Serveur, Login, MotPasse, Port);
ShowMessage('Handle : ' + IntToStr(Self.Handle) + #13#10 +
'Adresse : ' + Serveur + #13#10 +
'Login : ' + Login + #13#10 +
'Mot de passe : ' + MotPasse + #13#10 +
'Port : ' + Port);
FichierLocal := 'C:\CobrasSecurite\MainCourante\CSmc.txt';
FichierServeur := 'CSmc.txt';
//Connexions : Internet, puis FTP
PConnexionInternet := InternetOpen(PChar('CobraSecurite'),
INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
if PConnexionInternet = nil
then Exit;
PConnexionFTP := InternetConnect(PConnexionInternet, Pchar(Serveur), StrToInt
(Port), Pchar(Login), Pchar(MotPasse), INTERNET_SERVICE_FTP, 0, 0 );
if PConnexionFTP = nil
then begin
InternetCloseHandle(PConnexionInternet);
Exit;
end;
//Envoi du fichier
Try
FtpPutFile(PConnexionFTP, PChar(FichierLocal), PChar(FichierServeur),
FTP_TRANSFER_TYPE_BINARY, 0);
Sleep(2000);
Finally
//On ferme la connexion
InternetCloseHandle(PConnexionInternet);
InternetCloseHandle(PConnexionFTP);
end;
ShowMessage('Transfert réussi !');
end;
Je n'ai pas d'erreur mais le fichier 'CSmc.txt' n'est toujours pas sur le serveur (je vérifie avec FTPExpert).
Merci pour votre réponse
Phephelavi
16 janv. 2007 à 19:31
J'ai lu ton message, ExtractFolder est bien dans ton unité module.
Je vais modifié mon code et je vous tiens au courant demain.
Merci !
16 janv. 2007 à 10:19
Le problème vient du fait qu'en utilisant mon programme tu declenche les evenements un par un.
Alors qu'en faisant tout d'un coup çà ne passe pas ... mais pourquoi ?
Tout simplement car a peine le fichier envoyé la connexion se termine trop vite.
Il faut simplement mettre une pause très courte après l'upload avant la fermeture des connexions.
PS : a la place de la pause il doit y avoir un systeme pour çà ; a voir.
Voila le bout de code:
var
FichierLocal : string;
FichierServeur : string;
Serveur : string;
Login : string;
MotPasse : string;
PConnexionInternet: HINTERNET;
PConnexionFTP : HINTERNET;
begin
FichierLocal := 'C:\Documents and Settings\leveugle\Bureau\test.txt';
FichierServeur := 'fichier.txt';
Serveur := 'serveurftp';
Login := 'login';
MotPasse:= 'motdepasse';
// Connexion
PConnexionInternet := InternetOpen( PChar('tralalala'), INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0 );
if PConnexionInternet = nil then Exit;
PConnexionFTP := InternetConnect( PConnexionInternet, Pchar(Serveur), 21, Pchar(Login), Pchar(MotPasse), INTERNET_SERVICE_FTP, 0, 0 );
if ( PConnexionFTP = nil ) then
begin
InternetCloseHandle( PConnexionInternet );
Exit;
end;
try
// Envoi le fichier "test.txt" vers le serveur sous le nom de "fichier.txt"
FtpPutFile( PConnexionFTP, PChar(FichierLocal), PChar(FichierServeur), FTP_TRANSFER_TYPE_BINARY, 0 );
Sleep( 2000 ); // Mettre une pause ici (cause de ton probleme)
finally
// On ferme la connexion
InternetCloseHandle(PConnexionInternet);
InternetCloseHandle(PConnexionFTP);
end;
end;
16 janv. 2007 à 09:45
Suite à votre message de 09:12:34
Oui, j'ai bien indique le chemin complet du fichier :
C:\CobraS\Main\CSmc.txt.
Voilà le fichier qui est sur mon poste et je dois l'envoyer régulièrement à un serveur. ET j'ai vérifié les valuers des variables dans l'EDI Delphi, il m'indique bien :
avant extracFilename : C:\CobraS\Main\CSmc.txt
après extracFilename : CSmc.txt
Ma fonction est tout simple : juste envoyé ce fichier sur un serveur si tout. Sans OpenDialog, le fichier n'est pas placé sur le serveur : problème de chaine ? Au niveau des Slash / Qu'est-ce qui ferait que la même chaine formatée
n'aboutit pas dans mon code .
La manière doit être transparente pour l'utilisateur. Mon programme doit faire cet envoi sans que l'utilisateur intervienne.
Oui, j'utilise votre variable ailleurs pour être sûr que la connexion est coupée.
Merci pour aide !
16 janv. 2007 à 09:12
Avez vous indiqué un chemin complet ?
La variable IsConnected ne devrai plus vous servir, c'est juste une valeur utilisé par mon soft.
16 janv. 2007 à 08:28
J'ai pris connaissance de votre code et je l'ai "interprêté" pour l'intégrer dans un programme dont j'avais besoin d'une simple connexion et d'un envoi d'un fichier par session sur un serveur.
Voici le bout de code :
if OpenConnexion(Self.Handle, IServeur, IUtilisateur, ILogin, StrToInt(IPort))
then begin
IsConnected := true;
UpLoadFile(Fichier, ExtractFileName(Fichier));
...
end;
Tout se passe bien mais je rencontre un seul problème : le fichier n'est pas
mis sur le serveur, il est absent alors que la procédure a réussie. Pour
mieux comprendre le problème, j'ai repris un peu de votre code avec
Opendialog :
if OpenConnexion(Self.Handle, IServeur, IUtilisateur, ILogin, StrToInt(IPort))
then begin
IsConnected := true;
if OpenDialog.Execute
then begin
OpenDialog.Title := 'Uploader';
Fichier := OpenDialog.FileName;
UpLoadFile(Fichier, ExtractFileName(Fichier));
....
end;
end;
Et là, ca marche le fichier est sur le serveur ! Il y a bien un autre moyen de placer un fichier sans passer pas la boite de dialogue OpenDialog. Pourtant, j'ai vérifié le chemin du fichier ?
Avez-vous une suggestion ?
Merci d'avance
Phephelavi
20 nov. 2006 à 11:40
20 nov. 2006 à 11:04
20 nov. 2006 à 10:12
je voulais savoir s'il y avait moyen d'avoir une progression du telechargement ?
merci
10 août 2006 à 11:01
A mon avis il doit y avoir un argument à changer pour que la connexion se fasse du client ... va voir la MSDN, ou alors dit moi sur quel serveur tu te connecte car je n'ai jamais eut ce problème !
A oui puis un autre truc tout con mais qui revient souvent ... As tu un routeur ou un modem routeur ?
++
10 août 2006 à 10:33
Au moment du tranfert de données, c'est le serveur qui établi la connexion pour les datas (donc connexion entrante) et BitDefender 9 pour ne citer que lui bloque ces connexions, même si on ajoute un règle qui autorise mon appli à accéder à internet (avec tout les droits possibles !)
J'ai testé avec FileZilla, ça ne se produit pas, FileZilla va établir la connexion de données lui-même, et n'attend pas que le serveur le fasse.
Nb : avec Indy j'ai testé les modes actif et passif, le comportement est quelque peu différent (N° de ports) mais il y a toujours ce pb de connexion entrante !
21 oct. 2005 à 06:38
21 sept. 2005 à 21:49
Par contre si tu as des questions à poser à propos de cette application, ou des améliorations à apporter n'hesite pas.
J'en ai pas mal chier pour le faire ce programme car l'API Wininet est très peu rependu ... la plupart préferant utiliser les composants Indy !
PS : J'ai fait une mise a jour pour ceux que çà interesse !
Damien.
21 sept. 2005 à 15:11
J'ai réaliser une classe de connexion FTP, qui fonctionne trés bien sur un serveur FTP type UNIX, mais depuis que je suis sur un serveur FTP microsoft mon programme ne fonctionne plus, donc je me tourne vers les API windows pour trouver une solution :( et ton code va certainement m'aider...
merci
31 août 2005 à 16:32
Sinon j'ai repondu a ma question pour faire une recherche recursive qui permet de lister tout les fichiers d'un FTP :
{ Lit tout les fichier d'un serveur FTP en partant d'un chemin de depart ! }
procedure Recursive( tList : TListBox; Repertoire : string );
var
STRUCT_DATA : _WIN32_FIND_DATAA;
FoundFile : Pointer;
bFound : Boolean;
TypeFile : String;
Memorise : Array[0..50] of string;
idx : Integer;
i : Integer;
begin
// Init
i := 0;
idx := 0;
FoundFile := nil;
bFound := False;
if PConnexionFTP <> nil then
begin
FtpSetCurrentDirectory( PConnexionFTP, Pchar( SlachFTP(Repertoire) ) );
FoundFile := FtpFindFirstFile( PConnexionFTP, PChar('*.*'), STRUCT_DATA, 0, 0 );
if FoundFile <> nil then
repeat
if (STRUCT_DATA.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY ) = FILE_ATTRIBUTE_DIRECTORY then
begin
if ( Trim(STRUCT_DATA.cFileName) <> '.' ) and ( Trim(STRUCT_DATA.cFileName) <> '..' ) then
begin
Memorise[idx] := STRUCT_DATA.cFileName;
inc( idx );
end;
end else
begin
// TypeFile := AttributeToStr( STRUCT_DATA.dwFileAttributes );
tList.Items.Add( SlachFTP(GetCurrentDirectory( PConnexionFTP )) + STRUCT_DATA.cFileName );
end;
bFound := InternetFindNextFile( FoundFile, @STRUCT_DATA );
until not bFound;
InternetCloseHandle( FoundFile );
end;
for i := 0 to High( Memorise ) do
begin
if ( Memorise[i] <> '' ) then
begin
Recursive( tList, Memorise[i] );
FtpSetCurrentDirectory( PConnexionFTP, PChar( ExtractBeforeFolder( GetCurrentDirectory( PConnexionFTP ) ) ) );
Application.ProcessMessages;
end;
end;
end;
Voila ..
Damien