function RecuperaHtml(Url: string): string;
var http : THTTPSend;
page : TStringList;
i : longint;
risultato: string;
begin
risultato:='';
http:=THTTPSend.Create;
page:=TStringList.Create;
try
if not http.HTTPMethod('GET',Url) then
begin
RecuperaHtml:='';
exit;
end
else
begin
page.LoadFromStream(http.Document);
for i:=0 to page.Count-1 do
risultato:=risultato + UpCase(page[i]);
end;
http.Clear;
page.Clear;
finally
http.Free;
page.Free;
end;
RecuperaHtml:=risultato;
end;
end.
Fatto questo andiamo nella form del nostro progetto e aggiungiamo la libreria GetHtml nella sezione uses della nostra form. Alla form aggiungiamo una TEditBox, un campo TMemo, e un TButton. Lasceremo i nomi di default ovvero Edit1, Memo1 e Button1.
Creiamo l'evento Click per il pulsante e andiamo a scriverci dentro il seguente codice:
procedure TForm1.Button1Click(Sender: TObject);
var
CodicePag: string;
begin
CodicePag:=RecuperaHtml(Edit1.Text);
Memo1.Text:=CodicePag;
end;
Compilate, eseguite e scrivete un url nella EditBox, premete il pulsante e vedrete il codice HTML nel campo memo.
Spero che vi sia stato utile.
About the author
xinyiman registered at Italian community of Lazarus and Free Pascal on Ottobre 14, 2011, 10:56:28 pm and has posted 3263 posts in the boards since then. Last visit was Ottobre 11, 2024, 03:54:30 pm.
Questo blog non rappresenta una testata giornalistica poiché viene
aggiornato senza alcuna periodicità. Non può pertanto considerarsi un
prodotto editoriale ai sensi della legge n. 62/2001.
Questo sito utilizza cookie, anche di terze parti, per offriti servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina, cliccando su un link o proseguendo la navigazione in altra maniera, acconsenti all’uso dei cookie.