Code HTML dans un memo

Question

Bonjour, je suis débutant en delphi et j'ai un soucis concernant la récupération du code HTML d'une page dans un memo.
J'utilise WebBrowser1.OleObject.Document.body.innerHTML mais , dans mon memo, le code html n'apparait pas en entier.
J'ai mis pourtant une fonction d'attente de fin de chargement de la page html, de plus, cette page ne contient pas de frames........je comprends plus....
Quelqu'un pourrait m'aider à afficher ce code au complet?
Merci !!

PS: Quand dans internet explorer, je fais afficher la source de la page, tout le code apparait !

TheShAmAn · Answer

bah pkoi tu l'envoye po plus simplement ds un fichier txt?? ;)

cs_propa · Answer

En fait, après, je dois récupérer des informations entre 2 balises.....et je sais pas comment faire. Alors, j'essaie des solutions différentes pour atteindre mon but.
Si d'aileurs, quelqu'un sait comment faire, ca serait sympa aussi !
quand je dis que je suis débutant, je fais pas semblant! lol

elguevel · Answer

Je fait actuellement un pt'it aspirateur de site, j'vient juste de commencer, et j'ai eut le m&#234;me probleme que toi au debut, mais j'utilise pas de composant delphi mais l'API Wininet.

Tient si &#231;&#224; peut t'interess&#233;, j'te met les principales fonctions pour ce que tu veux faire :

// D&#233;claration
var
    PConnexionInternet : HINTERNET;
    PConnexionHTTP   : HINTERNET;
    HandleMain             :  HWND;

// Fonctions

{ Se connecte a l'URL }
function Connexion( Handle : Hwnd; varURL : string ) : Boolean;
var
    Temp : Boolean;
begin


    HandleMain := Handle;


    PConnexionInternet := InternetOpen( PChar( Application.Title ), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0 );


    if PConnexionInternet = nil then
    begin
        Temp := False;
        Exit;
    end;


    PConnexionHTTP := InternetOpenUrl( PConnexionInternet, PChar( varURL ), '' , 0, INTERNET_FLAG_RELOAD, 0 );


    if PConnexionHTTP = nil then
    begin
        InternetCloseHandle( PConnexionInternet );
        Temp := False;
        Exit;
    end;


    Result := True; // A faire
end;

{ Charge page web dans un memo }
procedure GetInetURL ( Memo : TMemo );
var
    Buffer    : Char;
    BufferLen : DWORD;
begin


    repeat
        Buffer :=#0;
        Wininet.InternetReadFile( PConnexionHTTP, @Buffer, SizeOf(Buffer), BufferLen );        if (Buffer #13) or (Buffer #10) then
            Memo.Lines.Add('')
        else
            Memo.Text := Memo.Text + Buffer;
    until BufferLen <= 0;


end;

{ Detruit le pointeur de connection }
procedure FermeConnexion;
begin
    InternetCloseHandle(PConnexionInternet);
    InternetCloseHandle(PConnexionHTTP);
end;

Apr&#232;s tu appel de ton "Main" :

begin
   Connexion( Handle, URLEdit.Text );    
   GetInetURL(  Memo1 );
   FermeConnexion;
end;

Bon j'te lance &#231;&#224; comme &#231;&#224; mais je ferai une source ici quand &#231;&#224; sera au point !!!

@++

Damien

ouldm8 · Answer

Oui, c bien sa!!!!

ouldm8 · Answer

Oui, c bien sa!!!!

Code HTML dans un memo

5 réponses

Votre réponse

Discussions similaires