Hogyan lehet lekerdezni az IP cimet Delphiben?
-
#213
Néztem a gyűjteményt, de némelyik proginál hiányol fájlokat.
Két progi közt hogy tudok neten kommunikálni?
Próbáltam a TcpClient és TcpServer objektumot, a kapcsolat összejön ( megszűnik a blokkolódás amikor kapcsolódásra nyomok ), viszont nem küldi át a stringet:
[courier]
// kliens kuldi a srtinget
procedure TForm1.Button2Click(Sender: TObject);
begin
if TcpClient1.Connect then begin
showmessage(' megy ');
TCPClient1.Sendln(' lal1234');
end;
end;
// szerver varakozik, majd kiirja a fogadott stringet
procedure TForm1.Button3Click(Sender: TObject);
var s:string;
begin
TcpServer1.Waitforconnection;
TcpServer1.Open;
TCPServer1.Receiveln(s);
ShowMessage(' uzenet ez volt :'+s);
end;