Delphi kap a HTML kódot egy adott url

előző ◈ a következő

Delphi kap a HTML kódot a megadott URL-

ilyen probléma az egyik kell fogadni a szöveget, abban az értelemben, html kódot a megadott oldalon az internetről

eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
// memo1.text: = wget ( "www.gismeteo.ru/towns/27962.htm");
memo1.text: = wget ( "ya.ru");
végén;

köszönöm. Úgy tűnik, igazad van. zakomentil IdHTTP1.Connect; úgy, hogy a Start ki fog derülni.

Állvány UrlDownloadFile () is, hol kell keresni. mit. KOLIS.

ehhh. Nem pontosan mire van szüksége. oldalas forgatókönyvet jeleníti www.gismeteo.ru/towns/27962.htm érdekek gyakran. Kell a segítség és alkatrészek idhttp vypolnyatesya nem kifejezetten # XA0; laptáblához az időjárás. példányát a html # XA0 és tegye azt az oldal a kódot.

eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
// memo1.text: = wget ( "www.gismeteo.ru/towns/27962.htm");
memo1.text: = wget ( "www.gismeteo.ru/towns/27962.htm");
memo1.Lines.SaveToFile ( "D: \ 1.html");
végén;

A komponensek WebBrowser1 hogyan lehet a html kódot, vagy mentse html # XA0; fájlba

IHTMLDocument2 könyvtári szükséges csatlakozni nem esküszöm, hogy ez a változó típus?!

mert szerettem volna leírni a változó
Var sHTML. IHTMLDocument2;
[Error] Unit1.pas (60): A bejelentés nélküli azonosító: "IHTMLDocument2"

eljárás TForm1.Button1Click (Sender: TObject);
Var sHTML: WideString;
kezdődik
// 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 mint IHTMLDocument2) .body.innerHTML;
megpróbál
//WebBrowser1.ExecWB(OLECMDID_SAVE, OLECMDEXECOPT_PROMPTUSER);
kivéve
végén;
végén;

egy hiba. segít

Köszönhetően könnyű, ha korábban látta megtette volna. de most rájöttem, hogy a képesség, hogy töltse le és vágás következik. a lényege a program letölthető gismeteo.ru időjárás én városi és tedd a helyhez. mert pumpált csak tex, a forgalom minimális eszik itt az én enyhén görbe kódot. nem volt idő, hogy szét szőrszálakat.

felhasználások
# XA0, a Windows, az Üzenetek, SysUtils, Változatok, osztályok, grafika, vezérlők, Forms,
# XA0; Párbeszédpanelek, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
# XA0; IdHTTP, StdCtrls, StrUtils, HTTPApp, OleCtrls, Shdocvw, ComCtrls,
# XA0; ExtCtrls;

típus
# XA0; TForm1 = osztály (TForm)
# XA0; # XA0; Button1: TButton;
# XA0; # XA0; IdHTTP1: TIdHTTP;
# XA0; # XA0; Memo1: TMemo;
# XA0; # XA0; MeMo2: TMemo;
# XA0; # XA0; eljárással Button1Click (Sender: TObject);
# XA0; # XA0; eljárással FormCreate (Sender: TObject);
# XA0; # XA0; eljárással FormShow (Sender: TObject);
# XA0; magán-
# XA0; # XA0;
# XA0, köz-
# XA0; # XA0;
# XA0; end;

var
# XA0; Form1: TForm1;

eljárás TForm1.FormCreate (Sender: TObject);
kezdődik
# XA0; # XA0; Form1.Button1Click (feladó);
végén;

eljárás TForm1.FormShow (Sender: TObject);
kezdődik
# XA0; Form1.close ();
végén;

Che Ön formkrieyt hívás eljárások cipó klikk és egyszerűen nélkül egy vekni kattintással. ) És ezzel formshou bezárása. Azt SCHA lusnu nevetés

Őrvezető # XA0; (05.03.07 16:26) [16]
Che Ön formkrieyt hívás eljárások cipó klikk és egyszerűen nélkül egy vekni kattintással. ) És ezzel formshou bezárása. Azt SCHA lusnu nevetés

Egyetértek, hogy nem szép. razobratsya ha nem, akkor chush kész! de működik. A lényeg az, hogy amikor féreg úgy tűnik, hogy az összes kód már megvalósult, és a lap html képződik. Most a program és bezárja. és fut egy ütemtervet a Scheduler. Nem is vizhzhu.

Holnap Gismeteo dörömböl vizelet a bal sarok, és meg fogja változtatni a design az oldalon.
Akkor mi van?

Különösen kulibinyh Gismeteo ugyanazt az információt XML

előző ◈ a következő