[Seregakz]

Сообщение от 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 на эмуляторе выводит то что находится на веб странице а на сотке нефика((