functionLoadUTF8File(FileName:string):string; var SS: TStringStream; begin SS := TStringStream.Create('', TEncoding.UTF8); SS.LoadFromFile(FileName); Result := SS.DataString; end; procedureSaveUTF8File(Content:string;FileName:string); var SS: TStringStream; begin SS := TStringStream.Creat...
try ss := TStringStream.Create('', TEncoding.GetEncoding(65001)); { 指定gb2312的中文代码页,或者54936(gb18030)更好些 utf8 对应 65001} idhtp.Get(URl,ss); Temp1 := ss.DataString; 这个temp1就是utf8解码后的内容了
直接使用字串流方式加载文件即可 stm := TStringStream.Create('', TEncoding.UTF8);stm.LoadFromFile(sFileName);sTemp := stm.DataString;//获得解码内容
//以下是自动识别UTF-8和GBK,GB2312的页面并返回HTML代码function GET_HTMLInt(const URL:string):Integer ; // idhttp控件varHTTP:TIdHTTP;HTML:string;GBK_2312:TStringStream;UTF8Str:TStringStream;UTF8HTML:UTF8String;begin try HTTP:=TIdHTTP.Create(nil); UTF8Str:=TStringStream.Create(**,TEncoding....
utf8 := utf8 + '&key=' + Fkey; //计算签名 try Digest:= TIdHashMessageDigest5.Create; Result := Digest.HashBytesAsHex(BytesOf(utf8)); finally Digest.Free; end; end; //生成Http Post请求的数据 function TMicroPayParamBuilder.BuildParam: string; ...
ss : TStringStream;beginss := TStringStream.Create('', TEncoding.GetEncoding(936));{指定gb2312的中文代码页,或者54936(gb18030)更好些 utf8 对应 65001}tryIdHTTP1.Get(CSURL, ss); IdHTTP1.Get(CSURL); Memo1.Text :=ss.DataString;finallyss.Free;end;end; ...
postStream:=TStringStream.Create(ansitoUTF8(gv_mz_cf_xml)); 如果用Tstringlist,接受不到参数,改成TStringStream时,可以接受到数据,但是编码后的 b.解决编码后的参数 IdHTTP1.Request.ContentType := ‘text/xml;application/x-www-form-urlencoded; Charset=UTF-8’; ...
一、GET 请求 1 procedure GetDemo; 2 var 3 IdHttp : TIdHTTP; 4 Url : string;//请求地址 5 ResponseStream : TStringStream; //返回信息 6 ResponseStr : string; 7 begin 8 //创建IDHTTP控件 9 IdHttp := TIdHTTP.Create(nil);10 //TStringStream对象用于保存响应...
1. 直接用api，网上有类似代码，阻塞模式很简单也很实用，要非阻塞就用线程。2. 用自带的TServerSocket 和 TClientSocket，这套控件简单、实用。做简单的收发很有效。中文乱码问题处理也很简单。看你是用的什么编码类型，不要直接发送string，应该转换成连续内存块再发送。Ansi、UTF8、Unicode，这些处理...
IdHTTP1.Request.ContentType := ‘text/xml;application/x-www-form-urlencoded; Charset=UTF-8’;...