delphi和java开发的B/S和C/S结合的程序，把demo放公司服务器上了，欢迎下载测试 [附demo的代码]！！(50分)

测试demo采用Java和delphi结合开发，设计平台为DbAnyWhere-Java
-----------------------------------------------------------
demo地址下载：
http://catula.vicp.net/demo.rar
-----------------------------------------------------------
下载和测试时间：每天 9:00 - 17:00

例题：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3630920
例题代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, remotejavaconnection, DB, DBClient, RemoteJavaDataSet,
Grids, DBGrids, RemoteUpdateSql;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
qq: TRemoteJavaDataSet;
RJC: TRemoteJavaConnection;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button7: TButton;
RemoteUpdateSql1: TRemoteUpdateSql;
Memo1: TMemo;
Edit3: TEdit;
Label3: TLabel;
Edit4: TEdit;
Label4: TLabel;
procedure Button7Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure DataSource1DataChange(Sender: TObject;
Field: TField);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button7Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
qq.RemoteJavaConnection:=Rjc;
Rjc.RemoteIp:=edit1.Text;
Rjc.RemotePort:=strtoint(edit2.Text);
qq.PageSize:=strtoint(edit4.text);
qq.Close;
qq.SQL.Text:='select * from test';
qq.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
qq.FirstPage;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
qq.PriorPage;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
qq.NextPage;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
qq.LastPage;
end;

procedure TForm1.DataSource1DataChange(Sender: TObject;
Field: TField);
begin
edit3.Text:=vartostr(qq.PageNo)+'/'+vartostr(qq.PageNum);
end;

end.

我先来顶一下.

下载不了

同意下载不了! 签定完毕.

不知测那个.都没有设定那个服务器.

好用 但我 不知道测什么阿

感兴趣,但楼主要写详细些.如何配置,测试些什么项目
另外不能下载!

下载和测试时间：每天 9:00 - 17:00
这是内部服务器，下班了就关闭了。
哦，刚才花生壳忘记开了

这种技术的框架蛮多的了，无非是delphi端模拟http的request来请求web端的服务，然后通过http的相应来获得数据，或者直接用webservice更为简单。
不知道楼主的有没有什么新意

做成bs的也容易，通过activeform将delphi的窗体嵌入网页，缺点是初始化时要下载并安装 ocx

to 楼上
有没有服务器用webservice
客户端用DELPHI做的WINFORM的例子

有啊，jb2006开发的webservice，delphi7开发的客户端，bs结构。不过涉及公司的机密，不能给你看。但是可以告诉你，非常简单的，多找找资料自己搭一个环境玩玩。

webservice的效率比较低，
没看到开发的代码和ado的一样简单吗？
这是个平台设计的，不需要懂java开发，只要懂 ado开发就可以了。
改造原来的内网程序不是很简单吗？
b/s 的activex安全吗？还要签一下？

to fenian,谢谢
不知网上有没有公开测试的,不涉及机密的,好看看

简单没什么新意，我们以前开发 的平台，找个民工培训个把月就能进行业务窗体的开发。
关键看你的性能，你说的ado是指的客户端与数据库之间的连接方式吗？如果是这样，几千个客户端你吃的消吗？还有你说的网络断线跟activex有什么关系啊？客户端的数据集又不是直接跟数据库相连。楼主你能否从架构上解释一下你们的平台，这些东西看demo是看不出来的。如果真有好处，说不定咱们以后可以合作

另外还可以测试一下在公网上的速度如何，是否可以传输二进制的内容？
其实实现类似框架的话，确实很容易，但要看效率。
我确实看国不少类似的框架，但效率、海量数据如何？
如果可以的话，可以打包一个demo也可以公开测试一下？？

哦，我说的ado是类似ado的开发，客户端开发起来类似ado的代码，比较通用。
比如象 open,execsql,updatebatch,post等方法

fenian大哥，您真是牛啊，佩服佩服，民工都能写程序。webservice? 知道什么是webservie 吗？知道什么是wsdl吗？知道什么是soap吗？如果webservice能这么来用，那么还要ASTA，RemoteObject做什么？别告诉我你不知道什么是ASTA，RemoteObject。也希望您能搞个demo出来让大家来测试一下。看看您的webservice是怎么搞的

那个服务器,端口是多少.说一说.我下载了demo不和以前的一样.不知怎么测.