Programy sieciowe

DeKoVV
  • Rejestracja: dni
  • Ostatnio: dni
0

W sieci jest 20 komputerow i jeden z nich jest glowny. Z tego glownego musze wyslac poprzez sockety komendy do kazdego! Gdy jeden z tych 19 komputerow otrzyma dana komende musi wyslac informacje do glownego! [sex]
Wszystko jakby i normalnie ale na Glownym komputerze(w mojej aplikacji) jest komponent StringGrid i musi musze pokazac dane jakie kazdu komputer przeslal...
Np.
Pc1 | dane pc1
Pc2 | dane pc2
pc3 | dane pc3
pc5 | .....
pc6 | .....
.. | .....
.. | ..........

Nierozumiem jednej zeczy jak poustawiac te otrzymana informacje ot kazdego komputeru w odzielne miejsce.....
Mam nadzieje zrozumieliscie co mam na mysli, Dzieki

lofix
  • Rejestracja: dni
  • Ostatnio: dni
  • Lokalizacja: Wdzydze
0

zamiast TCP, uzywaj UDP (wysylasz "broadcast" do wszystkich jednoczesnie)
i potem tylko wyswietlasz dane z kompowo (mozesz je identyfikowac po adresie lub czymkolwiek)

SA
  • Rejestracja: dni
  • Ostatnio: dni
0

A ta ikona pokazuje 19 komputerom czy serwer jest zajety czy nie tak? :-)

PS do lofixa
A czy o tj porze sowy nie powinny spać ? ;-)
No chyba ze to krzyzowka genetyczna sowa+kot+delphi+ssak'n roll kompilator

//to kot [glowa] - lofix

DeKoVV
  • Rejestracja: dni
  • Ostatnio: dni
0

Nie mam problem z wysylaniem komend do wszystkich komputerow mam problem jak rozpoznac jaki komputer co mi przyslal!!!

[browar]

A co z tym UDP, gdzie on jest i jak z jego korzystac??? [???]

nediam
  • Rejestracja: dni
  • Ostatnio: dni
0

no mzoe niech komputer ci odpisuje np. pcxx|to co ma ci odpisac

cimak
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 1668
0

no mzoe niech komputer ci odpisuje np. pcxx|to co ma ci odpisac

noo:

Kopiuj
function CompName:string;
  var
  Comp : String;
  Buff : DWORD;
begin
  Buff := 64;
  SetLength(Comp, Buff);
  GetComputerName(PChar(Comp), Buff);
 CompName:=PChar(Comp);
end;
Kopiuj
Send(CompName +'$'+Odpowiedz);

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.