Форум: "Начинающим";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];
ВнизПрочитать файл из интернета Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c