Page 1 of 7

Помощь в создании подкастов

Posted: Mon Jun 25, 2012 9:31 am
by linkey
Подскажите, как в скрипте запустить файл с диска?

Re: Помощь в создании подкастов

Posted: Tue Jun 26, 2012 10:25 am
by slawa321
какой файл ,если текстовый -там есть функция ,а вот ехе -думаю это уже можно вируса делать.

ExecuteOpenDialog(const aTitle, aFilter, aInitialDir, aDefaultExt: string; var aFileName: string): Boolean
Поиграйся с этим -сильно похоже ,я не пробовал .Хотя нет -это только диалог.

Re: Помощь в создании подкастов

Posted: Tue Jun 26, 2012 10:53 am
by linkey
slawa321 wrote:какой файл ,если текстовый -там есть функция ,а вот ехе -думаю это уже можно вируса делать.

ExecuteOpenDialog(const aTitle, aFilter, aInitialDir, aDefaultExt: string; var aFileName: string): Boolean
Поиграйся с этим -сильно похоже ,я не пробовал .
это ExecuteOpenDialog просто открывает диалоговое окно выбора файла, а потом записывет имя файла в переменную. Мне бы хотелось именно запустить bat или exe файл. Похоже такого нету((
Или еще можно было бы скачать страницу с поддержкой cookie, но такого тоже не нашел. (имя пользователя и пароль в настройках не канают)

Re: Помощь в создании подкастов

Posted: Tue Jun 26, 2012 12:56 pm
by slawa321
Остается один вариант -через Ole ,тут он работает :
Вот пример с Вордом :

var
wd:variant;

begin
// Открыть word:
wd:=CreateOleObject('Word.Application');
// открыть документ -предворительно создай не пустой документ
wd.documents.open('c:\1.doc');
// сохранить:
wd.activedocument.saveas('c:\2.doc');
// выход из word:
wd.application.quit(true,0);
end.

Надо только чтоб твое приложение поддерживало Ole.Пример работает -проверь ,если ворд запускается ,то и другое нужно подумать как запустится .Хотя ворд поддерживает бейсиковые скрипты ,я думаю там такого можно наворотить раз он запустился и документ со скриптами открыл.

Re: Помощь в создании подкастов

Posted: Tue Jun 26, 2012 1:44 pm
by slawa321
раз ты хотел открыть какую то страничку ,вот пример для открытия страницы яндекса :

var
IE:variant;

begin

IE:= CreateOleObject('InternetExplorer.Application');
IE.Visible := True;
IE.Navigate('http://ya.ru');

end.
Видимость можно не делать ,это пример. Попробуй.
Интернет забит примера с ole на делфи. вот только копнул за пять минут.

Re: Помощь в создании подкастов

Posted: Tue Jun 26, 2012 10:31 pm
by linkey
спасибо помогло

Re: Помощь в создании подкастов

Posted: Thu Aug 09, 2012 6:24 am
by slawa321
linkey wrote:спасибо помогло
Так это ,чем дело то кончилось ,интересно ,где подкаст ,или так что то для себя писал?

Re: Помощь в создании подкастов

Posted: Thu Aug 09, 2012 10:05 am
by linkey
slawa321 wrote:
linkey wrote:спасибо помогло
Так это ,чем дело то кончилось ,интересно ,где подкаст ,или так что то для себя писал?
http://www.homemediaserver.ru/forum/vie ... 933#p13933
правда не долелал еще(телепрограмму хотел еще добавить и упростить как то перечесление), просто не давно тока опять открыли все каналы.

Re: Помощь в создании подкастов

Posted: Mon Sep 10, 2012 9:38 pm
by linkey
Кто нибудь пробовал пользоваться "скрипт формирует несколько ссылок". Объясните плиз на простом примере как это сделать. Подкаст ютуб просмотрел, скачал даже пару подкастов с буржуйского wms, но так что то и не понял.

Re: Помощь в создании подкастов

Posted: Fri Sep 14, 2012 8:09 am
by linkey
И еще вопрос можно ли изменить заголовок медиаресурса, в скрипте получения ссылки.