WebService做媒,Delphi与Java牵手
来源:互联网 发布:js使用java函数 编辑:程序博客网 时间:2024/05/17 22:12
环境:Win7、Delphi7、JDK6、Tomcat6、XFire1.2
Web服务端:
Iweather.java
package net.ly.webservice.biz;
public interface Iweather {
String weather(String s);
String weather2();
}
WeatherImpl.java
package net.ly.webservice.impl;
import net.ly.webservice.biz.Iweather;
public class WeatherImpl implements Iweather {
public String weather(String s) {
return "Hello " + s ;
}
public String weather2() {
return "abcde2";
}
}
web.xml
<?xml version="1.0" encoding="UTF-8"?>
<web-app xmlns="http://java.sun.com/xml/ns/javaee" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.5" xsi:schemaLocation="http://java.sun.com/xml/ns/javaee http://java.sun.com/xml/ns/javaee/web-app_2_5.xsd">
<servlet>
<servlet-name>XFireServlet</servlet-name>
<servlet-class>org.codehaus.xfire.transport.http.XFireConfigurableServlet</servlet-class>
<load-on-startup>0</load-on-startup>
</servlet>
<servlet-mapping>
<servlet-name>XFireServlet</servlet-name>
<url-pattern>/services/*</url-pattern>
</servlet-mapping>
</web-app>
services.xml
<?xml version="1.0" encoding="UTF-8"?>
<beans xmlns="http://xfire.codehaus.org/config/1.0">
<service>
<name>Weather</name>
<namespace>www.weather.com/Weather</namespace>
<serviceClass>net.ly.webservice.biz.Iweather</serviceClass>
<implementationClass>net.ly.webservice.impl.WeatherImpl</implementationClass>
</service>
</beans>
Web服务目录结构如图:
部署,启动Tomcat。
Delphi代码部分:
cmd打开DOS窗口,cd进入 D:\Program Files\Borland\Delphi7\Bin
WSDLImp http://localhost:8686/myWebService/services/Weather?wsdl
在当前目录生成Weather.pas
新建Delphi项目,保存项目到文件夹javawebservice,把Weather.pas再拷贝到这个文件夹,然后加入到项目中。
在Unit1文件引用Weather,
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Weather;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
s,s2:string;
begin
s:=GetWeatherPortType().weather('dai');
showmessage(s);
s2:=GetWeatherPortType().weather2;
showmessage(s2);
end;
end.
Delphi程序运行界面:
Web应用和Delphi桌面应用结合,对现实项目开发,解决方案更加灵活,能够打出一套漂亮的组合拳。
- WebService做媒,Delphi与Java牵手
- 做媒
- Delphi与WebService
- 为了奥运与java分手,牵手c++!!
- Delphi 调用 Java WebService
- BlueStacks做媒 Android与Windows玩试婚
- Delphi 调用JAVA WebService例子
- DELPHI XE6调用JAVA WEBSERVICE
- delphi调用java编写的webservice
- Delphi和Java实现webservice架构
- webservice ---delphi
- 牵手
- 牵手
- 牵手
- 牵手
- 牵手
- 牵手
- 牵手
- Balanced Lineup poj3264 线段树
- 如何快速提取word中所有图片
- 设计模式6大原则(5):迪米特法则
- 如何远程调试Hadoop代码
- 爱立信Tools Designer Intern群面总结——人生第一次群面
- WebService做媒,Delphi与Java牵手
- 判断两个Date是否在同一天
- hibernate基础知识整理
- Find发帖水王哥
- eclipse 下 hadoop debug 笔记
- 上传APP,碰到的invalid binary问题?
- 对软件研发项目管理的深入探讨
- http://www.blogjava.net/zh-weir/archive/2011/07/19/354663.html
- 分享链接