Cum să trimiteți un mesaj unui alt computer

Toate felicitările!
Spuneți-mi, pliz, cum să trimiteți un mesaj unui alt computer?

Organizați clientul / serverul, de exemplu pe prize - toate acestea sunt foarte clar descrise în DelpHelp

Nu, nu trebuie să șterg mesajul.
Trebuie doar să trimit un mesaj la computerul "Vasa".

Ei bine, Duc, utilizați compania IP Vasa

Aduceți, exemplu, pliz. (IP lăsați să fie 10.11.12.13)

Puteți defini IP după nume (GetHostByName) sau scrie un nume în TClientSocket.Host (primul este preferabil)

procedura TMCForm.SendTextToVasaClick (expeditor: TObject);
începe
# 032; cu ClientSocket să înceapă
# 032; # 032; Adresa: = "10.11.12.13";
# 032; Port: = 1234;
# 032; # 032; Activ: = adevărat;
# 032; sfârșit;
se încheie;

procedura TMCForm.ClientSocketConnect (expeditor: TObject; Socket: TCustomWinSocket);
începe
# 032; cu Soclul nu începe
# 032; # 032; SendText ("Bună ziua, Vasya!");
# 032; # 032; Activ: = false;
# 032; sfârșit;
se încheie;

2mrcat
Propunerea cea mai sensibilă.
Acum o să încerc.

>> 2Alibaba
Firește, pe server trebuie să primiți acest mesaj:
procedura TMCServerForm.ServerSocket1ClientRead (Expeditor: TObject;
# 032; Soclu: TCustomWinSocket);

începe
# 032; ShowMessage (Socket.ReceiveText); // sau ceva de genul asta.
se încheie;

2mrcat
Aveți două componente diferite
ClientSocket și Socket - este atât de necesar?

2ZZ
Și tu ai încercat acest exemplu?
Ceva pe care nu vrea să-l compileze.

Client - un loc client, trimiteți mesaje de la acesta,
Server - server acceptă.

Ambele componente ale soclului se află pe panoul componente.

Nu chiar.
Cu Win2k -> Win2k funcționează
Cu Win98 -> Win2k NO! (spune netapi32.dll nu este prezent.)

Alibaba
Și ce erori produce atunci când este compilat.