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; ...
下面是一些使用TStringStream的常见用法: 1.将字符串写入TStringStream: TStringStream有一个WriteString方法,可以将字符串写入到TStringStream中,如下所示: ``` var Stream: TStringStream; Text: string; begin Text := 'Hello, World!'; Stream := TStringStream.Create; Stream.WriteString(Text); //在此处...
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’; ...
inStrm:= TStringStream.Create(Builder.BuildParam, TEncoding.UTF8); outStrm:= TStringStream.Create('', TEncoding.UTF8); try try http.Post(URL, inStrm, outStrm); Result := outStrm.DataString; except Result := ''; end; finally
procedureDownload(Url: String);varSstr : TStringStream; Idhttp : TIdHTTP;beginIdhttp := TIdHTTP.Create(nil); Sstr := TStringStream.Create('', TEncoding.GetEncoding(65001));{指定gb2312的中文代码页,或者54936(gb18030)更好些utf8对应65001}Idhttp.Get(Url, Sstr);{... ... ...}...