» Indigo Rose AutoPlay Media Studio

Возможно ли перехватить клавиатурное нажатие (e_Key) когда в фокусе объект ExplorerTree?
В on key страницы использую if e_Modifiers.ctrl and e_Key == 67 then.
Действует только до тех пор пока в фокус не попадает ExplorerTree. В самом ExplorerTree on key нет. Как быть то?

меню проекта становится двустрочным (возможно, многострочным, не проверял) если уменьшить ширину окна. Возможно ли сделать так чтобы оно всегда было однострочным?

Есть вот такая функция...
[more]
Код: function CleanTempFolder()
StatusDlg.Show(MB_ICONINFORMATION, false);
StatusDlg.SetTitle(""..LB_FFILES_DELF.."");
StatusDlg.SetMessage(""..HD_PLEASE_WAIT.."");
FilesFind_enddeleteall = File.Find(""..temp_dir.."", "*", true, true, callbackdelnul, callbackdelnul);
if FilesFind_enddeleteall == nil then
else
FilesFind_enddeleteall_max = Table.Count(FilesFind_enddeleteall);
StatusDlg.ShowProgressMeter(true);
StatusDlg.SetMeterRange(0, FilesFind_enddeleteall_max);
enddeleteall_string = "0";
repeat
enddeleteall_string = enddeleteall_string + 1;
StatusDlg.SetMeterPos(enddeleteall_string);
File.Delete(FilesFind_enddeleteall[enddeleteall_string], true, false, false, callbackdelnul);
until enddeleteall_string == FilesFind_enddeleteall_max;
StatusDlg.ShowProgressMeter(false);
end
Folder.DeleteTree(""..temp_dir.."", callbackdelnul);
Folder.Delete(""..temp_dir.."");
StatusDlg.Hide();
if (StatusDlg.IsCancelled()) then
return false;
else
return true;
end
end

Подскажите пожалуйста, как записать versionInfo в файл...
Считал я, например getversioninfo данные, изменил их и хочу обратно залить,
ну или в другой файл...
Залить можно и ResHacker, можно скомпилировать GoRC в res
но как мне воссоздать структуру текста в ресурсе rc ?
Там ведь отступы есть, типо Tab
Как мне создать такую таблицу как оригинальная, что бы можно было обновить в ресурсе?

---

Можно использовать для смены версии консольную утилиту: Verpatch.
Но может есть варианты?

Цитата:

но как мне воссоздать структуру текста в ресурсе rc ?
Там ведь отступы есть, типо Tab
Как мне создать такую таблицу как оригинальная, что бы можно было обновить в ресурсе?

Сформировать RC файл можно например так.

[more]

Код: local function CreateVersionInfoRC(tData)
    local tData = tData or {};
    local sTemplate =
[[
1 VERSIONINFO
FILEVERSION %s
PRODUCTVERSION %s
FILEOS 0x4
FILETYPE 0x1
{
BLOCK "StringFileInfo"
{
    BLOCK "040904b0"
    {
        VALUE "Comments", "%s"
        VALUE "CompanyName", "%s"
        VALUE "FileDescription", "%s"
        VALUE "FileVersion", "%s"
        VALUE "InternalName", "%s"
        VALUE "LegalCopyright", "%s"
        VALUE "LegalTrademarks", "%s"
        VALUE "OriginalFilename", "%s"
        VALUE "ProductName", "%s"
        VALUE "ProductVersion", "%s"
    }
}

BLOCK "VarFileInfo"
{
    VALUE "Translation", 0x0409 0x04B0
}
}]]
    --
    local sOut = string.format(sTemplate,
        string.gsub(tData.FileVersion or "", "%.", ","),
        string.gsub(tData.ProductVersion or "", "%.", ","),
        tData.Comments or "",
        tData.CompanyName or "",
        tData.FileDescription or "",
        tData.FileVersion or "",
        tData.InternalName or "",
        tData.LegalCopyright or "",
        tData.LegalTrademarks or "",
        tData.OriginalFilename or "",
        tData.ProductName or "",
        tData.ProductVersion or ""
    );
    return sOut;
end

local sOut = CreateVersionInfoRC({FileVersion = "1.2.7.0", ProductVersion = "4.8.0.7"});

Спасибо. обратно запихнуть не проблема.

AntiWinLockerLive
Я потому спросил что мне интересно как это сделать. Какой инструмент используешь для этого?

ААА, ну ResHacker можно, и еще есть несколько утилит.
7zsdrc
verpatch
Можно этим: BatchResourceUpdater, но я не решил проблему с пробелами. Да и требуется Net2.0
Ну и монстриками:
Resource Tuner Console
Resource Tools 1.2.0.35
Компилирую rc в res с помощью GoRC
По возможности хочется без костылей, но не всегда выходит.

