FreePascal.ru

hovadur, спасибо. Вместо FNetSrv в этой строке должно быть FNet, ошибся. И ведь, несколько раз перепроверял

Добрый день уважаемые!
Пытаюсь создать службу Windows

unit main;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, DaemonApp, INIFiles, lNet, ukvm_cmd;

type
Tsvctst = class(TDaemon)
private
{ private declarations }
public
{ public declarations }
end;

var
svctst&#58 ...

Снег Север, спасибо. Только что нашел способ http://freepascal.ru/forum/viewtopic.php?f=13&t=4995&p=80300&hilit=%D1%81%D0%BB%D1%83%D0%B6%D0%B1%D1%8B#p80300

Добрый день, уважаемые.
Подскажите пожалуйста с помощь чего в Lazarus (FreePascal) можно управлять (останавливать, запускать, завершать, стартовать и т.д.) службами в Windows?
Не создавать свою службу, а именно управлять существующими.
Заранее благодарю.

Снег Север, Vadim спасибо вам, ведь действительно ответ лежал на поверхности. Надо сделать перерыв, скушать твикс

Уважаемый Vadim , а можно ли в lNet открыть для прослушивания два порта?
Попробовал сделать так:

procedure TLTCPrmtserver.Run;
var
quit: Boolean;
s: String;
c: Char;
begin
quit := false;
s := '';
FNet.Listen(1305);
FNet.Listen(1501);
Writeln('Сервер запущен ...

Vadim, огромное спасибо! То что нужно было! Первый вариант отлично подойдет.

Vadim , у меня в голове полная каша образовалась пока я эти примеры рассматривал
Я наверное, просто непонятно вопрос задаю...
Давайте так, вот этот кусочек программы, перебирая всех подключенных клиентов, отправляет им сообщение. Всем.

FNet.IterReset; // start at server socket
while FNet&#46 ...

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

Добрый день, в примерах к lNet есть проект testnet, в котором показано как работать с компанентами TCP и UDP.
Но там сообщения от сервера получают все клиенты, а как сделать что бы сообщение получал определенный клиент?
Первы раз взялся за клиент серверное приложение, застрял на этом, не пинайте ...