BCB中Corba Name Service使用方法

Edit1->Text=AnsiString(order->Name());

5、这时一个简单的CORBA CLIENT做好了，试一下Project | Make，Run。

6、在Form1上再放两个Edit(2,3)，其Text分别为"MyName","MyKind"，放两个Lable，注明这两个Edit分别代表"name[0].id","name[0].kind"。

7、在Form1上放个Button，Button2的OnClick代码为：

try {
　　 Edit1->Text="正在查找名为：{"+Edit2->Text+","+Edit3->Text+"}的对象";
　　 CosNaming::NamingContext_var context = CosNaming::NamingContext::_bind(); //取根名字空间
　　 CosNaming::Name name;
　　 char id[32],kind[32];
　　 strcpy(id ,Edit2->Text.c_str());
　　 strcpy(kind ,Edit3->Text.c_str());
　　 name.length(1);
　　 name[0].id = id;
　　 name[0].kind = kind; //以上将Edit2,Edit3的内容组成一个名字，存在name中。
　　 CORBA::Object_var object = context->resolve(name); //求解这个名字，得到对CORBA对象的引用
　　 Order_var test = Order::_narrow(object);
　　 if(!CORBA::is_nil(test)) {Edit1->Text=AnsiString(test->Name()); }
　　 else Edit1->Text="访问失败！";
}
catch(const CORBA::Exception& e)
{
　　 ShowMessage(e._description.name());
　　 exit(1);
}

--------------------------------------------------------------------------------

样本工程源码（内含consol Server、WinGUI Server、consol Client、WinGUI Client）

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!