KerberX, вот проект, он сыроват, конечно...

Хочу получить исходный код со своей страницы контактов:
Цитата:

HTTP.SubmitSecure("https://www.fl.ru/contacts/", {}, SUBMITWEB_GET, 20, 443, {UserName="name", Password="Password"}, nil);

Но авторизацию этот код не проходит. Помогите.

Приветствую,
использую в проекте разные шрифты, но на других компьютерах они не отображаются, хотя в папке проекта Fonts файл присутствует. Только установка в систему решает. Но это не выход, так как не всегда есть такая возможность. Это как-то лечится по-другому?

Здравствуйте уважаемые знатоки, столкнулся с проблемой и решить её самостоятельно не могу, потому прошу вашей помощи.

Я написал не большой код, который проверят скорость ответа от сервера в миллисекундах

-- Начало работы скрипта
PingPro1 = WinApi.GetTickCount();
info = HTTP.Submit("http://forum.ru-board.com/", {info="info"}, SUBMITWEB_POST, 20, 80, nil, nil);
-- Конец работы
PingPro2 = WinApi.GetTickCount(); PingPro3 = PingPro2-PingPro1; PingPro = PingPro3/1000;
Dialog.Message("Notice", PingPro, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

Вот суть проблемы:

- Как я понял HTTP.Submit использует Internet Explorer для таких запросов и до сброса (сервис - Свойства обозревателя - Дополнительно - Сброс) этот код обрабатывался у меня за 0,047 секунды. после сброса от 4,xxx до 13,ххх

Я перепробовал по моему всё, добавлял forum.ru-board.com в надёжные узлы, перезагружал комп - ничего не помогает, скорость запроса 13 секунд.

Помогите решить проблему, посоветуйте что и где прописать ...

Дополнение:

При тестирование стоял Internet Explorer 8.0.7601.17514

Установив Internet Explorer 11 - запрос стал 0.016 секунды, и сброс настроек описанных выше ни как не влияет на скорость, после удалил Internet Explorer 11, по умолчанию остался Internet Explorer 8.0.7601.17514, скорость запроса не изменился, попробовал сбросить настройки и скорость увеличилась опять до 13 секунд ....

всё тоже самое повторяется на Internet Explorer 9, Internet Explorer 10, сбросил настройки и хана скорости, на Internet Explorer 11 нет такой проблемы, но пользоваться ей не могу из за ДУРАЦКОГО СГЛАЖИВАНИЯ ШРИФТА а как его отключить ни кто не знает

Вот и сам вопрос

- Какая служба отвечает за передачу данных Internet Explorer где можно поправить чтобы не совершать подобные манипуляции с переустановкой Internet Explorer ?

Доброго дня всем!
Знатоки, подскажите плиз:
Можно ли на объект/ты (hotspot), созданные с помощью DialogEx.CreateObject
на действие On Click (на несколько действий) повесить скрипт?

Можно. Функции Page.SetObjectScript() и DialogEx.SetObjectScript().

В моем проекте Hotspot'ы создаются на основе кол-ва записей в .ini-файле, т. е. если будет 10 записей - соответственно 10 Hotspots и т. д., с именами Hotspot1, Hotspot2,... Все это безобразие происходит в диалоговом окне ( не Page ) с помощью for a=1, b, 1 do , который прокручивается на Preload этого диалога. Я пробывал в этот же цикл после создания Hotspot привязывать скрипт к нему с помощью DialogEx.SetObjectScript()(просто поставил вывод сообщения для того, чтоб понять, работает ли), но дело в том, что при запуске проекта эта канитель сразу выполняет назначенный скрипт, т. е. перед появлением самого диалогового окна я сразу же получаю n-сообщений (по кол-ву созданных Hotspot'ов), а далее при уже видимом диалоговом окне click по хотспоту не дает никакого эффекта!
И еще, скрипт на клик по хотспоту состоять будет не из одной, а, на вскидку, из 3-4 строк!

Требуется получить имя папки проекта. Как мне можно это реализовать?
C:\Users\User\Desktop\Flash DriveRecovery\f recover.exe

alexposad
Поместить в On Show, а не в On Preload.
[more]

