Oracle调用rest,Delphi调用REST

Delphi调用REST很简单，首先在界面上放上：

RESTClient1: TRESTClient;

RESTRequest1: TRESTRequest;

RESTResponse1: TRESTResponse;

然后简单调用即可：

RESTClient1.BaseURL:=edtURL.Text;

RESTRequest1.Execute;

memLog.Text:=RESTResponse1.Content;

还可以对结果进行进一部处理，比如解析JSON：

procedure TfrmMain.btnGetClick(Sender: TObject);

var

jo,jo2:TJSONObject;

jv:TJSONValue;

ja:TJSONArray;

jp:TJSONPair;

i:Integer;

begin

RESTClient1.BaseURL:=edtURL.Text;

RESTRequest1.Execute;

memLog.Text:=RESTResponse1.Content;

jo:=TJSONObject.Create;

ja:=jo.ParseJSONValue(RESTResponse1.Content) as TJSONArray;

for jv in ja do

begin

jo2:=jv as TJSONObject;

for i:= to jo2.Count- do

begin

jp:=jo2.Pairs[i];

memLog.Lines.Add(jp.JsonString.ToString+':'+jp.JsonValue.ToString);

end;

end;

end;

在这里我使用的是Delphi自带的JSON解析，注意引用单元system.json。

Delphi 调用C# DLL(包含委托)

例子 C# Dll: using System; using System.Collections.Generic; using System.Text; using System.Diagnosti ...

Delphi 调用外部程序并等待其运行结束

转自:http://blog.csdn.net/xieyunc/article/details/4140620   如何让Delphi调用外部程序并等待其运行结束 1. uses     Window ...

fastscript调用delphi方法和DELPHI调用FASTSCRIPT方法

fastscript调用Delphi过程:  1． 先创建事件处理方法:TfsCallMethodEvent 2． 然后再用调用TfsScript.AddMethod方法,第一个参数为Delphi方法 ...

【转】Delphi调用webservice总结

原文:http://www.cnblogs.com/zhangzhifeng/archive/2013/08/15/3259084.html Delphi调用C#写的webservice 用delph ...

Delphi 调用netsh命令修改IP地址

Delphi 调用netsh命令修改IP地址 先介绍一下Netsh命令的使用方法: 在这里跟大家介绍几个简单的指令 1.Show IP 1.1Cmd Mode 直接在cmd下面输入 netsh int ...

教程-Delphi调用C# WEBSERVICE(二)

第二步:将webserivce的WSDL导入到该dll工程中,如何导,方法至少有两种,我说简单的一种:  file->new->other->WebService->WSDL ...

[转]Delphi调用cmd的两种方法

delphi调用cmd的两种方法vars:string;begins:='cmd.exe /c '+edit1.Text+' >c:\1.txt';winexec(pchar(s),sw_hid ...

Delphi调用webservice总结

Delphi调用webservice总结     Delphi调用C#写的webservice 用delphi的THTTPRIO控件调用了c#写的webservice. 下面是我调试时遇到的一些问题: ...

随机推荐

Matlab读取数据中出现的问题

在运行Matlab读取一段数据并做处理的时候,常常会提示服务器错误,但是等待一会再次运行就会成功运行. 代码如下: clc; clear all; [~,~,rawdata] = xlsread('进 ...

javascrip小笔记

function getCookie(name) {//获取name为 var arr, reg = new RegExp("(^| )" + name + "=([^; ...

java基础5_数组

一 数组是一个多个相同数据的集合.数组的长度一旦定义,将不能改变.数组的下标是从0开始的,到数组的长度-1结束. 1.数组的声明,初始化 int[] a = new int[3]{1,2,3}; in ...

web_reg_find()函数的使用

1.此函数的作用,很显然就是能告之测试人员页面是否显示正确,其意义与价值在我此次支撑平台的性能测试得到了体现. 2.在使用此函数的过程中,遇到了非常郁闷的事情,幸得老大的帮助才得以跳出误区.当在此函数 ...

js传值

//传值$('.choose li').click(function(){    //alert('z');     $("#address").empty().prepend($ ...

PHPSTORM 与 Xdebug 配合调试

基本的配置可以参考网上的文档, 浏览器中装插件(xdebug)或直接在请求中加上如下的参数也可启动调试 ?XDEBUG_SESSION_START=PHPSTORM

HDU 4107 线段树

给出N个节点,M次操作,和p 每次操作 对l-r区间的每一个节点+c,若节点值>=p,则加2*c: 结点存当前区间伤害最小值,最大值,以及lazy操作.更新到假设最小值大于等于P,或者最大值小于 ...

git排除常用配置，svn与git共存时.gitignore配置

#idea与myeclipse配置文件全部排除 *.class #package file*.war*.ear #kdiff3 ignore*.orig #maven ignoretarget/ #e ...

洛谷P1182 数列分段【二分】【贪心】

题目:https://www.luogu.org/problemnew/show/P1182 题意: 有n个数,要分成连续的m段.将每段中的数相加,问之和的最大值的最小值是多少. 思路: 和P1316 ...

Android平台的音乐资源管理与播放

Android平台基于Linux和开放手机联盟(OHA)系统,经过中国移动的创新研发,设计出拥有新颖独特的用户操作界面,增强了浏览器能力和WAP 兼容性,优化了多媒体领域的OpenCORE.浏览器领域 ...