Delphi7 中文汉字转网址格式 Utf8编码转换（淘宝搜索中文转网址）

function HttpEncode(S:AnsiString):string;

var

  P:^Byte;

  I:Cardinal;

begin

  Result:='';

  P:=@S[1];

  Result:=Format('%%%x',[Ord(P^)]);

  for I := 1 to Length(S)-1 do

  begin

    Inc(P);

    Result:=Format('%s%%%x',[Result,Ord(P^)]);

  end;

end;

function HttpDecode(str:AnsiString): string;

var

  List: TStrings;

  tmpStr: AnsiString;

  i: Integer;

begin

  List := TStringList.Create;

  ExtractStrings(['%'], ['%'], PChar(str), List);

  SetLength(tmpStr, List.Count);

  for i := 0 to List.Count - 1 do

  Byte(tmpStr[i+1]) := StrToInt('$' + List[i]);

  List.Free;

  Result := Utf8Decode(tmpStr);

end;

procedure TuMain.btnStartClick(Sender: TObject);

    var

    i :integer;

   s: string;

begin

  s:='衣服';

  s:=HttpEncode(AnsiToUtf8(s));

  showmessage(s);                                            //显示 %E8%A1%A3%E6%9C%8D

  s := HttpDecode(s);

  showmessage(s);

end;