Каракули в Webbrowser - Работа с сетью в Delphi

Andrey85 · 15.11.2010, 20:44

Здравствуйте. Подскажите пожалуйста в чем причина. У меня на компе все работает корректно. На других иероглифы вместо русских букв. Данные загружаю с Gismetio. Код следующий:

Код:

WB_LoadHTML(WebBrowser1,
 '<html><head></head>''<body bgcolor="#ffffbd">'+
 '</body>'+
   '<style type=''text/css''>'+
'.gmtbl{background-color: #ffffbd; border: 1px solid #eeff45;}'+
'.gmtdttl{font-size: 110%; font-weight: bold; color: #edff88; text-align:center;  background-color: #edff88}'+
'.gmtdtext{font-size: 100%; font-weight: normal; color: #033833;}text-align:center;}'+
'.tddiv { text-align: left !important;}'+
'div#cntdiv{ position:absolute; display:block;}'+
'div#infselectlist{ background-color: #ffffff; border: 1px solid #7c7c7c; width:100%; height:100%; position:relative; top:1; left:0; right:0; visibility:hidden; cursor:pointer;}'+
'div#hiddentl{ position:relative; top:1; left:0; right:0; visibility:hidden;}'+
'</style>'+

'<script language=''JavaScript'' type=''text/javascript'' src=''http://informer.gismeteo.ru/html/js/showtlist_new.js''></script>'+
'<script language=''JavaScript'' type=''text/javascript'' src=''http://informer.gismeteo.ru/html/js/ldata_new.js''></script>'+
'<table border=0 width=180><tr><td>'+
 '<div id=''informer1''></div>'+
'<div id=''infscript'' style=''visibility:hidden''></div>'+
'<script language=''JavaScript'' type=''text/javascript'' src=''http://informer.gismeteo.ru/html/2.php?tnumber=1&city0='+
GridGorod.DataSource.DataSet.FieldByName('Kod').AsString+
'%D0%94%D0%BE%D0%BD%D0%B5%D1%86%D0%BA&codepg=utf-8&par=4&inflang='+
'rus&domain=ru&vieinf=1&p=1&w=1&tblstl=gmtbl&tdttlstl=gmtdttl&tdtext=gmtdtext&new_scheme=1''></script>'+
'</td></tr></table>'+
   '</html>');

где WB_LoadHTML это след.код:

Код:

WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
  sl: TStringList;//Хранение HTML кода
  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;

Кто может, подскажите.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
WebBrowser	DoGFoX	Работа с сетью в Delphi	12	19.01.2011 16:05
Каракули при загрузке из Blob. Firebird	nikmay	БД в Delphi	4	01.10.2009 18:32
WebBrowser	JakSon	Работа с сетью в Delphi	2	03.05.2008 01:05
Webbrowser	Stanislav	Общие вопросы Delphi	1	18.11.2007 11:51