indy post 返回中文编码_delphi xe10 indy 表单post 方法， utf8编码

// 亲测 不会乱码

var

CuId,ModelId,sid : Integer;

lmsg : string;

Idc: TIdHTTP;

Ptxt : string;

postJson,jo :ISuperObject;

rst : Boolean;

lmfd: TIdMultiPartFormDataStream;

responseStream: TStringStream;

begin

Result := False;

try

lmfd := TIdMultiPartFormDataStream.Create;

responseStream := TStringStream.Create();

lmfd.AddFormField('cuid',vcuid,'UTF-8').ContentTransfer := '8bit' ;

lmfd.AddFormField('type',vtype,'UTF-8').ContentTransfer := '8bit';

Idc := TIdHTTP.Create(nil);

Idc.ReadTimeout := 60000;

Idc.ConnectTimeout := 60000;

// Idc.Request.ContentType := 'application/json';

Idc.Request.ContentType := 'application/x-www-form-urlencoded';

Ptxt := '';

try

try

idc.Post(gqrurl,lmfd,responseStream);

ptxt := responseStream.DataString;

if ptxt <> '' then

begin

jo := so(ptxt);

rst := jo.B['status'];

if rst then

begin

Result := True;

vmsg := jo.S['data'];

end;

end;

except

on e: exception do

begin

vmsg := e.Message;

end;

end;

finally

Idc.Free;

end;

FreeAndNil(responseStream);

FreeAndNil(lmfd);

except

on e: exception do

begin

if responseStream <> nil then FreeAndNil(responseStream);

if lmfd <> nil then FreeAndNil(lmfd);

end;

end;