Вставка html в TWebBrowser - Общие вопросы Delphi

shvint · 30.06.2011, 08:02

Добрый день всем! Написал программу для своих оперативных дежурных, реализовал открытие сайта погоды через кнопку, все хорошо. Но как грамотно вставить html (информер с сайта погоды) в TWebBrowser.
Помогите направить меня в правильное русло.
Сама программа

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sButton, OleCtrls, SHDocVw, sSkinProvider,
  sSkinManager, MSHTML, activeX, sLabel;

type
  TForm1 = class(TForm)
    wb1: TWebBrowser;
    btn1: TsButton;
    btn2: TsButton;
    btn3: TsButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    v: OleVariant;
  HTMLDocument: IHTMLDocument2;
  HTMLString : string;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
    Wb1.Navigate('http://www.gismeteo.ru/city/daily/4642//');
   end;

procedure TForm1.btn2Click(Sender: TObject);
begin
 Close;
end;

   



procedure TForm1.btn3Click(Sender: TObject);
    begin
  wb1.Navigate('about:blank')
 HTMLString := '<Html>'
                <style type='text/css'>
.gmtbl {background-color: #ffffff; border: 1px solid #18b8f9;}
.gmtdttl {font-size: 110%; font-weight: bold;color: #ffffff; text-align:center; background-color: #18b8f9;}
.gmtdtext {font-size: 100%; font-weight: normal; color: #000000;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='270'>
<tr><td><div id='informer3'></div>
<div id='infscript' style='visibility:hidden'></div></td></tr>
</table><script language='JavaScript' type='text/javascript'src='http://informer.gismeteo.ru/html/2.php?tnumber=1&city0=4368%D0%9C%D0%BE%D1%81%D0%BA%D0%B2%D0%B0&codepg=utf-8&par=4&inflang=rus&domain=ru&vieinf=3&p=1&w=1&tblstl=gmtbl&tdttlstl=gmtdttl&tdtext=gmtdtext&new_scheme=1'></script>

                ' </Html>';
  HTMLDocument := Wb1.Document as IHTMLDocument2;
  v := VarArrayCreate([0, 0], varVariant);
  v[0] := HTMLString;
  HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
  HTMLDocument.Close;
end;

end.

Сайт с погодой http://www.gismeteo.ru/ , информер брал с него.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
получить HTML-код из TWebBrowser - Delphi	Андрей.12	Работа с сетью в Delphi	4	21.08.2011 04:03
Поиск и замена в HTML-коде страницы загруженной в TWebBrowser	iiunbreakableii	Общие вопросы Delphi	4	01.01.2011 07:54
Вставка php в html	bookkc	Помощь студентам	11	01.09.2010 10:14
HTML страницы из Access базы данных в TWebBrowser	Гражданин.РФ	Помощь студентам	2	13.05.2009 18:27
Ошибка при заполнениии html форм с помощью TWebBrowser	Banana	Работа с сетью в Delphi	6	24.08.2007 15:35