ReadProcessMemory and Unicode

Bonjour,

J'ai un petit problème et j'espère que quelqu'un pourra m'aider.

J'ai un programme qui lit la mémoire d'un autre process pour aller chercher une liste de nom. Le problème que j'ai est avec les accents français.

Si la string ne contient pas d'accent je la lit sans problème, mais s'il y a un accent dans le string j'ai deux caractères bizarre à la place de l'accent.

Ex:
Voir le petit fichier gif.

J'ai essayer de faire un StrConv(..., vbFromUnicode) mais cela ne fonctionne pas, ma string est rempli de ?

Merci pour votre aide.

Voici ma fonction pour lire une string.

Code:

---

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

Public Function ReadString(lStartAddress As Long, lEndAddress As Long) As String Dim lBytesRead As Long Dim sData As String Dim lLength As Long Dim lLastErr As Long   On Error GoTo ReadString_Error   lLength = lEndAddress - lStartAddress If lLength > 20000 Or lLength < 1 Then Exit Function   sData = Space(lLength)   If g_lhProcess <> 0 Then If ReadProcessMemory(g_lhProcess, lStartAddress, ByVal sData, lLength, lBytesRead) Then ReadString = sData   Else lLastErr = Err.LastDllError Err.Raise lLastErr, , ApiErrorText(lLastErr) End If End If   On Error GoTo 0 Exit Function ReadString_Error: RaiseError Err, "Function modUtil.ReadString" End Function

---

Je ne me souvient pas si il n'y a pas une solution plus simple, mais déjà le principe du code suivant pourrait te rendre service.

Code:

---

1 2 3 4 5 6 7

Private Sub Form_Load() Dim LaPhrase As String LaPhrase = "Entra" & Chr(195) & Chr(174) & "neuse" & " Anna Wiston" & vbCrLf & "une autre phrase sans unicode" Label1 = LaPhrase LaPhrase = Replace(LaPhrase, Chr(195) & Chr(174), "î") Label2 = LaPhrase End Sub

---

Le problème est que je ne sais pas quelle string va être retournée, l'example que j'ai donné est une possibilitée parmis des milliers.

Citation:

---

Envoyé par ProgElecT

Je ne me souvient pas si il n'y a pas une solution plus simple, mais déjà le principe du code suivant pourrait te rendre service.

Code:

---

1 2 3 4 5 6 7

Private Sub Form_Load() Dim LaPhrase As String LaPhrase = "Entra" & Chr(195) & Chr(174) & "neuse" & " Anna Wiston" & vbCrLf & "une autre phrase sans unicode" Label1 = LaPhrase LaPhrase = Replace(LaPhrase, Chr(195) & Chr(174), "î") Label2 = LaPhrase End Sub

---

---

Bonsoir,

ce dont te parle Progelect (que je salue) est le remplacement de 2 caractères par un seul, en fonction d'une table de correspondance, c'est tout.
A toi de recenser tes caractères incongrus et d'établir cette concordance !
Le principe est assez simple. Exemple :

Code:

---

1 2 3 4 5 6 7

mesmachins = Array("v" & "o", "e" & "x", "l" & "e") mesmachinstrans = Array("k", "z", "u") toto = "et voila un exemple" For i = 0 To UBound(mesmachins) toto = Replace(toto, mesmachins(i), mesmachinstrans(i)) Next MsgBox toto

---

Ici, j'ai utilisé directement des caractères, pour que tu comprennes mieux le mécanisme utilisé.
Rien ne t'empêche d'établir tes arrays en codes ascii et d'utiliser ensuite chr(code_ascii)
C'est simple ...

Bonjour,

Je comprend ce que vous dites, mais je pense qu'il y a un moyen de convertir ces caractères sans être oubliger de faire de correspondance.

J'ai fais un autre test et dans mon programme si j'écrit la string dans un fichier elle est ok, mais si je l'affiche elle n'affiche pas les accent mais plutôt deux caractères bizarre. Donc je pense que c'est juste une conversion qui ne ce fait pas bien. Le seul problème est de savoir quoi ;)

Citation:

---

J'ai fais un autre test et dans mon programme si j'écrit la string dans un fichier elle est ok,

---

Heu, comment sais tu que c'est ok ? en chargeant le fichier dans NotePad ?
Si oui, c'est NotePad qui se charge de faire la convertion et qui affiche l'accentué. Ton fichier lui contient bien les deux caractères Unicode.

Ok donc comment je fais pour afficher l'accentué a l'écran correctement?

Merci.

Citation:

---

Envoyé par Delbeke

Heu, comment sais tu que c'est ok ? en chargeant le fichier dans NotePad ?
Si oui, c'est NotePad qui se charge de faire la convertion et qui affiche l'accentué. Ton fichier lui contient bien les deux caractères Unicode.

---