из хелпа:
var conn : http;
htmlBody : string;
contentType : string;
begin
// Пытаемся установить соединение с сайтом www.google.com
if not OpenHttp(conn, 'http://www.google.com') then Halt;
// Задаем метод передачи данных (другие поддерживаемые методы - это HEAD и POST)
SetHttpMethod(conn, GET);
// Указываем название нашего браузера
AddHttpHeader(conn, 'User-agent', 'Opera Mini 9.25');
// Отсылаем HTTP запрос и проверяем код ответа (200 = OK)
if SendHttpMessage(conn) <> 200 then Halt;
// Скачиваем запрашиваемый файл (по-идее это index.html)
htmlBody := GetHttpResponse(conn);
// Читаем заголовок присланного файла
contentType := GetHttpHeader(conn, 'Content-type');
// Закрываем соединение
CloseHttp(conn);
end.
|
вместо гугл.ком адрес твоего скрипта напиши