delphi java 接口_delphi调用java编写的http接口

采用delphi7的indy组件java

提交的数据中包含中文，须要进行URL编码：编码

function UrlEncode(const ASrc: string): string;

const

UnsafeChars = '*#%<>+ []';  {do not localize}

var

i: Integer;

begin

Result := '';    {Do not Localize}

for i := 1 to Length(ASrc) do begin

if (AnsiPos(ASrc[i], UnsafeChars) > 0) or (ASrc[i]< #32) or (ASrc[i] > #127) then begin

Result := Result + '%' + IntToHex(Ord(ASrc[i]), 2);  {do not localize}

end else begin

Result := Result + ASrc[i];

end;

end;

end;code

procedure TForm1.BitBtn1Click(Sender: TObject);

var

Param:String;

F_Params:TStringList;

RStream:TStringStream;

begin

try

F_Params:=TStringList.Create;

RStream:=TStringStream.Create('');

Param:='为要提交的数据，须要用URL编码';

Param:=Trim(Param);

F_Params.Add(Param); //添加的第一个参数

F_Params.Add('CurToken=8eeafa5eb583766c'); //添加的第二个参数  orm

//参数顺序必定要与java接口中定义的参数顺序一致，不然调用失败接口

IdHTTP1.HTTPOptions:=IdHTTP1.HTTPOptions-[hoForceEncodeParams];

IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322)';

IdHTTP1.Request.AcceptCharSet:='GBK,utf-8;q=0.7,*;q=0.3';

IdHTTP1.Request.AcceptLanguage:='zh-CN,zh;q=0.8';

IdHTTP1.Post('URL接口地址',F_Params,RStream);

showmessage(Utf8ToAnsi(RStream.DataString));  // 返回值中若是有中文会出现乱码，因此须要通过Utf8ToAnsi来解码

finally

FreeAndNil(F_Params);

FreeAndNil(RStream);

end;

end; utf-8