PowerBuilder à Donf ! / [RESOLU] PowerBuilder et client FTP

cantin_jl · 10-01-2007 15:44:20

Bonjour,

Je travaille actuellement avec une version 9 de PowerBuilder et j'aimerais faire un client ftp en natif.
Est-ce possible?

Si non existe-t-il une version qui le permet?

Merci

pick ouic · 10-01-2007 15:56:50

hello,
en fouillant bien sur le site, tu n'as rien trouvé qui pourrait correspondre à tes attentes ?

A++

cantin_jl · 11-01-2007 11:07:24

Bonjour,

J'ai bien vu des examples d'utilisation de batch mais il faudrait que je puisse gérer le port de travail donc pas d'utilisation du ftp.exe de windows...

pick ouic · 11-01-2007 14:48:02

chez le client actuel, on utilise ce sdk
http://pbadonf.fr/forum/viewtopic.php?id=103

qui fonctionne tres bien...
on effectue une connection FTP via une adresse IP... ect...

cdtit · 11-01-2007 15:12:29

Bonjour,

super le code.

Avez vous des infos pour du FTP en multi-thread ?
Actuellement on passe par l'intermédiaire d'un module externe
en Delphi, dont on a pas les sources , ce qui ne me plait pas trop.

cantin_jl · 12-01-2007 10:20:55

Merci pour le module,

Il semble super. Pouvez-vous m'indiquer où changer le n° de port, en effet je n'utilise pas le port 21 mais le n° 10042?

Merci d'avence.

pick ouic · 12-01-2007 11:03:02

Exemple de script d'un écran "w_ftp"

merci à l'ami christian report pour ce bout de code

Code: pb

//Déclaration d'une variable d'instance FTP
u_ftp  iu_ftp


//Déclaration variables locales
String ls_cible  //nom du fichier cible avec chemin
String ls_source //nom du fichier source avec chemin
String  ls_ip_serveur_ftp //adresse ip du serveur ftp
String ls_user //utilisateur ftp
String ls_pwd //mot de passe ftp
Long ll_ret //code retour des foncions ftp


//Definition du serveur Ftp
iu_ftp.connexion.remote = ls_ip_serveur_ftp
iu_ftp.connexion.id = ls_user
iu_ftp.connexion.password = ls_pwd


//connexion au serveur Ftp
ll_ret = iu_ftp.uf_openconnexion(iu_ftp.connexion)
if ll_ret <> 0 then
  MessageBox('Serveur d~'envoi fax', 'Le serveur Ftp n~'est pas accessible ou mal défini, ~n' + 'Merci de contacter votre administrateur système', StopSign!)
  return
end if


//Deposer un fichier sur le serveur Ftp
ll_ret = iu_ftp.uf_put( ls_cible, ls_source, w_ftp )
if ll_ret <> 0 then
  MessageBox('Serveur d~'envoi fax', 'Le serveur Ftp n~'est pas accessible ou mal défini, ~n' + 'Merci de contacter votre administrateur système', StopSign!)
  return
end if

//fermer la connexion ftp
ll_ret = iu_ftp.uf_closeconnexion(iu_ftp.connexion)
if ll_ret <> 0 then
  MessageBox('Serveur d~'envoi fax', 'Le serveur Ftp n~'est pas accessible ou mal défini, ~n' + 'Merci de contacter votre administrateur système', StopSign!)
  return
end if

erasorz · 08-02-2007 09:13:12

pick ouic a écrit:
Exemple de script d'un écran "w_ftp"

Salut, le code ne correspond pas avec l'objet u_ftp des sources de l'autre post ?

pick ouic · 08-02-2007 09:17:42

c'est un exemple d'appel...
on utilise l'objet ftp et les dlls...
on a juste adapté...mais sinon, le fond reste le meme.

erasorz · 08-02-2007 09:29:07

pick ouic a écrit:

Code: pb

//Definition du serveur Ftp
iu_ftp.connexion.remote = ls_ip_serveur_ftp
iu_ftp.connexion.id = ls_user
iu_ftp.connexion.password = ls_pwd


//connexion au serveur Ftp
ll_ret = iu_ftp.uf_openconnexion(iu_ftp.connexion)

