Wenn wir schon auf grundlegende Probleme in dem Source eingegangen wird, möchte ich noch eine Anmerkung loswerden.
Delphi-Quellcode:
function TOPCClient.WriteItem(
Name:
String; ItemValue: Variant): Boolean;
Var
I : Integer;
begin
try
for I := 0
to Length(OPCServerItemArray)-1
do begin
...
end;
...
except
on E:
Exception do begin
Meldung(0,'
TOPCClient.WriteItem - Exception: ' + E.
Message + '
info: ' +
Name + '
WriteIndex: ' + IntToStr(WriteIndex) + '
I = ' + IntToStr(I));
end;
end;
end;
Das "I" in deiner
Exception ist mit Vorsicht zu genießen, da Schleifenvariablen nach dem Durchlauf undefiniert sein können. Ob das bei einer
Exception in der Schleife auch so ist, entzieht sich allerdings meiner Kenntnis. Verlassen würde ich mich jedenfalls nicht darauf.