reading binary file to struct

[Derrick]

I am trying to read a binary file into a struct, but am having trouble
getting all the data.

the struct and a snip of the code follows at the end of the message.
Expected results: 'Sai,,LW,'
Actual results: 'i,,L,'

It appears that only the last letter of the sTmCode is assigned in the
struct.
It appears that only the first letter of the sPos is assisgned in the
struct.

I am sure I am missing something little, but can't see it. any ideas?

Thanks
Derrick

Struct:
[StructLayout(La youtKind.Sequen tial)]
struct PlayerIndexRec
{
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 3)] public string sTmCode;
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 2)] public string sNull1;
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 2)] public string sPos;
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 3)] public string sNull2;
}

Code:
PlayerIndexRec pir = new PlayerIndexRec( );
buf = br.ReadBytes(Ma rshal.SizeOf(pi r));
IntPtr buffer = Marshal.AllocHG lobal( Marshal.SizeOf( pir.GetType() ));
Marshal.Copy( buf, 0, buffer, Marshal.SizeOf( pir) );
pir = (PlayerIndexRec )Marshal.PtrToS tructure(buffer , pir.GetType() );
Marshal.FreeHGl obal( buffer );
Console.WriteLi ne("{0},{1},{2} ,{3}",
pir.sTmCode,
pir.sNull1,
pir.sPos,
pir.sNull2);

[Kevin Yu [MSFT]]

Hi Derrick,

First of all, I would like to confirm my understanding of your issue. From
your description, I understand that your deserialization code could not
deserialize a struct properly. If there is any misunderstandin g, please
feel free to let me know.

I think there might be something wrong with the size you have allocated for
the struct. You only allocated 3 chars for the first string member.
However, "Sai" actually consists of 4 chars. The system will add a '\0' at
the end of it automatically to indicate that the string is ended. So Would
you try to increase the SizeConst for each member?

[StructLayout(La youtKind.Sequen tial)]
struct PlayerIndexRec
{
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 4)] public string sTmCode;
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 2)] public string sNull1;
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 2)] public string sPos;
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 3)] public string sNull2;
}

HTH.

Kevin Yu
=======
"This posting is provided "AS IS" with no warranties, and confers no
rights."

[Derrick]

Thanks for the reply

I tried that prior to posting ie.
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 3)] public string sTmCode;
changed to this
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 4)] public string sTmCode;

The problem with that is that the struct is a different size than the data
in the file - so when I read the data, it goes out of alignment.

I have been able to read the file using VB6.0 with the following Type:
Type PlayerIndexRec
sTmCode As String * 3
sNull1 As String * 2
sPos As String * 2
sNull2 As String * 3
End Type

I found this text in help 'The behavior in managed code differs from the
Microsoft Visual Basic 6.0 behavior, which is not null terminated (for
example, MyString As String * 5).' Could I be using the wrong
UnmanagedType?

Derrick
"Kevin Yu [MSFT]" <v-****@online.mic rosoft.com> wrote in message
news:Aq******** ******@cpmsftng xa10.phx.gbl...

Hi Derrick,

First of all, I would like to confirm my understanding of your issue. From
your description, I understand that your deserialization code could not
deserialize a struct properly. If there is any misunderstandin g, please
feel free to let me know.

I think there might be something wrong with the size you have allocated
for
the struct. You only allocated 3 chars for the first string member.
However, "Sai" actually consists of 4 chars. The system will add a '\0' at
the end of it automatically to indicate that the string is ended. So Would
you try to increase the SizeConst for each member?

[StructLayout(La youtKind.Sequen tial)]
struct PlayerIndexRec
{
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 4)] public string sTmCode;
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 2)] public string sNull1;
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 2)] public string sPos;
[MarshalAs(Unman agedType.ByValT Str, SizeConst = 3)] public string sNull2;
}

HTH.

Kevin Yu
=======
"This posting is provided "AS IS" with no warranties, and confers no
rights."

[Kevin Yu [MSFT]]

Hi Derrick,

Since Strings in VB6 are fixed length, when converting to .NET apps, we
have to add VBFixedString(l ength) in the attribute. Please try to use the
following in VB.NET and deserialize it agiain. I haven't found an
equivalance in C#.

Structure PlayerIndexRec

<VBFixedString( 3),System.Runti me.InteropServi ces.MarshalAs(S ystem.Runtime.I n
teropServices.U nmanagedType.By ValTStr,SizeCon st:=3)> Public sTmCode As
String

