Encodage

Répondre


Cette question est un moyen d’empêcher des soumissions automatisées de formulaires par des robots.
Smileys
:D :) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: =D> #-o =P~ :^o :non: :priere: 8-|
Voir plus de smileys
  Revue du sujet
 

  Étendre la vue Revue du sujet : Encodage

Re: Encodage

par Invité » 24 nov. 2010, 11:57

Merci de répondre
J'ai essaye entre autres, pris sur codeyx
Private Const CP_UTF8 = 65001
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

Public Function AToUTF8(ByVal wText As String) As String
Dim vNeeded As Long
Dim vSize As Long
vSize = Len(wText)
vNeeded = WideCharToMultiByte(CP_UTF8, 0, StrPtr(wText), vSize, "", 0, 0, 0)
AToUTF8 = String(vNeeded, 0)
WideCharToMultiByte CP_UTF8, 0, StrPtr(wText), vSize, AToUTF8, vNeeded, 0, 0
End Function
Mais "a" me retourne une chaine vide.
Je dois certainement me planter

Re: Encodage

par stealth35 » 24 nov. 2010, 11:42

ta console envoie en utf-8 ?

Encodage

par big » 24 nov. 2010, 11:28

Bonjour,
J'ai creé une console en VB, qui me sert à envoyer des infos sur une page web.
Si j'envoi par l'url 'à', j'obtiens des Hiéroglyphes.
mb_detect_encoding($_GET['article'], "auto");
Me donne" UTF8"
Si je remplis un formulaire l'affichage est correct. Je voudrais bien pouvoir envoyer des infos avec des accents (au pire je peux m'en passer)
Merci d'avance pour vos réponses