|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
25.09.2012, 23:44
|
|||
|
|||
Почему то не работает TClientSocket (RAD2010)
Добрый день. решил попробовать сокеты.
такой код: Код:
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 |
Древовидный вид