TTCPBlockSocket

[AVY]

Пытаюсь получить данные с порта:

Sockett: TTCPBlockSocket;

Socket:= TTCPBlockSocket.Create;
Socket.connect('127.0.0.1', '6666');
Socket.Listen;

while true do
begin
while Socket.WaitingData > 0 do
begin
print(srv.RecvString(1000));
end;

delay(300);
end;

Socket.CloseSocket;

но ничего не происходит, подскажите, что я делаю не так?

 

[rsd]

если я не ошибаюсь, нужен не connect, а bind (которого нет).
поэтому, быть сервером используя, то что есть не выйдет.