//Deposer un fichier sur le serveur Ftp
ll_ret = iu_ftp.uf_put( ls_cible, ls_source, w_ftp )

//fermer la connexion ftp
ll_ret = iu_ftp.uf_closeconnexion(iu_ftp.connexion)

beaucoup adapté alors...
dans l'objet u_ftp y'a pas de variable d'instance connexion ? et les méthodes ne sont pas les mêmes (uf_open, uf_put, uf_close...)

pick ouic · 08-02-2007 09:37:09

faut croire qu'un petit rien ne peut t'echapper ?

erasorz · 08-02-2007 09:44:37

pick ouic a écrit:
faut croire qu'un petit rien ne peut t'echapper ?

c'est surtout que j'ai récupéré les sources et le code pour utiliser PB + FTP, grande 1ère...

cantin_jl · 08-02-2007 09:50:32

Bonjour,

J'ai résolu mon problème de la façon suivante :

Génération d'un fichier commande : ftp -s:"FtpFichiers.txt" > "C:\Sauvegarde\LOG\trace.log"

Contenu de fichier texte associé

Open serveur n° de port particulier ex : open serveur.local.travail.fr 10023
Compte utilisateur
mot de passe
ascii
put "C:\FTP\Fichier"
bye

En c:\FTP se trouve mon fichier à transférer

Fonction powerbuilder pour lancer le fichier commande :

Code: pb

CONSTANT integer MAXIMIZED = 3
CONSTANT integer MINIMIZED = 2
CONSTANT integer NORMAL   = 1
CONSTANT boolean WAIT     = TRUE
CONSTANT boolean NOWAIT   = FALSE

wsh = CREATE OleObject
li_ret = wsh.ConnectToNewObject( "WScript.Shell" )
li_ret = wsh.Run("~"" + ls_fichier_cmd + "~"" , NORMAL, WAIT)
destroy(wsh)

Remarque : dans ls_fichier_cmd j'ai le chemin complet du fichier .cmd

Tout cela fonctionne parfaitement.

Merci pour tout

erasorz · 08-02-2007 10:10:54

cantin_jl a écrit:
Bonjour,
J'ai résolu mon problème de la façon suivante :
Génération d'un fichier commande : ftp -s:"FtpFichiers.txt" > "C:\Sauvegarde\LOG\trace.log"

C'est une solution.
Dans mon cas de figure, je préférerais ne pas utiliser la commande FTP de l'OS... D'où l'utilisation de u_ftp.

Au passage, tu n'utilises pas la fonction PB système Run(), tu préfères l'OLE WScript.Shell ?

wazou1812 · 09-08-2007 14:25:53

Bonjour,

J'ai besoin de faire du ftp avec PB. J'essaye d'utiliser les objets de Pick pour faire du ftp avec PB, et après avoir récupérer ces objets et les avoir migrer dans la bonne version, je n'arrive pas à mettre sa solution en test.

Quelqu'un a-t-il utilisé cette solution ou une autre solution.

L'idée est de faire du ftp avec pb en batch pour des fichiers qui n'auront jamais le même nom, je ne peux donc pas mettre le nom en dur dans un fichier.

Une idée ??

thezerg · 09-08-2007 14:30:32

je retrouve le code et je te le passe !

wazou1812 · 09-08-2007 14:32:55

j'attends avec impatience.

erasorz · 09-08-2007 15:14:57

voici qq bouts de codes en utilisant l'objet n_wininet (en autoinstantiate)

Code: pb

n_wininet inv_ftp

// CONNEXION -----------------------------------

This.inv_ftp.of_internetopen( )

ls_result = This.inv_ftp.of_ftp_InternetConnect( This.is_ftp_host, &
              This.is_ftp_user, This.is_ftp_password )

// not ok
If Len( ls_result ) > 0 Then  MessageBox( 'Connexion FTP impossible', ls_result )


// PUT -----------------------------------

ls_result = This.inv_ftp.of_Ftp_PutFile( as_source, as_target, False )

// not ok
If Len( ls_result ) > 0 Then ...


// DECONNEXION -----------------------------------

ls_result = This.inv_ftp.of_Disconnect_Session( )

wazou1812 · 09-08-2007 15:22:09

