| fireredfox
41335
|
2011/2/17 21:14:33 |
| 要先起delphi scktsrvr.exe,还有client运行要先建立帐套的，不然会爆灾难星错误 |
| yulin1025
38413
|
2009/8/19 11:25:19 |
| 谢谢。我现在也学些三层架构 |
| yeon
35469
|
2008/9/6 17:56:25 |
| 没配置好 |
| wmz812
35333
|
2008/8/20 17:43:20 |
有这个提示：连接中间层错误
觉得应该是个简单的问题，可一直找不出原因，哪位有时间，帮忙回一下，谢谢！
procedure TdmClient.DataModuleCreate(Sender: TObject);
begin
socketconnection1.LoginPrompt:=False;
socketconnection1.Connected:=False;
if not socketconnection1.Connected then
begin
try
with simpleobjectbroker1 do
begin
if Servers.Count = 0 then
begin
Servers.Add;
Servers.Items[0].ComputerName:=SServerIP;
end
else
begin
Servers.Add;
Servers.Items[Servers.Count-1].ComputerName:=SServerIP;
end;
end;
simpleobjectbroker1.LoadBalanced:=True;
socketconnection1.ObjectBroker:=simpleobjectbroker1;
socketconnection1.ServerGUID:='{C3E65EEF-9C13-436C-AA24-C2E1BAF783D7}';
socketconnection1.ServerName:='ServerMain.untPooler';
socketconnection1.Connected:=True;
except
on E:exception do
begin
messagedlg('连接中间层错误 ! ',mtError,[mbok],0);
abort;
end;
end;
end;
if socketconnection1.Connected then
isScoketconnectionopen:=True
else
isScoketconnectionopen:=False;
end; |
| fslxzh
33957
|
2008/4/29 22:19:09 |
| 从你这里学了不少东西,谢谢啦! |
| gencheng
32082
|
2007/12/3 22:10:49 |
对不起，刘大侠，我上面的话说的有些过头了。。。
其实你写的这个示例还是有很多值得学习的地方。我本人也是才学习三层开发一个多月，最近半个月看Pooler示例，基本都搞懂了。哪天下载了你的示例，粗略的看了一下，就感觉哪一块有点不对，一直看了两天，才发现你的Pooler确实有问题。
一个月前刚开始学习三层的时候，看李维写的多层分布系统篇，越看越糊涂。后来找了本COM原理方面的书学习了一下，再看李维的书感觉清楚多了。李维写他的那本书的时候，是深入学习过COM原理的，他在书中所说的，潜移默化中也使用了COM思想，所以对一般初学者来说，直接看他的书反而会越看越糊涂。
我个人认为刘大侠你是个非常聪明的人，如果你在学习一些COM知识，对于你今后的多层分布系统设计会有巨大的帮助。
一点个人经验，希望对你有所帮助。 |
| liuxiangsoft
32002
|
2007/11/28 9:48:29 |
是是是，
我到现在为止，写的程序最多也就3-50个用户，这样的话，用二层也就是可以解决的。
谢谢gencheng的留言。正所谓学无止镜，我对DELPHI了解的也只是冰山一解。 |
| gencheng
31998
|
2007/11/27 22:09:37 |
作者尚未悟道！！！
对作者好有一比：“神秀大师”。
作者虽然聪慧，程序中用尽了各种技巧，但他其实并未真正搞过懂三层。
作者其实并没搞清楚他自己写的这个三层中的连接池代码是什么？如果有一，二百台机器作客户端测试它的程序，作者就知道他自己写的程序问题有多大。他自己写的连接池无用！！！ |
| shiguoxing
30740
|
2007/8/8 10:59:07 |
| 怎么，连接中间层错误 |
| xiao_xue
27499
|
2006/12/12 18:43:35 |
| 楼上说的对，老大写点关键性的描述嘛，我是初学者，无从下手看啊，先谢谢了！ |
| zyyjc
26486
|
2006/10/9 9:43:16 |
TO:oshj
我也发现了，好像没有做Blob字段的处理，不知道作者是解决了没有 |
| supergq
26080
|
2006/9/15 9:36:54 |
| 楼主留个qq号或者msn把,有些问题想和你讨论下. |
| hj6
26060
|
2006/9/14 12:18:57 |
| liuxiang兄，有些请教的问题发送到了您的邮箱中regentsoft@163.com，请您指点，谢谢。 |
| oshj
25600
|
2006/8/23 9:16:09 |
刘翔最近好像不来了？这个代码非常好，学习价值高。
有个问题请教一下：用例子中的upply...方式提交数据，好像对 BLOB 字段无效？不知道大家是否试过？
用这种缓冲池的方式，BLOB字段如何提交呢？ |
| oshj
25167
|
2006/7/31 10:51:03 |
大家好，我正在学习。
想问一下：那个untPooler是怎么建立的，看起来好像不是手工建的。 |
| pcczx
25126
|
2006/7/28 12:31:34 |
| ww开头的控件是IP4000 |
| erenjian
25123
|
2006/7/28 10:51:10 |
| 兄弟,写点关键文档资料吧.跪求了. |
| erenjian
25121
|
2006/7/28 10:49:56 |
unit untCommon;
interface
type
Icommon = Interface
['{C110A171-72D7-4EA5-BFC1-A2CE31D747A2}']
function GetLogin(const DBName, UserCode, PassWord: WideString): Integer;
safecall;
unit untCommons;
interface
type
Tcommons = Class(TInterfacedObject,Icommon)
这里的方法怎么客户端就可以调用了?远程数据模块那个单元的代码到哪里去了. |
| zbluecn
25062
|
2006/7/24 10:37:11 |
| 代理阿~~ |
| zyyjc
25037
|
2006/7/21 16:19:48 |
| 不知哪位能告知，untPooler这个单元具体有什么作用？ |
