| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сайт без браузера

Человек ©   (2006-02-04 21:43:00) 

Как обратиться к какому-нибудь сайту не открывая браузера? Т.е послать команду что-ли www.example.ru/example.  
Если не понятно -- разъясню.

---

umbra   (2006-02-14 19:05:00) [1]

попробуйте TIdHTTP с закладки IndyClients (если у Вас Д7). Это и есть браузер без графического интерфейса

---

yurc   (2006-02-14 18:46:00) [2]

сапасибо большое Zeqfreed за пример запроса

---

Человек   (2006-02-04 22:40:00) [3]

Честно, еще не успел, я просто для Вас запрос уточнял. Пошел пробовать

---

Anatoly Podgoretsky   (2006-02-04 22:38:00) [4]

В протоколе это метод GET

---

Zeqfreed   (2006-02-04 22:35:00) [5]

[3] Человек   (04.02.06 22:23)

> Как выполнить этот запрос

Это не запрос. Выполнить — подправить пару строчек в коде, приведенном в [2]. Если Вас интересует готовое решение для какой-то конкретной проблемы, то можно обговорить цену ;)

---

Джо   (2006-02-04 22:24:00) [6]

> [3] Человек   (04.02.06 22:23)
> Ну, допустим, у меня есть ссылка example.ru/ura.htm/?msg=hello.Как
> выполнить этот запрос.

Надо полагать, варианты [1] и [2] уже испробовали?

---

Человек   (2006-02-04 22:23:00) [7]

Ну, допустим, у меня есть ссылка example.ru/ura.htm/?msg=hello.Как выполнить этот запрос.

---

Zeqfreed   (2006-02-04 22:20:00) [8]

Человек   (04.02.06 21:43)

Простейший пример :)


uses …Sockets…;

. . .

procedure TForm1.Button1Click(Sender: TObject);
const
get = 'GET http://delphimaster.ru/HTTP/1.0' + CRLF +
      'Host: delphimaster.ru' + CRLF +
      'Agent: Vasiliy Pupkin''s Browser' + CRLF +
      'Connection: close' + CRLF + CRLF;
begin
with TTcpClient.Create(Self) do begin
 try
  RemoteHost := 'delphimaster.ru';
  RemotePort := '80';
  if Connect() then begin
   Sendln(get, '');

   Memo1.Clear;
   Memo1.Text := Receiveln(CRLF+CRLF);
   Memo1.Text := Memo1.Text + Receiveln(CRLF+CRLF);

   Close();
  end;
 finally
  Free;
 end;
end;
end;

Далее читаем http://www.codenet.ru/webmast/php/HTTP-POST.php

---

Джо   (2006-02-04 21:50:00) [9]

Что понимается под "обратиться"?
Вообще, самое простое, наверное — использовать функции из WinInet.pas.

---

Наверх