<VBFixedString( 2),System.Runti me.InteropServi ces.MarshalAs(S ystem.Runtime.I n
teropServices.U nmanagedType.By ValTStr,SizeCon st:=2)> Public sNull1 As String

<VBFixedString( 2),System.Runti me.InteropServi ces.MarshalAs(S ystem.Runtime.I n
teropServices.U nmanagedType.By ValTStr,SizeCon st:=2)> Public sPos As String

<VBFixedString( 3),System.Runti me.InteropServi ces.MarshalAs(S ystem.Runtime.I n
teropServices.U nmanagedType.By ValTStr,SizeCon st:=3)> Public sNull2 As String
End Structure

HTH.

Kevin Yu
=======
"This posting is provided "AS IS" with no warranties, and confers no
rights."

[Derrick]

Thanks for the tip.

I converted the code to VB and tested, but am still getting the same
problem.

Following is code snippets - hopefully you can see something I am doing
wrong...
<struct>
Structure PlayerIndexRec
<VBFixedString( 3),
MarshalAs(Syste m.Runtime.Inter opServices.Unma nagedType.ByVal TStr,
SizeConst:=3)> Public sTmCode As String
<VBFixedString( 2),
MarshalAs(Syste m.Runtime.Inter opServices.Unma nagedType.ByVal TStr,
SizeConst:=2)> Public sNull1 As String
<VBFixedString( 2),
MarshalAs(Syste m.Runtime.Inter opServices.Unma nagedType.ByVal TStr,
SizeConst:=2)> Public sPos As String
<VBFixedString( 3),
MarshalAs(Syste m.Runtime.Inter opServices.Unma nagedType.ByVal TStr,
SizeConst:=3)> Public sNull2 As String
End Structure

<Deserialize function>
Private Function RawDeserialize( ByVal rawdatas As Byte(), ByVal anytype As
Type) As Object
Dim rawsize As Integer = Marshal.SizeOf( anytype)
If rawsize > rawdatas.Length Then
Return Nothing
End If
Dim buffer As IntPtr = Marshal.AllocHG lobal(rawsize)
Marshal.Copy(ra wdatas, 0, buffer, rawsize)
Dim retobj As Object = Marshal.PtrToSt ructure(buffer, anytype)
Marshal.FreeHGl obal(buffer)
Return retobj
End Function

<code to read data to struct>
With br
Do While .PeekChar <> -1
Dim pir As New PlayerIndexRec
buf = br.ReadBytes(Ma rshal.SizeOf(pi r))
pir = CType(RawDeseri alize(buf, pir.GetType()), PlayerIndexRec)
Console.WriteLi ne("tmCode: '{0}', sNull1: '{2}', sPos: '{1}', sNull2:
'{3}'", _
pir.sTmCode, _
pir.sPos, _
pir.sNull1, _
pir.sNull2)
Loop
br.Close()
End With

"Kevin Yu [MSFT]" <v-****@online.mic rosoft.com> wrote in message
news:f9******** *****@cpmsftngx a10.phx.gbl...

Hi Derrick,

Since Strings in VB6 are fixed length, when converting to .NET apps, we
have to add VBFixedString(l ength) in the attribute. Please try to use the
following in VB.NET and deserialize it agiain. I haven't found an
equivalance in C#.

Structure PlayerIndexRec

<VBFixedString( 3),System.Runti me.InteropServi ces.MarshalAs(S ystem.Runtime.I n
teropServices.U nmanagedType.By ValTStr,SizeCon st:=3)> Public sTmCode As
String

<VBFixedString( 2),System.Runti me.InteropServi ces.MarshalAs(S ystem.Runtime.I n
teropServices.U nmanagedType.By ValTStr,SizeCon st:=2)> Public sNull1 As
String

<VBFixedString( 2),System.Runti me.InteropServi ces.MarshalAs(S ystem.Runtime.I n
teropServices.U nmanagedType.By ValTStr,SizeCon st:=2)> Public sPos As String

<VBFixedString( 3),System.Runti me.InteropServi ces.MarshalAs(S ystem.Runtime.I n
teropServices.U nmanagedType.By ValTStr,SizeCon st:=3)> Public sNull2 As
String
End Structure

HTH.

Kevin Yu
=======
"This posting is provided "AS IS" with no warranties, and confers no
rights."

[Kevin Yu [MSFT]]

Hi Derrick,

Could you also show me the code in VB6 that serializes the object?

Kevin Yu
=======
"This posting is provided "AS IS" with no warranties, and confers no
rights."