Discussion :

[cantador]

Bonsoir à tous,

j'ai développé une application permettant de récupérer des pages Web via un TWebbrowser me permettant de mettre à jour
un annuaire.
Sous environnement serveur windows 32 bits, je n'avais aucun souci.
Après quelques tests, je m'aperçois que le composant TWebbrowser est inactif en 64 bits !
comment résoudre cette difficulté ?
merci

[guillemouze]

Peut etre avec un THttpRequest de indy

[cantador]

merci guillemouze,

je n'ai pas à priori le composant THttpRequest à moins qu'il s'agit d'une classe qu'il faut instancier..(je suis sous Delphi 7)
autre précision, l'objectif est de récupérer les infos des pages et non le source.
or celles-ci sont toutes codées en JavaScript..
Donc, il me faut quelque chose qui les visualisent et qui ensuite permet d'effectuer un copier coller des données.
ce que je faisais très bien avec le TWebbrowser que je pouvais même ensuite parser etc.

?

j'ai bien tenté ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure DownloadHTTP(const AUrl: string; AStringList: TStrings);
begin
  with TIdHTTP.Create(Application) do
  try
    try
      AStringList.Text := Get(AUrl);
    except
    end;
  finally
    Free;
  end;
end;
 
procedure THTMLForm.Button4Click(Sender: TObject);
begin
  DownloadHTTP(MyURL, Memo1.Lines);
end;

mais, rien ne s'affiche dans le mémo (toutefois certaines adresses passent..)
j'ai essayé avec un TMemoryStream, sans succès..
avec www.developpez.com, par exemple ça ne fonctionne pas
il doit y avoir un truc comme dab..

[guillemouze]

essaye comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure DownloadHTTP(const AUrl: string; AStringList: TStrings);
begin
  with TIdHTTP.Create(Application) do
  try
    try
      Host := AUrl;
      AStringList.Text := Get('/');
    except
    end;
  finally
    Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  myurl = 'www.developpez.com';
begin
  DownloadHTTP(MyURL, Memo1.Lines);
end;

[cantador]

host non reconnu..

[ShaiLeTroll]