Код: local tSpot = {};
tSpot.Width = 200;
tSpot.Height = 100;
tSpot.X = 0;
tSpot.Y = 0;
tSpot.Enabled = true;
tSpot.Cursor = CURSOR_ARROW;
tSpot.ResizeLeft = false;
tSpot.ResizeRight = false;
tSpot.ResizeTop = false;
tSpot.ResizeBottom = false;
tSpot.TooltipText = "";
tSpot.ClickSound = SND_NONE;
tSpot.ClickSoundFile = "";
tSpot.HighlightSound = SND_NONE;
tSpot.HighlightSoundFile = "";
--
for i = 1, 10 do
    local sObjectName = string.format("Hotspot%d", i);
    local sScript =
[[
    local function f()
        return 7;
    end
    Dialog.Message("Notice", debug.traceback(this), MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
]];
    --
    DialogEx.CreateObject(OBJECT_HOTSPOT, sObjectName, tSpot);
    DialogEx.SetObjectScript(sObjectName, "On Click", sScript);
end

требуется получить битрейт видеофайла. С помощью ffmpeg не получится так как он не умеет выводить инфу в файл. как быть?

Pahuchiy1
Я думаю можно перенаправить вывод ffmpeg в файл с помощью спецсимвола >
Или использовать библиотеку mediainfo.dll и плагин memoryex

Zloy_Gelud
Цитата:

с помощью спецсимвола >

теоретически конечно же можно....только вот не на практике....впрочем, если Вам это удастся, я был бы очень благодарен за конкретный работающий пример.

Цитата:

использовать библиотеку mediainfo.dll и плагин memoryex

- слишком сложно для меня, не разберусь.

Pahuchiy1
Вариант с только с одним плагином MemoryEx:

Код: WINMN = Library.Load('winmm.dll', false);

function mciSendString(sStr, nLen)
    nLen = nLen or 0;

    local sReturnString
    local pReturnString = MemoryEx.Allocate(1024);
    local nRet = WINMN.mciSendStringA(sStr, pReturnString, nLen, 0);
    if (nRet == 0) then
        sReturnString = MemoryEx.String(pReturnString, -1, MEMEX_ASCII);
    end
    MemoryEx.Free(pReturnString);
    return sReturnString and sReturnString;
end

Video_Open = function(sFilePath, hWnd)
    local hWnd = Application.GetWndHandle();
    local sVID = "";
    for i = 1, 10 do sVID = sVID .. String.Char(Math.Random(97, 122)); end
    local sRet = mciSendString('open '..File.GetShortName(sFilePath)..' alias '..sVID);
    if sRet then
        sRet = mciSendString('window '..sVID..' handle '..hWnd);
        if sRet then
            sRet = mciSendString('put '..sVID..' destination at -1 -1 -1 -1');
            if not sRet then mciSendString('close '..sVID); sVID = ""; end

        else
            mciSendString('close '..sVID);
            sVID = "";
        end
    end
    return sVID;
end

Video_Close = function (sAlias)
    if (sAlias ~= "") then mciSendString('close '..sAlias); end
end

Video_FrameRate = function (sAlias)
    if (sAlias ~= "") then
        return mciSendString('status '..sAlias..' nominal frame rate', 255) / 1000;
    end
end

local sAlias = Video_Open("D:\\Portable\\Delphi7\\Demos\\CoolStuf\\speedis.avi");
local sFrameRate = Video_FrameRate(sAlias);
Video_Close(sAlias);

result = Dialog.Message("Notice", sFrameRate, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

Zloy_Gelud спасибо.Жаль только что воспользоваться не получилось. attempt to index global 'Library' (a nil value)
хотя Library(plugin) в системе есть.

Pahuchiy1
Я ж написал какой плагин нужен! MemoryEx!

Pahuchiy1
Не получилось высчитать битрейт. Это на всех файлах или на каком-то одном?

Zloy_Gelud
может, всётаки с помощью ffmpeg? или какой другой консольной прогой...по крайней мере, кода поменьше будет

Pahuchiy1

Цитата:

по крайней мере, кода поменьше будет

Если вам размер проекта не важен, то возможно со сторонними программами кода будет меньше.

Добавлено:
ffmpeg весит 35Мб и вы его хотите в проект включить? Ужс.

Добавлено:
Можете дать линк на файл, на котором ошибка выскакивает?

Цитата:

Это на всех файлах или на каком-то одном?

на всех
Zloy_Gelud размер проекта абсолютно не важен. ffmpeg меня устраивает всем кроме вывода инфы в файл. Может, попробуете? а то я второй день бьюсь...

Цитата:

на всех

Дайте линк на файл, чтоб я хоть протестировал.

Zloy_Gelud
https://drive.google.com/file/d/0B-TyppkJRvaKZ2V3a2YxdnMzSk0/view?usp=sharing