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