Delphi. UniGUI. Как удаленно, с браузера клиентской машины запустить EXE файл на серверной машине?

Итак, есть у нас UniGUI приложение, написанное на Delphi. Возьмем самый обычный вариант со StandAloneServer. Я разместил его на Azure.

В MainForm клиентского приложения UniGUI я просто прописал

ErrorCode:=shellAPI.ShellExecute(Handle, 'open',
  PWideChar('c:\Windows\System32\notepad.exe'), nil, nil, SW_SHOWNORMAL);

1 2	ErrorCode:=shellAPI.ShellExecute(Handle, 'open', PWideChar('c:\Windows\System32\notepad.exe'), nil, nil, SW_SHOWNORMAL);

Запустил сервер UniGUI на хосте (у меня аккаунт в Azure). В браузере набрал

yourhosthere:8077

Нажал на кнопку, запускающую данный код. И что Вы думаете произошло далее?))

Блокнот запустился на серверной машине.

Таким образом можно запускать почти любые EXE, если у нас на сервере работает UniGUI сервер. Это наш проводник так сказать на серверной машине.

Весь код отработал в браузере. А что делать, если нужно дать команду не из браузера, а скажем, из другой программы? Об этом следующий пост.

This entry was posted in Delphi, UniGui. Bookmark the permalink.

MY PROJECTS