Bonjour a tous,
J'ai un soucis avec le composant idhttp : impossible de l'utiliser pour envoyer une variable avec un accent :
Un edit1 qui contient le texte à insérer dans la variable var001
Si j'y mets démo, il envoi demo... (et c'est bien au moment de l'envoi que le mot est modifié). (delphi 2009)
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 procedure TForm1.Button1Click(Sender: TObject); begin with HTTP1 do begin Request.AcceptCharSet:='utf-8'; HandleRedirects:=true; ReadTimeout:=2000; http_url:=URL_LIKe_http://www.bing.com...; http_var:=TIdMultiPartFormDataStream.create; http_var.AddFormField('var001',Edit1.text); try begin http_answer:=Post(http_url,http_var); Memo1.Lines.Add(UTF8Decode(http_answer)); end; except Memo1.Lines.Add('Erreur'); end; end; end;
Nicolas
Partager