Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];

Вниз

Как получить исходник страницы?   Найти похожие ветки 

 
mrGrey ©   (2004-07-18 12:57) [0]

Люди добрые, хелп плиз!!!!
Как получить в TStrings исходник HTML-страницы (текст)?
Заранее спасибо.


 
Скив   (2004-07-18 14:28) [1]

смотря что используешь?
если стандартный webbrowser, то вот:


uses
ActiveX;

function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var
ps: IPersistStreamInit;
fs: TFileStream;
sa: IStream;
begin
ps := WebBrowser.Document as IPersistStreamInit;
fs := TFileStream.Create(FileName, fmCreate);
try
sa := TStreamAdapter.Create(fs, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
finally
fs.Free;
end;
end;

function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := "";
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;


 
Скив   (2004-07-18 14:29) [2]

Если embeddedwb, то просто embeddedwb1.savetostrings


 
VID ©   (2004-07-18 14:36) [3]

//сохранить исходник страницы в файл
function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var
 ps: IPersistStreamInit;
 fs: TFileStream;
 sa: IStream;
begin
 Result := False;
 IF WebBrowser.Document = nil then exit;
 ps := WebBrowser.Document as IPersistStreamInit;
 fs := TFileStream.Create(FileName, fmCreate);
 try
   sa := TStreamAdapter.Create(fs, soReference) as IStream;
   Result := Succeeded(ps.Save(sa, True));
 finally
   fs.Free;
 end;
end;

//загрузить исходник страницы  в Strings
function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
 ps: IPersistStreamInit;
 ss: TStringStream;
 sa: IStream;
 s: string;
begin
 ps := WebBrowser.Document as IPersistStreamInit;
 s := "";
 ss := TStringStream.Create(s);
 try
   sa := TStreamAdapter.Create(ss, soReference) as IStream;
   Result := Succeeded(ps.Save(sa, True));
   if Result then ACode.Add(ss.Datastring);
 finally
   ss.Free;
 end;
end;


 
VID ©   (2004-07-18 14:36) [4]

Скив   (18.07.04 14:28) [1]
Весело получилось :)


 
Скив   (2004-07-18 14:39) [5]

я быстрее нашёл ;)
действительно много проблем имел ;)
и вообще если вы ещё используете webbrowser.
Ставьте Embeddedwb.
http://www.euromind.com/iedelphi/embeddedwb.htm
и снимите разом ОЧЕНЬ много проблем


 
mrGrey ©   (2004-07-18 14:54) [6]

Аграмадное спасибо всем. Попробую все.


 
Лев Ландау   (2004-07-28 08:23) [7]

Грубо говоря исходник мы изменили (тот, который был сохранен в строковой переменной), как его загрузить (сгенерировать) в  WebBrowser-ре....?!
----
з.ы. Всем ответившим спасибо!


 
Piter ©   (2004-07-28 12:52) [8]

Скив   (18.07.04 14:29) [2]
VID ©   (18.07.04 14:36) [3]

а как вы догадываетесь, что хотел спросить автор? Например, как вот вы сейчас догадались, что речь вообще шла о WebBrowser?



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.035 c
3-1094120139
Zlod3y
2004-09-02 14:15
2004.10.03
RecNo


9-1086756650
Prog's Killer
2004-06-09 08:50
2004.10.03
DelphiX


6-1090677043
Skyhawk
2004-07-24 17:50
2004.10.03
Remote Control


14-1093716915
ИМХО
2004-08-28 22:15
2004.10.03
ЛЧ 2004/05


4-1092836312
R1
2004-08-18 17:38
2004.10.03
Диалог свойств файла (ShellExecuteEx)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский