![]() |
|
#1
|
|||
|
|||
![]() Помогите плиз написал код:
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, Buttons; type TForm1 = class(TForm) Memo1: TMemo; WebBrowser1: TWebBrowser; BitBtn1: TBitBtn; SpeedButton1: TSpeedButton; procedure BitBtn1Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin Memo1.Lines.SaveToFile('temp/tp.html'); WebBrowser1.Offline := true; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin WebBrowser1.Navigate('temp/tp.html'); end; end. ![]() В TWebBrowser появляется: Действие отменено и т.д. Я ни в чем никогда не уверен... И в этом тоже... ![]() |
#2
|
||||
|
||||
![]() Всё очень просто, нужно было лишь написать так:
procedure TForm1.SpeedButton1Click(Sender: TObject); begin WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'temp/tp.html'); end; _________ т.е. веб браузер не знал точно откуда брать путь к этой странице ![]() Если Вы находите ошибки, исправить которые дело долгое и нудное, ничего не делайте - просто внесите их в список особенностей ![]() |
#3
|
|||
|
|||
![]() Цитата:
'temp\tp.html' |
#4
|
||||
|
||||
![]() Указывай полные пути, а не относительные
![]() |
#5
|
||||
|
||||
![]() Цитата:
![]() Если Вы находите ошибки, исправить которые дело долгое и нудное, ничего не делайте - просто внесите их в список особенностей ![]() |
#6
|
||||
|
||||
![]() Цитата:
file://localhost/C:/path/to/file.htm РГРТУ - ФВТ - Системы Автоматизированного ПРоектирования. ت |