Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.10.2009, 20:50   #1
mdn-77
 
Регистрация: 13.10.2009
Сообщений: 7
По умолчанию WebBrowser сохранить фаил

господа програмисты кто знает как решить проблему подскажите
есть WebBrowser в нем отображается страница нажатием на кнопку я выполняю скрипт этой страницы

скрипт

Код HTML:
CCUtility.crtCtrla(this, 'subscriberListExt=Export='+
     document.getElementById('subscriberListExtExportVar').value,'
         _subscriberListExtExportForm')
этот скрипт находится в поле EDIT1.TEXT

запускаю я его так
PHP код:
procedure TForm1.BitBtn5Click(SenderTObject);
var
  
script string;
begin
(webbrowser1.Document as IHTMLDocument2).
                        
parentWindow.execScript(Edit1.Text,'JavaScript');
end

PHP код:
procedure TForm1.WebBrowser1NewWindow2(SenderTObject;
  var 
ppDispIDispatch; var CancelWordBool);
var
  
NewWindowTForm1;
begin
  NewWindow 
:= TForm1.Create(self);
  
NewWindow.Show;
  
ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
end
происходит открытие нового окна и выдача диалога сохранить фаил (это делает сам скрипт)

вопрос как сохранить этот фаил без диалога сохранения?
mdn-77 вне форума Ответить с цитированием
Старый 19.10.2009, 02:39   #2
mosq
Пользователь
 
Регистрация: 28.08.2009
Сообщений: 90
По умолчанию

может сначала вычислить полную ссылку (вывести ее куда-нибудь в переменную), а затем не через браузер слить процедурой UrlDownloadToFile
Код:
var url,localfilename:string;
...
UrlDownloadToFile(nil, PChar(url),PChar(localfilename), 0, nil);
...
примерно так..
mosq вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
WebBrowser - как сохранить со всем содержим тоесть с картинками и флешками? Анастасия123456789 Общие вопросы Delphi 1 20.03.2009 12:37
Фаил ресурсов Лёка Общие вопросы Delphi 13 14.05.2008 18:08
Tar фаил Аббат Свободное общение 1 24.04.2007 17:08