Скачать: CL | DM;

Прочитать файл из интернета   Найти похожие ветки 

← →
elfebet ©   (2006-04-14 11:32) [0]

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

uses
Sockets;

. . .

procedure TForm1.Button1Click(Sender: TObject);
const
get = "GET http://delphimaster.ru HTTP/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 то выполнил действие.
Кароче нужно чтобы эти заголовки не выводил.
Заранее спасибо.

---

← →
Dmitrij_K   (2006-04-14 11:38) [1]

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

---

← →
Dmitrij_K   (2006-04-14 11:40) [2]

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

---

← →
elfebet ©   (2006-04-14 11:46) [3]

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

---

← →
Dmitrij_K   (2006-04-14 12:11) [4]

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

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


---

← →
ekfebet   (2006-04-14 12:26) [5]

Thank you very much

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c