//грузим гет запрос
Function geturl(getstr:string):string;
var htmlBody,contentType:string;
conn: http;
Begin
if not openHttp(conn,getstr) then
geturl:='Ошибка, проверьте настройки сети!!!' else
begin
setHttpMethod(conn, GET);
addHttpHeader(conn, 'User-agent', '');
if sendHttpMessage(conn) <> 200 then geturl:='Невозможно отправить запрос к серверу !'
else
begin
htmlBody := getHttpResponse(conn);
contentType := getHttpHeader(conn, 'Content-type');
closeHttp(conn);
geturl:=htmlBody;
end;
end;
end;
Пример использования
s:= geturl('http://gayvoron.org.ua/');
s - будет содержать текст страници
('<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
<meta name="generator" content="vBulletin 3.5.4" />............' - типа того
)
Теперь парсер... ща выложу как на дельфе делал.
function removeHTML(s:string):string;
Var ss:string;
b:boolean;
i:integer;
begin
b:=true;
for i:=1 to length(s) do
begin
if b and (s[i]<>'<') then ss:=ss+s[i];
If (s[i]='>')or(s[i]='<') then b:=not b;
end;
removeHTML:=ss;
end;
перепишишь на мп (фигня) и будет те щастье....