Detecter une variable UNICODE ou ASCI d'apres son pointeur

[Kwai chang caine]

Bonjour à tous

Dans mon code :

Code : Tout sélectionner

Procedure ArrayExe2Local(*strPtr.INTEGER, Array Array2Modify.s(1), ArraySize)
 
 #ArrayPB = 1
 #ArrayVB = 2
  
 *strPtr + SizeOf(INTEGER)
             
  If Not TypeArray
   
   Donnee$ = PeekS(*strPtr\i, - 1, #PB_Unicode) ; Array from VB
     

j'ai essayé :

Code : Tout sélectionner

IsTextUnicode_(Donnee$, Len(Donnee$), 2)

Ou bien

Code : Tout sélectionner

IsTextUnicode_(*strPtr\i, 4, 2)

Et j'ai le ruban rouge cadeau

Donc j'arrive pas a detecter si ma variable est UNICODE avec cette API

Par contre j'ai essayé une autre combine
Je me suis rapellé que l'UNICODE c'est le chiffre ASCII suivi de chr(0)
Alors je me suis dit que si je testais un caractere sur deux, je saurais si c'est de l'ASCII ou non

Qu'en pensez vous ???

Code : Tout sélectionner

Procedure ArrayExe2Local(*strPtr.INTEGER, Array Array2Modify.s(1), ArraySize)
 
 #ArrayPB = 1
 #ArrayVB = 2
 
 If PeekB(*strPtr\i + 1) = 0
  TypeArray = #ArrayVB 
 Else
  TypeArray = #ArrayPB
 EndIf
   

Merci de votre aide et bonne journée

[Kwai chang caine]

Bah j'me repond a moi meme...comme dirait jean pierre ...
C'est de la meeeeeerdeeee !!!

Ca marche pas...
J'comprend pas, j'ai trouvé un POST sur le US qui en parle
Et Helpy y dit bien de l'utiliser comme ça
http://www.purebasic.fr/english/viewtop ... 079#p51079

Alors j'ai fait ça ...et ça marche pas non plus

Code : Tout sélectionner

 *Pointeur.l = *strPtr\i
 
 If Not TypeArray

  If IsTextUnicode_(*Pointeur , 1, #Null )
   TypeArray = #ArrayVB 
  Else
   TypeArray = #ArrayPB
  EndIf
  
 EndIf

[flaith]

Je sais pas trop si tu cherches un truc du genre :

Code : Tout sélectionner

Global BufferSize    = 1024
text_unicode$ = "Ceci est un texte en Unicode"
text_ascii$   = "Ceci est un texte en Ascii"

Procedure.i Make_Unicode(text.s)
  *str = AllocateMemory(BufferSize)
  PokeS(*str, text, -1, #PB_Unicode)
  ProcedureReturn *str
EndProcedure

Procedure.i Make_Ascii(text.s)
  *str = AllocateMemory(BufferSize)
  PokeS(*str, text, -1, #PB_Ascii)
  ProcedureReturn *str
EndProcedure

Procedure.s Check_UA(*adr_text)

  If IsTextUnicode_(*adr_text, MemoryStringLength(*adr_text, #PB_Unicode), #Null)
    ProcedureReturn "Unicode"
  Else
    ProcedureReturn "Ascii"
  EndIf
EndProcedure

*adr_unicode = Make_Unicode(text_unicode$)
*adr_ascii   = Make_Ascii(text_ascii$)

Debug Check_UA(*adr_unicode)
Debug Check_UA(*adr_ascii)

[Kwai chang caine]

Mille merci FLAITH
C'est exactement ça...mais comme dab àa marche avec notre PB cheri...mais pas moyen que ça marche avec VB
J'ai essayé d'entrer ton code en lui passant la variable structurée....puis une copie par une variable..mais j'obtiens toujours "ASCII"

Y commence vraiment a me brouter les noyaux ce bilou

Code : Tout sélectionner

Procedure.s Check_UA(*adr_text)

  If IsTextUnicode_(*adr_text, MemoryStringLength(*adr_text, #PB_Unicode), #Null)
    ProcedureReturn "Unicode"
  Else
    ProcedureReturn "Ascii"
  EndIf
EndProcedure

Procedure ArrayExe2Local(*strPtr.INTEGER, Array Array2Modify.s(1), ArraySize)
 
 *Pointer.l = *strPtr\i
 MessageRequester("", Check_UA(*strPtr\i))
 MessageRequester("", Check_UA(*Pointer))

[djes]

Il y a un truc que je me demande : pourquoi tu veux absolument passer un pointeur sur un tableau? Pourquoi tu n'essayes pas des transferts de chaînes, en utilisant StrPtr() du côté VB? Ce serait plus simple, non, et la conversion serait assurée par VB.

[Kwai chang caine]

Attend attend attend
Tu me dis quoi la ...

Quand on fait StrPtr() dans VB, il converti de l'unicode en ASCII ????
C'est peut etre pour ça que le code de FLAITH il marche pas

Par contre t'avais raison DJES....je sais tu as toujours raison
Je me suis fait du mouron pour rien....
Dans la vie il suffit d'essayer....comme j'mettais rongé les ongles jusqu'au plalanges, j'me suis dit tiens..comme y dit mon ami DJES....pourquoi pas faire l'essai

Et votre KCC...oui oui le votre celui qui arrive a rien....le gerome bonaldi de PB....le patrick carmouze du forum..il a forcer tres fort...presque comme aux toilettes et il a pondu ça.

Code : Tout sélectionner

Dim a.s(10)
Define b$ = Space(4)
a(0) = "Kcc 0"
Debug "Adresse de @a(0) = " + Str(@a(0))
Debug "Adresse de @b$ = " + Str(@b$)
Debug ""
RtlMoveMemory_(@b$, @a(0), 2)
Debug "Adresse de @a(0) = " + Str(@a(0))
Debug "Adresse de @b$ = " + Str(@b$)
Debug b$

CQFD...comme tu le disais dans le post ASM...c'est une copie....
Les adresses pointeurs ne sont pas déplacée.
Donc mon code VB que je vous ai posté devrait marcher

Je me rapelle la connerie que j'avais fait car en un mois, j'ai eu le temps d'en faire.
Et que je me suis fais gronder par SROD

Je retournais le pointeur tableau de la DLL DIRECTEMENT dans un tableau de l'exe

Code : Tout sélectionner

ProcedureDLL Bonaldi()
 Static Dim TabloDLL(2)
 ProcedureReturn @TabloDLL()
EndProcedure

Dim TabloEXE(0)
TabloEXE() = Bonaldi()

Et ça c'est pas bien
Parce que des que l'EXE il libere son tableau....il libere celui de la DLL aussi
Puisque la copie du tableau de DLL est fait BYREF comme dirait bilou
Les deux tableaux ont les memes pointeurs

Je viens de tester...comme dirais DJES et c'est exactement ça mon erreur depuis 1 mois.
Je commence a quitter londre pour le midi

Code de la DLL

Code : Tout sélectionner

ProcedureDLL Essai()
 Static Dim a.s(1)
 a(0) = "Kcc 0" 
 MessageRequester("", Str(@a(0)))
 ProcedureReturn @a()
EndProcedure 

Code de l'EXE

Code : Tout sélectionner

If OpenLibrary(0, "c:\RenvoiTablo.dll")
 Dim TabloEXE.s(0)
 TabloEXE() = CallFunction(0, "Essai")
 Debug @TabloEXE(0)
 CloseLibrary(0)
EndIf

[Kwai chang caine]

Il y a un truc que je me demande : pourquoi tu veux absolument passer un pointeur sur un tableau? Pourquoi tu n'essayes pas des transferts de chaînes, en utilisant StrPtr() du côté VB?

Et ben parce que je suis un jambon beurre !!!
Ca fait 100 fois que je relis les fonctions de StrPtr et VarPtr et que j'avais pas compris

VarPtr renvoie l'adresse de la variable donc son pointeur comme @a(x)
Et StrPtr renvoie l'adresse de la string donc PeekL(@a(x))

Et je viens juste de comprendre....oulalala aujourd'hui est un grand jour...j'en ai compris des choses

Alors maintenant que j'ai compris ta question...je vais pouvoir repondre

Et ben j'essaye de faire un transfert le plus court possible en code.
Sour cette forme, cela me fait une procedure dans la DLL pour recuperer le tableau VB, et une procedure dans l'EXE pour modifier le tableau du depart.
Donc 2 procedure et ça baigne

Si j'utilise StrPtr...je vais etre obligé de faire une boucle pour envoyer tous les enregistrements du tableau dans l'EXE, donc une procedure de plus.
La comme j'envoie le VarPtr du premier element du tableau, car je viens de lire que VB ne sait pas envoyer l'adresse du tableau, et bien ça se demerde dans la DLL et je gagne une procedure.

Encore une fois, ce code est le coeur de 10 zaines de mes fonctions, dans pas mal de mes programmes.
Il faut que je fasse quelque chose qui marche a coup sur...et le moins long possible pour que son utilisation soit facile.

Voila....et mon ami FLAITH ....il a pas trouvé pourquoi son super code y marche avec PB et pas avec VB ???
Est ce bien de l'unicode que VarPtr envoie ????

[Kwai chang caine]

Bon je crois avoir compris pourquoi le code de mon bon FLAITH y marche pas

Parce que son code analyse un pointeur de string.
Et mois j'envoie un pointeur de variable et qui plus est structuré...

Il faut que j'arrive a passer le pointeur de la string ....
Je replonge......

[djes]

L'avantage du Strptr est que ça t'évite les conversions dans des formats un peu spéciaux (entre les différents unicodes et l'ascii et autres), ça t'évite d'utiliser IsTextUnicode qui est buggée, et ça simplifie tout. Je ne vois pas trop l'intérêt de l'envoi en masse, mais faut voir ça au cas par cas.

[Kwai chang caine]

Donc tu veux dire que j'ai pas dit de connerie
Tu veux dire que ce que j'ai dit tu l'a compris.....et qu'en plus tu as pu repondre

Ouuaahhh !!!! KCC il est content..il parle avec des programmeurs et ils le comprennent

Ah !!! donc ce serait normal que ça marche pas l'API IsUnicode
JE vais replonger dans l'histoire du chr(0) un coup sur deux...ça marche bien tout le temps ça ?

[djes]

Ca dépend de tes besoins. Pour moi c'est de la bidouille pas trop fiable, mais bon, avec VB...

[Kwai chang caine]

Bon j'suis fatigué de creuser, parce qu'a force j'ai le cul en l'air et j'ai peur qu'un mec passe et me prenne pour un range velo

Alors en attendant..pour detecter quel exe appelle, j'ai pensé a une des differences qui font que nombre de mes programmes plantaient, quand je les convertissais de VB a PB...

LE TRUE.....

Non non, pas celui que l'on vois à force que je creuse......
La constante True de VB et #True de PB

Car pour VB True = -1 (Ah le con )
Et pour PB, je peux vous donner le secret....c'est #True = 1 (Si ça sort de la...j'serais que c'est vous )

Donc comme je suis obligé d'envoyer dans la DLL, le ArraySize pour pas que j'aille piocher dans la memoire n'importe ou....et bien "j'm'est dit"...
KCC et si tu utilisais ce qui te casse les noisettes, en multipliant la taille du tableau par "TRUE"

"Ouaiche"....je sais c'est de la KCCprog
Et de l'autre coté ...si la taille tableau est inferieur a 0..c'est ce bourrin de VB qui appelle...et si c'est superieur a 0...c'est PB d'amour

Appel de VB

Code : Tout sélectionner

FunctionOfDll(VarPtr(ArrayString(0)), UBound(ArrayString()) * True)

Appel de PB

Code : Tout sélectionner

CallFunction(0, "FunctionOfDll", ArrayString(), ArraySize(ArrayString()) * #True)

Dans la DLL

Code : Tout sélectionner

If ArraySize < 0
   ArraySize = ArraySize * (-1)
   TypeArray = #ArrayVB
  Else 
   TypeArray = #ArrayPB
  EndIf

N L U C E C T S K

Ding dooooong !!!
Voila le temps est passé alors combien de lettre ??
4
Oui ?
SUCE

Et pour monsieur ????
Mot complet
KCC EST NUL
Bravooooooo....Clap clap clap

Voila..j'ai honte....mais bon ça devrait etre fiable

Mais bon si y'en a un qui a une idée pour trouver si la variable en memoire est UNICODE ou ASCII
Qu'il hesite pas a me contacter sur "3615 JMECACHE".........et sauver mon honneur qui me sert actuellement de paillason
Je suis toujours preneur

[djes]

Au lieu de plancher sur un truc générique, essaye sur un cas concret, tu perdras moins de temps.

[Kwai chang caine]

Non c'est l'inverse....en fait, je suis parti d'un cas concret.
J'avais posé cette fonction dans X endroits de mes codes.
Et vu que j'appellais qu'une fois la fonction, je ne m'etais pas rendu compte du deplacement de pointeur de la DLL par l'exe
C'est donc a la suite du 2e appel, quand ça a merdé que je me suis mis a faire des fonctions generiques pour que vous puissiez me conseiller, et que je puisse readapter ce que je trouve et remplacer mes fonctions foireuses
Aujourd'hui c'est décidé, j'arrete de chercher et je remplace mes fonction foireuses par celle que je vous ai presenté avec copymemory et l'histoire du TRUE pour la detection VB/PB

En esperant qu'une fois remplacé ça recommence pas pour un tour