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
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
Comment