Merci pour tout, je n'ai plus qu'a tester tout cela, je vous tiens au courant.

thezerg · 13-08-2007 15:50:33

tu as reussi?

wazou1812 · 13-08-2007 15:54:02

En ce moment c'est le mois d'aout, et je fais le backup de plein de personne. du coup j'ai pas encore eu le temps de m'occuper de mes problèmes, alors j'ai mis ça de coté pour le moment, et ça va bientot revenir à l'ordre du jour.

Je vous tiens au courant.

wazou1812 · 03-10-2007 10:48:54

Eureka, j'ai pu me remettre sur le sujet.
Donc, j'arrive bien à me connecter , à changer de répertoire, à déposer des fichiers et à me déconnecter.

Dans mon appli, j'aurais plusieurs fichiers à déplacer, existe-t-il une fonction du style FtpPutFile qui me permettre de déposer plusieurs fichiers d'un seul coup ?

J'ai enlevé momentanément le mode Resolu...

thezerg · 03-10-2007 13:57:46

Pas à ma connaissance tu dois boucler sur tout le contenu du répertoire..

wazou1812 · 03-10-2007 14:00:44

thezerg a écrit:
Pas à ma connaissance tu dois boucler sur tout le contenu du répertoire..

dommage, merci quand même

thezerg · 29-05-2008 08:31:51

Wazou, ton batch fonctionne bien? Car il semble que de notre côté le batch perde la connexion FTP de temps à autre, je voulais savoir si tu avais le même soucis..

Powerbuilder pour les completement Geeks !

Annonce

#1 10-01-2007 15:44:20

[RESOLU] PowerBuilder et client FTP

#2 10-01-2007 15:56:50

Re: [RESOLU] PowerBuilder et client FTP

#3 11-01-2007 11:07:24

Re: [RESOLU] PowerBuilder et client FTP

#4 11-01-2007 14:48:02

Re: [RESOLU] PowerBuilder et client FTP

#5 11-01-2007 15:12:29

Re: [RESOLU] PowerBuilder et client FTP

#6 12-01-2007 10:20:55

Re: [RESOLU] PowerBuilder et client FTP

#7 12-01-2007 11:03:02

Re: [RESOLU] PowerBuilder et client FTP

Code: pb

#8 08-02-2007 09:13:12

Re: [RESOLU] PowerBuilder et client FTP

pick ouic a écrit:

#9 08-02-2007 09:17:42

Re: [RESOLU] PowerBuilder et client FTP

#10 08-02-2007 09:29:07

Re: [RESOLU] PowerBuilder et client FTP

pick ouic a écrit:

Code: pb

#11 08-02-2007 09:37:09

Re: [RESOLU] PowerBuilder et client FTP

#12 08-02-2007 09:44:37

Re: [RESOLU] PowerBuilder et client FTP

pick ouic a écrit:

#13 08-02-2007 09:50:32

Re: [RESOLU] PowerBuilder et client FTP

Code: pb

#14 08-02-2007 10:10:54

Re: [RESOLU] PowerBuilder et client FTP

cantin_jl a écrit:

#15 09-08-2007 14:25:53

Re: [RESOLU] PowerBuilder et client FTP

#16 09-08-2007 14:30:32

Re: [RESOLU] PowerBuilder et client FTP

#17 09-08-2007 14:32:55

Re: [RESOLU] PowerBuilder et client FTP

#18 09-08-2007 15:14:57

Re: [RESOLU] PowerBuilder et client FTP

Code: pb

#19 09-08-2007 15:22:09

Re: [RESOLU] PowerBuilder et client FTP

#20 13-08-2007 15:50:33

Re: [RESOLU] PowerBuilder et client FTP

#21 13-08-2007 15:54:02

Re: [RESOLU] PowerBuilder et client FTP

#22 03-10-2007 10:48:54

Re: [RESOLU] PowerBuilder et client FTP

#23 03-10-2007 13:57:46

Re: [RESOLU] PowerBuilder et client FTP

#24 03-10-2007 14:00:44

Re: [RESOLU] PowerBuilder et client FTP

thezerg a écrit:

#25 29-05-2008 08:31:51

Re: [RESOLU] PowerBuilder et client FTP

Pied de page des forums