代码转换成delphi,高手快来!高分请教
Function URLEncoding(vstrIn)
strReturn = ""
For i = 1 To Len(vstrIn)
ThisChr = Mid(vStrIn,i,1)
If Abs(Asc(ThisChr)) < &HFF Then
strReturn = strReturn & ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode < 0 Then
innerCode = innerCode + &H10000
End If
Hight8 = (innerCode And &HFF00)\ &HFF
Low8 = innerCode And &HFF
strReturn = strReturn & "%" & Hex(Hight8) & "%" &
Hex(Low8)
End If
Next
URLEncoding = strReturn
End Function
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) *
&H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
谁能将上面的代码转换成delphi的!高手快出手
问题点数：100、回复次数：7Top
1 楼shiyj（默石）回复于 2006-06-01 12:06:52 得分 0
这个没有难点啊，基本上可以一句一句的改写的。Top
2 楼hellolongbin（一个人(自从扩充话题改版，再也不去灌水乐园了)）回复于 2006-06-01 12:09:26 得分 0
你是都不会呢？还是某一句不会？某一句不会可以解释，都不会的话…………写了几遍都删了，不说了Top
3 楼lexchou（龍子龍孫)(本人已死)(有事烧纸）回复于 2006-06-01 12:14:24 得分 0
uses IdURI.pas;
IdURI.URLEncode(xxxxx)Top
4 楼lexchou（龍子龍孫)(本人已死)(有事烧纸）回复于 2006-06-01 12:14:55 得分 0
错了……
TIdURI.URLEncodeTop
5 楼seraphzhao（血魔）回复于 2006-06-01 13:47:05 得分 0
Low8 = innerCode And &HFF
strReturn = strReturn & "%" & Hex(Hight8) & "%"
Hex(Low8)
这个怎么改
to
hellolongbin(一个人[终不似，少年游])
Top
6 楼wuweigang（wuweig）回复于 2006-06-01 14:23:25 得分 100
Function URLEncoding(vstrIn:string):string;
var
Low8,Hight8,innerCode,i:integer;
strReturn:string;
ThisChr:char;
begin
strReturn := '';
For i := 1 To Length(vstrIn) do
begin
ThisChr := vstrIn[i];
If Abs(ord(ThisChr)) < $FF Then
strReturn := strReturn + ThisChr
Else begin
innerCode := ord(ThisChr);
If innerCode < 0 Then innerCode := innerCode + $10000;
Hight8 := (innerCode And $FF00) div $FF;
Low8 := innerCode And $FF;
strReturn := strReturn + '%' + inttohex(Hight8,1) + '%' + inttohex(Low8,1);
End;
end;
URLEncoding := strReturn;
end;Top
7 楼wuweigang（wuweig）回复于 2006-06-01 15:39:21 得分 0
没试过不小的有没有错Top
