Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.27;
Скачать: CL | DM;

Вниз

есть ли возможность открыть в TWEBbrowser несохраненый Html   Найти похожие ветки 

 
alya   (2002-03-14 13:58) [0]

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


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

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

Передавай 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;




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

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

:-)))))))))



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

Текущий архив: 2002.05.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
3-88324
Fareader
2002-04-29 19:51
2002.05.27
Two-Phase Commit


1-88434
Бывалый
2002-05-17 12:11
2002.05.27
TAdvStringGrid - центрирование ячеек.


6-88580
dmitryK
2002-03-16 18:47
2002.05.27
Надо сделать рассылку сообщений (часто и много)


1-88443
Дмитрий757567
2002-05-17 13:59
2002.05.27
HALT - НЕ НОРМАЛЬНЫЙ


14-88639
VAleksey
2002-04-18 08:16
2002.05.27
Query:=TQuery.Create(self)