m.burkhardt
Joined: 02 Sep 2008 Posts: 26
|
Posted: Wed Jun 08, 2011 10:33 am Post subject: CAST from System.Object to e.g. INTEGER*4 or CHARACTER*4 |
|
|
Hello, I know I have posted an simillar topic and I'am annoying! But need strongly help. Here are more Information!
I want to Cast an .NET System.Object to Fortran Datatypes like INTEGER*2, INTEGER*4 or CHARACTER*?
The INTEGER value I must receive is 1 but if I print the Value after "transfer" Function it looks like 32123455.
The CHARACTER Value should be "28VA1" but after print I see binary character.
I think I get a pointer from the DOTNETGetObjectValue(nIndex) Method.
Code: |
...
OBJECT("System.Object[]") :: oR
OBJECT("System.Int32") :: nResult
OBJECT("System.String") :: sString
INTEGER*4 VALUE
CHARACTER*10 STR
oR = NEW@("System.Object[],2)
! Get Object and want to Cast to Integer*4
oR(1) = DOTNETGetObjectValue(1)
! CAST ????
nResult = CAST@(oR(1), "System.Int32")
VALUE = transfer(nResult ,VALUE)
print *,VALUE
! Get Object and want to Cast to CHARACTER*6
oR(2) = DOTNETGetObjectValue(2)
! CAST ????
sString = CAST@(oR(2), "System.String")
STR = transfer(sString,STR)
print *,STR
|
So what can I do! I need strongly help please!
Greetings from Germany
Michael |
|