De toute façon, TIdHTTP ne lance pas le JS. Donc si tes données sont issues d'un WebService appelé en AJAX cela ne passer pas !
Donc soit toutes les données sont présentes dans le HTML produit par le Serveur Web dès le début, faut donc te faire un parser de HTML, cela se bricole assez facilement, on doit trouver des sujets sur le forum (dont j'ai pris part)
Soit, les données sont récupérés par le JS et donc tu pourrais récupérer l'URL qu'utilise le JS pour appeler directement le WS, il est avec un peu de chance en REST, sinon en SOAP

Enfin si TIdHTTP se montre récalcitrant, tu peux le faire à la main avec les API Windows comme dans ce sujet : IdHttp.post ne retourne rien

Avec les Input renseigné avec :
- 'Server Name' = "www.developpez.net"
- 'URL' = "forums/d1603192/environnements-developpement/delphi/programme-sous-windows-server-2012-r2-standard/#post8745829"
- 'Params' = "" rien, juste OK sans rien mettre !
Cela retourne près de 260 Ko de HTML (le contenu de notre conversation)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
62
63
64
procedure TZooShaiVCLMainForm.btnDownloadURLClick(Sender: TObject);
const
  BufferSize = 1024;
  accept: packed array[0..1] of LPWSTR = (PChar('text/*'), nil); // PCTSTR rgpszAcceptTypes[] = {_T(“text/*”), NULL};
var
  ServerName, URL, Params, LocalFileName: string;
  hSession, hHTTP, hReq : HINTERNET;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  sAppName: string;
  FS: TFileStream;
  Headers: string;
  Data: RawByteString;
begin
  sAppName := ExtractFileName(Application.ExeName);
 
  hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if not InputQuery('Download URL', 'Server Name', ServerName) then
      Exit;
 
    hHTTP := InternetConnect(hSession, PChar(ServerName), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
    try
      if not InputQuery('Download URL', 'URL', URL) then
        Exit;
 
      hReq := HttpOpenRequest(hHTTP, PChar('POST'), PChar(URL), nil, nil, @accept, 0, 1);
      try
        Headers := 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
 
        if not InputQuery('Download URL', 'Params', Params) then
          Exit;
 
        Data := UTF8Encode(Params);
        if HttpSendRequest(hReq, PChar(Headers), length(Headers), PAnsiChar(Data), length(Data)) then
        begin
          LocalFileName := StringReplace(URL, '/', '_', [rfReplaceAll]);
          if not PromptForFileName(LocalFileName, '', '.txt', 'Download URL into Local File', '', True) then
            Exit;
 
          FS := TFileStream.Create(LocalFileName, fmCreate);
          try
            BufferLen := 0;
            repeat
              if InternetReadFile(hReq, @Buffer, BufferSize, BufferLen) then
                FS.WriteBuffer(Buffer, BufferLen);
 
            until BufferLen = 0;
          finally
            FS.Free;
          end;
        end
        else
          raise Exception.Create('HttpOpenRequest failed. ' + SysErrorMessage(GetLastError));
      finally
        InternetCloseHandle(hReq);
      end;
    finally
      InternetCloseHandle(hHTTP);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

[cantador]

Salut ShaiLeTroll, (+1)

j'ai repris le code de la FAQ et ça fonctionne
je ne sais pas pourquoi, je ne l'ai pas vu..
il faut que je teste maintenant si ça marche sur mon serveur 64 bits
et refaire le parser..

MERCI

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
function THTMLForm.DownloadFileHttp(const fileURL, FileName: string): Boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: file;
  sAppName: string;
  FS: TFileStream;
begin
  Result := False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
    'xxx_Login_Proxy_Nom Utilisateur_xxx', 'xxx_Login_Proxy_Mot_de_Passe_xxx', 0);
  if FileExists(FileName) then
    DeleteFile(FileName);
  FS := TFileStream.Create(FileName, fmCreate);
  try
    hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
    try
      repeat
        InternetReadFile(hURL, @Buffer, BufferSize, BufferLen);
        FS.WriteBuffer(Buffer, BufferLen);
        Label1.Caption := IntToStr(fs.Size);
      until BufferLen = 0;
      Result := True;
    finally
      InternetCloseHandle(hURL)
    end
  finally
    InternetCloseHandle(hSession);
    FS.Free;
  end
end;
 
procedure THTMLForm.Button5Click(Sender: TObject);
begin
  if DownloadFileHttp(MyURL, 'c:\ProgD7\essai.txt') then
    showMessage('ok');
end;

[cantador]

@ShaiLeTroll
à noter une incompatibilité en Char et WideChar dans le code fourni précédemment

[ShaiLeTroll]

A quel moment, il y a un soucis ?

le code de la FAQ qui doit dater de Delphi 7 (même si mis à jour en 2014),
il fonctionne en Byte (surement la modification de 2014 pour éviter les méandres du CharSet),
donc le fichier téléchargé est tel que l'a retourné le serveur qui lui a forcément choisi un encodage !
UTF8 ? Latin1 ? cela doit se gérer par les entêtes tout ça

[cantador]

@ShaiLeTroll :
Il s'agit d'une erreur à la compilation..
@+

[ShaiLeTroll]

Ah, je ne peux pas t'aider car cela compile très bien sur XE2
J'essayerais sur Berlin si j'ai le temps

[cantador]

c'est très gentil de ta part
mais je ne pense pas que cela soit utile
car je suis sous D7 et cette erreur doit être normale..
le code de LA FAQ fonctionne bien sous seven 32 bits
va t-il marcher sous windows 2012 R2 64 bits ?

Je fais les tests cet après-midi.

@+

[cantador]

@ShaiLeTroll
Le programme fonctionne sous windows 2012 R2 64 bits
ouf !

merci

@bientôt