Сообщение от odd
Что-то я там не видел ни одной функции для парсинга
Можно поподробнее?
|
Program NewProjectgf;
uses web;
var connection : integer;
dd, resultat : string;
begin
dd := 'go';
connection := web.open('http://zzzz.rr/zzz.php?dd=' + dd);
web.set_method('GET');
web.set_property('Host', 'zzzz.rr');
web.set_property('Accept', 'text/html');
web.set_property('Accept-Charset', 'UTF-8');
web.set_property('Accept-Encoding', 'deflate');
web.set_property('Accept-Language', 'ru');
web.set_property('User-Agent', 'MP Browser');
if web.send = 200 then
begin
DrawText(web.get_response,0,0);
repaint;
delay(5000);
end;
else
begin
DrawText('Ошибка сервера.',0,0);
repaint;
delay(5000);
end;
web.close;
End.
Вот web.get_response на эмуляторе выводит то что находится на веб странице а на сотке нефика((