Текущий архив: 2006.04.30;
Скачать: CL | DM;
Вниз
Обновление скрипта в Webbrowser Найти похожие ветки
← →
Sicilla © (2006-01-14 20:08) [0]Проблема такая: есть скрипт <script> var gminform_fc="0000FF", gminform_bc="F0FFF0"; </script><script language="JavaScript" src="http://informer.gismeteo.ru/text/28225-1.JS"></script>.
Есть процедураprocedure WB_LoadHTML(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.Button2Click(Sender: TObject);
var S: string;
begin
S := "<script> var gminform_fc="0000FF", gminform_bc="F0FFF0"; </script><script language="JavaScript" src="http://informer.gismeteo.ru/text/27196-1.JS"></script>";
// S := "<script> var gminform_fc="0000FF", gminform_bc="F0FFF0"; </script><script language="JavaScript" src="http://informer.gismeteo.ru/text/28225-1.JS"></script>";
WB_LoadHTML(WebBrowser1, S);
end;
Вот проблема. Один скрипт, где номер 27196 не обновляется в webbrowser, а где 28225 - обновляется?
Как заставить webbrowser обновить информацию и показать оба скрипта?
← →
VirEx © (2006-01-14 23:45) [1]
> показать оба скрипта?
хм... одновременно? видимо надо грузить сначало один, сохранять результат, грузить другой, сохр. рез., а затем комбинировать в одну страничку, хз
← →
sicilla © (2006-01-15 06:06) [2]Нет, показывать надо по отдельности. Надо видимо просто заставить их выполниться в webbrowser.
Страницы: 1 вся ветка
Текущий архив: 2006.04.30;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.009 c