url转义 delphi 有没有实例代码 ?

显示全部楼层 · 2012-7-9 18:18:53

Delphi2006中有这样一个单元:HTTPApp,里面有这样的函数:function HTTPEncode(const AStr: string): string;function HTTPDecode(const AStr: string): string;下面是这两个函数的原代码,如果你的Delphi版本比较低,可以使用下面的代码function HTTPDecode(const AStr: String): String;varSp, Rp, Cp: PChar;S: String;beginSetLength(Result, Length(AStr));Sp := PC...

千问 · 2012-7-9 18:18:53

先用AnsiToUtf8，转成UTF-8 然后再用NMURL1控件转 procedure TForm1.Button1Click(Sender: TObject); var
s:string; begin
s:= '中国 ';
s:=AnsiToUtf8(s);
NMURL1.Input...