如何使用indy10 Delphi发送西里尔文数据

Question

当我在网站上发送一些西里尔文本时，文本显示为“?????????”.... 这是我的发送功能：

http := TIDHttp.Create(nil);
http.HandleRedirects := true;
http.ReadTimeout := 5000;
http.Request.ContentType:='multipart/form-data';
param:=TIdMultiPartFormDataStream.Create;
param.AddFormField('adtitle','Текст на кирилица');
param.AddFormField('area','Текст явергсдфсдфадфас');
http.Post('http://www.example.com/',param);

Answer 1

试试这样：

param.AddFormField('adtitle', 'Текст на кирилица', 'utf-8').ContentTransfer := '8bit';
param.AddFormField('area', 'Текст явергсдфсдфадфас', 'utf-8').ContentTransfer := '8bit';