Socket

[rootpro]

Вот код сервера

Код: Выделить всё

var co: integer;
  begin
for co := 0 to Memo1.Lines.Count - 1 do
begin
Socket.SendText(Memo1.Lines[co]);
end;
end;

Всё отлично работает, но есть небольшая прблема: Клиент склеивает в одну строку все полученные строки. Как разделить на отдельные строки как на сервере.

Вот так у клиента

Код: Выделить всё

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;

Я пробовал на сервере поставить переход на след. строку

Код: Выделить всё

#10

но не катит. Чё делать-то...

[Dr.Grizzly]

Во первых #13 а во вторых тебе надо принцип переделать, должен быть принцип такой: сервер послал строчку, клиент сказал серверу что принял, у сервера например поднялся флажок, если флаг поднят отправить следующую. и т.д. Если нужен будет текст проги, то попозже, ща мне некогда, дома обкатаю этот вопрос и брошу пример, а так я уже такое делал Когда получал список файлов с другого компа

[rootpro]

Если можно?.....#13 поставил - не катит

[rootpro]

Заработало.

Код: Выделить всё

ServerSocket1.Socket.Connections[0].SendText(Memo1.Lines[co] + #13#10);

Больше никак. Насчёт обратной связи - я думаю не стоит перегружать сеть лишними сообщениями, т.к. в моём случае машин довольно много и процесс должен происходить почти одновременно.

[rootpro]

Кто-нить знает, какой максимальный размер может быть передан процедурой SendText и принят..

[LAngel]

Намсимальный размер - 2^31, т.е. 2147483648 символов.

[rootpro]

А как обработать ошибку при подключении(ну если не удалось подключитиься). И поставить задержку на ожидание ответа сервера