Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
procedure TDCOMConnection.DoConnect;
begin
if (FObjectBroker <> nil) then
begin
repeat
if FComputerName = '' then
FComputerName := FObjectBroker.GetComputerForGUID(GetServerCLSID);
try
SetAppServer(CreateRemoteComObject(ComputerName, GetServerCLSID) as IDispatch);
FObjectBroker.SetConnectStatus(ComputerName, True);
except
FObjectBroker.SetConnectStatus(ComputerName, False);
FComputerName := '';
end;
until Connected;
end else if (ComputerName <> '') then
SetAppServer(CreateRemoteComObject(ComputerName, GetServerCLSID) as IDispatch) else
inherited DoConnect;
end;