Javascript

Version imprimable

17/01/2008, 09h58
DevBel

Delphi / web / Javascript

Bonjours

j'ai besoin de votre aide.

J'utilise IdHttp pour OBTENIR ou POSTER des données d'un sites Web.
Comment puis-je poster des données à un site Web s'il utilise JavaScript pour avoir accès à ses ressources ? Par exemple: javascript:something.func (? ?);

Merci
17/01/2008, 10h21
Rayek

Tu ne peux pas, Indy n'est pas compatible avec le Javascript.
17/01/2008, 10h35
DevBel

y'a pas de moyen.

le site a une image. quan je click il exécute un javascript.

jve exécuter ce javascript a partir de mon application afin d'accédé a la page suivante.
17/01/2008, 10h35
DevBel

y'a pas d'autre moyen ???

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<script language="javascript" type="text/javascript">
<!--
	function __doPostBack(eventTarget, eventArgument) {
		var theform;
		if (window.navigator.appName.toLowerCase().indexOf("microsoft") > -1) {
			theform = document.ReportViewer;
		}
		else {
			theform = document.forms["ReportViewer"];
		}
		theform.__EVENTTARGET.value = eventTarget.split("$").join(":");
		theform.__EVENTARGUMENT.value = eventArgument;
		theform.submit();
	}
// -->
</script>
 
<a href="javascript:__doPostBack('CrystalReportViewer1$_ctl1$_ctl0$_ctl1','')"><img title="Export" src="/crystalreportviewers/images/toolbar/export.gif" alt="" border="0" height="24" width="24" /></a>

y'a aussi

Code:

1
2
<input type="hidden" name="__EVENTTARGET" value="" />
<input type="hidden" name="__EVENTARGUMENT" value="" />

18/01/2008, 17h08
DevBel

24h sans réponse. :cry:

que dois-je faire ??!!!
18/01/2008, 19h18
Sub0

As-tu accès au serveur ou bien il s'agit d'un site web non perso ?

Regarde ce sujet si tu trouves une réponse.
19/01/2008, 10h22
DevBel

c'est un site web non perso.

enfaite je fait un logiciel pour un client du site. afin de ce connecté et voir ses données.
19/01/2008, 11h39
DevBel

merci pour vos réponses

j'ai vue ce lien sub y'a pas de solution. en plus mon n'est pas le méme
19/01/2008, 12h01
Paul TOTH

bon, alors on se fiche de savoir si la requête est en Javascript, ou pas, le navigateur va au final envoyer une requête HTTP au serveur, c'est cette requête que tu dois reproduire.

ce que fait le javascript, c'est juste remplacer les "$" par des ":" dans eventTarget avant de coller sa valeur dans le champ __EVENTTARGET du formulaire, et il renseigne aussi __EVENTARGUMENT.

Tout se termine sur un submit qui lance la requête comme si de rien n'était.

faut donc retrouver le formulaire "ReportViewer" et ses champs pour produire ta requête (FireFox avec son extension Web Developper est très bien pour ça)

merci paul de m'avoir répondu

j'ai déja fait comme tu di mais NADA

voici le code HTML

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
<form name="ReportViewer" method="post" action="ReportViewer.aspx" id="ReportViewer">
 
<input type="hidden" name="__EVENTTARGET" value="" />
<input type="hidden" name="__EVENTARGUMENT" value="" />
<input type="hidden" name="__VIEWSTATE" value=".................">
 
<script language="javascript" type="text/javascript">
<!--
	function __doPostBack(eventTarget, eventArgument) {
		var theform;
		if (window.navigator.appName.toLowerCase().indexOf("microsoft") > -1) {
			theform = document.ReportViewer;
		}
		else {
			theform = document.forms["ReportViewer"];
		}
		theform.__EVENTTARGET.value = eventTarget.split("$").join(":");
		theform.__EVENTARGUMENT.value = eventArgument;
		theform.submit();
	}
// -->
</script>
 
<a href="javascript:__doPostBack('CrystalReportViewer1$_ctl1$_ctl0$_ctl1','')">
<img title="Export" src="/crystalreportviewers/images/toolbar/export.gif" alt="" border="0" style="height:24px;width:24px;" /></a

mon code source : (Incomplet)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
var
  poz :integer;
  Params: TStringList;
  html, viewstate, loginurl: String;
