|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.08.2007, 14:49 | #1 |
Новичок
Джуниор
Регистрация: 17.08.2007
Сообщений: 2
|
DocumentComplete при помощи ExexWB(OLECMDID_SAVE, OLECMDEXECOPT_DONTPROMPTUSER)
не дайте умереть! ведь спать не смогу если не узнаю.
есть компонент TWebBrowser. Navigate происходит по адресам из списка, по очереди. при попытке сохранения содержимого после DocumentComplete при помощи ExecWB(OLECMDID_SAVE, OLECMDEXECOPT_DONTPROMPTUSER) компонент похоже что вообще никуда ничего не созраняет. если же поставить иначе - например SAVEAS и PROMPTUSER появляется стандартный диалог. мне он не нужен. надо чтобы программка автоматом сохраняла страницу и рисунки на ней в указанное место. Что можно посоветовать бестолковому вроде меня? Последний раз редактировалось Roamer; 17.08.2007 в 15:24. |
17.08.2007, 14:53 | #2 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Life is too short, play more...
Как правильно задавать вопросы |
17.08.2007, 15:08 | #3 |
Новичок
Джуниор
Регистрация: 17.08.2007
Сообщений: 2
|
unit Copier_;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, ComCtrls, ToolWin; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; ToolBar1: TToolBar; Button1: TButton; procedure FormShow(Sender: TObject); procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Navigate; procedure Button1Click(Sender: TObject); private i:integer; str:Tstringlist; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Navigate; begin webbrowser1.Navigate(str[i]); end; procedure TForm1.FormShow(Sender: TObject); begin i:=0; str:=Tstringlist.Create; str.loadfromfile('urls.txt'); end; procedure TForm1.WebBrowser1DocumentComplete( Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var Pt: TPoint; begin WebBrowser1.ExecWB(4,0); I:=I+1; navigate; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin str.Free; end; procedure TForm1.Button1Click(Sender: TObject); begin navigate; end; end. |
07.09.2007, 00:19 | #4 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,501
|
Roamer, подскажи где в коде указание на папку для сохранения?
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Просьба о помощи | FirsFire | Помощь студентам | 1 | 29.01.2008 14:29 |
Для помощи | Антон Шестаков | Общие вопросы Delphi | 4 | 23.10.2007 08:19 |