Tbrowser capture de lien avant echange serveur

Tbrowser capture de lien avant echange serveur - Delphi/Pascal - Programmation

Marsh Posté le 19-05-2006 à 16:42:37    

Boujour tout le monde!
Voila je suis tout nouveau sur ce forum de programmation et j'aurais besoin d'un peut d'aide  car je seche.
En faite je voudrais creer un petit programme qui puisse lire des page internet compatible php mais qui me transmette l'url du lien avant de faire une requete au serveur sur le lien ouvert...
Je m'explique (j'essaye d'etre le plus clair possible )
 
Admettons que j'ai un compte pour un jeu en ligne.Je clique sur le lien qui me permet de pêcher un poisson!
L'adresse est du type www.nomdusite.com/peche.php?type=XX ou XX la variable contenant le type de poisson
Je voudrais intercepter le lien avant qu'il envoit les informations au serveur qui seront stockées
J'ai beau faire precédent ou arreter le chargement de la page pour modifier la variable que les informations sont deja envoyées!!!
 
Donc voila un exemple pratique un peut bete je l'avoue mais il illustre bien ce que j'ai en tete.
Je m'en remet à vous pour me dire si cela est possible car je suis neophyte en delphi..
Voila merci de m'avoir lu en epserent que vous puissiez m'aider
Merci a tous!

Reply

Marsh Posté le 19-05-2006 à 16:42:37   

Reply

Marsh Posté le 29-06-2006 à 22:20:53    

La fonction suivante te permet de récupérer un contenu HTML sans suivre de redirection :

Code :
  1. Uses Wininet;
  4. {----------------------------------------------------------------}
  5. Function GetHTML(AUrl: String): String;
  6. Var
  7.   databuffer: Array[0..4095] Of Char;
  8.   hSession, hfile: hInternet;
  9.   dwindex, dwcodelen, dwread, dwNumber: Cardinal;
  10.   dwcode: Array[1..20] Of Char;
  11.   res: PChar;
  12. Begin
  13.   Result := '';
  14.   hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, Nil, Nil, 0);
  15.   If (Assigned(hsession)) Then Begin
  16.     hfile := InternetOpenUrl(hsession, PChar(AUrl), Nil, 0, INTERNET_FLAG_RELOAD, 0);
  17.     dwIndex := 0;
  18.     dwCodeLen := 10;
  19.     HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
  20.     res := pchar(@dwcode);
  21.     dwNumber := SizeOf(databuffer) - 1;
  22.     If ((res = '200') Or (res = '302')) Then Begin
  23.       While (InternetReadfile(hfile, @databuffer, dwNumber, DwRead)) Do Begin
  24.         If (dwRead = 0) Then Break;
  25.         databuffer[dwread] := #0;
  26.         Result := Result + PChar(@databuffer);
  27.       End;
  28.     End Else Result := 'Status:' + res;
  29.     If (Assigned(hfile)) Then InternetCloseHandle(hfile);
  30.   End;
  31.   InternetCloseHandle(hsession);
  32. End;
  34. {----------------------------------------------------------------}
  35. Procedure TForm1.FormCreate(Sender: TObject);
  36. Begin
  37.   Memo1.Text := GetHTML('http://forum.hardware.fr');
  38. End;


Apres , il existe des modules d'expressions régulieres PCRE compatibles Delphi qui te permettrai de récupérer les liens.


Message édité par the_bigboo le 29-06-2006 à 22:21:16
Reply

Sujets relatifs:

Leave a Replay

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