Добрый день. решил попробовать сокеты.
такой код:
Код:
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