Скачать: 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.011 c
DenisA
2002-07-20 21:49
2002.09.23
Список компов в ЛВС с ip-адресами
1-73714
antoniz
2002-09-11 11:58
2002.09.23
Люди подскажите, где найти бесплатный компонент,
1-73740
still
2002-09-11 16:05
2002.09.23
Создание справки
1-73713
vitaliy_g
2002-09-11 11:25
2002.09.23
Динамическое программирование
1-73639
First_May
2002-09-12 09:14
2002.09.23
Вид форм...