Announcement

**Andreas Kosch** · 28.01.2004, 08:22

Hallo,

>Var abcFile : File of abcRec;

bereits beim Ausliefern der ersten Version der Delphi.NET Preview hat Borland in dem Papier Delphi Language Changes darauf hingewiesen, dass diese Technik unter .NET nicht mehr zur Verf�gung steht. Im Detail liest sich das dann so:

"File of <type>: This construct cannot be implemented because the Delphi compiler cannot know the size of <type> on the target platform (e.g. a hand held device). The JIT compiler for the specific platform determines the size of intrinsic types."

>Wie sieht der aequivalente Code in D8 aus?

Entweder definiert man m�hsam diese Struktur �ber das Attribut [StructLayout(LayoutKind.Sequential)] selbst (wobei das generelle Problem weiterhin relevant bleibt), oder man lagert diese "Low-Level-Funktion" in eine DLL aus, die mit einer fr�heren Delphi-Version compiliert wird. Delphi 8 bindet dann �ber P/Invoke nur diese DLL ein, um die Daten zu verarbeiten.

&#10

**Marco Verdieri** · 28.01.2004, 22:57

Vielen Dank, Herr Kosch, f�r Ihre schnelle Antwort.
Dazu kann ich eigentlich nur sagen, unglaublich aber wahr. Es soll also in Zukunft nicht mehr m�glich sein komplexe Datenstrukturen auf der Festplatte abzulegen. Und das ganze wird noch als Fortschritt angepriesen.

Wie soll man denn in Zukunft folgende Datenstruktur speichern:

<PRE>
Type
Denivel = Record
Status : integer;
Addition : integer;
EZ : array [0..16,0..35] of integer;
end;
</PRE>
Hat der Billi jetzt einfach entschieden, dass so etwas nicht mehr abzuspeichern ist.
In meinen Applikationen wimmelt es von solchen Strukturen, welche ich in Dateien speichern muss.
Nat�rlich ist es mittelfristig eine L�sung so etwas in einer DLL zu tun und mit einem alten Compiler zu compilieren.
Aber in 5 Jahren ist alles Schrott was jetzt aktuell ist und dann stehe ich definitiv im Regen mit meinen Daten. Da kann ich mir ja schon mal �berlegen, wann ich in Fr�hpension gehen soll und meine Anwender auf einen schleichenden Abgang vorbereiten.
In Ihrem Buch "Crashkurs .NET f�r Delphianer" beschreiben Sie "FileStream" ".Create" usw. Ist hiermit auch keine L�sung m�glich? Bin ich denn ein totaler Exot, dass ich solche Datenstrukturen speichern muss?

Hoch lebe der "Fortschritt".

Herzliche Gr�sse
Marco Verdier

**Andreas Kosch** · 29.01.2004, 08:39

Hallo,

>Es soll also in Zukunft nicht mehr m�glich sein komplexe Datenstrukturen auf der Festplatte abzulegen

Nein - ganz im Gegenteil, unter .NET wird das sogar viel einfacher und es gibt mehrere Techniken dazu. Der Unterschied zu fr�her besteht darin, dass nun Objektinstanzen in der Datei gespeichert werden, aber keine feststehenden Datenbl�cke, deren Teile sp�ter �ber vorher festgelegte Offset-Adressen extrahiert werden m�ssen. Es ist die Aufgabe dieser Objekte, sich selbst zur Laufzeit darum zu k�mmern, dass auf jeder Hardware (Win32 oder Win64 oder PocketPC) die "wiederbelebte" Instanz ein funktionst�chtige Kopie des Originals ist.
 
>In meinen Applikationen wimmelt es von solchen Strukturen, welche ich in Dateien speichern muss.
 
Hier gibt es die folgenden Alternativen, die ich nach der "Bequemlichkeit" (Einfachheit) geordnet absteigend sortiert aufliste: 
a) DataSet-Instanz schreibt sich �ber den Aufruf einer Methode selbst in eine Datei 
b) Konfigurationsklasse serialisiert sich selbst in eine Datei 
c) Die typsichere Struktur wird als bin�rer Datenblock in eine Datei geschrieben.
 
Ein Beispiel f�r b) k�nnte so aussehen (ich habe dazu nur ein C#-Beispiel am Lager): Zuerst wird eine �ber das Serializable-Attribut gekennzeichnete eigene Klasse erstellt, welche die zu speichern Daten objektorientiert verpackt und �ber Objektfelder, Eigenschaften und Methoden ver�ffentlicht:
<pre>
using System;
 
namespace CSharpSerialization
{
/// 
/// Summary description for Class1.
/// 
[Serializable()]
public class OSDeveloperClass
{
public OSDeveloperClass()
{
//
// TODO: Add constructor logic here
//
}
 
public OSDeveloperClass(string sName, string sVorname)
{
Name = sName;
Vorname = sVorname;
}
 
public string Name;
public string Vorname;
public DateTime Geburtstag;
 
public string GetDeveloperInfo()
{
return String.Format("Hallo, ich bin {0} {1} und wurde am {2

} geboren.",
Vorname, Name, Geburtstag);
}
}
}
</pre>
Das Programm muss dann nur �ber die Methoden Serialize und Deserialize daf�r sorgen, dass die Objektinstanz ihren aktuellen Zustand in eine Datei schreibt und bei Bedarf erneut aus einer Datei wiederherstellt:
<pre>
using System.IO;
using System.Runtime.Serialization.Formatters.Binary
...
 
