» Indigo Rose AutoPlay Media Studio

Вот частичный перевод справки по АМС на русский язык.
http://rghost.ru/41902686

Всем привет! Подскажите как сделать полностью прозрачным окно?
Ввожу_On Show:
Window.SetMask(Application.GetWndHandle(), "AutoPlay\\Images\\Blask2B_2.png", true, 0);
Где PNG полностью черной заливкой. Окно не прозрачное.

Nikolas_B
Мне кажется проблема кроется в твоем Blask2B_2.png.
Попробуй создать bmp-маску.

Всем привет!
Подскажите, кто сталкивался.
Хочу реализовать в моем проекте отправку файлов по email,
допустим файл будет ZIР-архивом, желательно реализовать скрытую отправку, но и явная подойдет, пробовал разбираться с примером Email client так он не запустился и не работает.
может есть у кого рабочий пример или хотябы пните в нужном направлении.
Буду признателен.


Цитата:

Zloy_Gelud


Цитата:
В сторону плагина Canvas.

Кстати, спасиб разобрался, графики строит на ура

rokhlin
Плагин от tavria2 думаю подойдет.
http://rghost.net/private/41975320/c631350481465de8673789e412d47053

Добрый день господа. Мне стыдно за глупый вопрос. Мне надо просто рассчитать за сколько прошла установка. Подскажите где я ошибся:

Код: a = System.GetTime(TIME_FMT_MIL);
Application.Sleep(2000);
b = System.GetTime(TIME_FMT_MIL);

