尤其是在北京的程序员,踢球的来签个名吧,有机会可以一起踢球啊
解决方案 »
- 高分求解半透明窗体(UpdateLayeredWindow)时子控件显示问题!
- 动态创建treeview该怎么触发根结点的事件???代码该怎么加??
- 请教DELPHI数组如何像C++那样初始化?
- 菜鸟问题:做游戏需要学delphi的那些组件?
- delphi中:要在form1.button1.click事件中调用form1.Formclose()事件,我要怎样做?
- 一定有很多人做过
- 能不能在dbgrid中,取到具体的某一行一列的值?
- 哪里有介绍Chart用法的?
- if StrToInt(edit1.Text) in [56WE,HYU,2U3,2TP4] then 。。。。。。。。???
- delphi初学者的问题
- 我是delphi小菜鸟!关于Timer运行的时候延迟的问题!(急)
- 如何在delphi做的平台上执行C++编的程序,delphi达淫乱入
[email protected]
import org.omg.CosNaming.*;
import org.omg.CORBA.*;
public class SysPropClient
{
public static void main(String args[])
{
try{
String SetInfo,ReturnInfo,ref;
org.omg.CORBA.Object objRef;
SysProp syspropRef;
ORB orb = ORB.init(args, null);
//使用IOR的方法开始
if (args.length>=1)
{
ref=args[0];
}
else
{
System.out.println("SysPropClient <IOR字符串> [环境变量]");
return;
}
objRef = orb.string_to_object(ref);
syspropRef = SysPropHelper.narrow(objRef);
//使用IOR的方法结束/*
//使用ORB的方法的开始
objRef = orb.resolve_initial_references("NameService");
NamingContext ncRef = NamingContextHelper.narrow(objRef);
// 进行服务定位
NameComponent nc = new NameComponent("SysProp", "");
NameComponent path[] = {nc};
syspropRef = SysPropHelper.narrow(ncRef.resolve(path));
//使用ORB的方法的开始结束
*/
if (args.length>1)
{
SetInfo=args[1];
}
else
{
SetInfo="java.home";
}
System.out.println("开始调用");
ReturnInfo = syspropRef.getProperty(SetInfo);
System.out.println(SetInfo+"="+ReturnInfo);
} catch (Exception e) {
System.out.println("ERROR : " + e) ;
}
}
}
3.3.2. 编译程序,在文件目录内执行如下命令jAVAC *.JAVA3.4. 进行测试第1控制台,执行
tnameserv
测试时如下所示
D:\mywork\t1>java tnameserv
Initial Naming Context:
IOR:000000000000002849444c3a6f6d672e6f72672f436f734e616d696e672f4e616d696e67436f
6e746578743a312e3000000000010000000000000054000101000000000c3139322e3136382e302e
31000ca6000000000018afabcafe00000002a999c474000000080000000000000000000000010000
0001000000140000000000010020000000000001010000000000
TransientNameServer: setting port for initial object references to: 900
Ready.
第2控制台,执行
java SysPropServer
测试时如下所示
D:\mywork\t1>java SysPropServer
创建和初始化 ORB
创建服务对象并将其向 ORB 注册
IOR:000000000000001049444c3a53797350726f703a312e30000000000100000000000000540001
01000000000c3139322e3136382e302e31000ca7000000000018afabcafe00000002a999dbeb0000
00080000000000000000000000010000000100000014000000000001002000000000000101000000
0000
绑定服务...SysPropS
等待调用...SysPropS
第3控制台,执行
java SysPropClient IOR:XXX JAVA.HOME
测试时如下所示
D:\mywork\t1>java SysPropClient IOR:000000000000001049444c3a53797350726f703a312e
3000000000010000000000000054000101000000000c3139322e3136382e302e31000ca700000000
0018afabcafe00000002a999dbeb0000000800000000000000000000000100000001000000140000
000000010020000000000001010000000000 java.home
开始调用
java.home=D:\bea\jdk130\jre
3.5. 编写C++的IOR客户机从实践来讲编写C++的客户机程序同JAVA没有多大的区别,只不过JAVA是用idlj生成代码存根类及helper类,而omni是用omniidl来生成代码存根类及helper类,而编程思想及编码过程非常相似。由于C++的程序要调用omni及VC6的相关文件,所以进入控制台后,如果VC没有进行环境变量设定,那么要先运行C:\Program Files\Microsoft Visual Studio\VC98\Bin\VCVARS32.BAT,再运行omni.bat,否则直接运行omni.bat后再编译程序及运行程序。3.5.1. 把IDL文件转化为C++编程语言代码存根类及helper类。执行如下命令
omniidl -bcxx SysProp.idl
在正常的情况下D:\mywork\t1 目录内将生成C++编程语言的代码存根类及helper类SysProp.hh和SysPropSK.cc。否则请检查你的执行程序及文件。3.5.2. 编写SysPropC.cc
#include <iostream.h>
#include <SysProp.hh>
int main(int argc, char** argv)
{
try {
CORBA::ORB_var orb = CORBA::ORB_init(argc, argv, "omniORB3");
if( argc < 2 || argc > 3 ) {
cout << "usage: SysPropC <IOR字符串> [环境变量名]" << endl;
return 1;
}
CORBA::Object_var obj = orb->string_to_object(argv[1]);
SysProp_ptr echoref = SysProp::_narrow(obj);
if( CORBA::is_nil(echoref) ) {
cerr << "没有对象" << endl;
return 1;
}
const char* message;
if (argc==3)
{
message=argv[2];
}
else
{
message="java.home";
}
CORBA::String_var dest = echoref->getProperty(message);
cout << (char*)message << "=" <<(char*)dest << endl;
orb->destroy();
}
catch(...) {
cerr << "Caught unknown exception." << endl;
}
return 0;
}
3.5.3. 编写dirc.mak,如下所示
TOP = C:\omni
OMNI_DYNAMIC_LIB = msvcstub.lib -NODEFAULTLIB:libcmt.lib -NODEFAULTLIB:libcmtd.lib
CORBA_CPPFLAGS = -D__WIN32__ -D__x86__ -D__NT__ -D__OSVERSION__=4
CORBA_LIB = omniORB304_rt.lib omnithread2_rt.lib \
$(OMNI_DYNAMIC_LIB) \
wsock32.lib advapi32.lib \
-libpath:$(TOP)\lib\x86_win32
CXXFLAGS = -O2 -MD -GX $(CORBA_CPPFLAGS) $(DIR_CPPFLAGS)
CXXLINKOPTIONS =
.SUFFIXES: .cc
.cc.obj:
cl /nologo /c $(CXXFLAGS) /Tp$<
all:: SysPropC.exe
SysPropC.exe: SysPropSK.obj SysPropC.obj
link -nologo $(CXXLINKOPTIONS) -out:$@ $** $(CORBA_LIB)
clean::
-del *.obj
-del *.exe
veryclean::
-del *.obj
-del echoSK.* echo.hh
-del *.exe
SysProp.hh SysPropSK.cc: SysProp.idl
$(TOP)\bin\x86_win32\omniidl -T -bcxx -Wbh=.hh -Wbs=SK.cc -Wbtp SysProp.idl
3.5.4. 编译程序,执行如下命令nmake -f dirc.mak3.5.5. 测试 在第4控制台
SysPropC IOR:XXX JAVA.HOME
本测试如下所示
D:\mywork\t1>syspropc IOR:000000000000001049444c3a53797350726f703a312e3000000000
010000000000000054000101000000000c3139322e3136382e302e31000ca7000000000018afabca
fe00000002a999dbeb00000008000000000000000000000001000000010000001400000000000100
20000000000001010000000000 os.name
os.name=Windows 2000
我在青岛。
30岁的人了,没房子没地,没老婆没钱,
只有踢球找点安慰了
真后悔学计算机,当初想去学纳米材料,被老妈劝成计算机,一错再错啊
我几乎每个星期都踢球.
iorili,你是哪个公司的,我有同学在东软,下次踢球可否叫我 QQ93654096
绝对实力派外援:)
俺是先喜欢踢球后偶尔学学delphi的。所以delphi还没球玩的转。 sixgj圈A163.com
在这还不知道哪有踢球的地方!
有时间真想磨磨脚了,现在好痒呀!
[email protected]
来报名吧:
我第一个:[email protected]
俺也是先喜欢踢球后偶尔学学delphi的。所以delphi还没球玩的转。
我大学时获得过两届的的最佳射手,不知道我能不能参加呀。可以的话给我联系:
电邮 [email protected]
QQ 86235336
[email protected]
10块钱一小时。真值呀!可是我还没有在正式的草坪上踢过呢!那种感觉想都想像不到呀!只能憧憬了!有机会真想踢上他几个10块钱!
是啊,不过比上网还是贵很多,我是在人工草皮也就是塑料草皮上踢的,感觉好可以,比那种劣质的草好
我喜欢踢前锋,虽然我上大学时候他们总让我踢后卫;:(
现在就是体力差了很多,其他估计还在;
联系我:MSN:[email protected]
[email protected]