delphi传Url参数给JAVA

 function URLencode(str:string):string;
var
  i:integer;
  temp:string;
begin
  for i:= 1 to  length(str) do
  begin
    temp:=temp+'%'+inttohex(integer(str[i]),0);
  end;
  result:=temp;
end;

ShowMessage(  URLencode( AnsiToUtf8( 'K.A公司)));

注意，如果是weblogic还要在jsp中加上request.setCharacterEncoding("utf-8");，否则会乱码。