Скачать: CL | DM;
Отсылаем 13к, а доходит только 8к. Найти похожие ветки
← →
Ascan_ (2002-07-12 14:57) [0]У TClientSocket и TServerSocket есть ограничения по объему пакета?
Почему отсылая 13к я принимаю только 8к?
Вот пример:
Здесь я отсылаю данные:
...
var
bufText: PChar;
bufSize: integer;
res: integer;
...
begin
...
GetMem(bufText, bufSize); // bufSize= 13262
...
// bufText= "<HTML><HEAD><TITLE>Данная страница..."
res:= ClientSocket1.Socket.SendBuf(bufText^, bufSize); // res= 13262
FreeMem(bufText, bufSize);
...
т.е. тут, вроде бы, все ушло...
А принимаю так:
procedure TMainForm.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
bufText: PChar;
bufSize: integer;
...
begin
bufSize:= Socket.ReceiveLength; // bufSize= 8192 ($2000)
GetMem(bufText, bufSize);
Socket.ReceiveBuf(bufText^, bufSize);
...
И вот чтобы это значило? Уходит 13к, а доходит 8к.
Вот если бы:
res:= ClientSocket1.Socket.SendBuf(bufText^, 13262); // res= 8192
так было бы еще понятно...
Кто подскажет?
← →
Eugene Lachinov © (2002-07-12 15:03) [1]Остальные придут попозже :-)
← →
Ascan_ (2002-07-12 15:34) [2]:-) А как бы и поторопить?
потому как:
begin
bufSize:= Socket.ReceiveLength; // bufSize= 8192 ($2000)
GetMem(bufText, bufSize);
Socket.ReceiveBuf(bufText^, bufSize);
...
FreeMem(bufText, bufSize);
// И вот если тут дописать:
bufSize:= Socket.ReceiveLength; // bufSize= 0!
Больше там ничего нет! И второго OnClientRead не приходит.
Страницы: 1 вся ветка
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.01 c
Dmk
2002-08-07 00:09
2002.09.23
Как избавиться от сообщения?
1-73698
roman002
2002-09-11 07:49
2002.09.23
Сервис+WinExec
1-73745
S
2002-09-11 17:29
2002.09.23
Тип данных TMemoryStream глюк?
4-73937
Igit
2002-08-07 07:29
2002.09.23
Список файлов
8-73771
2UT
2002-05-24 18:30
2002.09.23
Помогите кто может!!!