Delphi передача данных

[-Jack-]

Всем привет. Задачка такая:

при подключении к серверу сервер получает некоторые данные от клиента. ( использую IdTCPServer )
При отключении клиента, сервер должен использовать эти данные ...

А как передать их по сути дела от одной функции к другой, я как раз не знаю ( к примеру client_name )

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var
  client_name: String;
begin
...

  client_name:= AContext.Connection.Socket.ReadLn();
...
end;


procedure TForm1.IdTCPServer1Disconnect(AContext: TIdContext);
begin
 {
 ???
 }
end;

[Vad33]

Может переменную сделать глобальной?

[BARNEY]

хммммм может не те свойства юзаете? Может надо IdTCPServer1Execute.

[Stilet]

Насколько я знаю при подключении сервер ничего не должен получать.
Он может отправить подключившемуся приветствие.
Как устроен клиент? Он видимо отправляет данные после подключения сразу, а твой сервер должен их прочитать в событии OnWork кажись так называется.
Причем клиенту стоит выделить некую команду типа HELO с которой передать нужные данные, а сервер должен проанализировать команду, и понять что то что после нее запомнить до дисконнекта.

[phomm]

Более адекватная альтернатива глобальной переменной - поле\свойство(property) формы или специального класса (который надо будет написать)

[-Jack-]

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

Может переменную сделать глобальной?

Хм ... идея хорошая ... А как раз так и делал раньше ... IdTCPServer1Connect создаю глобальную переменную на пример TStringList и уже с ней работаю ...

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

хммммм может не те свойства юзаете? Может надо IdTCPServer1Execute.

В принципе, можно осуществить обмен данными и на IdTCPServer1Execute ... Но та конструкция клиент-сервера у меня работает нормально: при подключении обмен данными и уже дальнейшая обработка данными в IdTCPServer1Execute

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

Насколько я знаю при подключении сервер ничего не должен получать.
Он может отправить подключившемуся приветствие.
Как устроен клиент? Он видимо отправляет данные после подключения сразу, а твой сервер должен их прочитать в событии OnWork кажись так называется.
Причем клиенту стоит выделить некую команду типа HELO с которой передать нужные данные, а сервер должен проанализировать команду, и понять что то что после нее запомнить до дисконнекта.

Почему при подключении нельзя ничего получать ? По сути дела это зависит же от структуры клиент сервера ? А вот по поводу команды HELO не понял ...

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

Более адекватная альтернатива глобальной переменной - поле\свойство(property) формы или специального класса (который надо будет написать)

А чем глобальная переменная не подошла ?

[Stilet]

Почему при подключении нельзя ничего получать ?

Видимо я не понял твоей задачи. Извиняюсь за дезу, я подумал что ты от клиента пустую строку получаешь.

А чем глобальная переменная не подошла ?

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

[-Jack-]

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

Видимо я не понял твоей задачи. Извиняюсь за дезу, я подумал что ты от клиента пустую строку получаешь.

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

Да не, клиент сервер нормально обмениваются данными ... загвоздка такая:

объявил глобальную переменную

var
Form1:TForm1;
T:TStringList

при подключении клиента создаю этот лист

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var
  client_name: String;
begin
...
  client_name:= AContext.Connection.Socket.ReadLn();
  T:=TStringList.Create;
  T.add (client_name);
...
end;

procedure TForm1.IdTCPServer1Disconnect(AContext: TIdContext);
begin
  sys.Lines.Add('SYS:'+T[0] );
end;

И получается, что T[0] всегда имеет значение client_name последнего подключенного клиента ...

[Аватар]

StringList создать в OnCreate формы
Убивать его в OnDestroy формы
В OnDisconnect искать имя клиента в StringList и работать с нужной строкой, а не с нулевым индексом. И удалить её

[-Jack-]

Т.е. вариант, когда для каждого клиента будет создаваться свой StringList не получится ?