begin
 
  memo1.Lines.Clear;
  loginurl:='http://212.100.209.9/reports/ReportViewer.aspx';
  Params := TStringList.Create;

   try
       
     html:=idhttp1.Get(loginUrl);

     poz:=pos('name="__VIEWSTATE" value="',html);
     delete(html,1,poz+25);
     viewstate:=copy(html,1,pos('"',html)-1);
     
      with Params do
      begin
        Values['__VIEWSTATE'] := viewstate;
        Values['__EVENTTARGET'] := 'CrystalReportViewer1:_ctl1:_ctl0:_ctl1';
      end;
      
      HTML := idHTTP1.Post(loginUrl, Params);
      memo1.Lines.add(idHTTP1.Get(loginUrl));

      except
       {gestion d'erreur}
      end;

      Params.Free;

19/01/2008, 16h10
Paul TOTH
bon moi cette url m'affiche une erreur :)

d'autre part, je ne connais pas bien les composants Indy, mais Get et Post sont deux méthodes HTTP qui renvoie toutes les deux du code HTML, donc le code devrait certainement être :
Code:

1 2 3 HTML := idHTTP1.Post(loginUrl, Params); memo1.Lines.add(HTML); // idHTTP1.Get(loginUrl));
19/01/2008, 16h13
DevBel

ola, je m'attend pas a une réponse rapide. thanks

oui mais la. y'a une violation d'accés.

est-il au moin correcte ? (mon code source)

--------enfaite jsuis un débutant (2ans de programmation).----------------
19/01/2008, 16h20
DevBel

pour l'url Faut t'identifié.

http://212.100.209.7/security/Login.aspx?
19/01/2008, 16h26
Paul TOTH

Citation:

Envoyé par DevBel

pour l'url Faut t'identifié.

http://212.100.209.7/security/Login.aspx?

ben Indy aussi doit d'identifier alors :D

j'imagine que la page de login te retourne un cookie, il faut alors que Indy invoque l'url de login (http://212.100.209.7/security/Login.aspx) en POST avec les champs demandés (__VIEWSTATE, TxtUsername, TxtPassword). Alors tu peux récupérer la valeur du cookie qu'il faudra alors intégrer dans tes requêtes suivantes.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
script language="javascript">
        <!--
 
function doGraphDrilldown_CrystalReportViewer1__ctl1(event, name, brch, offsetX, offsetY, pageNumber, nextpart) {
        if (ie4up)
            
javascript:__doPostBack('CrystalReportViewer1$_ctl1','name=' + name + '&brch=' + brch + '&coord=' + (event.offsetX*15 / 1+parseInt(offsetX)) + '-' + (event.offsetY*15 / 1 +parseInt(offsetY)) + '&pagenumber=' + pageNumber + '&nextpart=' + nextpart)
        
else
            javascript:__doPostBack('CrystalReportViewer1$_ctl1','name=' + name + '&brch=' + brch + '&coord=' + (event.layerX*15 / 1 
+parseInt(offsetX)) + '-'  + (event.layerY*15 / 1 +parseInt(offsetY)) + 
'&pagenumber=' + pageNumber + '&nextpart=' + nextpart)
        }
        // -->
    </script>

j'arrive pas a comprendre :oops::cry:

19/01/2008, 16h31
DevBel

Pour ça y'a pas de probléme. c déja fait
ça marche a 100%.

je parle d'une page qui suit l'identification.
19/01/2008, 16h32
DevBel

oups pardon. j'ai mal comprie.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
procedure TForm1.Button10Click(Sender: TObject);
var
  i:integer;
begin
 
  memo1.Clear;
  loginurl:='http://212.100.209.9/reports/ReportViewer.aspx';
  Params := TStringList.Create;
  try
    cookies:=tstringlist.Create;
 
      html:=idhttp1.Get('http://212.100.209.9/reports/ReportViewer.aspx');
 
      count:=IdCookieManager1.CookieCollection.count;
      for i:=1 to count do
        cookies.Add(IdCookieManager1.CookieCollection.Items[i-1].CookieText);
 
 
      html:=idhttp1.Get(loginUrl);
 
      poz:=pos('name="__VIEWSTATE" value="',html);
      delete(html,1,poz+25);
      viewstate:=copy(html,1,pos('"',html)-1);
 
      with Params do
      begin
        Values['__VIEWSTATE'] := viewstate;
        Values['__EVENTTARGET'] := 'CrystalReportViewer1:_ctl1:_ctl0:_ctl1';
      end;
      memo6.Text:=params.Text;
      setCookies;
      IdHTTP1.HandleRedirects:=false;
      try
        HTML := IdHTTP1.Post(loginurl, Params);
        memo1.Lines.add(IdHTTP1.Get(loginurl));
 
      except on e: EIdHTTPProtocolException do
         begin
           if e.ReplyErrorCode<>302 then
             raise e;
 
           count:=IdCookieManager1.CookieCollection.count;
           for i:=1 to count do
             cookies.Add(IdCookieManager1.CookieCollection.Items[i-1].CookieText);
 
           setcookies;
           html:=idhttp1.Get(IdHTTP1.Response.Location);
           memo1.Lines.add(IdHTTP1.Get(loginurl));
         end;
      end;
 
     except on e: EIdHTTPProtocolException do
         begin
           memo2.lines.add(idHTTP1.response.ResponseText);
           memo3.lines.add(e.ErrorMessage);
         end;
 
      end;
 
      Params.Free;
end;

Code:

1
2
3
4
5
6
7
procedure Tform1.setcookies;
var j:integer;
begin
  count:=IdCookieManager1.CookieCollection.count;
  for j:=1 to count do
    IdHTTP1.Request.RawHeaders.Add('Cookie'+IdHTTP1.Request.RawHeaders.NameValueSeparator+IdCookieManager1.CookieCollection.Items[j-1].CookieText);
end;

et pour m'identifié je fait la méme chose

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
procedure TForm1.ConnectClick(Sender: TObject);
var
  i:integer;
begin
 
  loginurl:='http://212.100.209.7/security/Login.aspx?culture=ar';
  Params := TStringList.Create;
  try
    cookies:=tstringlist.Create;
 
      html:=idhttp1.Get(loginurl);
 
      count:=IdCookieManager1.CookieCollection.count;
      for i:=1 to count do
         cookies.Add(IdCookieManager1.CookieCollection.Items[i-1].CookieText);
 
      html:=idhttp1.Get(loginUrl);
 
      poz:=pos('name="__VIEWSTATE" value="',html);
      delete(html,1,poz+25);
      viewstate:=copy(html,1,pos('"',html)-1);
      Params.Values['__VIEWSTATE'] := viewstate;
      Params.Values['TxtUsername'] := '------';
      Params.Values['TxtPassword'] := '******';
      Params.Values['BtnLogin'] := 'Login';
 
      setCookies;
      IdHTTP1.HandleRedirects:=false;
      try
        HTML := IdHTTP1.Post(loginurl, Params);
 
      except on e: EIdHTTPProtocolException do
         begin
           if e.ReplyErrorCode<>302 then
             raise e;
 
           count:=IdCookieManager1.CookieCollection.count;
           for i:=1 to count do
             cookies.Add(IdCookieManager1.CookieCollection.Items[i-1].CookieText);
 
           setcookies;
           html:=idhttp1.Get(IdHTTP1.Response.Location);
           memo1.Lines.add(IdHTTP1.Get('http://212.100.209.7/Security/MainPage.aspx'));
         end;
      end;
 
     except on e: EIdHTTPProtocolException do
         begin
           memo2.lines.add(idHTTP1.response.ResponseText);
           memo3.lines.add(e.ErrorMessage);
         end;
 
      end;
 
      Params.Free;

c pas encore propres mais c juste un test

19/01/2008, 16h46
DevBel

Merci beaucoup M Paul
19/01/2008, 16h52
Paul TOTH

bon y'a une grande confusion dans tout cela :D

notamment, et je me répète, tu fais un POST puis un GET, pour moi ça n'a pas de sens, c'est pas un SEND et un RECV :D

Code:

1
2
3
4
5
6
7
 
try
   memo1.Lines.add(IdHTTP1.Post(loginurl, Params));
    {
     html := IdHTTP1.Post(loginurl, Params);
     memo1.Lines.add(IdHTTP1.Get(loginurl));
     }

violation d'accés a l'adresse 00d14def

19/01/2008, 17h46
DevBel

je crois que j'ai trouvé l'erreur.

viewstate n'est pas le méme. il change.

faudra que je trouve d'autre solution pour extraire ce variable.8O

en tt cas merci paul. t'es :king:
19/01/2008, 17h47
Paul TOTH

comme je le disais, je ne connais pas Indy, on dirait qu'il a besoin d'un TStringStream
20/01/2008, 11h38
DevBel

Yahooooooooooooo :yaisse2:
j'ai réussi. Merçi paul.
je peut t'envoyer le source si tu ve
20/01/2008, 11h44
Paul TOTH

Citation:

Envoyé par DevBel

Yahooooooooooooo :yaisse2:
j'ai réussi. Merçi paul.
je peut t'envoyer le source si tu ve

non ça va aller, merci :) mais si tu es vraiment reconnaissant, tu peux faire décoller mon compte Paypal qui plafonne à 6,08€ :D

Sinon je ne répond pas aux messages privés, mais pour répondre à ta question, que le serveur renvoie du XML, du jpeg ou du HTML, cela importe peu, c'est toujours un transfert de fichier en HTTP; tu trouveras simplement dans l'entête le type mime du document dans Content-Type et du XML dans le contenu.