Удаленный запуск / доступ к приложениям в Delphi - PullRequest
Новая
       3

Удаленный запуск / доступ к приложениям в Delphi

2 голосов
/ 05 сентября 2011

My Delphi 5 Windows может связываться с моим приложением Point of Sale (POS.exe) после создания объекта OLE при создании формы: 

procedure TForm1.SetupEposLink;
begin
  EposServer := CreateOLEObject('POS.Server');
  {Hide the Server}
  if HideLmPos then
    EposServer.InVisible;
end;

По запросу пользователя элементы затем передаются.к нему с помощью таких методов, как: 

EposServer.SetMemberDetails(FieldByName('Name').AsString,FieldByName('Member Id').AsString);

EposServer.SellItemAsString(ActCode,'1',FloatToStr(Price),BDate,BTime,RetValue);

EposServer.IsServerOn(Answer1);

EposServer.Visible;

Это никогда не было проблемой до сих пор, когда POS установлен на сервере терминалов для удаленного доступа, и процесс просто останавливается при попытке вызвать один изСпособы.

Нужно ли специально устанавливать приложение локально или есть обходной путь, который я могу использовать, чтобы создать лучшую ссылку на местоположение приложения?

большое спасибо

1 Ответ

2 голосов
/ 06 сентября 2011

Возможно, вам потребуется настроить DCOM. Проверьте параграф под названием «Настройка DCOM на Windows XP и Windows Server 2003» здесь .

Я не уверен, что DCOM может удаленно запустить ваш сервис, но его нужно зарегистрировать в обоих местах, и вы используете DCOM Config для указания машины, на которой размещен сервис.

Во-вторых, вы можете обратиться за помощью к ComObj.CreateRemoteComObject ,

...