delphi請求http接口中文亂碼問題


請求http接口的時候參數值是中文亂碼:

http接口一般都是由java,php以及C#開發而成的,亂碼的原因也是由於編碼的問題,一般傳遞數據的都是utf8,然后傳遞的時候都會urlEcode

那么delphi如何解決這個問題呢?

請看下面的實例,實例中的“哈哈”二字就是中文:

procedure TClientForm.Button77Click(Sender: TObject);
var paramStream: TIdMultiPartFormDataStream;
vResponse: TStringStream;
filename, vres: string;
vList: TStringList;
jsonstr,signStr,timestamp,sign: string;
begin
//生成sign
timestamp := FormatFloat('#', DateUtils.MilliSecondsBetween(Now, StrToDateTime('1970-1-1')) - 8 * 60 * 60);
signStr:='schNo=1000066&schRecords='+httpencode(UTF8Encode('哈哈'));
sign:=MD5.StrMD5(signStr);
paramStream := TIdMultiPartFormDataStream.Create;
vResponse := TStringStream.Create('');
vList := TStringList.Create;
// paramStream.AddFile('FileInputStream', 'D:\1.xlsx', GetMIMETypeFromFile('D:\1.xlsx'));

//paramStream.AddFormField('fileName', UTF8Encode('1.xlsx'));
paramStream.AddFormField('signature', sign);
paramStream.AddFormField('schRecords', UTF8Encode('哈哈'));
paramStream.AddFormField('N', '1');
IdHTTP1.Post('http連接', paramStream, vResponse);
vres := (vResponse.DataString); //Utf8ToAnsi

Memo1.Text := Utf8ToAnsi(vres);
// ShowMessage(vres);
end;


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM