Ovako nesto za klijenta..
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
if listbox1.ItemIndex<>-1 then begin
client.Host:=listbox1.Items[listbox1.ItemIndex];
end;
client.Port:='neki_port'; //neki koji se ne koristi inace cesto
with client do
begin
connect;
sleep('zavisi_kolki_su_zahtjevi');
try
{sad tu saljes naredbe koji portovi smiju biti
otvoreni, a koji ne..}
finally disconnect;
end;
end;
end;
Napravis listbox sa svim adresama u mrezi..i samo selektiras koju hoces da upravljas i stisnes button il nesto..a server bi morao biti na svim racunalima i samo trebas navest port na kojem ces spajat klijenta i da razumije naredbe koje mu klijent salje...
A sad za kontroliranje portova i na koji nacin ces mu slat naredbe ne znam..probaj googlat malo..