Accès répertoire Pc distant via scan

**juju1988** · 02/08/2011, 09h16

Bonjour,

J'aimerai via mon scan psion teklogix pouvoir accéder à un dossier sur un pc mais je ne sais pas trop comment faire... J'ai testé avec :

(RéseauConnecte("", "\\AdresseIPPosteAAtteindre\C$\", "nomuser","motdepasse")) Sans succès cela me met erreur 11 Mauvais Nom de Réseau...
D'où cela vient-il ? Comment puis je faire pour résoudre mon problème ?

Merci d'avance

**Lo²** · 02/08/2011, 09h52

Bonjour,

J'utilise la même syntaxe que toi sur différents terminaux et cela fonctionne.
Essayes de mettre le domaine à ton utilisateur, cad :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RéseauConnecte("", "\\AdresseIPPosteAAtteindre\C$", "domaine\nomuser","motdepasse")

Edit :
J'ai enlevé le "\" du partage, qui peut être problématique.

**juju1988** · 02/08/2011, 11h35

J'ai tenté avec le nom de domaine mais ça ne change rien... Je pense que le problème vient de mon PSION...car quand je tape l'adresse dans la barre d'adresse du psion j'ai une erreur "Windows CE Networking" "Bad network path. Check to see if the path you typed is correct and that your dial-up connection is active or your network card is properly inserted"... J'ai tenté d'appeler la hotline on verra bien.. je te tiens au courant.

Merci pour ton aide

**juju1988** · 03/08/2011, 10h24

Du coup j'ai changé et je passe avec un FTP et j'utilise un FTPConnecte. J'essaie ensuite un FTPRécupère mais je ne récupère rien est ce que ma synatxe est bonne ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
		SI FTPRécupère(resConnexion, "/Install/TestSocket.CAB", "\Flash Disk\TestSocket\Install", "", FTPModeBinaire ) ALORS
			Info("Récupération réussie")
		SINON
			Info("Pas de récupération")
		FIN

Le premier chemin correspond au chemin à l'élément que je veux récupérer sachant qu'il se trouve sur C:/Test/Install/TestSocket.CAB et que C:/Test et mon fichier partagé sur j'ai paramétrer comme accessible par l'utilisateur anonymous de mon FTP.
Et le répertoire de récupération est un répertoire présent sur mon scan PSION ...

Est ce que mes syntaxes sont correctes SVP ??

**Lo²** · 03/08/2011, 10h36

A voir s'il ne faut pas ajouter un "\" sur le chemin du mobile (comme dans l'exemple de l'aide).
A part cela, un test devrait rapidement te valider la chose ^^

Petite remarque :
J'avais opté également pour du FTP mais l'utilisation des commandes FTP remplissait dangereusement l'espace disque, qui est très faible sur les terminaux, sous forme de cookies IE.
Or je n'avais pas trouvé la méthode pour gérer la suppression de ces cookies via WM.

A partir de là, je ne passe donc que par de l'UNC.

**juju1988** · 03/08/2011, 10h43

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 "\\Flash Disk\TestSocket\Install"

De ce type là ? Dans l'aide je n'ai que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
// Récupération du fichier "/Document/Fichier.txt" présent sur le serveur FTP 
// dans le répertoire "\Temp" sur le poste en cours 
ResRécupère = FTPRécupère(7 , "/Document/Fichier.txt" , "\Temp" )

Mais rien à faire cela me donne "Pas de récupération"

Ah flûte pour les cookies je regarderai. C'est quoi exacement un chemin UNC ?

**Lo²** · 03/08/2011, 10h50

Excuse-moi, le "\" est à mettre à la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"\Flash Disk\TestSocket\Install\"

Utilises ErreurInfo(..) pour avoir plus de détail sur l'erreur générée par FTPRécupère(..)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Info("Pas de récupération : " + RC + ErreurInfo())

Le chemin UNC est la première méthode que tu utilisais avec RéseauConnecte(..), donc il est vrai que cela ne va pas faire avancer le schmilblick

**juju1988** · 03/08/2011, 10h59

Même chose pas de récupération car "/C:/Test/Install" not found ... Je vais tenter différentes syntaxes je te tiens au courant...

Oui je suis toujours bloquée de ce côté là... (pour l'UNC)

**Lo²** · 03/08/2011, 11h06

Je viens de retrouver du code pour le FTP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FTPRécupère(nIDConnexion,"\WEB00273complet.zip", "\Temp\WEB00273complet.zip")

J'avais de "\" pour les 2 chemins.

**juju1988** · 03/08/2011, 11h51

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 FTPRécupère(resConnexion, "\Install\TestSocket.CAB", "\Flash Disk\TestSocket\Install\", "", FTPModeBinaire )

Pas de récupération et sans message d'erreur cette fois... Je ne sais vraiment pas que faire..

**Lo²** · 03/08/2011, 11h55

Essayes de voir en mettant un nom de fichier sur ton chemin destination, et vois également avec FTPListeFichier(..) si tu retrouves bien le fichier.

**juju1988** · 03/08/2011, 12h02

En mettant un nom de fichier il me le créera tu crois s'il n'existe pas ? En fait voici mon code complet dans lequel je fais un FTPListeFichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
PROCEDURE TestVersion()
sRecupFichierIni est une chaîne = ""
resConnexion est un entier
sNomfichierFTP est une chaîne = ""
 
resConnexion = FTPConnecte("192.168.70.221")
 
SI resConnexion <> -1 ALORS
	sRecupFichierIni =	FTPListeFichier(resConnexion, "*.ini", "FTPNom" , FTPFichier) 
	sNomfichierFTP = FTPNom()
	sNomfichierFTP = ExtraitChaîne(sNomfichierFTP, 1, ".")
	SI sNomfichierFTP <> INILit("Version", "NumVersion", "", cheminFichierIni) ALORS
		//Récupération de l'installation
		gsMsgErreurPopUp = "Mise à jour trouvée.....Mise à jour en cours, veuillez patienter"
		//ouvre(Popup_Erreur)
		SI FTPRécupère(resConnexion, "Test\TestSocket.CAB", "\Flash Disk\TestSocket\Install\", "", FTPModeBinaire ) ALORS
			Info("Récupération réussie")
		SINON
			Info("Pas de récupération : " + RC + ErreurInfo())
		FIN
	SINON
		RETOUR
	FIN
SINON
	gsMsgErreurPopUp = "Erreur de connexion FTP pendant la mise à jour du logiciel"
	Ouvre(Popup_Erreur)
FIN

**Lo²** · 03/08/2011, 12h10

Pour le nom, il faut essayer, je n'ai pas testé.

Pour ton code, il y a quelque chose qui me chagrine.
Tu utilises le FTPListeFichier(..) qui appelle la procédure FTPNom() et ensuite tu appelles à nouveau cette procédure !

A mon avis, tu devrais mettre le code qui se trouve après le FTPListeFichier(..) dans ta procédure FTPNom().

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
SI resConnexion <> -1 ALORS
	sRecupFichierIni =	FTPListeFichier(resConnexion, "*.ini", "FTPNom" , FTPFichier) 
	sNomfichierFTP = FTPNom()
	sNomfichierFTP = ExtraitChaîne(sNomfichierFTP, 1, ".")
	SI sNomfichierFTP <> INILit("Version", "NumVersion", "", cheminFichierIni) ALORS
		//Récupération de l'installation
		gsMsgErreurPopUp = "Mise à jour trouvée...Mise à jour en cours, veuillez patienter"
		//ouvre(Popup_Erreur)
		SI FTPRécupère(resConnexion, "Test\TestSocket.CAB", "\Flash Disk\TestSocket\Install\", "", FTPModeBinaire ) ALORS
			Info("Récupération réussie")
		SINON
			Info("Pas de récupération : " + RC + ErreurInfo())
		FIN
	SINON
		RETOUR
	FIN
SINON
	gsMsgErreurPopUp = "Erreur de connexion FTP pendant la mise à jour du logiciel"
	Ouvre(Popup_Erreur)
FIN

**juju1988** · 03/08/2011, 15h00

Oui parce que d'après ce que j'ai compris (je me trompe peut être)...
Mais mon FTPListeRécupère me donne un nombre de fichiers tels que je l'ai précisé (ici je veux les fichiers .ini) donc ça me donne 1 je les traite par la fonction FTPNom et pour avoir le nom de mon fichier il faut que je fasse un FTPNom ca FTPNom "Renvoie le nom du dernier fichier accédé par une fonction FTP (File Transfer Protocol)." et donc le nom de mon fichier ...

Non ?

**Lo²** · 03/08/2011, 15h41

C'est bien ce que je pensais

Tu n'as pas besoin de rappeler une deuxième FTPNom(), car comme indiqué dans l'aide, pour chaque fichier trouvé par FTPListeFichier(..), ta procédure FTPNom() sera exécutée.

Petite question, le deuxième appel de FTPNom() te renvoie quelque chose ?

**juju1988** · 03/08/2011, 15h55

Comment faire pour récupérer FTPNom alors ?

Oui ça me renvoit le nom de mon fichier ..

**Lo²** · 03/08/2011, 16h01

En fait, la procédure exécutée FTPNom() doit être du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PROCEDURE FTPNom(Nom, nTaille, sAttribut, sDate, sHeure, nParam)

Les paramètres de la procédure sont pré-remplis par FTPListeFichier(..) et donc toi, tu retrouveras le nom du fichier en cours de traitement avec la paramètre Nom.

Tu as un exemple ici :
http://doc.pcsoft.fr/fr-FR/?1000003040018

**juju1988** · 03/08/2011, 16h09

Je suis désolée mais je ne vois pas comment récupérer le nom par rapport à mon code ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
PROCEDURE TestVersion()
sRecupFichierIni est une chaîne = ""
resConnexion est un entier
sNomfichierFTP est une chaîne = ""
 
resConnexion = FTPConnecte("192.168.70.221")
 
SI resConnexion <> -1 ALORS
	sRecupFichierIni =	FTPListeFichier(resConnexion, "*.ini", "FTPNom" , FTPFichier) 
	SI sRecupFichierIni <> 0 ALORS
		sNomfichierFTP = FTPNom()
		Info(sNomfichierFTP)
		sNomfichierFTP = ExtraitChaîne(sNomfichierFTP, 1, ".")
		SI sNomfichierFTP <> INILit("Version", "NumVersion", "", cheminFichierIni) ALORS
			//Récupération de l'installation
			gsMsgErreurPopUp = "Mise à jour trouvée.....Mise à jour en cours, veuillez patienter"
			//ouvre(Popup_Erreur)
			SI FTPRécupère(resConnexion, "Install\TestSocket.CAB", "\Flash Disk\TestSocket\Install\", "", FTPModeBinaire) ALORS
				Info("Récupération réussie")
			SINON
				Info("Pas de récupération : " + RC + ErreurInfo())
			FIN
		SINON
			RETOUR
		FIN
	SINON
		Info("Aucun fichier de mise à jour")
	FIN
SINON
	gsMsgErreurPopUp = "Erreur de connexion FTP pendant la mise à jour du logiciel"
	Ouvre(Popup_Erreur)
FIN

**Lo²** · 03/08/2011, 16h18

voici le code modifié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
33
//variable globale à la fenêtre ou au projet
resConnexion est un entier
 
//////////////////////////
PROCEDURE TestVersion()
iRecupFichierIni est un entier
 
resConnexion = FTPConnecte("192.168.70.221")
 
SI resConnexion <> -1 ALORS
	iRecupFichierIni =	FTPListeFichier(resConnexion, "*.ini", "FTPNom" , FTPFichier) 
	SI iRecupFichierIni = 0 ALORS
		Info("Aucun fichier de mise à jour")
	FIN
SINON
	gsMsgErreurPopUp = "Erreur de connexion FTP pendant la mise à jour du logiciel"
	Ouvre(Popup_Erreur)
FIN
 
/////////////////////////
PROCEDURE FTPNom(Nom)
Info(Nom)
sNomfichierFTP est chaine = ExtraitChaîne(Nom, 1, ".")
SI sNomfichierFTP <> INILit("Version", "NumVersion", "", cheminFichierIni) ALORS
	//Récupération de l'installation
	gsMsgErreurPopUp = "Mise à jour trouvée.....Mise à jour en cours, veuillez patienter"
	//ouvre(Popup_Erreur)
	SI FTPRécupère(resConnexion, "\Install\TestSocket.CAB", "\Flash Disk\TestSocket\Install\TestSocket.CAB") ALORS
		Info("Récupération réussie")
	SINON
		Info("Pas de récupération : " + RC + ErreurInfo())
	FIN
FIN

**juju1988** · 03/08/2011, 16h29

Wahooo !! J'ai remplacé mon code par le votre j'ai crée une procédure FTPNom comme vous avez préconisé mais j'ai une erreur dans TestVersion. "Vous avez appelé la fonction ListeFichier. La fonction FTPNom n'a pas renvoyé de valeur ou a renvoyé une valeur d'un type erroné" ...je vais regarder ça de plus près... je te tiens au courant
Cela se passe juste après que je ferme "Récupération réussie" et j'ai par contre bien récupéré mon fichier .CAB

Accès répertoire Pc distant via scan

Windev Mobile

Discussions similaires

Partager

Partager