Сокеты в Delphi

[god110]

Как можно через интернет с помощью клиента соединиться с удаленным сервером зная Ip-адрес сервера? При соединении появляется ошибка 10060.

[Alex2009]

Посмотри это http://programmistik.at.ua/publ

[god110]

Alex2009, что-то до меня не дошло как это осуществить. Пробовал разные варианты все равно ошибку выдает.

[AngelOfDeath]

Firewall настроен? Может он не пропускает..

10060
Попытка установить соединение была безуспешной, т.к. от другого компьютера за требуемое время не получен нужный отклик, или было разорвано уже установленное соединение из-за неверного отклика уже подключенного компьютера.

[god110]

Firewall настроен. Плюс я его выключал когда проверял.

Может в коде что не так

Сервер
TcpServer1.LocalHost :=127.0.0.1
TcpServer1.LocalPort :=12345
и свойство active равно true

Клиент
procedure TForm1.Button1Click(Sender: TObject);
begin
TcpClient1.RemoteHost:=44.43.43.22( например);
TcpClient1.RemotePort:=12345;
TcpClient1.Connect;
end;

Когда запускаешь сервер он долго думает, а потом пишит ошибку.

[god110]

Сканером портов проверял порт на удаленном компьютере и сканер его не видел.

[Пепел Феникса]

1)чет тут сокетами не пахнет.
2)а сервер на подключение какнить реагирует то?
он при подключении посылает чтото?
если нет, то все понятно. и скажу более, все нормально.

[god110]

Сервер нет, а клиент пишет ошибка. И нечего не посылает. Сейчас моя главная цель установить соединение. А код то правильно написан?

[Пепел Феникса]

так ошибка и будет.
клиент ждет от сервера ответа, а ваш сервер не отвечает.
соединение уже установленно, но должен далее идти обмен данными, и ошибка именно там.

[god110]

И как обмен данных воплотить в жизнь? Самое интересное то что на моем компе все работает.