Discussion :

[loupat456]

J'essaye d'implementer sous IIS 64 bits la function FoldstringA qui permet de convertir les caractéres acentués mais je n'y arrive pas
La fonction en VB

Code :

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

Declare Function FoldString Lib "KERNEL32.dll" Alias "FoldStringA" ( ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long

Lorsque j'invoque

Code :

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

1
2
3
4
5
6
7
 
phrase="é"
result=" " 
Set DWX = Server.CreateObject("DynamicWrapperX")                    ' Create an object instance.
Response.write Isobject(DWX)
DWX.Register  "kernel32:FoldStringA", "FoldString", "i=lslsl", "r=l" ,"f=t"
res= DWX.Foldstring(MAP_COMPOSITE, phrase ,1,result,1)

res est à zéro et result est à blanc

[l_autodidacte]

Effectivement, il y a ce problème avec la version 2, mais le problème ne se pose pas avec La version 1

[loupat456]

Effectivement, il y a ce problème avec la version 2, mais le problème ne se pose pas avec La version 1

Dans ce cas a qui puis-je soumettre ce bug car mon serveur IIS est en 64 bits, or la version 1 est uniquement en 32 bits ?
Merci par avance

[l_autodidacte]

Peut-être que le rédacteur de l'article omen999 (salut) aurait une idée ou qu'il pourrait contacter le créateur du composant et l'avertir du problème.

[omen999]

bonjour à tous,

Peut-être que le rédacteur de l'article omen999 (salut) aurait une idée

et même deux comme lire le chapitre VII de l'article et surtout celle de lire la doc de la fonction FoldString sur MSDN ONLine
testé sans problème avec la version x64 de la v2.1 :

Code :

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

1
2
3
4
5
6
7
Const MAP_COMPOSITE = &H40
phrase="é"
result=Space(2) 
Set DWX = Wscript.CreateObject("DynamicWrapperX")
DWX.Register  "kernel32:FoldStringW", "FoldString", "i=uplpl", "r=l"
res= DWX.Foldstring(MAP_COMPOSITE, phrase ,1,result,2)  ' NE PAS OUBLIER DE DONNER AU BUFFER DE SORTIE SA TAILLE CORRECTE
MsgBox res & "    " & result & "   " & Left(result,1) & "    " & Right(result,1)

j'ai volontairement décomposé l'affichage de result car vbscript affiche le caractère composite sous la forme du caractère accentué d'origine...

[l_autodidacte]

DWX.Register "kernel32:FoldStringW", "FoldString", "i=uplpl", "r=l" => Erreur : Descripteur non valide, mais pas avec :
DWX.Register "kernel32", "FoldString", "i=uplpl", "r=l".
Le tampon(Buffer) devrait être de taille = 1 sinon affichage de caractère illisible(sous XP SP3 32bits)

[omen999]

je viens de refaire le test sous XP SP3 avec la version 2.1 x86
ça fonctionne nickel sous réserve de rectifier le symbole commentaire de la ligne 6 qui était celui de delphi... (rectifié)
la taille du buffer doit être de deux puisque le caractère accentué est décomposé en deux éléments
peut-être un problème de localisation de ton XP si la langue arabe est activée

[l_autodidacte]

peut-être un problème de localisation de ton XP si la langue arabe est activée

J'ai désactivé l'Arabe et j'ai le même message d'erreur. Il devrait y avoir autre chose qui entraine le bug.

Pour le buffer, j'ai utilisé result = Space(Len(Phrase)) sans m'occuper de sa taille et également pour le dernier paramètre de FoldString.