upload ftp par des ShellExecute?? est ce que c'est faisable?

Question

salut tout le monde!
après plusieurs tentative de travail avec le composant Indy, je me demande si je ne peux pas faire le upload d'un fichier texte en utilisant des ShellExecute??
c'est a dire, imiter les commandes suivantes :
//////////////
>ftp 10.5.55.55
>user
>pass
>send ....
//////////////
par des ShellExecute de la forme :
ShellExecute(Handle, nil, 'CMD', aCmdLine, nil, sw_Hide);

SVP, j'ai besoin de votre aide!
merci

Francky23012301 · Answer

Ben mon ptit Othland pourquoi réouvrir un thread  ? Puis si les composants Indy fonctionne pas c'est peut etre que tu as fait une erreur ou qu'il y a un truc qui va pas coté serveur.

ShellExecute c'est juste à executer un shell c'est à dire une application : c'est pas un range poubelle  comme on pourrait le penser. En aucun cas tu pourras transferer ou récupérer un fichier sur un serveur et meme pas t'y connecter.

cs_couf · Answer

Bonjour Othland,

je ne sais pas si cela peut t'aider mais dans l'autre thread que tu avais ouvert tu cherchais un script
il faut savoir qu'un simple fichier texte que nous allons appeler toto.txt qui est dans le répertoire REP.
tu peux faire la commande suivante en mode console

ftp -s:c:\REP	oto.txt

dans le fichier toto.txt tu mets les commandes suivantes

open 10.5.55.55
user
pass
cd (répertoire sur serveur FTP)
lcd (répertoire sur client local)
mget *.txt (te prend tout les txt sur le répertoire du serveur)
mdelete *.txt pour effacer 
quit

et cela juste enn mode console pour te dépanner.
Ceci étant dis je fais faire un copier coller de ton code et je reviens.

couf

PS: francky à raison pas la peine d'ouvrir un second thread

sylvunix · Answer

ATTENTION

Le protocole FTP n'est déjà pas très sécurisé car le mot de passe est en clair dans les échanges avec le serveur mais en plus si tu le mets en clair dans un fichier texte ...


Le composant ftp fonctionne correctement et de plus il n'est pas compliqué à mettre en oeuvre ...

cs_couf · Answer

RE

 je ne sais pas trop sur quel Thread te répondre je vais te répondre sur celui ci

Pour que ton code marche chez moi j'ai du rajouter 

idftp1.ChangeDir('/repertoire de destination sur le serveur');

ensuite dans mes clauses uses j'ai ceci
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdFTP, IdFtpCommon;

en espérant que j'ai put t'aider
ah j'oubliais pour tester j'ai mis en commentaires cette ligne
//IdFTP1.ReadTimeout:=600;
Tiens nous au courant cela m'interesse.
couf

cs_othland · Answer

désolé pour ce second thread, mais je suis vraiment dans la merde!!
j'ai essayé cette solution de script, mais ça ne marche pas! j'ai une erreur : Error opening script file
je n'ai rien trouvé sur ma machine cible!
et puis dans la fenetre dos j'ai un affichage descriptif de tout les arguments (-v,....)

cs_othland · Answer

j'ai utilisé ce code :
////////////
IdFTP1 := TIdFTP.Create(nil);
// Initialize with proper settings.
IdFTP1.Host := ip;
IdFTP1.Username := 'user';
IdFTP1.Password := 'pass';
// Connect.
IdFTP1.Connect;
try
  IdFTP1.ChangeDir('C:/');
except on E: Exception do showmessage(E.Message);
end;

