Announcement

**Andreas Kosch** · 24.03.2004, 11:14

Hallo,

ich habe nur ein Delphi-Beispiel f�r einen packed record zur Hand. Angenommen, ein "altes" Win32-Delphi-Programm hat eine strukturierte Datendatei geschrieben:
<pre>
type
TPackedRec = packed record
ID : Integer;
Name : String[15];
SI : Shortint;
Kat : Byte;
Rem : String[10];
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
aRec : TPackedRec;
f : File Of TPackedRec;
begin
aRec.ID := 1;
aRec.Name := 'ABCDEFGHIJKLMNO';
aRec.SI := 2;
aRec.Kat := 3;
aRec.Rem := '1234567890';
AssignFile(f, 'C:\Temp\D7.dat');
{$I-}
Rewrite(f);
{$I+}
Write(f,aRec);
CloseFile(f);
end;
</pre>
Um den bin�ren Inhalt dieser Datei einzulesen und im C#-Programm verf�gbar zu machen, muss das Speicherabbildung des Delphi-Records explizit in C# deklariert werden. Dazu dient das StructLayout-Attribut, um bei der Hilfsstruktur die Daten aus der Datei in den Arbeitsspeicher umkopieren zu k�nnen. Um die feste Zeichenl�nge bei den Strings zu ber�cksichtigten, wird das Attribut MarshalAs(UnmanagedType.ByValArray,SizeConst=xy z) genutzt, um ein char-Array der richtigen Gr��e anzufordern.
<pre>
/*
Speicherabbild der Packed Record-Struktur von Delphi f�r die .NET-Welt
deklarieren (System.Runtime.InteropServices �ber using einbinden).
Zus�tzlich zu den String-Eintr�gen wird jeweils ein Hilfseintrag f�r die
Stringl�nge ben�tigt. Die Strings werden als char-Array abgelegt.
*/
 
[StructLayout(LayoutKind.Sequential,Pack=0,CharSet= CharSet.Ansi,Size=34)]
private struct PackedRecNative
{
internal Int32 ID;
internal byte NameLen;
[MarshalAs(UnmanagedType.ByValArray,SizeConst=15)]
internal char[] Name;
internal sbyte SI;
internal byte Kat;
internal byte RemLen;
[MarshalAs(UnmanagedType.ByValArray,SizeConst=10)]
internal char[] Rem;
}
 
/*
Struktur f�r die Nutzdaten aus der Datei
*/
 
public struct PackedRec
{
public int ID;
public string Name;
public sbyte SI;
public byte Kat;
public string Rem;
}
 
private PackedRec ReadRecordData(System.IO.Stream s)
{
PackedRecNative aRawData;
int iRawDataSize = Marshal.SizeOf(typeof(PackedRecNative));
byte[] aData = new byte[iRawDataSize];
s.Read(aData, 0, iRawDataSize);
IntPtr aBuffer = Marshal.AllocHGlobal(iRawDataSize);
try
{
Marshal.Copy(aData, 0, aBuffer, iRawDataSize);
aRawData = (PackedRecNative)Marshal.PtrToStructure(aBuffer, typeof(PackedRecNative));
}
finally
{
Marshal.FreeHGlobal(aBuffer);
}
PackedRec aRec = new PackedRec();
aRec.ID = aRawData.ID;
aRec.Name = new String(aRawData.Name, 0, aRawData.NameLen);
aRec.SI = aRawData.SI;
aRec.Kat= aRawData.Kat;
aRec.Rem = new String(aRawData.Rem, 0, aRawData.RemLen);
return aRec;
}
 
private void ReadFile()
{
System.IO.FileStream fs = new System.IO.FileStream(@"c:\Temp\D7.dat", System.IO.FileMode.Open);
while (fs.Position < fs.Length)
{
PackedRec r = ReadRecordData(fs);
MessageBox.Show(r.Name, r.Rem);
}
}
 
private void button1_Click(object sender, System.EventArgs e)
{
ReadFile();
}
</pre&gt

Announcement

C# und Strukturen

C# und Strukturen

Comment