Скачать: CL | DM;
Вопрос по WebBrowser!!! Найти похожие ветки
← →
lexander (2006-08-09 21:03) [0]Подскажите как можно передать программно кусок кода HTML в компоненту WebBrowser?
← →
anton773 © (2006-08-09 22:03) [1]Попробуй загрузить из строки вот пример:
procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string) ;
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate("about:blank") ;
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;
if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms) ;
ms.Seek(0, 0) ;
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject) ;
var
sHTML : string;
begin
sHTML := "<a href="http://delphi.about.com">GOTO</a>" +
"About Delphi Programming";
WBLoadHTML(WebBrowser1,sHTML) ;
end;
← →
lexander (2006-08-09 22:19) [2]Большое спасибо! Работает!
______________________________________________________
(только нужно код брать в тег <html></html>, а то он код пишет как текст)
Еще раз спасибо !!!
← →
Sergioni (2006-09-05 23:23) [3]Привет Мастерам!
как из TwebBrowser вытащить весь видимый текст независимо от сложности страницы?
← →
palva © (2006-09-05 23:37) [4]> Подскажите как можно передать программно кусок кода HTML в компоненту WebBrowser?
Можно так:
procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
begin
WebBrowser.Navigate("about:" + HTMLCode)
end;
Страницы: 1 вся ветка
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.034 c
КаПиБаРа
2006-09-18 08:07
2006.10.15
Уровень жизни
15-1159014680
PHPDeveloper
2006-09-23 16:31
2006.10.15
Регистратор в ShareWare каталогах
15-1158764617
ProgRAMmer Dimonych
2006-09-20 19:03
2006.10.15
Глюки моего компа
6-1148280538
Тфьу
2006-05-22 10:48
2006.10.15
TIdSMTP при отсылке в теме пишет ерунду...
15-1158963826
Axis_of_Evil
2006-09-23 02:23
2006.10.15
а вы говорили, медвед не вырвется за пределы тырнета