Delphi отримати html код за заданим URL
проблема така треба отримати текст, в сенсі html код заданої сторінки з інтернету
procedure TForm1.Button1Click (Sender: TObject);
begin
// memo1.text: = wget ( "www.gismeteo.ru/towns/27962.htm");
memo1.text: = wget ( "ya.ru");
end;
Дякуємо. схоже ти прав. закоментіл IdHTTP1.Connect; зразок що то початок вийдуть.
Стояти UrlDownloadFile () це де дивитися. що таке. колись.
еххх. не зовсім те що треба. на сторінці скрипт виводить www.gismeteo.ru/towns/27962.htm інтереси частини. а з допомогою компоненти idhttp це не виполнятеся, конкретно мені треба на # XA0; сторінці таблицю з прогнозом погоди. скопіювати з html # XA0; і сунути в свою сторінку цей код.
procedure TForm1.Button1Click (Sender: TObject);
begin
// memo1.text: = wget ( "www.gismeteo.ru/towns/27962.htm");
memo1.text: = wget ( "www.gismeteo.ru/towns/27962.htm");
memo1.Lines.SaveToFile ( "d: \ 1.html");
end;
з компоненти WebBrowser1 як отримати код html або зберегти html # XA0; в файл
IHTMLDocument2 яку бібліотеку треба підключити щоб не лаявся на цей тип змінних ?!
адже мені треба буде описати змінну
Var sHTML. IHTMLDocument2;
[Error] Unit1.pas (60): Undeclared identifier: "IHTMLDocument2"
procedure TForm1.Button1Click (Sender: TObject);
Var sHTML: WideString;
begin
// 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.Navigate ( "d: \ 1.html");
sHTML: = (WebBrowser1.Document as IHTMLDocument2) .body.innerHTML;
try
//WebBrowser1.ExecWB(OLECMDID_SAVE, OLECMDEXECOPT_PROMPTUSER);
except
end;
end;
видає помилку. допоможіть
спасибі easy якби раніше побачив то зробив би так. але зараз я реалізував можливість закачування і подправки наступним чином. суть програми з gismeteo.ru скачати погоду для мого міста і викласти на локальному сайті. тому закачується тільки текс, то трафік зжирає мінімуму ось мій злегка кривуватий код. колись було мудрувати.
uses
# XA0; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
# XA0; Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
# XA0; IdHTTP, StdCtrls, StrUtils, HTTPApp, OleCtrls, SHDocVw, ComCtrls,
# XA0; ExtCtrls;
type
# XA0; TForm1 = class (TForm)
# XA0; # XA0; Button1: TButton;
# XA0; # XA0; IdHTTP1: TIdHTTP;
# XA0; # XA0; Memo1: TMemo;
# XA0; # XA0; Memo2: TMemo;
# XA0; # XA0; procedure Button1Click (Sender: TObject);
# XA0; # XA0; procedure FormCreate (Sender: TObject);
# XA0; # XA0; procedure FormShow (Sender: TObject);
# XA0; private
# XA0; # XA0;
# XA0; public
# XA0; # XA0;
# XA0; end;
var
# XA0; Form1: TForm1;
procedure TForm1.FormCreate (Sender: TObject);
begin
# XA0; # XA0; Form1.Button1Click (Sender);
end;
procedure TForm1.FormShow (Sender: TObject);
begin
# XA0; Form1.close ();
end;
а чо ти на формкріейт викликаєш процедуру батон клік а просто без батон кліків. ) І на формшоу робиш клоуз. я ща лусну зі сміху
нуб # XA0; (05.03.07 16:26) [16]
а чо ти на формкріейт викликаєш процедуру батон клік а просто без батон кліків. ) І на формшоу робиш клоуз. я ща лусну зі сміху
Згоден не гарно. якщо не розібратись, то чуш повна! але працює. сенс в тому що б коли Ворма здасться, то весь код вже виконається, і сторінка html сформується. ось програма і закривається. а запускається вона за розкладом в планувальнику. я її навіть і не віжжу.
Завтра Гісметео стукне сеча в ліву п'яту, і вони змінять дизайн сторінки.
І що?
Спеціально для кулібіних Гісметео поставляє ту ж інформацію в XML