Array als Parameter

[HaHe]

Hallo alle zusammen !!

Ich habe eine Com Server programmiert, welcher eine Array als Variant übergeben soll.
(D7 W2003 Server WXP Clienten)

<pre> TEMPTabelle.FieldDefs.Add('tData' ,ftVariant ,0 ,false);

...

ArrayDATA[i] := VarArrayOf([Tabelle1.RecordCount,
Tabelle1.FieldByName(F1).AsInteger,
Tabelle1.FieldByName(F2).AsInteger,
Tabelle1.FieldByName(F4').AsInteger,
Tabelle1.FieldByName(F3).AsInteger,
Tabelle1.FieldByName(F5').AsString]);
Data := ArrayDATA;

...

TEMPTabelle.FieldByName('tData').AsVariant := Data;

</pre>

Lasse ich hierbei den Server und den Clienten auf der selben Maschine laufen habe ich kein Problem. Sind Server und Clienten 2 verschiedene Rechner stürtzt die funktion mit einer OLEVariant Exception ab.

Kurz zur Erklärung:

Ich möchte zu jedem Datensatz in der Tabelle Tabelle1 eine Selektion über eine abhängige Tabelle machen und diese als Array mit zurück übergeben.

Dankeschön in voraus

HaHe

[Andreas Kosch]

Hallo,

die Suche nach der Zeichenkette "SafeArray" liefert hier im FORUM einige Einsprungpunkte in die Problemlösung zurück

[HaHe]

Sehr geehrter Herr Kosch,
ersteinmal dankeschön für Ihre Unterstüzung.

Ich habe bereits in Ihrem Buch über die PSafeArray Befehle gelesen kann diese aber nicht verwenden, da mein Delphi (7 Architect) diesen Befehl nicht kennt.

Entweder stehe ich auf der Leitung und/oder ich muß noch iregendwelche Units einbinden.

Mit freundlichen Grüßen

Hah

[Andreas Kosch]

Hallo,

&gt;..da mein Delphi (7 Architect) diesen Befehl nicht kennt.

es handelt sich um Win32-API-Funktionen, so dass diese rein technisch gesehen in jeder Delphi-Version genutzt werden können. Im Fall von Delphi 7 hat Borland diese Win32-API-Funktionen in der Unit <b>ActiveX</b> gekapselt