c = b - a
Dialog.Message("Notice", "Время установки: "..c.."", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

dallas page
Ну, во-первых, действие System.GetTime возвращает строку, а числовые операции со строкам как бы не уместны. Во вторых, если окрыть справку и посмотреть описание параметров той же функции, то станет понятно, что параметр TIME_FMT_MIL заставит вернуть функцией время в виде HH:MM:SS. Что как бы тоже не годно для дальнейшей работы. Поэтому используй аргумент TIME_FMT_SEC, что позволит получить время в секундах. Далее преобразовываем строку в число (tonumber() ). Выполняем вычисления. Готово. При желании, можно написать функу преобразования секундустановки в минуты/часы. *Чушь . Читать след. пост.

Zloy_Gelud

Цитата:

Поэтому используй аргумент TIME_FMT_SEC

Думаешь с секундами получиться?
на 61-й секунде будет возвращена 1 !

lerik2703
затупил.
Вот..

Код: local nTime1 = tonumber(DLL.CallFunction("Kernel32.dll ", "GetTickCount", "", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL));
Application.Sleep(2000);
local nTime2 = tonumber(DLL.CallFunction("Kernel32.dll ", "GetTickCount", "", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL));
Dialog.Message("Notice", ((nTime2 - nTime1) / 1000) .. ' сек.', MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

Zloy_Gelud спасибо. Возможно перемудрил, но вроде работает:

Код: cm = 0
local nTime1 = tonumber(DLL.CallFunction("Kernel32.dll ", "GetTickCount", "", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL));
Application.Sleep(183000);
local nTime2 = tonumber(DLL.CallFunction("Kernel32.dll ", "GetTickCount", "", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL));

c = nTime2 - nTime1
c = c / 1000
c = Math.Round(c, 0);

if c > 60 then
    cm = c / 60
    cm = Math.Round(cm, 0);

    cs = c % 60

    cc = ""..cm.." мин. "..cs.." сек."

    Dialog.Message("Notice", cc, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
    cc = ""..cm.." мин. "..c.." сек."
    Dialog.Message("Notice", cc, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

dallas page

Цитата:

Выставил ожидание 119 секунд. А он потом показал 2 мин. 59 сек.

не помню как уже делал вроде так

Код: nSec = Math.Mod(c, 60);
nMin= Math.Floor(c/60);

tavria2
Спасибо с прозрачностью фона всё получилось.

tavria2

Разбираюсь с твоим плагином SmtpT немного не могу понять, подскажи где ошибка
код такой:


Код:              MailProperties={
FromName='Ivanov',
FromEmail='ivanov@mail.ru',
Organization = 'IvanovCompany',
To ='petrov@gmail.com',
Subject = 'Пробный текст',
TextBody = 'Текст для проверки and English 13435425 Ё й Ъ',
Importance = 'normal',
Charset= 'windows-1251'};
ServerProperties={
Server = 'smtp.mail.ru',
ServerPort = 25,
Authenticated = true ,
UseSSL = false,
UserName = 'Ivanov',
PassWord = 'MyPassword',
TimeOut = 25};
Attachments = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, false);

local res = SmtpT.SendMail(MailProperties,ServerProperties,Attachments);
if res == "OK" then
Dialog.Message("Notice", "Файл отправлен!", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
end

end

rokhlin

Цитата:

Разбираюсь с твоим плагином SmtpT немного не могу понять, подскажи где ошибка

если не ошибаюсь 25 порт уже давно не используется ...
в примере от tavria2 указан 465!

rokhlin

Цитата:

Разбираюсь с твоим плагином SmtpT немного не могу понять, подскажи где ошибка
код такой:

Код абсолютно рабочий - проверил на своих данных.
Может быть в свойствах твоего ящика стоит безопасное подключение на порт 465?
Если да, то попробуй установить:
ServerPort = 465
UseSSL = true

Цитата:

Соответственно Подтверждения об отправке нет.

Должно быть сообщение об ошибке подключения к серверу.
Я думаю ты не дождался...

Добавлено:
lerik2703

Цитата:

если не ошибаюсь 25 порт уже давно не используется ...

ошибаешься, используется и сейчас

lerik2703

Цитата:

если не ошибаюсь 25 порт уже давно не используется ...

Используется.
rokhlin
А на mail.ru при отправке используется аутентификация?



Добавлено:
tavria2
опередил

tavria2

Цитата:

ошибаешься, используется и сейчас

Lexua

Цитата:

Используется.

Ну или заблокирован большинством провайдеров!?

tavria2

Цитата:

Код абсолютно рабочий - проверил на своих данных.
Может быть в свойствах твоего ящика стоит безопасное подключение на порт 465?
Если да, то попробуй установить:
ServerPort = 465
UseSSL = true

Ни в какую не хочет работать, и с SSL и без и разные ящики пробовал.

UPD: Запустилось на 25 порту кстати, ошибка была в том, что логин нужно было указывать полностью email отправилеля(Для mail.RU), я до этого пробовал, но видимо, еще в чем-то ошибка была поэтому не заработал сначала.


В общем, спасибо всем за помощь!

rokhlin

Цитата:

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

Я хотел об этом сказать, но проверил у себя отправку с "коротким" логином - письмо ушло успешно.
Странно. :/

Добрый день!
Подскажите пример как получить unix time и пересчитать его в нормальное время
Спасибо

Добавлено:
После продолжительных поисков нашел рабочий код.
Может кому пригодится ))

Код: Unix = {};

function Unix.Decrypt(str)
    return os.date("%c", str);
end

function Unix.Encrypt(tbl)
    return os.time(tbl);
end

-- Example of Unix.Decrypt:
unix = Unix.Decrypt(1297694343);
Dialog.Message("Unix decryption", unix);
-- Output: 02/14/11 15:39:03

-- Example of Unix.Encrypt:
tblDate = {year=2011, month=02, day=20, hour=17, min=36, sec=20};
unix = Unix.Encrypt(tblDate);
Dialog.Message("Unix encryption", unix);
-- Output: 1298219780

Добрый день.
Хочу сделать диск с установкой ПО, но не знаю как сделать так, чтобы сначала отмечаешь все что хочешь установить, а потом по нажатию одно кнопки начинается установка каждой программы по очереди (не начинает устанавливаться следующая, пока предыдущая не завершит устанавливаться). Подскажите, пожалуйста, что нужно для этого сделать.

Grimmjowl --В шапке есть.

Zloy_Gelud
Цитата:

В шапке есть.

А поточнее?

Друзья, быть может кто нибудь поделиться стильной менюшкой, что то в стиле apple?
Буду очень благодарен!

Может, кому-то пригодится.

Выравнивание текста по ширине в объекте RichText.
Казалось бы, установи свойство Alignment = PFA_JUSTIFY и всех делов, но это приводит к выравниванию параграфа по левому краю, как и Alignment = PFA_LEFT.
Оказывается, что бы заработало выравнивание параграфа по ширине, необходимо объекту RichText послать сообщение EM_SETTYPOGRAPHYOPTIONS.

Код: local WM_USER = 0x400;
local EM_SETTYPOGRAPHYOPTIONS = WM_USER + 202;
local TO_ADVANCEDTYPOGRAPHY = 1;
local hWnd = RichText.GetProperties("RichText1").WindowHandle;
DLL.CallFunction("user32.dll", "SendMessageA", hWnd..","..EM_SETTYPOGRAPHYOPTIONS..","..TO_ADVANCEDTYPOGRAPHY..","..TO_ADVANCEDTYPOGRAPHY, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

RichText.SetParagraphFormat("RichText1", {Alignment = PFA_JUSTIFY});

Добрый день. Господа, я в тупике. Ни как не могу понять, что делать. Мне нужно, чтобы из программы выбирался архив, конечная папка и запускался 7-Zip с командой. Команда такого плана:

"C:\Users\User\AppData\Local\Temp\nse5F5.tmp\7zG.exe" x "E:\RFRemix-17-x86_64-Live-KDE.iso" -o"D:\" -y -x![BOOT]*

В ней обязательны кавычки (""). Но я не могу заставить AMS прописывать эти кавычки.

Код: result = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, true);
result2 = Dialog.FolderBrowse("Please select a folder:", "");

b64Bit = System.Is64BitOS();

if b64Bit then
my7zip = _SourceFolder .. "\\AutoPlay\\Docs\\7-zip\\x64\\7zG.exe"
else
my7zip = _SourceFolder .. "\\AutoPlay\\Docs\\7-zip\\x86\\7zG.exe"
end

myarch = ""..my7zip.." x "..result[1].." -o"..result2.." -y -x![]*"

File.Run(myarch, "", "", SW_SHOWNORMAL, true);

Dialog.Message("Notice", "OK!!!", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

dallas page

Цитата:

"C:\Users\User\AppData\Local\Temp\nse5F5.tmp\7zG.exe" x "E:\RFRemix-17-x86_64-Live-KDE.iso" -o"D:\" -y -x![BOOT]*

Три равноценных варианта:
sMyString=[["C:\Users\User\\AppData\Local\Temp\nse5F5.tmp\7zG.exe" x "E:\RFRemix-17-x86_64-Live-KDE.iso" -o"D:\" -y -x![BOOT]*]];
sMyString='"C:\\Users\\User\\AppData\\Local\\Temp\\nse5F5.tmp\\7zG.exe" x "E:\\RFRemix-17-x86_64-Live-KDE.iso" -o"D:\\" -y -x![BOOT]*';
sMyString="\"C:\\Users\\User\\AppData\\Local\\Temp\\nse5F5.tmp\\7zG.exe\" x \"E:\\RFRemix-17-x86_64-Live-KDE.iso\" -o\"D:\\\" -y -x![BOOT]*";

1-й вариант использует текстовый блок [[...]]. Текст вставляется между тегами блока без каких либо изменений.

2-й вариант использует одинарные кавычки '...', что предотвращает конфликт с двойными кавычками, содержащимися в тексте. Если в тексте встречается обратный слеш, то его необходимо экранировать т.е. перед ним необходимо добавить еще один обратный слеш, иначе он будет рассматриваться как управляющий символ.

3-й вариант использует двойные кавычки "...". Необходимо экранировать двойные кавычки содержащиеся в тексте, т.е. перед ними необходимо добавить обратный слеш. Если в тексте встречается обратный слеш, то перед ним необходимо добавить еще один обратный слеш, иначе он будет рассматриваться как управляющий символ.

tavria2 благодарю, но не подходит в моем случае. В моем коде заранее не известны путь к архиву и путь к конечной папке. Они записываются в переменную. И в итоге строка получается не...

"C:\Users\User\Documents\AutoPlay Media Studio 8\Projects\7zip\CD_Root\AutoPlay\Docs\7-zip\x64\7zG.exe" x "C:\Users\User\Desktop\UltraISOPortable.7z" -o"C:\Users\User\Desktop\Новая папка (3)" -y -x![]

а...

""..my7zip.."" x ""..result[1].."" -o""..result2.."" -y -x![]*

т.е., переменные записались просто как текст.

Код: result = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, true);
result2 = Dialog.FolderBrowse("Please select a folder:", "");

b64Bit = System.Is64BitOS();

if b64Bit then
my7zip = _SourceFolder .. "\\AutoPlay\\Docs\\7-zip\\x64\\7zG.exe"
else
my7zip = _SourceFolder .. "\\AutoPlay\\Docs\\7-zip\\x86\\7zG.exe"
end

myarch = [[""..my7zip.."" x ""..result[1].."" -o""..result2.."" -y -x![]*]];

Dialog.Message("Notice", myarch, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

File.Run(myarch, "", "", SW_SHOWNORMAL, true);

Dialog.Message("Notice", "ОК!!!", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

dallas page -- может так?

Код: myarch = "\""..my7zip.."\" x \""..result[1].."\" -o\"" .. result2 .."\" -y -x![]*"

Zloy_Gelud, tavria2 спасибо. Не увидел обратные слеши в конце.