Delphi-Quellcode:
procedure Tmain.serverConnect(AThread: TIdPeerThread);
var
i: integer;
begin
for i:=0 to 255 do
begin
if Clients[i] = nil then
begin
Clients[i] := AThread;
Tserv.Create(self);
Cwin[i] := 0;
{window}
exit;
end;
end;
end;
end.
Delphi-Quellcode:
{///////////////////////::::::C O N N E C T::::::////////////////////////}
procedure Tmain.menu_connectClick(Sender: TObject);
begin
{connection to the server}
server.Active := true;
end;
so das wars eigentlich hier noch die IndyServer config:
>>Im anhang<<