Jaguarorb my_orb
Namingcontext my_nc
Namecomponent the_name []
The integer li_filenum
Long ll_ret
String ls_orb
If not fileexists (" orb. Ior ") then
Messagebox (" prompt ", "health server IOR address file does not exist, please try again after checking")
Return false
End the if
Li_filenum=fileopen (" orb. Ior ")
Fileread (li_filenum ls_orb)
Fileclose (li_filenum)
My_orb=create jaguarorb
Ll_ret=my_orb. Init (RBRetryCount=3, ORBRetryDelay="1000")
Ll_ret=my_orb. String_to_object (ls_orb my_corbaobj)
Ll_ret=my_corbaobj. _narrow (my_nc, "omg.org/CosNaming/NamingContext")
Ii_syscode=5
Try
The_name [1]. Id="MZYL
"The_name [1]. Kind="Service"
My_corbaobj=my_nc. Resolve (the_name) & lt; - an Exception is thrown into a place like this CORBA System Exception: CORBA_BAD_OPERATION at 44 in line function of_login of object n_szyb_clinic.
My_corbaobj. _narrow (ip_intmz, "hi/modMZ/intMZ")
The_name [1]. Id="DZ
"The_name [1]. Kind=""
My_corbaobj=my_nc. Resolve (the_name)
My_corbaobj. _narrow (ip_intdz, "hi/modDZ/intDZ")
The catch (exception e)
Messagebox (" Exception Raised!" , um participant etmessage ())
Return false
End the try
I there a simple test program, need to leave a E-mail or QQ: 69686166
CodePudding user response:
Ha ha ha, brother, shenzhen health care is not that...CodePudding user response: