| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сгенерить html-страницу и поместить ее в TWebBrowser? [D6, D7, WinXP]

Лев Ландау ©   (2004-07-19 02:48:00) 

Вопрос такай:
=============
"
у меня есть некая строковая переменная, которая содержит html-код      страницы, как сгенерить ее в окошке TWebBrowser-а ?
"
з.ы. огромное спасибо всем ответившим!

---

Polevi   (2004-07-19 12:26:00) [1]

procedure LoadHtml(html:string)
var
 ss:TStringStream;
begin
 ss:=TStringStream.Create(html);
 try
   (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ss));
 finally
   ss.Free;
 end;
end;

---

Sky   (2004-07-19 12:18:00) [2]

Выгружаешь содержимое переменной в temp'овый текстовый файл и грузишь его в TWebBrowser. После файл убиваешь (или оставляешь как кеш).

---

Rouse_   (2004-07-19 09:35:00) [3]

Вот еще как вариант:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, OleCtrls, SHDocVw, mshtml, ActiveX, StdCtrls, Menus, ExtCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   Button2: TButton;
   PopupMenu1: TPopupMenu;
   gsdfg1: TMenuItem;
   wtwertwert1: TMenuItem;
   wertwert1: TMenuItem;
   wertwe1: TMenuItem;
   wertwe2: TMenuItem;
   Button3: TButton;
   Button4: TButton;
   WebBrowser1: TWebBrowser;
   Memo1: TMemo;
   procedure Button1Click(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
   procedure Button2Click(Sender: TObject);
   procedure Button3Click(Sender: TObject);
   procedure Button4Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure WebBrowser1BeforeNavigate2(Sender: TObject;
     const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
     Headers: OleVariant; var Cancel: WordBool);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 Document: IHtmlDocument2;
 V: Variant;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 V[0] :=' Новая срока
';
 Document.Writeln(PSafeArray(TVarData(v).VArray));
 WebBrowser1.OleObject.Document.parentWindow.scroll(0,10000000);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Document.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Document.close;
 V[0] :='Текст очищен
';
 Document.Writeln(PSafeArray(TVarData(v).VArray));
end;

procedure TForm1.Button3Click(Sender: TObject);
var
 f:TextFile;
 tmp, tmp1:String;
 col:char;
begin
 AssignFile(f,'C:\NewZool\Logs\#Main.log');
 Reset(f);

 while not EOF(f) do
 begin
   Readln(f,tmp);
   if tmp '' then
   begin
   col := tmp[1];
   delete(tmp,1,1);
   tmp := StringReplace(tmp,'

---

Rouse_   (2004-07-19 09:31:00) [4]

http://www.swissdelphicenter.ch/en/showcode.php?id=2148

---

Наверх