private void Button1_Click(object sender, System.EventArgs e)
{
OSDeveloperClass aDev = new OSDeveloperClass("Kosch", "Andreas");
aDev.Geburtstag = Convert.ToDateTime("??.??.????");
FileStream aFS = new FileStream(@"C:\Temp\SerObj2.dat", FileMode.OpenOrCreate);
BinaryFormatter aBF = new BinaryFormatter();
aBF.Serialize(aFS, aDev);
aFS.Close();
}
 
private void Button2_Click(object sender, System.EventArgs e)
{
OSDeveloperClass aDev;
FileStream aFS = new FileStream(@"C:\Temp\SerObj2.dat", FileMode.Open);
BinaryFormatter aBF = new BinaryFormatter();
aDev = (OSDeveloperClass)aBF.Deserialize(aFS);
MessageBox.Show(aDev.GetDeveloperInfo());
}
</pre>

Ein Beispiel f�r c) k�nnte so aussehen (ich habe dazu nur ein C#-Beispiel am Lager):
<pre>
private const string cFILENAME = @"C:\Temp\Test.data";
private FileStream fs;
private int iArraySize;
private double[] da;
 
public void DoWrite()
{
fs = new FileStream(cFILENAME, FileMode.CreateNew);
BinaryWriter w = new BinaryWriter(fs);
// Array-Gr��e an den Dateianfang schreiben
iArraySize = 10;
w.Write((int)iArraySize);
// Daten anh�ngen
for (int i = 0; i < iArraySize; i++)
{
w.Write((double)i);
}
w.Close();
}
 
public void DoRead()
{
fs = new FileStream(cFILENAME, FileMode.Open, FileAccess.Read);
BinaryReader r = new BinaryReader(fs);
// Gr��e des Array vom Dateianfang einlesen
iArraySize = r.ReadInt32();
da = (double[])Array.CreateInstance(typeof(double), iArraySize);
// Nachfolgende Daten einlesen
for (int i = 0; i < iArraySize; i++)
{
da[i] = r.ReadDouble();
}
r.Close();
}
 
private void buttonWrite_Click(object sender, System.EventArgs e)
{
DoWrite();
statusBar1.Text = "Daten wurden geschrieben";
}
 
private void buttonRead_Click(object sender, System.EventArgs e)
{
DoRead();
statusBar1.Text = "Daten wurden gelesen";
foreach (double dValue in da)
{
listBox1.Items.Add(dValue.ToString());
}
}
</pre>
 
Meine erste Antwort (Win32-DLL) bezog sich somit nur auf die Aufgabe, das "alte" Datendateien eingelesen werden m�ssen, die vorher von der Win32-Programmversion geschrieben wurden.
 
P.S: 
Wenn wir ehrlich sind, liegen die Vorteile der neuen .NET-Regeln auf der Hand. Bisher gab es zum Beispiel beim Wechsel zu einer neueren Delphi-Version auch das Problem, dass durch die ge�nderte Speicherausrichtung von bestimmten Datentypen der alte bin�re Dateiinhalt nicht mehr lesbar war. �ber bestimmte Schl�sselw�rter wie zum Beispiel packed konnten wir korrigierend eingreifen, aber das Problem (Risiko) war permanent da. Mit .NET entsch�rft sich die Situation, da es keinen "unbekannten bin�ren Dateiinhalt" mehr gibt, sondern alle Informationen auf typsicheren Weg erreichbar sind

**Marco Verdieri** · 31.01.2004, 23:33

Vielen Dank Herr Kosch f�r Ihre M�he.
Ich werde �bungshalber versuchen das Beispiel mit SharpDevelop zum Laufen zu kriegen. Allerdings hilft mir das immer noch nicht meine bestehenden Daten in das neue Dateiformat zu konvertieren. Ich kann ja die alten Dateien nicht unter Delphi.NET �ffnen und in die neue Datenstruktur �bernehmen. Die Wegwerfmentalit�t hat bei Mikroschrott ganz b�se zugeschlagen. Da muss ich Borland doch ein Kr�nzchen winden, dort ist man wenigstens bem�ht mit der VCL.NET bestehenden Code teilweise zu retten. Na, ja und in einigen Jahren schmeissen wir wieder alles weg, wenn der gute Billi entschieden hat, dass jetzt wieder alles veraltet ist. Hoch lebe der Fortschritt.
Freundliche Gr�sse
Marc

**Andreas Kosch** · 02.02.2004, 08:42

Hallo,

>Allerdings hilft mir das immer noch nicht meine bestehenden Daten in das neue Dateiformat zu konvertieren.

F�r den Import von alten Daten muss die eigene Delphi 8-Anwendung einmalig auf eine �ber P/Invoke geschriebene Hilfs-DLL zugreifen, um die von der DLL erhaltenen "alten" Daten in das neue Format zu schreiben

Announcement

Delphi 8 und File of

Delphi 8 und File of

Comment

Comment

Comment

Comment

Comment