IdTCP

[ToLeG]

Здравствуйте, уважаемые знатоки, помогите пожалуйста! ЗАранее прошу прощения за глупость, неопытный еще...

Есть клиент-серверное приложение вопрос в следующем:

1.
а) Нужно что бы клиент при нажатии кнопки отправлял серверу какую либо строку.
б) Где (в какой процедуре,обработчике) и как отслеживать получение строк от сервера

2.
а) Что бы клиент при получении отправлял ответную строку.
б) Что бы клиент при нажатии кнопки отправлял какую либо строку.

Заранее спасибо!!))

[Pedro]

Вот...
1.
а)

 procedure TForm3.Button1Click(Sender: TObject);
begin
IdTCPClient1.WriteLn('Hello');
end;

б)

procedure TForm3.Timer1Timer(Sender: TObject);
var
s:string;
B:Boolean;
begin
  try
    s:=IdTCPClient1.ReadLn();
  except
    B:=true;
  end;
end;

2.
а)

procedure TForm3.Timer1Timer(Sender: TObject);
var
s:string;
B:Boolean;
begin
  try
    s:=IdTCPClient1.ReadLn();
    if s<>'' then IdTCPClient1.WriteLn('Hello');
  except
    B:=true;
  end;
end;

б) То же что и 1 а)
А вообще это уже обсуждалось, юзай поиск по форуму.

[ToLeG]

Pedro, спасибо большое, просто я еще совсем не опытный, и у меня пока плохо получается понимать чужой код, а уж темболее переделывать его под себя... НО я постараюсь исправиться)

Когда я задавал вопрос, я немного ошибся, а именно во втором пункте, я хотел спросить следующее:

2.
а) Что бы СЕРВЕР при получении отправлял ответную строку.
б) Что бы СЕРВЕР при нажатии кнопки отправлял какую либо строку.
в) Где (в какой процедуре,обработчике) и как отслеживать получение строк от КЛИЕНТА, кажетчся это обработчик onExecute, если я не ошибаюсь. правильно?

Еще раз заранее спасибо!

[Pedro]

2
а)

procedure TForm4.IdTCPServer1Execute(AThread: TIdPeerThread);
var
S:string;
begin
S:=AThread.Connection.ReadLn();
if  AThread.Connection.ReadLn()<>' ' then AThread.Connection.WriteLn('hello');
end;

б)

procedure TForm4.Button1Click(Sender: TObject);
var
list:tlist;
begin
list:=IdTCPServer1.Threads.LockList;
 try
    try
    TIdPeerThread(list.Items[0]).Connection.WriteLn(edit1.Text);
    except
     TIdPeerThread(list.Items[0]).Stop;
    end;
  finally
   IdTCPServer1.Threads.UnlockList;
  end;
end;

в) Правильно - это OnExecute. Отслеживать так:

S:=AThread.Connection.ReadLn();

S соответсвенно - стринг.
Кстати, забыл сказать, нужно выставить у клиента значение ReadTimeout=1.
Вроде все

[ToLeG]

О великий Pеdro, ты снова помог мне, СПАСИБО ОГРОМНОЕ!))
Хочу задать еще несколько вопросов, если еще не надоел конечно))

А для чего нужен "ReadTimeout", что он дает и почему присваивается значение именно "1"?

1. Плддерживает ли IdTCTPServer несколько подключений и если да, то сколько.
2. Как отправить строчку определенному клиенту, например подключено к серверу три, а мне нужно отправить строчку только второму...

Заранее спасибо!

[Pedro]

Тааак... Про ReadTimeout... Ну насколько я понимаю(а мое мнение может быть ошибочным), ReadTimeout - это таймаут чтения. Indy - это блокирующие сокеты, следовательно пока не выполнится действие будет идти таймаут и пользовательский интерфейс будет заморожен. ReadTimeout=1 значит что таймаут будет длиться 1 мск, и после этого времени прозойдет исключение. Пример:

try
Client.readln();
except
b:=true;//исключение
end;

Вроде так, но повторюсь, я могу ошибаться.

IdTcpServer поддерживает несколько подключений, сколько конкретно я не знаю.
2.

procedure TForm4.Button1Click(Sender: TObject);
var
list:tlist;
begin
list:=IdTCPServer1.Threads.LockList;
 try
    try
    TIdPeerThread(list.Items[0]).Connection.WriteLn(edit1.Text);
    except
     TIdPeerThread(list.Items[0]).Stop;
    end;
  finally
   IdTCPServer1.Threads.UnlockList;
  end;
end;

Переменная List хранит всех подключенных клиентов, кто подключился первым, тот имеет номер 0, второй - 1 ну и так далее. Значит TIdPeerThread(list.Items[0]).Connection.WriteLn(edit1.Text); - 1му клиенту,
TIdPeerThread(list.Items[1]).Connection.WriteLn(edit1.Text); - 2му клиенту

[ToLeG]

1. А что должно храниться в перменной list, IP адрес или что то другое?
2. Если в ней хранится IP адрес, то как сервером узнать ip адрес клиента
а) от которого, например только что пришла строчка?
б) или например, который только что подключился (при подключении)

[Pedro]

При подключении вот так можно узнать IP

athread.Connection.Socket.Binding.PeerIP

.
А вот на счет переменной лист я точно не знаю.

[ToLeG]

БОЛЬШОЕ СПАСИБО!!!