请教关于TWebConnection与TSocketConnection的使用问题!(100分)

  • 主题发起人 主题发起人 wsm
  • 开始时间 开始时间
W

wsm

Unregistered / Unconfirmed
GUEST, unregistred user!
1、试验环境的是Win2000 Professional,Web服务器使用的是IIS5.0;
开启IIS5.0的服务,将Delphi5/bin/httpsrvr.dll拷贝到C:/Inetpub/scripts/httpsrvr.dll;
并在IIS服务管理器中将scripts的目录改为可执行、可读写和可脚本执行的权限;
TWebConnection的属性ServerName设置为http://127.0.0.1/scripts/httpsrvr.dll;
我将服务程序在本机运行后。客户端程序使用TDCOMConnection构件连接服务程序OK;
我将客户端程序使用TWebConnection程序连接时,下拉属性ServerName,发现服务名为空。
2、试验环境的是Win2000 Professional;
开启scktsrvr服务;
TSocketConnection的属性Address设置为127.0.0.1;
我将服务程序在本机运行后。客户端程序使用TDCOMConnection构件连接服务程序OK;
我将客户端程序使用TSocketConnection程序连接时,下拉属性ServerName,发现服务名为空。
请问各位高手是否与俺有同样遭遇,我在多台Win2000试验都是同样的遭遇。

 
1的回答
remotemodule继承如下过程,这样webconnection连接就正常
protected
class procedure UpdateRegistry(Register: Boolean;
const ClassID, ProgID: string);override;
class procedure TEmpServer.UpdateRegistry(Register: Boolean;
const ClassID, ProgID: string);
begin
if Register then
begin
inherited UpdateRegistry(Register, ClassID, ProgID);
{ EnableSocketTransport(ClassID);
}
EnableWebTransport(ClassID);
RegisterPooled(ClassID, 16, 30);
end else
begin
{ DisableSocketTransport(ClassID);
}
DisableWebTransport(ClassID);
UnregisterPooled(ClassID);
inherited UpdateRegistry(Register, ClassID, ProgID);
end;
end;

2的问题类似
com组件要支持IDataIntercept 接口才能使用tsocketconnection
详细看帮助

 
我也预到过,但我通过打Delphi5的补丁后就解决了(Delphi 5有四个补丁)
 
多人接受答案了。
 
HHYZWX:
你有Delphi 5的四个补丁吗?如果有,麻烦你发给我,本人不胜感激,急!急!急!
我碰到的问题是Server端的服务器程序不能事先用手动启动,如果一旦启动,即使用手动
关掉了该服务器应用程序,客户端然后用Twebconnection去连接服务器应用程序的远程
数据模块,则连接不成功,服务器端报抱错是:“应用程序发生异常,未知的软件异常(0x0eedfade),
位置为0x77e6f142”,如你有什么方法解决,请教教我!感激!感激!我的邮箱是:
lian191@sina.com
 
后退
顶部