Récupération d'information d'une page HMTL

Récupération d'information d'une page HMTL - Delphi/Pascal - Programmation

Marsh Posté le 11-09-2006 à 19:10:36    

Voilà, je suis entrain de jouer à un jeu en ligne à travers le browser.
Et j'ai crée un petit programme ou j'ai une calculette avec le browser en dessous ce qui permet de faire des simulations avant de les valider.
 
Afin d'améliorer mon programme, j'aimerais récupérer automatiquement un certain nombre d'information sur la page web et de remonter ces informations dans ma calculette (pour l'instant je fais l'opération manuellement).
 
Perso j'ai essayé de récupérer le code source de la page et faire une recherche dessus mais impossible.
 
Si quelqu'un à une idée.
 
A oui j'utilise turbo pascal 2006 et Twebbrowser pour afficher la page web.
 
Complément d'information : J'utilise cette fonction mais je n'ai pas la même chose que si je fais un affichage du code source depuis le browser.
 
 

Code :
  1. function tform1.RecupererContenu2(WB: TWebBrowser): String;
  2. var
  3.   PersistStream: IPersistStreamInit;
  4.   Stream: IStream;
  5.   StrStream: TStringStream;
  6. begin
  7.   //S'il n'y a pas de document assigné pour le TWebBrowser
  8.   if not Assigned(WB.Document) then
  9.   begin
  10.     Result := '';
  11.     Exit;
  12.   end;
  14.   //TWebBrowser.Document implémente les fonctionnalités de l'interface
  15.   //IPersitStream. On en demande l'accès ici.
  16.   PersistStream := WB.Document as IPersistStreamInit;
  18.   //Création d'un flux de caractères (vide au départ)
  19.   StrStream := TStringStream.Create('');
  20.   try
  21.     //On crée une instance de TStreamAdapter en demandant les
  22.     //fonctionnalités de l'interface IStream. Ce sera notre "pont" entre
  23.     //le stream de caractères et le document HTML.
  24.     Stream := TStreamAdapter.Create(StrStream, soReference)
  25.               as IStream;
  26.     //Essai de sauvegarde du document dans le stream qui vient d'être créé
  27.     if Failed(PersistStream.Save(Stream, True)) then
  28.       Result := ''
  29.     else
  30.     begin
  31.       //Si ça s'est bien passé, on remet le stream de caractères au début
  32.       StrStream.Position := 0;
  33.       //et on renvoie ce qu'il contient
  34.       Result := StrStream.Readstring(StrStream.Size);
  36.    //strstream.Read(Result,strstream.Size ) ;
  37.     end;
  38.   finally
  39.     StrStream.Free;
  40.   end;
  41. end;


Message édité par bossamiral2 le 25-09-2006 à 21:25:15
Reply

Marsh Posté le 11-09-2006 à 19:10:36   

Reply

Marsh Posté le 25-09-2006 à 21:25:59    

up pour le complément d'information

Reply

Marsh Posté le 04-10-2006 à 10:27:41    

c'est un peu vague ton histoire ... mais bon le html n'etant pas structuré ( contrairement au xml ) il faut mouliner la page et trouver un moyen de reperer l'information, ce qui n'est pas toujoujours facile a faire ...
 
le xml te permait de recuperer ce que tu veux pour peu que tu le structure comme il faut ...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed