D
darkcoder
привет
написал сервис
работает.
понадобилось сделать форму на нем c webbrowserom
переписал сервис из program в unit
но вот проблема, как мне вызвать процедуру запуска webbrowsera?
кусок кода запуска сервиса
что я не пытался сделать, и sender tobject, и без, и так и сяк, вобщем неполучается
запустить TEST
примерно как выглядит функция TEST:
получается что из "консольного" кода нельзя обратиться к компоненту на форме?
если можно то как правильно написать??
написал сервис
работает.
понадобилось сделать форму на нем c webbrowserom
переписал сервис из program в unit
но вот проблема, как мне вызвать процедуру запуска webbrowsera?
кусок кода запуска сервиса
Код:
procedure ServiceProc(Argc: DWORD; var Argv: array of PChar); stdcall;
var
t:integer;
begin
ServiceStatus.dwServiceType := SERVICE_WIN32;
....
SetServiceStatus(ServiceStatusHandle, ServiceStatus);
TEST(); - тут нужно запустить webbrowser который лежит на форме
end;
что я не пытался сделать, и sender tobject, и без, и так и сяк, вобщем неполучается
запустить TEST
примерно как выглядит функция TEST:
Код:
procedure test(Sender: TObject);
begin
EmbeddedWB1.Navigate('http://localhost/test.php');
end;
получается что из "консольного" кода нельзя обратиться к компоненту на форме?
если можно то как правильно написать??