Работа с ServerSocket и ClientSocket

[AlDelta]

Доброго времени суток.
На сервере в StringGrid'e находится список файлов доступных для копирования. По OnClientConnect клиенту передается этот список, вот так:

i:=1;
while StringGrid1.Cells[0,i]<>'' do
Begin
ServerSocket1.Socket.Connections[0].SendText(StringGrid1.Cells[0,i]);
i:=i+1;
End;

Клиент через OnRead получает данные и должен вставить в свой StringGrid построчно:

Str:=ClientSocket1.Socket.ReceiveText;
StringGrid1.Cells[0,i]:=Str;

Но все переданные строки приходят в виде одной но длинной :-(. Помогите кто чем может.

[Рустам]

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

Но все строки переданные строки приходят в виде одной но длинной

Почему ты решил что они уже такими приходят?...
Напиши полностью процедурку приема данных...

[AlDelta]

Почему ты решил что они уже такими приходят?...
Напиши полностью процедурку приема данных...

Действительно, я не совсем точно выразился, но когда выполнится

Str:=ClientSocket1.Socket.ReceiveText;

в переменной str находятся все строки переданные сервером .

Это и есть процедура приема данных...

[BOBAH13]

нужно создать свой формат пакета )) для данного случая подойдет

tpacket = packet record
dwSize: WORD;
Str: PCHAR;
end;

тобиш делаеш такую переменную и посылаеш в send или как там в тех компонентах сначала dwSize а потом Str - во избежание ошибок и не приятностей... соотвественно когда прием данных то ты читаеш размер dwSize - и дальше ты уже знаеш сколько тебе читать символов ))) ну а потом опять сначала и так пока допустим не прийдет команда какайнить ну например размер пакета 0 )

я так делаю.. проблем нет ) правда на api )

[Vovandows]

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

i:=1;
while StringGrid1.Cells[0,i]<>'' do
Begin
ServerSocket1.Socket.Connections[0].SendText(StringGrid1.Cells[0,i]);
i:=i+1;
End;

Попробуй вот так:

i:=1;
while StringGrid1.Cells[0,i]<>'' do
Begin
ServerSocket1.Socket.Connections[0].SendText(StringGrid1.Cells[0,i]);
i:=i+1;
Sleep(100);
End;

Работает нимножко медленнее но коректно

[ToLeG]

Выдирай значения из грида в листбох или мэмо, или сохдай подобную переменную, например
var list:Tlistbox
а потом отправляй вот так:
ServerSocket1.Socket.Connections[0].SendText(list.items.text);
а клиент принимает вот так
Str:=ClientSocket1.Socket.ReceiveTe xt;
listbox.items.text:=str;
клиент сам все разобьет по строчкам
=)

[Ring0Sn]

Ну парни жжоте, хорошие советы)
AlDelta, c асинхронностью знаком?
"источник" не будет ждать пока "приемник" заберет данные из сокета, поэтому шлет дальше.
Могу предложить как вариант:
отправляешь 1ю строку и ждешь "подтверждения" от клиента что строку приняли, и только тогда уже можно передавать следующую... тогда получиться какбы синхронно, и косяки отпадут... ну или появяться новые xDDD

:=1;
while StringGrid1.Cells[0,i]<>'' do
Begin
ServerSocket1.Socket.Connections[0].SendText(StringGrid1.Cells[0,i]);
i:=i+1;
Sleep(100);
End;

Работает нимножко медленнее но коректно

Если клиент будет прилично нагружен, то корретность эта быстро пропадет...

[ToLeG]

Ring0Sn, а чем тебе мой пример не понравился?)) ведь передать сразу весь текст проще и быстрее, чем ждать пока на каждую строчку прийдет подтверждение! =) представь если будет 1000 строчет, а если 10000? =))

[Ring0Sn]

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

Ring0Sn, а чем тебе мой пример не понравился?)) ведь передать сразу весь текст проще и быстрее, чем ждать пока на каждую строчку прийдет подтверждение! =) представь если будет 1000 строчет, а если 10000? =))

Да хоть 1 000 000 000 000 000 000

[ToLeG]

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

Да хоть 1 000 000 000 000 000 000

А, ну да, конечно, а ждать не запаришься?! это значит по сети должно пройти 2 000 000 000 000 000 000 пакетов! ты рихнулся?! а если еще сеть будет загружена прилична, то состаришся нахрен пока дождешься!!!!