Ich bekomme bei der Zuweisung des Servers eine
Exception.
Habe mich eigentlich recht genau an den Quelltext meines Vorredners gehalten.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
try
JSession.Server := sServer;
JSession.Username := sUser;
JSession.Password := sPW;
JSession.Resource := '
Delphi';
JSession.DoConnect(false, jatAuto);
except
on E:
Exception do
showmessage(E.
Message);
end;
end;
Ich konnte den Fehler bis zur
Unit OleServer verfolgen.
Ab hier wird es mir allerdings zu hoch und ich steige nicht
mehr durch.
Delphi-Quellcode:
function TOleServer.GetServer: IUnknown;
var
HR: HResult;
ErrorStr:
string;
begin
case ConnectKind
of
ckNewInstance:
Result := CreateComObject(FServerData^.ClassId);
ckRunningInstance:
begin
HR := GetActiveObject(FServerData^.ClassId,
nil, Result);
if not Succeeded(HR)
then
begin
ErrorStr := Format(sNoRunningObject, [ClassIDToProgID(FServerData^.ClassId),
GuidToString(FServerData^.ClassId)]);
raise EOleSysError.Create(ErrorStr, HR, 0);
end;
end;
ckRunningOrNew:
if not Succeeded(GetActiveObject(FServerData^.ClassId,
nil, Result))
then
Result := CreateComObject(FServerData^.ClassId); <--- hier wirft er die
Exception
ckRemote:
{Highly inefficient: requires at least two round trips - GetClassObject + QI}
Result := CreateRemoteComObject(RemoteMachineName, FServerData^.ClassID);
end;
end;
Hat jemand ein ähnliches Problem oder vielleicht sogar eine Lösung bzw. Erklärung?
Danke schön
