Habe ich geprüft, das Object ist wohl zugeordnet, beide varIs.. functions liefern false zurück, hier mal der komplette Code.
Code:
OleInitialize(nil); // 2024.05.11.uc // CoInitialize( nil );
try
GWobj := CreateOleObject( 'NovellGroupWareSession' );
except
on E :
exception do begin
FehlerOK( 'CreateOleObject( "NovellGroupWareSession" ) fehlgeschlagen.' + crlf + E.Message );
result := -1;
end;
end;
if VarIsNull(GWobj) then FehlerOK( 'GWobj Null');
if VarIsEmpty(GWobj) then FehlerOK( 'GWobj Empty');
try
GwRAobj := GWobj.Login( User, '/ipa-' + Host + ' /ipp-' + Port, Pass, 1 );
gwInitOK := true;
except
on E :
exception do begin
FehlerOK( 'GWobj.Login() fehlgeschlagen.' + crlf + E.Message );
result := -2;
end;
end;
Erfahrung ist etwas, daß man erst bekommt, kurz nachdem man es dringend gebraucht hätte.