请问如何把 'http://中国' 转换为 'http://%d6%d0%b9%fa/'(100分)

O

Orber

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-21

• #1

请问如何把 'http://中国' 转换为 'http://%d6%d0%b9%fa/'

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-21

• #2

procedure StrToASCII;<br>var<br>&nbsp; User: string;<br>&nbsp; i,j: Integer;<br>&nbsp; k: String;<br>begin<br>&nbsp; User := '中国';<br>&nbsp; K:='';<br>&nbsp; for i:=0 to Length(User)-1 do<br>&nbsp; begin<br>&nbsp; &nbsp; &nbsp;j:= ord((pchar(user) + i)^);<br>&nbsp; &nbsp; &nbsp;K:=k+IntToHex(j,2);<br>&nbsp; end;<br>&nbsp; ShowMessage(K);<br>end;<br>

 

C

ChinaD

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-21

• #3

根据题意该行应改为： K:=k+'%'+IntToHex(j,2); <br>呵呵

 

K

kyq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-21

• #4

uses<br>&nbsp; &nbsp; HTTPApp;<br>......<br>ShowMessage(HTTPEncode('中国'));<br>就可以了。

 

O

Orber

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-21

• #5

谢谢 kyq ，请问如何做相反的操作呢？<br><br>也就是将 %d6%d0%b9%fa 转换为 中国<br>

 

K

kyq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-22

• #6

相反的操作如下：<br>uses<br>&nbsp; &nbsp; HTTPApp;<br>......<br>ShowMessage(HTTPDecode('%D6%D0%B9%FA'));<br>就可以了。