1,594
社区成员
发帖
与我相关
我的任务
分享怎么开发CORBA客户端?
怎么开发CORBA客户端?是否要安装vbroker.?从哪里能够下载到vbroker.
我现在运行Delphi自带的CORBA的Demo.提示没有找到ORB_BR.Dll和找不到指定的模块:orbpas45.dll
我现在运行Delphi自带的CORBA的Demo.提示没有找到ORB_BR.Dll和找不到指定的模块:orbpas45.dll
...全文
请发表友善的回复…
发表回复
Neodeveloper 2005-12-18
- 打赏
- 举报
简单的方法：
（1)安装Borland Enterprise Server 5.01
（2)运行Borland Enterprise Server 带的 osagent
（3)运行自己编写的server.exe
（4)运行自己编写的client.exe
（1)安装Borland Enterprise Server 5.01
（2)运行Borland Enterprise Server 带的 osagent
（3)运行自己编写的server.exe
（4)运行自己编写的client.exe
heroly 2005-08-17
- 打赏
- 举报
我的怎么没有CORBA Object这个选项呀？
young_boy 2005-08-16
- 打赏
- 举报
我的borland目录下没有vbroker目录.是否要单独安装?
zhangheaaa 2005-08-16
- 打赏
- 举报
提示没有找到ORB_BR.Dll和找不到指定的模块:orbpas45.dll
和找不到指定的模块:orbpas45.dll
-------------------------------------------
你需要把这两个 DLL 在 WINDOWS 里注册一下,才能使用.
例如:
regsvr32.exe d:\test\orbpas45.dll.dll
和找不到指定的模块:orbpas45.dll
-------------------------------------------
你需要把这两个 DLL 在 WINDOWS 里注册一下,才能使用.
例如:
regsvr32.exe d:\test\orbpas45.dll.dll
zhangheaaa 2005-08-16
- 打赏
- 举报
在Delphi中使用CORBA
为在Delphi中使用Corba技术，首先要创建服务器和客户，然后在此基础上创建各类实用程序。服务器和客户程序创建如下：
1、 服务器的创建
创建CORBA服务器所需的步骤如下：
1)、创建一个标准的应用程序并保存到自己的目录中。在该目录下建立两个附加子目录，一个叫Client，另一个叫Server。
2)、选择New|File，转到multitier页面，选择CORBA Object。当提示为对象取个名字的时候，应叫它CorbaTestObject，而让其他所有设置都处在默认的状态。
3)、打开Type Library Edit建立一个叫GetName的方法，它是IcorbaTestObject的一部分，小心别把它加到根上(Project Name).在此处编辑器是不允许一个方法加入的。
4)、该方法的返回类型应该是一个WideString。在Parameters页面的靠近顶端处设置它，这个方法的COM IDL是：HRESULT_Stdcall GetName([out,retval])BSTR *Name).而Delphi的声明是：Function GetName:WideString[dispid$00000001]；safecall;这个方法自动说明为Safecall，但这在Type Library Editor中可能不太明显。
5)、单击Refresh按钮来产生方法的代码。完成这个方法的实现代码，让它返回一个对象名字的字符串。
6)、存盘，执行一次该程序。到这一阶段，该应用程序必须提前运行，否则客户就无法访问它。
2、 客户程序的创建
建立一个客户应用程序的步骤：
1)、启动一个正规的应用程序
2)、将由服务器创建的XXX_TLB.pas文件加到主窗体的uses子句中，然后再把CornInit也加到uses子句中。
3)、创建一个按钮响应方法。
4)、从XXX_TLB.pas文件中获得CreateInstance的调用，并将它复制到按钮响应方法中，去掉无关的存储单元，保存其返回的类型。
5)、声明一个叫FcorbaTest的局部变量，它是属于对象返回的类型，在此处便是ICorbaTestObject，将从TLB中复制来的函数的返回值赋给它，将你所选择的任何字符串输送给CreateInstance.
FcorbaTest:=TcorbaTestObjectCorbaFactory.CreateInstance('CorbaTest');
6)、写一段代码从对象实例中调用方法，该对象实例是从TLB中复制的函数中返回的。
7)、确定Smart Agent已启动，然后启动服务器与客户应用程序，接着调用服务器所定义的方法(注：除非正在使用OAD，否则要明确启动服务器与客户应用程序，因为它是不会自动启动的)。
为在Delphi中使用Corba技术，首先要创建服务器和客户，然后在此基础上创建各类实用程序。服务器和客户程序创建如下：
1、 服务器的创建
创建CORBA服务器所需的步骤如下：
1)、创建一个标准的应用程序并保存到自己的目录中。在该目录下建立两个附加子目录，一个叫Client，另一个叫Server。
2)、选择New|File，转到multitier页面，选择CORBA Object。当提示为对象取个名字的时候，应叫它CorbaTestObject，而让其他所有设置都处在默认的状态。
3)、打开Type Library Edit建立一个叫GetName的方法，它是IcorbaTestObject的一部分，小心别把它加到根上(Project Name).在此处编辑器是不允许一个方法加入的。
4)、该方法的返回类型应该是一个WideString。在Parameters页面的靠近顶端处设置它，这个方法的COM IDL是：HRESULT_Stdcall GetName([out,retval])BSTR *Name).而Delphi的声明是：Function GetName:WideString[dispid$00000001]；safecall;这个方法自动说明为Safecall，但这在Type Library Editor中可能不太明显。
5)、单击Refresh按钮来产生方法的代码。完成这个方法的实现代码，让它返回一个对象名字的字符串。
6)、存盘，执行一次该程序。到这一阶段，该应用程序必须提前运行，否则客户就无法访问它。
2、 客户程序的创建
建立一个客户应用程序的步骤：
1)、启动一个正规的应用程序
2)、将由服务器创建的XXX_TLB.pas文件加到主窗体的uses子句中，然后再把CornInit也加到uses子句中。
3)、创建一个按钮响应方法。
4)、从XXX_TLB.pas文件中获得CreateInstance的调用，并将它复制到按钮响应方法中，去掉无关的存储单元，保存其返回的类型。
5)、声明一个叫FcorbaTest的局部变量，它是属于对象返回的类型，在此处便是ICorbaTestObject，将从TLB中复制来的函数的返回值赋给它，将你所选择的任何字符串输送给CreateInstance.
FcorbaTest:=TcorbaTestObjectCorbaFactory.CreateInstance('CorbaTest');
6)、写一段代码从对象实例中调用方法，该对象实例是从TLB中复制的函数中返回的。
7)、确定Smart Agent已启动，然后启动服务器与客户应用程序，接着调用服务器所定义的方法(注：除非正在使用OAD，否则要明确启动服务器与客户应用程序，因为它是不会自动启动的)。
