delphi调用java的api接口
来源:互联网 发布:淘宝宽屏海报代码 编辑:程序博客网 时间:2024/05/19 02:24
提交的数据中包含中文,需要进行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;
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'); //添加的第二个参数
//参数顺序一定要与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;
- delphi调用java的api接口
- delphi调用java编写的http接口
- java调用Jenkins接口api
- java web api接口调用
- Java 调用Restful API接口的几种方式--HTTPS
- JAVA的免费天气API接口调用示例
- 微博API接口的调用
- 利用java调用百度API接口,解析返回的json数据,突破百度API接口调用结果的限制
- 《Java 本地接口规范》- 调用 API
- java调用小i机器人接口API
- JAVA模拟浏览器调用rest api接口
- JAVA调用聚合天气api接口示例
- java API接口文档方法调用
- MongoDB认证&Java API接口调用
- java中怎么调用api数据接口
- Java 远程调用有道api接口实例
- Java实现Web Api接口远程调用
- DELPHI调用API
- IDEA+spring +mvc +maven
- 强连通分量算法之kosaraju的一些理解
- 关于sql server 在存储过程中创建临时表,并往临时表中插入数据时出现乱码的问题
- 非正确经验引发C++内存泄露
- Mybatis系列之Spring & Mybatis整合
- delphi调用java的api接口
- 用AI和MCTS实现智能行程设计的思路
- 温故知新(5)访问修饰符static、protected
- Jedis的使用
- android新闻App源码、仿微信源码、地图音乐源码等
- 互联网协议
- C++中memset用法
- android 系统签名
- vue-router基本使用