source HTML dans Delphi (memo)
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.
avec le composant HTTPCLI de ICS
avec le composant HTTPCLI de ICS
voilà un bout de code à peine maquillé
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
|
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; |
Merci je viens de trouver la réponce
je met le code ici
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
|
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; |
