Discussion :

[aydin24alain]

Bonjour,
je souhaite récupérer le code source d'une page internet affin de manipuler ensuite ce dernier.
Donc je souhaitee copier le code source d'une page " http://www.XXX.com " dans un mémo.
Je n'ai aucune idée de comment faire pouvez vous m'aider svp.
Merci.

[exoseven]

va voir ici

[alheuredudejeuner]

avec le composant HTTPCLI de ICS
voilà un bout de code à peine maquillé

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
 
    adresseHTTP:='www.alheuredudejeuner.fr/vulcain';
    with httpcli1 do
    try
      try
        URL := adresseHTTP ;
        RcvdStream:=TMemoryStream.Create ;
        Get;
        RcvdStream.Seek(0, soFromBeginning);
        HTMLText:=TstringList.create;
        HTMLText.LoadFromStream(RcvdStream);
      Except
        on E:Exception do
        begin
          showmessage(DateTimeToStr(time)+' erreur :'+E.Message);
        end;
      end;
    finally
      try
        RcvdStream.Free;
        HTMLText.Destroy;
      except
        Abort;
      end;
    end;
  end;

[aydin24alain]

je met le code ici

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
 
Function GetHTML(AUrl: String): String;
Var
  databuffer: Array[0..4095] Of Char;
  hSession, hfile: hInternet;
  dwindex, dwcodelen, dwread, dwNumber: Cardinal;
  dwcode: Array[1..20] Of Char;
  res: PChar;
Begin
  Result := '';
  hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, Nil, Nil, 0);
  If (Assigned(hsession)) Then Begin
    hfile := InternetOpenUrl(hsession, PChar(AUrl), Nil, 0, INTERNET_FLAG_RELOAD, 0);
    dwIndex := 0;
    dwCodeLen := 10;
    HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
    res := pchar(@dwcode);
    dwNumber := SizeOf(databuffer) - 1;
    If ((res = '200') Or (res = '302')) Then Begin
      While (InternetReadfile(hfile, @databuffer, dwNumber, DwRead)) Do Begin
        If (dwRead = 0) Then Break;
        databuffer[dwread] := #0;
        Result := Result + PChar(@databuffer);
      End;
    End Else Result := 'Status:' + res;
    If (Assigned(hfile)) Then InternetCloseHandle(hfile);
  End;
  InternetCloseHandle(hsession);
End;

[aydin24alain]

Merci à tous