User list

[RKS]

Есть сервер..
На главной форме есть Listbox, в который заносяться ники пользователей подключеных к серваку (tcpserver), сервак должен расылать этот список клиентам каждую минуту. Вот только как реализовать предачу списка?

[Квэнди]

idtcpclient.send...

[RKS]

Я не правильно поставил вопрос, в каком виде слать список.
Он находится в TCombobox, я пробовал так:


us: stringlist;
....
us:= combobox1.items.. (щас точно не помню)
tcpC.send(us);

Я уже окончательно запутался HELP ME!

[Ring0Sn]

Cделай глобальный массив етих имен и хранил их там. Рассылай и принимай буфером.

[Stilet]

RKS, а что за компонент tcpC?

[Pitbull]

создаешь клиента и серверное приложение....
по таймеру , либо по системному времени сделай привязку к минутам... єто располагаешь на клиенте....И через время делаешь запрос на сервер....
отсілать можно просто строку, можно и через буфер...

принцип :Клиент посілает запрос, сервер отвечает...
Клиент writeln() (тут ті делаешь запрос) ----- Сервер readln() (прочитал запрос, анализируешь)----Сервер writeln (отослал нужніе списки)---клиент readln(принял списки вівел на єкран.)

при анлизе запроса на сервере можно сделать аутентификацию клиента.... Ну , чтобі не отослать кому-то левому


Cервер:
procedure Tform1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
AThread.Connection.WriteLn('база данніх имен');
end;
procedure Tform1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
zapros,name: string;
i:integer;
begin
with AThread.Connection do
begin
name:='';
//читаем запрос от клиента
zapros := ReadLn;
//проверяем запро, если команда віхода - дисконект
if SameText(zapros, 'QUIT') then Disconnect
else
//Если команда получения имени, то
if SameText(Copy(zapros, 1, 10), 'get_name ') then
begin
for i:=0 to ListBox1 .Items.Count-1 do
name:=name + '_'+ ListBox1.Items[i];
end;
//отправляем результат запроса
writeln(name);
//история запросов заносится в Мемо
Memo1.Lines.Add(zapros);
end;
end;


клиент:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
otvet: string;
begin
ListBox2.Clear;
with IdTCPClient1 do
begin
try
Connect;
//заносим результат приветствия от сервера
ListBox2.Items.Add(ReadLn);
ListBox2.Items.Add('');

//делаем запрос
WriteLn('get_name ');
//получаем ответ
otvet := ReadLn;
if otvet = '' then otvet:='Нет никаких данніх';
memo1.Lines.Add(otvet);
memo1.Lines.Add('--------------');
//посілаем команду отсоединения
WriteLn('Quit');
finally
Disconnect;
end;
end;
end;

[RKS]

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

RKS, а что за компонент tcpC?

tcpC - это у меня компонент - IdTCPServer, сокращено ...

[RKS]

Всем спасибо за помощь!
Pitbull - отдельное спасибо, за подробное разъяснение!

[Pitbull]

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

Всем спасибо за помощь!
Pitbull - отдельное спасибо, за подробное разъяснение!

та незачто