Delphi调用Servlet
一直想让Delphi做为RIA，而业务层使用Java！今天没事做，简单实现了一下！
目前有2种方案：
WebService
IndyHttp调用Servlet
以下是用IndyHttp来调用Servlet
一、先写一个helloworld的Servlet
1.编写ui以及service
//工具包
package com.cdrs.jutils;
import java.io.IOException;
import java.util.Date;
import javax.servlet.ServletException;
import javax.servlet.http.HttpServlet;
import javax.servlet.http.HttpServletRequest;
import javax.servlet.http.HttpServletResponse;
public abstract class FormObject extends HttpServlet {
protected static final String ACTION = "ACTION";
public FormObject() {
super();
}
/**
* Destruction of the servlet. <br>
*/
public void destroy() {
super.destroy(); // Just puts "destroy" string in log
// Put your code here
}
*/
public void doGet(HttpServletRequest request, HttpServletResponse response)
throws ServletException, IOException {
}
@SuppressWarnings("deprecation")
public void doPost(HttpServletRequest request, HttpServletResponse response)
throws ServletException, IOException {
Date date = new Date();
System.out.println(date.getHours()+date.getMinutes()+date.getSeconds());
performTask(request, response);
}
/**
* Initialization of the servlet. <br>
*
* @throws ServletException if an error occurs
*/
public void init() throws ServletException {
// Put your code here
}
public abstract void performTask(HttpServletRequest req,
HttpServletResponse res) throws ServletException, IOException;
}
//ui包
package com.cdrs.servlettest.ui;
import java.io.IOException;
import java.io.PrintWriter;
import java.sql.SQLException;
import javax.naming.NamingException;
import javax.servlet.ServletException;
import javax.servlet.http.HttpServletRequest;
import javax.servlet.http.HttpServletResponse;
import com.cdrs.jutils.FormObject;
import com.cdrs.servlettest.service.ServletTestService;
public class ServletTes
相关文档：
1.SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样)
2.Shift+F8 调试时弹出CPU窗口。
3.Shift+F10 等于鼠标右键（Windows快捷键）。
&n ......
C#的ToolTip（delphi叫Hint）机制非常怪，不是像delphi的元件一样，每个TControl有一个Hint属性，C#有一个ToolTip元件，当把这个元件从工具箱拉到form上后，选中form上的任何control元件，在属性窗体（Object Inspector）上就会多出一个属性“toolTip1上的ToolTip”，如果多拉几� ......
一、类与对象
1、 类(Class)是用户定义的数据类型
2、 对象（Object）是类(Class)的一个实例，或由类定义数据类型的一个变量;
3、 类有一种状态（内部数据），操作（行为或方法），属性;
4、 对象是一个实体，程序运行时会为其内部表现分配一些内存;
5、 类与对象之间的关系和变量与类� ......
引用参数：
引用参数用var关键字标示
procedure DoubleTheValue (var Value: Integer);
begin
Value := Value * 2;
end;
在这种情况下，参数既把一个值传递给过程，又把新值返回给调用过程的代码。当你执行完以下代码时：
var
X: Integer;
begin
X := 10;
DoubleTheValue (X);
x变量的值变成了20 ......
