![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Обновление скрипта в Webbrowser [D7, WinXP]
Sicilla © (2006-01-14 20:08:00)Проблема такая: есть скрипт <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 обновить информацию и показать оба скрипта?
sicilla (2006-01-15 06:06:00) [1]Нет, показывать надо по отдельности. Надо видимо просто заставить их выполниться в webbrowser.
VirEx (2006-01-14 23:45:00) [2]
> показать оба скрипта?
хм... одновременно? видимо надо грузить сначало один, сохранять результат, грузить другой, сохр. рез., а затем комбинировать в одну страничку, хз