try
  IdFTP1.TransferType := ftASCII;
  IdFTP1.Put('C:\Documents and Settings
mcuser\Desktop\cells.txt', 'File.txt');
except on E: Exception do showmessage(E.Message);
end;
IdFTP1.Free;
//////////////

et là, j'ai la fameuse erreur "COMMAND NOT IMPLEMENTED.PRO04EL1"
et puis c'est pour cela que j'ai laisser tomber cette methode et penser aux scripts
aidez moi SVP

florenth · Answer

@othland: mais t'écoutes rien ou quoi ? lol

On te dit: idftp1.ChangeDir('/repertoire de destination sur le serveur'
); pas sur le client !
Alors ne fais pas IdFTP1.ChangeDir('C:/');

cs_couf · Answer

Salut,

 Sylvlinux tu as raison mais vu l'adresse IP qu'il a donné 10.5.*.* (adressage privé)
sur son PC je pense que le risque est moindre

couf

cs_couf · Answer

RE,
désolé "je squatte le trhead"

sur windwos démarrer-->Exécuter ftp -s:c:\REP	oto.txt
fonctionne chez moi.

couf

cs_othland · Answer

ET BEN!!!
quand je fais moi :
ftp -s:c:\documents and settings
mcuser\desktop	t.txt

il me dis : Error opening script file c:\documents.

cs_couf · Answer

Re 
écoutes après j'arrète de squatter

as ton avis il n'a pas un blème quelques parts?
regarde ton chemin.
c:\documents and settings
mcuser\desktop	t.txt
je crois que l'espace qu'il ya dans ton chemein lui pose problème.
met un répertoire sur la racine 
style c:ep	t.txt
et evite c:\mon répertoire  (PAS D'ESPACE DANS TON CHEMIN)

couf

cs_othland · Answer

c bon c bon , ça marche!! avec un script créé comme fichier texte
mais maintenant il reste un petit problème
comment je peux connaitre le nom de la session sur laquelle mon programme tourne!
comme ça, je peux créer mon fichier dans le bureau de la session en cours???

cs_couf · Answer

Re,

et dire que j'avais dis que je ne squattrais plus.

1) Déja tu peux mettre réponse accepté cela servira au autres utilisateurs du site


2)Ensuite ton autre question c'est:

"comment je peux connaitre le nom de la session sur laquelle mon programme tourne!"


Yo mon frère  moi pas tous comprendre. 

Détaille ta question s'il te plait

tu fais quoi là tu utilises quel programme, tu es mode texte, ou tu es de nouveau avec ton applicatif?

couf

Francky23012301 · Answer

Salut,

-Othland : je vois pas en quoi d'ouvrir un nouveau thread te sort plus de l'impasse ? 

- Methode de Couf : Effectivement on peut lancer un script de ce type (et pas faire un simple ShellExecute comme le disait Othland) mais je trouve la méthode un peu cracra.

