Delphi obține codul html pentru adresa URL dată
Problema este că trebuie să obțineți textul, în sensul codului html al paginii date de pe Internet
procedura TForm1.Button1Click (expeditor: TObject);
începe
// memo1.text: = wget ("www.gismeteo.ru/towns/27962.htm");
memo1.text: = wget ("ya.ru");
se încheie;
vă mulțumesc. se pare că ai dreptate. comentat pe IdHTTP1.Connect; așa că începutul se va dovedi.
Standing UrlDownloadFile () este locul unde trebuie să arătați. că astfel. fii atent.
ehhh. nu exact ceea ce aveți nevoie. pe pagina scriptul afișează www.gismeteo.ru/towns/27962.htm partea interesantă. Și prin intermediul componentelor idhttp nu se efectuează, mai ales este necesar pentru mine # xA0; tabelul de pagini cu prognoza meteo. copiați din html # xA0 și puneți acest cod în pagina dvs.
procedura TForm1.Button1Click (expeditor: TObject);
începe
// memo1.text: = wget ("www.gismeteo.ru/towns/27962.htm");
memo1.text: = wget ("www.gismeteo.ru/towns/27962.htm");
memo1.Lines.SaveToFile ("d: \ 1.html");
se încheie;
cu componentele WebBrowser1 cum să obțineți codul html sau să salvați html # xA0; pentru a fișier
IHTMLDocument2 ce bibliotecă trebuie să conectez, așa că nu jur pe acest tip de variabile?
pentru că va trebui să descriu variabila
Var sHTML. IHTMLDocument2;
[Error] Unit1.pas (60): Identificator nedeclarat: "IHTMLDocument2"
procedura TForm1.Button1Click (expeditor: TObject);
Var sHTML: WideString;
începe
// memo1.text: = wget ("www.gismeteo.ru/towns/27962.htm");
memo1.text: = wget ("www.gismeteo.ru/towns/27962.htm");
memo1.Lines.SaveToFile ("d: \ 1.html");
form1.WebBrowser1.Navigați ("d: \ 1.html");
sHTML: = (WebBrowser1.Document ca IHTMLDocument2) .body.innerHTML;
încerca
//WebBrowser1.ExecWB(OLECMDID_SAVE, OLECMDEXECOPT_PROMPTUSER);
cu excepția
se încheie;
se încheie;
produce o eroare. ajutor
mulțumesc ușor, dacă aș fi văzut-o înainte, ar fi făcut-o. dar acum mi-am dat seama de posibilitatea de a încărca și patch-uri după cum urmează. esența programului cu gismeteo.ru descărcați vremea pentru orașul meu și pune-l pe site-ul local. deoarece numai tex este descărcat, apoi traficul este minimizat aici este codul meu ușor strâmb. nu a existat timp pentru a fi înțelept.
utilizări
# xA0; Windows, Mesaje, SysUtils, Variante, Clase, Grafică, Controale, Formulare,
# xA0; Dialoguri, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
# xA0; IdHTTP; StdCtrls; StrUtils; HTTPApp; OleCtrls; SHDocVw; ComCtrls;
# xA0; ExtCtrls;
tip
# xA0; TForm1 = clasa (TForm)
# xA0; # xA0; Buton1: TButton;
# xA0; # xA0; IdHTTP1: TIdHTTP;
# xA0; # xA0; Memo1: TMemo;
# xA0; # xA0; Memo2: TMemo;
# xA0; # xA0; procedura Button1Click (Expeditor: TObject);
# xA0; # xA0; procedura FormCreate (expeditor: TObject);
# xA0; # procedură FormShow (expeditor: TObject);
# xA0; privat
# xA0; # xA0;
# xA0; public
# xA0; # xA0;
# xA0; sfârșitul;
var
# xA0; Form1: TForm1;
procedura TForm1.FormCreate (expeditor: TObject);
începe
# xA0; # xA0; Form1.Button1Click (Expeditor);
se încheie;
procedura TForm1.FormShow (expeditor: TObject);
începe
# xA0; Form1.close ();
se încheie;
Și tu pe formkrejt provoca procedură un buton clic și pur și simplu, fără o bucată de buton. ), iar pe formular arată că faci un clovn. M-am săturat de râs
Fruntasului # xA0; (05.03.07 16:26) [16]
Și tu pe formkrejt provoca procedură un buton clic și pur și simplu, fără o bucată de buton. ), iar pe formular arată că faci un clovn. M-am săturat de râs
Sunt de acord nu frumos. dacă nu înțelegi, atunci prostiile sunt complete! dar funcționează. Ideea este că atunci când apare Vorm, tot codul este deja executat, iar pagina html va fi generată. astfel încât programul se închide. și se execută conform unui program din programator. Nici măcar nu o văd.
Mâine gismeteo va lovi urina în călcâiul stâng și vor schimba designul paginii.
Și ce?
Special pentru gibbets gismeteo furnizează aceleași informații în XML