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

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

есть ли возможность открыть в ;TWEBbrowser ;несохраненый ;Html [D5, Win95/98]

alya ©   (2002-03-14 13:58:00) 

т.е существующий в массиве
во время выполенения приложения
заранее спасибо

---

Donal_Graeme   (2002-03-15 16:19:00) [1]

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

:-)))))))))

---

Barmutik   (2002-03-14 18:39:00) [2]

Можеш попробовать это:

Передавай Tstrings с HTML-кодом страницы

function TWebBrowser.LoadFromStrings(const AStrings: TStrings): HResult;
var
M : TMemoryStream;
begin
If not Assigned(document) then AssignDocument;
M := TMemoryStream.Create;
try
AStrings.SaveToStream(M);
Result := LoadFromStream(M);
except Result:=S_FALSE;
M.free;
end;
end;

Procedure TWebBrowser.AssignDocument;
begin
Go("about:blank");
while readystate <> READYSTATE_COMPLETE do Forms.Application.ProcessMessages;
end;

function TWebBrowser.LoadFromStream(const AStream: TStream): HRESULT;
begin
If not Assigned(Document) then AssignDocument;
AStream.seek(0, 0);
Result := (Document as IPersistStreamInit).Load(TStreamadapter.Create(AStream));
end;

---

Наверх