CORBA::ORBit - J2SE CORBA hang up



Hi all.

I try to connect Perl(CORBA::ORBit 0.4.3) client to 
Java (J2SE 1.4.0-beta) server but it hangs up.
The point seems to be  at client.c (CORBA::ORBit)  this line:

 recv_buffer = giop_recv_reply_buffer_use_2(connection, request_id, TRUE);

Does anyone know to solve it?
Java server with Java client works well. 
And Perl server with Perl and Java client also works well.

[IDL]
module HelloMod {
  interface Hello {
    string getMessage();
  };
};

[Server(Java)]
import HelloMod.*;
import org.omg.CORBA.*;
import org.omg.PortableServer.*;
import org.omg.PortableServer.POA;
class HelloImpl extends HelloPOA {
  private ORB orb;
    public String getMessage() {
      System.out.println("Welcome Java");
      return "\nHello Java IDL world !\n";
    }
}
public class HelloServer {
    public static void main(String args[]) {
    try{
      ORB orb = ORB.init(args, null);
      POA rootpoa = (POA)orb.resolve_initial_references("RootPOA");
      rootpoa.the_POAManager().activate();
      HelloImpl helloImpl = new HelloImpl();

      org.omg.CORBA.Object ref = rootpoa.servant_to_reference(helloImpl);

      String str = orb.object_to_string(ref);
      java.io.PrintWriter out = new java.io.PrintWriter(
            new java.io.FileOutputStream("Hello.ref"));
      out.println(str);
      out.flush();
      System.out.println("HelloServer Startup");
      orb.run();
    }
    catch (Exception e) {
      System.err.println("ERROR: " + e);
      e.printStackTrace(System.out);
    }
    System.out.println("HelloServer terminating");
  }
}

[Client(Perl)]
#!/usr/bin/perl -w
use strict;
use CORBA::ORBit idl => [ qw(HelloMod.idl) ];
use Error qw(:try);
my $orb = CORBA::ORB_init("orbit-local-orb");
open IOR, "Hello.ref";
my $ior = <IOR>;
close IOR;
chomp($ior);
print length($ior), "\n";
my $account = $orb->string_to_object($ior);
print "ACCOUNT:$account\n";
print $account->getMessage(); 

[Result]
308
ACCOUNT:HelloMod::Hello=SCALAR(0x80d10d0)
Welcome Java
(Not terminate...)

==============================================
Kawai, Takanori(Hippo2000)
   Mail: GCD00051@nifty.ne.jp kwitknr@cpan.org
   http://member.nifty.ne.jp/hippo2000
==============================================


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]