Ne6to za internet

V momenta sym se zabil nad edin problem i ne moga da se opravq. Kak 4rez Delphi da vzema sourca na nqkoq internet stranica(v smisyl html sourca).

Три варианта се сещам:
1) NMHTTP.Get - кофти е че не работи добре през прокси, сорса го взимаш на OnSuccess
2) TWebBrawser - първо Navigate, после страницата като HTML е на WebBrawser.OleObject.document..body.innerHTML, това е при събитие OnDocumentComplete
3) Със MSXML имаше едни дивотии, виж в клуб ASP че не помня де беше...

чети и дишай по-леко

Moje i naprawo prez socks :)
imaj predwid che polucheniq dokument trqbwa da go parcnesh i analizira za da widish dali ne e nekaf frameset shtoto nali se seshtash... Eto zashto maj naj dobre sha e da polzwash TWebBrawser (MS Rulz) i tam ako mojesh da se dokopash do otdelnite framowe kato se zaredqt.

------------------------------
I got a COMPILER, and I'm not afraid to use it!

Сещам се аз... Нали съм го правил и знам всички, е, почти всички ;-) гнусотии дето може да ти се случат с TWebBrawser при извличане...

чети и дишай по-леко

Има функция URLDownloadToFile в URLMon.pas
Можеш да й подадеш URL адрес и име на файл, а останалите параметри да оставиш Nil/0. Ако някъде можеш да прочетеш и описание на параметрите - още по-добре.

Ami to vsi4ko hubavo ama kak da vzema samiq HTML. Re6ih da izpolzvam NMHTTP oba4e s onsucess ne moga da razbera kak.

NMHTTP.Body ти съдържа документа като HTML. Хубаво е да му прочетеш някои особенности - например записа във файл.

чети и дишай по-леко

Mai az ne pravq ne6to kato horata ama tova mi vry6ta sting s imeto default.htm i tolkoz.

Mnogo sym prost. Razbrah kak se pravi.

Кажи как, защото взех да се комплексирам.
След

Button1: TButton;
Edit1: TEdit;
RichEdit1: TRichEdit;
NMHTTP1: TNMHTTP;

и

procedure TForm1.Button1Click(Sender: TObject);
begin
NMHTTP1.Get(Edit1.Text);
end;

procedure TForm1.NMHTTP1Connect(Sender: TObject);
begin
RichEdit1.Clear;
if (not NMHTTP1.InputFileMode) then
RichEdit1.Lines.Append(NMHTTP1.Body);
end;

трябва да кликам два пъти върху бутона за да изкарам текста на екрана.