TServerSocket без формы

[god110]

Подскажите как принимать текст ServerSocketом в приложении без формы. Иначе говоря как работать с ServerSocketом в бесформенном приложении.

[raxp]

создавать динамически данный компонент, описать методы... например свой класс на его основе...

[god110]

В этом-то и проблемка. Не могу реализовать. Находил примеры, но они не работали.

[raxp]

сделайте как >>> тут <<< по аналогии, только вместо icqclient используете TServerSocket, ну и есc-c-cтественно его методы и события...

 //web-server
 srv1       := TServerSocket.create(nil);
 srv1.port  := 500;
 srv1.onClientError:= srv_error;
 srv1.onClientRead := srv_read;
 srv1.active:= true
End;

[god110]

Сообщение от raxp

сделайте как >>> тут <<< по аналогии, только вместо icqclient используете TServerSocket, ну и есc-c-cтественно его методы и события...

 //web-server
 srv1       := TServerSocket.create(nil);
 srv1.port  := 500;
 srv1.onClientError:= srv_error;
 srv1.onClientRead := srv_read;
 srv1.active:= true
End;

Что-то не получается. Был бы благодарен за исходник.

[raxp]

...что конкретно не получается? в посте #4 практически все готово.

[god110]

Сообщение от raxp

...что конкретно не получается? в посте #4 практически все готово.

Код работает на Delphi 7, а на 2009 выдает иероглифы.

И как можно бесформенному приложению передать сообщение? Например функцией SendMessage.

[raxp]

...с первым скорее проблемы в кодировке, работайте в unicode... компонент не виноват.
...со вторым, не понял насчет sendmessage, вы по-прежнему про ServerSocket? для него метод sendtext, например так:

 for k:= 0 to ServerSocket.Socket.ActiveConnections-1 do
  ServerSocket.Socket.Connections[k].SendText('test')

ежели все-же про sendmessage, то используйте AllocateHWnd(WndProc), где WndProc - ваш обработчик сообщений в приложении без формы.

[profi]

Код работает на Delphi 7, а на 2009 выдает иероглифы.

Это известная ошибка. Пользуйся WinSock.

[b2soft]

а не проще ли форму просто скрыть????? сам писал нечто подобное под названием троян и просто скрывал форму. и все работало