多平台统一管理软件接口,如何实现多平台统一管理软件接口
2658
2022-11-13
本文目录一览:
Web service一般就是用SOAP协议通过HTTP来调用它,其实他就是一个WSDL文档,客户都可以阅读WSDL文档来用这个Web service。客户根据WSDL描述文档,会生成一个SOAP请求消息。Web service都是放在Web服务器 (如IIS) 后面的,客户生成的SOAP请求会被嵌入在一个HTTP POST请求中,发送到Web服务器来。Web服务器再把这些请求转发给Web service请求处理器。请求处理器的作用在于,解析收到的SOAP请求,调用Web service,然后再生成相应的SOAP应答。Web服务器得到SOAP应答后,会再通过HTTP应答的方式把它送回到客户端。
调用方法大致有三种方法: 1)使用,直接AXIS调用远程的web service 2)直接SOAP调用远程的webservice 3)使用wsdl2java把WSDL文件转成本地类,然后像本地类一样使用,即可。
在 Delphi 中添加 SOAP Header 就不用说了,请参考 Delphi 自带示例,位于 Demos/WebServices/SOAPHeaders 目录下。添加 Http header 字段示例如下。
示例 WSDL 文件描述如下:
SampleServiceSoap = class(IInvokable)
['{08323867-2307-4569-8405-4E575CC3C453}']
procedure SampleProcedure1;
procedure SampleProcedure2;
end;
function GetSampleServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): SampleSoap;
const
defWSDL = '';
defURL = '';
defSvc = 'SampleService';
defPrt = 'SampleServiceSoap';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as SampleServiceSoap);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
增加 Http header 示例如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, SOAPHTTPTrans, SOAPHTTPClient, ActiveX;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// 在发送请求之前在 http header 中添加 CustomHeader 字段
// Data 是指向 HINTERNET 类型的指针
procedure TForm1.BeforePost(const HTTPReqResp: THTTPReqResp;
Data: Pointer);
const
csCustomHeader = 'CustomHeader:XXXXXXXX'
begin
HttpAddRequestHeaders(Data, PChar(csCustomHeader), Length(csCustomHeader),
HTTP_ADDREQ_FLAG_ADD);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Soap: SampleServiceSoap;
RIO: THTTPRIO;
begin
CoInitialize(nil);
RIO := THTTPRIO.Create(nil);
try
RIO.HTTPWebNode.OnBeforePost := BeforePost;
Soap := GetSampleServiceSoap(False, '', RIO);
if Assigned(Soap) then
Soap.SampleProcedure1;
finally
RIO.Free;
CoUninitialize;
end;
end;
end.
进入php源程序目录中的ext目录中,这里存放着各个扩展模块的源代码,选择你需要的模块,比如curl模块:cd curl
执行phpize生成编译文件,phpize在PHP安装目录的bin目录下
/usr/local/php5/bin/phpize
运行时,可能会报错:Cannot find autoconf. Please check your autoconf installation and
the $PHP_AUTOCONF
environment variable is set correctly and then rerun this
script.,需要安装autoconf:
yum install autoconf(RedHat或者CentOS)、apt-get install
autoconf(Ubuntu Linux)
/usr/local/php5/bin/php -v
执行这个命令时,php会去检查配置文件是否正确,如果有配置错误,
这里会报错,可以根据错误信息去排查!
版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。
发表评论
暂时没有评论,来抢沙发吧~