у меня проблема. Программа напимна на делфи и при запуске открывает 2000 порт и ждет входящих сообщений и заносит их в ричедит
Я добавляю на форму
ServerSocket1 ставлю порт 2000 и также делаю чтобы при загрузке программы было так
serversocket1.Active:=true;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
t:string;
begin
t:=socket.ReceiveText;
richedit1.Lines.Add(t);
end;

так вот мне надо чтобы пхп скрипт отправил ему на 2000 порт данные и ни отобразились в ричедите. Я тогда пишу скрипт

<?php
$fp = fsockopen ("мои ип", 2000, $errno, $errstr, 30);
if (!$fp) {
echo "$errstr ($errno)<br>\n";
} else {
fputs ($fp, "Test");
fclose ($fp);
}
?>

Так вот запускаю его на локалхосте и все нормально работает то есть появляеться тект Test в проге. Но когда я его закидываю в интернет на сайт и запускаю то он долго думает и выдает ошибку. Сокеты на сервере работаю я проверял другими скриптами. Такде фаиреволл я выключал.

Скажите пожалуйста в чем проблема. Заранее огромное спасибо

Может у тебя firewall у провайдера (попробуй на 80-м порте, многие провайдеры перекрывают "не стандартные" порты)

проверю но врядли