TCP/IP server
Tomáš Mazouch
mazouch na ica.cz
Sobota Leden 30 23:14:21 CET 2016
Dne 30.1.2016 v 20:19 Martin Záruba napsal(a):
> Poraďte, kde dělám chybu prosím. V programu mám TCP/IP klienta
> udělaného takto: (snažil jsem se vypustit vše nepodstatné)
> Socket := TTCPBlockSocket.Create;
> Socket.Connect('IPadresa', 'IPPort');
> takto komunikace funguje bez problémů. Potřeboval jsem ale, aby
> program běžel v režimu server. Udělal jsem to takto:
>
> Socket := TTCPBlockSocket.Create;
> Socket.setLinger(true,1000);
> Socket.Bind('0.0.0.0','IPPort');
> Socket.Listen;
> port se otevře, ale nic to nechce přenášet. Kde je chyba?
>
Jakmile je poslouchajici socket citelny (tzn. nekdo se pripojil), je
treba na nej zavolat accept, cimz se vytvori novy socket a pres ten se
komunikuje. Ten puvodni ceka na dalsi spojeni.
TomM
Další informace o konferenci Hw-list