Форум: "Сети";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
ВнизSockety Найти похожие ветки
← →
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
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c