Sockety

← →
KPOT (2002-01-22 14:06) [0]

Pishu malen"kuju programmku s Socketami, niznaju kak pral"na dejstvovat" v takoj situacii:

inogda na onReceive Socket.ReceiveLength bol"she chem vozvrachaemoje znachenie Socket.ReceiveBuf. Ja tak ponimaju chto znachit prislali mne bol"she chem ja s4ital :((

Kak i kogda ja mogu s4itat" ostatok ???

Zaranee blagodaren

← →
Digitman © (2002-01-22 14:31) [1]

см.
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1004708960&n=4

← →
KPOT (2002-01-22 17:09) [2]

Spasibo za otvet.
Ja toge tak nadejalsja chto pridet eche, no :(

Esli ne trudno, to gljan" plz.

U menja takoj obrabotchik :

procedure TForm2.Sock2Read(Sender: TObject; Socket: TCustomWinSocket);
var
j, n, i, rc, h, h1, h2 : integer;
buf : PChar;
ss: TClientSocket;
begin
// s interneta
h := Socket.Handle;
inc( inCount );
h1 := inCount;

Memo1.Lines.Add("Sock2Read :" + inttostr(Socket.Handle) + " :" + inttostr(h1));
h2 := Socket.ReceiveLength;
GetMem(buf,h2+1);
n := Socket.ReceiveBuf(buf^,h2 );
Memo1.Lines.Add(" Sock2Read : in :" + inttostr(h2) + " received :" + inttostr(n));
if n > 0 then begin
form2.Edit3.text := inttostr( strtoint(form2.Edit3.text) + n);
for j := 1 to actConn do begin
i := ConnUsed[j];
if Sender = TObject( aConn[ i, 2 ] ) then begin
ss := aConn[ i, 1 ];

repeat
rc := ss.Socket.SendBuf(buf^, n);
until rc <> -1 ;
form2.Edit4.text := inttostr( strtoint(form2.Edit4.text) + rc);
break;
end;
end;
end ;
FreeMem(buf);
end;

i v Memo popadaet takoj log:

....
....
Sock2Read :329452 :690
Sock2Read : in :8192 received :3736
Sock2Read :329452 :691
Sock2Read : in :8192 received :8192
Sock2Read :329452 :692
Sock2Read : in :8192 received :5592
Sock2Disconnect :329452

Читай хэлп. Он для тебя написан Борландом.
Вот что по этому поводу там есть:

" Note: While the ReceiveLength method can return an estimate of the size of buffer required to retrieve information from the socket, the number of bytes it returns is not necessarily accurate."

Это значит, что лог твой правильно отражает происходящее в системе : сколько байт реально прочитано вызовом ReceiveBuf(), столько и стоит считать достоверно переданными и полученными принимающей стороной. Здесь важно, что реально прочитанное из гнездового буфера в тек.событии число байт не больше заявленного системой в ReceiveLength()

Sockety Найти похожие ветки