Forte/Visibroker/C++ question

Question

I am trying to have a C++ client (MSVC++ 5.0) communicate via Visibroker
(3.2) with a Forte Service Object (3.0.G.2) and have had some success.
I have successfully received a sequence (array) of TextData from Forte,
but am having problems with retrieving strings returned from a method
call which returns a sequence of objects.
Here's the scenario:
The Forte service object is called 'InfoSO' whose service object base
class is 'InfoService'. The class InfoService has a method 'getNodes'
whose return type is 'Array of Node'. Upon invoking this method, an
array consisting of one 'Node' whose attribute 'mName' is set to 'Node1'
is returned. When I try to invoke Node's 'getName()' accessor, I get
the following Visibroker exception:
Exception: CORBA::OBJECT_NOT_EXIST
Minor: 0
Completion Status: NO
I have included the Forte wex and C++ files below. In order to compile
the C++ file, I have commented out the line from the C++ header file
(corba1_c.h) generated after invoking idl2cpp as follows:
//typedef CORBA::Long int;
Has anyone had a similar situation and found a solution?
Thanks for any suggestions.
==================== Forte wex file =====================
begin TOOL CompFramework;
includes Framework;
HAS PROPERTY IsLibrary = FALSE;
-- START FORWARD CLASS DECLARATIONS
forward Node;
-- END FORWARD CLASS DECLARATIONS
-- START FORWARD CURSOR DECLARATIONS
-- END FORWARD CURSOR DECLARATIONS
-- START CONSTANT DEFINITIONS
-- END CONSTANT DEFINITIONS
-- START C DATA TYPE DEFINITIONS
-- END C DATA TYPE DEFINITIONS
-- START CLASS DEFINITIONS
class Node inherits from Framework.Object
has public attribute mName: Framework.TextData;
has public method getName: Framework.string;
has public method Init;
has public method setName(input Name: Framework.string);
has property
shared=(allow=off, override=on);
transactional=(allow=off, override=on);
monitored=(allow=off, override=on);
distributed=(allow=on, override=on, default=off);
end class;
-- END CLASS DEFINITIONS
-- START SERVICE OBJECT DEFINITIONS
-- END SERVICE OBJECT DEFINITIONS
-- START CURSOR DEFINITIONS
-- END CURSOR DEFINITIONS
-- START TYPEDEF DEFINITIONS
-- END TYPEDEF DEFINITIONS
-- START METHOD DEFINITIONS
method Node.getName: Framework.string
begin
return mName.Clone(deep=TRUE).Value;
end method;
method Node.Init
begin
super.Init();
mName = new();
end method;
method Node.setName(input Name: Framework.string)
begin
mName = TextData(Name).Clone(deep=TRUE);
end method;
-- END METHOD DEFINITIONS
HAS PROPERTY
CompatibilityLevel = 0;
ProjectType = APPLICATION;
Restricted = FALSE;
MultiThreaded = TRUE;
Internal = FALSE;
LibraryName = 'compfram';
end CompFramework;
begin TOOL Server;
includes CompFramework;
includes Framework;
HAS PROPERTY IsLibrary = FALSE;
-- START FORWARD CLASS DECLARATIONS
forward InfoService;
forward StartUp;
-- END FORWARD CLASS DECLARATIONS
-- START FORWARD CURSOR DECLARATIONS
-- END FORWARD CURSOR DECLARATIONS
-- START CONSTANT DEFINITIONS
-- END CONSTANT DEFINITIONS
-- START C DATA TYPE DEFINITIONS
-- END C DATA TYPE DEFINITIONS
-- START CLASS DEFINITIONS
class InfoService inherits from Framework.Object
has public method getNodes: Framework.Array of CompFramework.Node;
has public method Init;
has property
shared=(allow=off, override=on);
transactional=(allow=off, override=on);
monitored=(allow=off, override=on);
distributed=(allow=on, override=on, default=off);
end class;
class StartUp inherits from Framework.Object
has public method Init;
has public method StartMethod;
has property
shared=(allow=off, override=on);
transactional=(allow=off, override=on);
monitored=(allow=off, override=on);
distributed=(allow=off, override=on);
end class;
-- END CLASS DEFINITIONS
-- START SERVICE OBJECT DEFINITIONS
service InfoSO : Server.InfoService = (DialogDuration = MESSAGE,
Visibility = environment,
FailOver = FALSE,
LoadBalance = TRUE) HAS PROPERTY extended = (UUID =
'8A0E2800-387A-11D2-
BFA0-DEA162A6AA77');
-- END SERVICE OBJECT DEFINITIONS
-- START CURSOR DEFINITIONS
-- END CURSOR DEFINITIONS
-- START TYPEDEF DEFINITIONS
-- END TYPEDEF DEFINITIONS
-- START METHOD DEFINITIONS
method InfoService.getNodes: Framework.Array of CompFramework.Node
begin
Nodes: Array of Node = new();
aNode: Node = new();
aNode.setName('Node1');
Nodes.AppendRow(aNode);
return Nodes;
end method;
method InfoService.Init
begin
super.Init();
end method;
method StartUp.Init
begin
super.Init();
end method;
method StartUp.StartMethod
begin
a : InfoService = InfoSO;
end method;
-- END METHOD DEFINITIONS
HAS PROPERTY
CompatibilityLevel = 0;
ProjectType = APPLICATION;
Restricted = FALSE;
MultiThreaded = TRUE;
Internal = FALSE;
LibraryName = 'server';
StartingMethod = (class = StartUp, method = StartMethod);
end Server;
====================== C++ file ===============================
#include <fstream.h>
#include <iostream>
#include <string>
#include "corba1_c.h"
int
main(int argc, char** argv)
try
CORBA::ORB_var orb = CORBA::ORB_init(argc, argv);
ifstream from("c:\\forte\\etc\\iiopior\\server.ior");
char ch;
std::string ior_str;
while (from.get(ch))
ior_str += ch;
from.close();
CORBA::Object_var obj;
obj = orb->string_to_object( ior_str.c_str() );
Server::InfoService_var InfoSO;
InfoSO = Server::InfoService::_narrow(obj);
CompFramework::sequence_Node* nodes;
nodes = InfoSO->getNodes();
for (CORBA::ULong i=0; i<nodes->length(); i++)
cout << (*nodes)->getName() << endl;
catch(const CORBA::Exception& e)
cerr << e << endl;
return 1;
return 0;
======================== end of files ===================
To unsubscribe, email '[email protected]' with
'unsubscribe forte-users' as the body of the message.
Searchable thread archive <URL:http://pinehurst.sageit.com/listarchive/>

Answer 1

I just knocked up a quick C console "Hello World" program, including
ddeml.h, and got compilation errors.
Using borlands free C++ 5.5 compiler.
I don't think you're supposed to include that include file directly.
I done a search of the standard system include files, and it's already imported in windows.h.
When I include windows.h instead of ddeml.h, it compiles and runs.
I had to force C++ compilation though.
Compile line to compile:
bcc32.exe -P test.c
The -P forces a C++ compile on t C source.
Within my directory, I had a bcc32.cfg file, with my custom compiler switches too... This file contained the following, which can normally be specified on the command line. ( the paths will be different for you )
-I"d:\Compilers\Bcc55\include;d:\Compilers\Borland\CBuilder3\Include\VCL;d:\Compilers\jdk1.3.1_01\include;d:\Compilers\jdk1.3.1_01\include\win32"
-L"d:\Compilers\Bcc55\lib"
-3
-a8
-tWC
-RT
regards,
Owen