![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Добрый день!
Задача: для того чтобы "заставить" оборудование скачать конфигурацию необходимо ввести запрос в адресной строке. Делается это командой ShellExecute(0, 'open', PChar('http://192.168.0.1/admin/resync?tftp://192.168.0.100/Conf.txt'), nil, nil, SW_SHOWNORMAL); при этом открывается браузер и происходит выполнение. Вопрос: Как выполнить то же действие, без разворачивая браузера,в "фоновом" режиме? |
|
#2
|
||||
|
||||
|
Цитата:
|
|
#3
|
|||
|
|||
|
непоможет, бо как файл откроется в браузере скорее всего.
качай через Indy: Код:
uses
IdHTTP;
function GetConfig : String;
var
IdHTTP : TIdHTTP;
begin
IdHTTP := TIdHTTP.Create(Nil);
Try
IdHTTP.Request.BasicAuthentication := False;
IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
Result := IdHTTP.Get('http://192.168.0.1/admin/resync?tftp://192.168.0.100/Conf.txt');
Finally
IdHTTP.Free;
End;
end; |