-Othland : je t'ai passé un lien vers un source et un lien vers la RFC. Je rejoins Flo : tu n'as pas analysé assez ton code, tu n'as pas assez lu les codes, tu n'as pas fais assez de recherche (il y a plein de sources), tu n'as pas cherché à analyser tes erreurs et ton code a été fait à l'arrache  (Pas mal d'erreurs pour une procédure toute bête) .

Enfin bref, tu as en définitif perdu beaucoup plus de temps en travaillant comme ca .

florenth · Answer

C'est clair, son problème, il aurait pu le résoudre en une dizaine de minutes (une heure grand maximum).
Mais bien sûr, chercher, ça fatigue...

Alors forcément, la méthode "flemme", c'est la forum avec comme question "pourquoi mon code il marche pas ?".
Et puis, au final, la solution adoptée est loin d'être la meilleure, et le temps pris pour la trouver est supérieur à celui qu'aurait pris une recherche soigneuse...

Mais bon, là, va falloir changer les mentalités, et c'est pas gagné.

cs_couf · Answer

Salut,

 Attention juste une précision.
Pourquoi un script fait peur à tous le monde?
J'ai aussi passé son programme au débugger et lui est apporté aussi des solutions en mode graphique.Et cela aussi vous devriez le noté.
 j'espère qu'un jour vous ne serez pas admin de serveur et devans trouvé des solutions, en mode console,  car tout de suite
le cracra se met à ressembler à de l'OR PTDR

couf

cs_othland · Answer

là, je m'excuse mes confrères, mes j'ai cherché avant de poster sur le forum (j'ai toujours eu ce reflexe! mais bref)
j'ai utilisé le composant ftp de Indy mais ça n'a pas marché à cause de l'erreur 'COMMAND NOT IMPLEMENTED' et là j'ai commencé à bombarder à gauche et à droite!
je m'excuse encore une fois pour le second thread!
et pour la session, sur le pc ou je dois mettre mon application, y a plusieurs session, je veux juste connaitre le nom de la session qui execute monj appli, c'est tout!

Merci à vous tous!

Francky23012301 · Answer

Couf : le problème n'est pas là . Seulement s'il suffisait de faire un simple fichier texte pour faire un client FTP ca serait cool : dans ton cas de figure le client FTP est très limité en en fonctionnalitées (Juste la méthode Put) mais pour un vrai client FTP ta technique n'est pas à préconiser. Ensuite la gestion des paramètres, pas possible par cette technique . Ensuite tu ne peux pas récupérer et traiter les erreurs : No no no cette méthode est cracra de chez cracra j'insiste et je signe .

Ben là tu vois Othland faut réouvrir un thread car ca n'a plus rien avoir avec du FTP (Tu veux connaitre la session ou  tu vas installer ton application) et là encore tu n'as pas cherché. (Regarder à Comment détecter l'ouverture d'une session courante).

Othland on ne te repproche rien , CS est fait pour ca . Mais soit plus posé et plus percéverant dans tes recherches :  Prend cela plus comme un conseil .

 Pour commencer tu aurais du déja essayé de te connecter au serveur sans rien faire , le problème du TimeOut aurait été réglé. 

Ensuite tu n'as pas pris le temps d'analyser des sources :  ChangeDir tu l'avais complêtement zappé et tu l'as meme pas vu .

Pour conclure Othland : tu sembles pressés de finir ton projet : dis moi j'espère que tu n'es pas entrain de faire un soft commercial ?  . Déjà en étant pressé on fait que des bétises . Mais surtout c'est très dangereux de faire une telle chose quand on débute  peine. Même des mecs  comme Flo, Japee, Cari, Cirec,f0xi  ne le font pas et pourtant ils sont très bons. Je pense  qu'il  serait sage de rester à sa place d'amateurs  .

florenth · Answer

Je signe et j'approuve tout ce que vient de dire Francky 36:15 !!!

Sérieusement, couf, le mode console, c'est cool, c'est pratique (surtout pour l'admin de serveur) mais pas adapté à un développement logiciel. Suffit de regarder les scripts VB pour s'en rendre compte (ceci n'est pas un troll contre le vb).

Même du côté de linux, ça fait pagaille: les scripts (ceux qui sont interprétés par /bin/bash ou qqch de similaire) ne sont pas uniformément reconnus en fonction de je-ne-sais-trop-quel-exécutable-de-je-ne-sais-trop-quelle-librairie-de-je-ne-sais-trop-quelle-version-de-telle-distribution-et-pas-celle-là. Alors non merci ! Surtout quand Indy fait mieux et en plus souple !

cs_couf · Answer

Salut,

  ça sent le troll à plein nez votre truc et je ne vais pas tomber dans ce piège.
Donc vous avez raison.
Pour ma défense, je dirais juste qu'il a posé une question, et j'y ai répondu.
j'ai aussi (j'insiste sur ce point) trouver l'erreur de son programme.mais ça apparemment 

Ensuite et pour finir (ne pas surencherir SVP) les scripts comme celui là m'ont déja sauvé la mise en clientèle plus d'une fois.
Et à vrai dire quand on voit que MS fait powershell pour faire du script je me dis que je n'ai pas tous les torts.
Trouve toi sur un PC, qui ,je ne sais pour quel raison se trouve avec certaines sockets fermées, ou qui te permettent de transferer 
en mode asynchrone seulement et tu béniras les scripts.

CECI ETANT DIS VOUS AVEZ RAISON CE N'EST PAS DE LA MANIERE DE FAIRE UN CLIENT FTP.
DONC PLEASE PAS DE SURENCHERE SVP MERCI D'AVANCE.

couf

cs_othland · Answer

comme je vous ai deja dis, j'ai réussi à uploader un fichier texte en suivant cette méthode :
/////remplissage du script
  AssignFile(R,'C:\Documents and Settings\'+NomSession+'\Desktop	t.txt');
  Rewrite(R);
  WriteLn(R,'lcd "C:\Documents and Settings\'+NomSession+'\Desktop"');
  WriteLn(R,'open '+ip);
  WriteLn(R,'FTP#1');
  WriteLn(R,'FTP#1');
  WriteLn(R,'put cells.txt');
  WriteLn(R,'quit');
  closefile(R);
///////////////////////////
////////lancement du transfert ftp
CmdLine := PChar('/c '+'ftp -s:tt.txt');
ShellExecute(Handle, nil, 'CMD', CmdLine, nil, SW_HIDE);
sleep(7000);
DeleteFile('C:\Documents and Settings\'+NomSession+'\Desktop	t.txt');
DeleteFile('C:\Documents and Settings\'+NomSession+'\Desktop\cells.txt');
////////////////

meci à vous tous, je vous rappel que je n'ai pas utiliser le composant Indy à cause de l'erreur "COMMAD NOT IMPLEMENTED", qui me laisse croire qu'il y a qq chose qui cloche dans l'OS de mon serveur! bref!!
d'ici qq jour j'aurai affaire à une opération de download/upload avec un autre serveur et je vais surement utiliser un composant indy!

merci encore une fois et désolé pour le second thread et pour ma précipitation!

Francky23012301 · Answer

Salut Othland :

il y a qq chose qui cloche dans l'OS de mon serveur! Je suis pas d'accord avec toi (Si je peux )  En effet cce que tu fais avec ton script (transfert) tu peux evidemment le faire avec Indy  . Dommage que tu ai pas réalisé et posté les correction de ta première procédure avec Indy, on aurait pu alors creuser un peu plus et t'aider à obtenir quelque chose qui fonctionne.

cs_couf · Answer

Bonjour Othland,

 Ravis que tu as pu trouver une solution.
Pour déja avoir connue de grand moment de solitude , je comprends le petit code que tu as mis en oeuvre.
Et pour avoir lu tous les thread je sais que tu as aussi cherché sur le NET
Par contre, si tu le permet ton problème m'interesse au plus haut point.(erreur serveur 502)
Peux tu nous donner L'os de ton serveur.
Si c'est Windows XP, (déja vu) peux tu nous dire si par hasard les services FTP sont démarrer ou pas sur ton PC.
Si il y a un antivirus sur ton SERVEUR et si cela te dérange pas la marque (déja vécu aussi )
Enfin peux tu essayer les clients FTP suivant fireFTP, et FileZilla sur ta bécanne(si serveur windows),ainsi qu'un sur le site
utilisant le client Indy et dire ce qui se passe.
As j'oubliais, peux tu faire un copier coller de ta clause USEs s'il te plait. 
D'avance Merci

couf

cs_othland · Answer

bonjour tout le monde!
désolé pour le retard, au fait avec la client IndyFTP, ça ne marchait pas car tout simplement IL N'Y A PAS DE WINDOWS sur le serveur vers lequel j'envoyait mon fichier texte, c'est un switch GSM géré par un OS ERICSSON, et comme je suis nouveau, je ne savais pas ce détail!! bref!
suite à la demande de couf, j'envoie mon source :
/////////
la clause uses :
/////////
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, MSNPopUp, IdBaseComponent, IdComponent,
  IdUDPBase, IdUDPClient, IdTrivialFTP, IdUDPServer, IdTrivialFTPServer,
  IdTCPConnection, IdTCPClient, IdFTP, IdFTPCommon, ExtCtrls, WinInet, jpeg, ShellApi,
  Buttons;
//////////
le code :
// Create object.
IdFTP1 := TIdFTP.Create(nil);
// Initialize with proper settings.
IdFTP1.Host := ip;
IdFTP1.Username := 'FTP#1';
IdFTP1.Password := 'FTP#1';
// Connect.
IdFTP1.Connect;
// Go to a certain folder on the server.
try
  IdFTP1.ChangeDir('C:/');
except on E: Exception do showmessage(E.Message);
end;
// Ascii mode for plain text.
try
  IdFTP1.TransferType := ftASCII;
  IdFTP1.Put('C:\Documents and Settings
mcuser\Desktop\cells.txt', 'File.txt');
except on E: Exception do showmessage(E.Message);
end;
// Clean-up.
IdFTP1.Free;
/////////

merci infiniment pour votre aide!

cs_couf · Answer

Salut Othland,

Ta clause use me parait un peu Bizarre

essaye celle la.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,

  IdFTP, IdFtpCommon;

car tu fais appelle à IdTrivialFTP, IdUDPServer, IdTrivialFTPServer, et cela me parait un peu bizarre.


ensuite cette ligne IdFTP1.ChangeDir('C:/');

est fausse surtout si ce n'est pas du windows.

Je vais encore faire hurler mes 2 autres camarades,

mais as tu le moyen d'aller en mode console sur ton switch?

si c'est un switch Ericson, tu dois avoir comme OS un linux embarqué ou un autre OS à base d'unix .

En théorie , n'importe quel client FTP dois pouvoir déposé des
fichiers  avec n'importe quel OS car si tu connais un peu le
modèle  OSI on se trouve au niveau des couches 6 et 7.

Par exemple je transmet entre windows et AS400 entre Unix et AS400 et entre Unix et windows sans  aucun problème.

Si c'est du linux embarqué que tu as, tu dois avoir surement une
busybox d'installer. Si c'est une busybox tu peux alors installer le
protocole FTP sans aucuns soucis enfin presque car si tu as jamais
encore manipuler de linux embarqué ne t'aventure pas là.

En espérant que j'ai put un peu t'éclairer

A au fait j'oubliais pour ta seconde question (nom session )il faut utiliser GETUSERNAME regarde sur le lien
couf

cs_couf · Answer

Bonjour,
Toujours ton problème qui me trotte dans la tête j'ai du mal à l'en faire sortir.
Questions:
En général sur ce type de matériel tu peux te connecter via le port 80.
donc ouvre un navigateur et tape ton adresse IP tu devrais avoir un menu qui te donnes la liste des répertoires.
Ensuite si tu connais l'extension FIRE FTP sous firefox tu devrais pouvoir faire pas mal de chose.

 J'ai du matériel de ce type au boulot et j'ai vérifié tu as raisons toutes les commandes FTP ne sont pas implémentés sur certains.
ce qu'un mode console admet  un client graphique ne l'admet pas et toc!!!

couf

Francky23012301 · Answer

"ce qu'un mode console admet  un client graphique ne l'admet pas et toc!!!". Dans ton script ou c'est précisé le caractère console ou graphique de ton serveur FTP  ?Quelle fonction Indy permet de faire une sélection/distinction entre console et graphique ? Aucune .

Conclusion : Quand on fait un client Indy il se moque que le serveur soit en mode console ou graphique : il y a un serveur et il communique avec, c'est tout .

Par contre, il exite une différence entre Serveurs windows et Unix. Il est donc probable que l'OS ERICSSON, admet aussi des particularités et dans ce cas ce n'est pas étonnant que cela plante lamentablement

cs_couf · Answer

salut


Je cherche des solutions pas des polémiques.

Merci beaucoup.

couf

Upload ftp par des ShellExecute?? est ce que c'est faisable?

28 réponses

Votre réponse

Discussions similaires