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

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

Прочитать файл из интернета [D7, WinXP]

elfebet ©   (2006-04-14 11:32:00) 

Мне кто-то подзсказал, что надо так

uses
Sockets;

. . .

procedure TForm1.Button1Click(Sender: TObject);
const
get = 'GET http://delphimaster.ruHTTP/1.0' + CRLF +
      'Connection: Close' + CRLF + CRLF;
begin
with TTCPClient.Create(Self) do begin
 try
  RemoteHost := 'delphimaster.ru';
  RemotePort := '80';

  if Connect() then begin
   SendLn(get, CRLF + CRLF);

   Memo1.Text := ReceiveLn(CRLF + CRLF);
   Memo1.Text := Memo1.Text + ReceiveLn(CRLF + CRLF);

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

этот код отображает файл с заголовками типа
HTTP/1.1 200 OK
Date: Fri, 14 Apr 2006 07:29:34 GMT
Server: Apache/1.3.33 (Win32) PHP/4.4.0
Last-Modified: Fri, 14 Apr 2006 05:57:39 GMT
ETag: "0-35-443f39d3"
Accept-Ranges: bytes
Content-Length: 53
Connection: close
Content-Type: text/plainhello
А мне нужно чтобы запустил скрипт(генерирует страницу с каким-то текстом) и проверил, если в скрипте слово del то выполнил действие.
Кароче нужно чтобы эти заголовки не выводил.
Заранее спасибо.

---

ekfebet   (2006-04-14 12:26:00) [1]

Thank you very much

---

Dmitrij_K   (2006-04-14 12:11:00) [2]

TIdHTTP это компонент на вкладке IndyClient

With TIdHTTP.Create(nil) do
begin
 try
   memo1.Lines.Text := Get(' http://ya.ru');
 finally
   Free;
 end;
end;


---

elfebet   (2006-04-14 11:46:00) [3]

ой я не знаток работы в delphi с инетом, скажите плиз что значит IdHTTP&
и как это байду сделать

---

Dmitrij_K   (2006-04-14 11:40:00) [4]

if Pos('del',IdHTTP.Get('url'))<>0 then
begin
{...}
end

---

Dmitrij_K   (2006-04-14 11:38:00) [5]

Чем тебя не устраивает IdHTTP&

---

Наверх