| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TWebBrowser

Avsam ©   (2002-03-09 12:14:00) 

Что-то искал и не нашел.
Как получить в TWebBrowser сам HTML-код.

А может есть другая возможность получать html, сохряняя его в файл, кроме как с TWebBrowser?

---

Donal_Graeme   (2002-03-14 18:04:00) [1]

или как тут :
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1006754163&n=4

---

Barmutik   (2002-03-14 17:31:00) [2]

Пример сохранения в TStrings..
Может не скомпилятся, тогда проверь и добавь везде
вместо например :
documnet -> WebBrowser(ну или как он там у тебя).Documnet
и так далее..

Удачи!

function TWebBrowser.SaveToStrings(AStrings: TStrings): HRESULT;
var
IpStream: IPersistStreamInit;
AStream: TMemoryStream;
begin
while ReadyState<>READYSTATE_COMPLETE do
Forms.Application.ProcessMessages;
if Assigned(document) then
begin
AStream := TMemoryStream.Create;
try
IpStream := document as IPersistStreamInit;
If not Assigned(IpStream) then Result := S_FALSE else
If Succeeded(IpStream.save(TStreamadapter.Create (AStream), TRUE))
then begin
AStream.Seek(0, 0);
AStrings.LoadFromStream(AStream);
Result := S_OK;
end else Result := S_FALSE;
except
Result := S_FALSE;
end;
AStream.Free;
end else Result := S_FALSE;
end;

---

Наверх