communication avec pda

Question

Bonjour,
Voila je cherche à recuperer des fichiers sur un pocket pc à l'aide d'une appli foxpro.
J'ai integré le code suivant dans mon appli :
DECLARE INTEGER CeRapiInit IN rapi

DECLARE INTEGER CeCopyFile IN rapi;
    STRING  lpExistingFileName,;
    STRING  lpNewFileName,;
    INTEGER bFailIfExists
, ----

CeRapiInit()
CeCopyFile("c:	emp	est.txt", "	emp	est.txt", 1)
Mais cela ne marche pas. Sur internet j'ai trouvé 

Parameters:, ----
, ----
lpExistingFileName
[in] Long pointer to a null-terminated string that specifies the name of an existing file.

lpNewFileName
[in] Long pointer to a null-terminated string that specifies the name of the new file.

bFailIfExists
[in] Boolean value that specifies how this operation is to proceed if a file of the same name as that indicated by lpNewFileName already exists.

Mais tous cela ne m'aide pas beaucoup. Quelqu'un a t'il deja fait cela ?

Merci
duck88

Mike Gagnon · Answer

Un peu plus complexe que ca ce genre de communication. Les chemins (de et à ) doivent traduit en Unicode avec STRCONV 

FUNCTION ToUnicode(cStr) 
RETURN STRCONV(cStr+CHR(0), 5)

ducker88 · Answer

J'ai fait ce que tu m'a dis :


DECLARE INTEGER CeRapiInit IN rapi 


DECLARE INTEGER CeCopyFile IN rapi; 


STRING lpExistingFileName,; 


STRING lpNewFileName,; 


INTEGER bFailIfExists 


&& on utilise la librairie RAPI.dll


mon_chemin = "c:	emp2\allsortie.txt"


ma_destination = "\Temp\allsortie.txt"


monchemin2 = STRCONV(mon_chemin+CHR(0), 5) 


madestination2 = STRCONV(ma_destination+CHR(0), 5) 


toto = CeRapiInit()


MESSAGEBOX(toto) 


toto1 = CeCopyFile(monchemin2, madestination2, 1)


MESSAGEBOX(toto1)

Mais aucun resultat. toto et toto1 renvoient 0.
Une solution ?

duck88

Mike Gagnon · Answer

toto = CeRapiInit()  

La lgne ci-haut doit surement te donner un erreur, a moins que tu ai la classe CeRapiInit(), que ne semble pas etre le cas. Si c'est le cas, enleve la ligne.



FUNCTION CopyFile(cSourceName, cTargetName) As Boolean 
    IF CeCopyFile(m.ToUnicode(cSourceName),; 
        ToUnicode(m.cTargetName), 1) = 0 
       RETURN .F. 
    ENDIF 
RETURN .T.

Communication avec pda

3 réponses

Votre réponse

Discussions similaires