Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум программистов _ Delphi - Система _ про сервисы и формы

Автор: darkcoder 10:03:2008, 21:28

привет
написал сервис
работает.
понадобилось сделать форму на нем 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;

получается что из "консольного" кода нельзя обратиться к компоненту на форме?
если можно то как правильно написать??

Автор: sax_ol 11:03:2008, 06:40

А что есть сервис?

PS: форматировать топики когда научимся?

Автор: darkcoder 11:03:2008, 08:50

сервис он и есть сервис

Автор: sax_ol 11:03:2008, 08:56

хм ... я надеялся что вы почитаете для начала
ну в 2 словах: форму в сервисе сделать не то чтобы сложно, но врядли нужно.
Поэтому вопрос таков, зачем форма в этом самом сервисе?

Автор: darkcoder 11:03:2008, 09:17

я читал, на английском правда
там тоже сказано что не нужно

но как тогда мне использовать webbrowser на сервисе? как его можно подключить кроме как кинув на форму которую в данном случае нельзя использовать?

Автор: sax_ol 11:03:2008, 09:39

Для использования webbrowser - форма не обязательна.

Автор: darkcoder 11:03:2008, 09:59

а как? в какую сторону копать?

Автор: sax_ol 11:03:2008, 10:07

В справку вестимо. Смотреть что надо, чтобы TWebBrowser работал без формы и т.д. Кстати а зачем вам он в сервисе, чисто пробы?
Да, и тот код, который вы показываете на др. форумах - нерабочий, по нему видно, что он не совсем ваш.

PS: Я бы вам посоветовал идти от малого к сложному, и по дороге все прояснится.

Автор: darkcoder 11:03:2008, 10:26

Цитата(sax_ol @ 11:03:2008, 12:07 )

PS: Я бы вам посоветовал идти от малого к сложному, и по дороге все прояснится.

код рабочий.
вместо wb я ставил функцию для записи в файл test('строка которую записать')
в каждой функции в коде и после каждого условия я ставил дамп в лог, с описанием что происходит
ставится он нормально и запускается сразу же
после перезагрузки в логе отписываются старты тестовой функции
так что все нормально
код не мой, мне нужно оживить этот и потом уже писать свой нормальный
ну а как идти, я работаю с утра до ночи последние три года, сейчас серваки куплены все настроено осталось дело за малым этот код написать
код мне этот для накрутки

Автор: sax_ol 11:03:2008, 10:54

Тот что показали - нерабочий. Кстати есть еще компоненты от Indy, тоже можно на них посмотреть.

Автор: darkcoder 11:03:2008, 11:18

Цитата(sax_ol @ 11:03:2008, 12:54 )

Тот что показали - нерабочий. Кстати есть еще компоненты от Indy, тоже можно на них посмотреть.

ну да, тот не запускается
а с дампом в текстовый файл пашет
сейчас попробую через длл сделать

незнаю насчет indy, я саму идею подсмотрел у одной малвары, отреверсил ее, там примерно так сделано только не через сервис а через автозагрузку. через сервис имхо лучше если еще добавить блокировку файла и ф-цию p2p червя чтоб пробывал сам себя копировать в папки обмена под разными именами так вообще отлично выйдет

Автор: sax_ol 11:03:2008, 12:48

не понял, про какого червя речь?

Автор: European 11:03:2008, 12:56

Цитата(sax_ol @ 11:03:2008 - 15:48)

не понял, про какого червя речь?

Вот так sax_ol стал вирусописателем...

Автор: sax_ol 11:03:2008, 13:03

тогда прикроем темку, пока не началось