| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TServerSocket [D6, Win2k]

anmartynov ©   (2002-11-26 11:55:00) 

Hi All!
Пишется прога с использованием TServerSocket. В событии на OnRead я вытаскиваю данные. Для проверки работы я передаю сравнительно большой объем информации (примерно 150К) и появляется проблема: у меня пропадают большие куски из передаваемой информации ... те я получаю куски из начала пакета и потом куски из конца пакета, а середина практически вся куда-то выпадает. Может кто сталкивался с этим и знает что делать?

---

anmartynov   (2002-11-26 13:48:00) [1]

спасибо. попытаюсь разобраться

---

Digitman   (2002-11-26 13:31:00) [2]

Алгоритм передатчика неправилен.
В неблок.режиме любой Send-метод не есть метод, собственно передающий информацию приемнику. Происходит просто попытка постановки в поточную очередь на передачу указанного блока данных. И эта попытка может быть как успешной, так и неуспешной (частично успешной). О чем и говорит результат вызова Send[Text]-функции, анализ которого ты игнорируешь.
Читай все, что связано с событием OnWrite() - его следует обрабатывать, до тонкостей разобравшись в условиях его возникновения.

---

anmartynov   (2002-11-26 13:23:00) [3]

все написано предельно просто ...
вот кусок передатчика:

txt := TStringList.Create;
txt.LoadFromFile(odSendFile.FileName);
for j:=0 to 1000 do begin
// чтобы легче проверить какой кусок передается
ClientSocket1.Socket.SendText(inttostr(j));
for i:=0 to txt.Count-1 do begin
// сама передача
ClientSocket1.Socket.SendText(txt[i]);
end;
end;


вот кусок приемника:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
Msg: string;
l: Integer;
buf: PChar;
begin
l := Socket.ReceiveLength;
GetMem(buf, l);
Socket.ReceiveBuf(buf[0], l);
Memo1.Lines.Add(buf);
FreeMem(buf);
end;


что тут может быть неправильного?

---

Digitman   (2002-11-26 12:42:00) [4]

> у меня пропадают большие куски из передаваемой информации
>


Твой алгоритм либо передатчика либо приемника реализован неверно. Отсюда и проблемы.

---

Наверх