Jesli chodzi o ile clientow jest podlaczonych to mozesz robic cos takiego. Masz zmienna ile_klientow_jest_podlaczonych : integer; Z tego co mi sie wydaje to jest OnClientConnect i OnClientDisconnect :-) i mozesz zmieniac ta zmienna no i bedziesz wyswietlal jej zawartosc :-)
A jeszcze IP
uses Winsock;
procedure TForm1.FormCreate(Sender:TObject);
var
wVersionRequested:WORD;
wsaData:TWSAData;
begin
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;
procedure TForm1.Button1Click(Sender:TObject);
var
p : PHostEnt;
s:array[0..128] of char;
p2:pchar;
begin
GetHostName(@s, 128);
p := GetHostByName(@s);
Memo1.Lines.Add(p.h_Name);
p2 := iNet_ntoa(PInAddr(p.h_addr_list));
Memo1.Lines.Add(p2);
end;
procedure TForm1.FormDestroy(Sender:TObject);
begin
WSACleanup;
end;
Chyba sie polapiesz o co biega :-)
--
pozdrawiam PEDROS {hello}
Szukasz pomocy - najszybsza na ircu
#4programmers.net
Masz cos ciekawego. Napisz gotowca:
http://www.4programmers.net/delphi/gotowce/index.php?action=create
Delphi 6 Personal.