SSecurity » 29.03.2004 (Пн) 1:56
Ну здесь я бы пошел простым путем...
На клиенте стоит листбокс, в который любой элимент программы вписывает в очередь через "List1.Addnew [строка]" сообщение, которое надо заслать на сервер, на клиенте также есть переменная уровня формы, которая будет отвечать за отправку текущего сообщения (ПЕР)
Вот алгоритм.
С(Сервер): слушает порт
К(клиент): Коннектится к серверу: ПЕР=0
С:Приконнектив клиента шлет ему "ОК"
К:В событии Winsock1_DataArrival, при получении сообщения "ОК", если ПЕР<List1.ListCount-1 тогда ПЕР=ПЕР+1, и отправляем на сервак List1.List(ПЕР).
С:В событии Winsock1_DataArrival, при получении сообщения, засылаем клиенту "ОК" (уведомление об обработке)
....
С:Засылаем команду на разрыв связи, и отключаемся.
К:При получении команды закрываемся.
Проверенно - Работает. Таким образом я делал асинхронную обработку информации, т.е. данные уходили на сервер ... сервер говорил, что он готов (тока ещё пересылал номер задачи) ... потом обрабатывал события и засылал с номером задачи ответ клиенту. так что Клиент не вис пока сервак "думал".
Успехов
Программист - это маленький Бог, а все его ошибки - это самостоятельные творения:)
Так задумано:)