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 :
- function tform1.RecupererContenu2(WB: TWebBrowser): String;
- var
- PersistStream: IPersistStreamInit;
- Stream: IStream;
- StrStream: TStringStream;
- begin
- //S'il n'y a pas de document assigné pour le TWebBrowser
- if not Assigned(WB.Document) then
- begin
- Result := '';
- Exit;
- end;
- //TWebBrowser.Document implémente les fonctionnalités de l'interface
- //IPersitStream. On en demande l'accès ici.
- PersistStream := WB.Document as IPersistStreamInit;
- //Création d'un flux de caractères (vide au départ)
- StrStream := TStringStream.Create('');
- try
- //On crée une instance de TStreamAdapter en demandant les
- //fonctionnalités de l'interface IStream. Ce sera notre "pont" entre
- //le stream de caractères et le document HTML.
- Stream := TStreamAdapter.Create(StrStream, soReference)
- as IStream;
- //Essai de sauvegarde du document dans le stream qui vient d'être créé
- if Failed(PersistStream.Save(Stream, True)) then
- Result := ''
- else
- begin
- //Si ça s'est bien passé, on remet le stream de caractères au début
- StrStream.Position := 0;
- //et on renvoie ce qu'il contient
- Result := StrStream.Readstring(StrStream.Size);
- //strstream.Read(Result,strstream.Size ) ;
- end;
- finally
- StrStream.Free;
- end;
- end;
|
Message édité par bossamiral2 le 25-09-2006 à 21:25:15
