Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Почему то не работает TClientSocket (RAD2010)

Автор: Pcrepair 25.9.2012, 22:53

Добрый день. решил попробовать сокеты.
такой код:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
   ClientSocket1.Host := '127.0.0.1';  (*тут веб-сервер*)
   ClientSocket1.Port := 80;
   ClientSocket1.Open;
   (*специально для проверки дописал вот это*)
   if ClientSocket1.Active = True then
   Label1.Caption:='IT OPEN'; (*лейбл показывает что сокет не запустился, не активный*)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   ClientSocket1.close;
end;

Пробовал в режиме трассировки. доходит до Button1Click - и ничего. а вот Button2Click нормально проходит трассировку
пробовал далее ClientSocket1.Socket.SendText('GET /index.php HTTP/1.1'#13#10); по ClientSocket1Connect и далее Memo1.Lines.Add(Socket.ReceiveText), но конечно ничего не вышло, поскольку метод OPEN не работает?

Вопрос: может что не так в синтксисе? все примеры из Д7