[murlakatamenka]

Лександер, а можешь ГОГ доделанный выложить. Я almost_completed доделал немного (подправил лэйблы, сместил прогресс бар повыше, доделал отмену установки), но дальше влом. Как-то гуглил и видел что andrew0812 на одном из форумов тебе скидывал (ты ведь Лександер aka Gnom )

[Johny777]

Подскажите пожалуйста как растянуть внутренне окно окно
в дизайнере не активно
http://s50.radikal.ru/i129/1107/37/5c69c8346650.jpg

[ssv14]

Всем добрый день. Ребята, нужна помощь.
Есть скрипт декодирования OGG в WAV

читать дальше »

-------------------------------------------------------------------------------------------

[Setup]
AppName=RecodeOgg
AppVerName=RecodeOgg
OutputDir=.
OutputBaseFilename=RecodeOgg
DefaultDirName={pf}\RecodeOgg
AppendDefaultDirName=False
DisableDirPage=True

[files]
Source: oggdec.exe; DestDir: {app};
Source: oggs\*; DestDir: {app};
Source: oggs\*; DestDir: {app}\Data;

[code]
var
Files: Array of String;
S: String;
n: Integer;

Function StringToArray(Text, Cut: String): array of String; var i, k: Integer;
Begin
SetArrayLength(Result, 0); if Cut = '' then Cut:= #1310; //если шаблон пуст, считаем переводы строк
Repeat k:= Pos(Cut,Text);
if k = 1 then begin Delete(Text, 1, Length(Cut)); CONTINUE
end;
SetArrayLength(Result, GetArrayLength(Result) +1); i:= GetArrayLength(Result) -1;
if k = 0 then
Result[i]:=Text
else begin
Result[i]:= Copy(Text, 1, k -1); Delete(Text, 1, Length(Result[i]) + Length(Cut));
end;
Until Length(Text) * k = 0;
End;

procedure FindFiles(FromDir: String; Mask: String);
var FSR, DSR: TFindRec; FindResult: Boolean;
begin
FindResult:= FindFirst(AddBackslash(FromDir)+Mask, FSR)
while FindResult do begin
if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then begin
S:= S + AddBackslash(fromDir) + FSR.Name +'|';
end;
FindResult:= FindNext(FSR);
end;
FindResult:= FindFirst(AddBackslash(FromDir)+ '*.*', DSR)
while FindResult do begin
if ((DSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and not ((DSR.Name = '.') or (DSR.Name = '..')) then begin
FindFiles(AddBackSlash(FromDir)+ DSR.Name, Mask)
end;
FindResult:= FindNext(DSR);
end;
FindClose(FSR); FindClose(DSR)
end;

procedure RecodeOgg;
var ResultCode: integer; CurFile: String;
begin
FindFiles(ExpandConstant('{app}'), '*.ogg') //Находим все файлы по маске, в выбранной папке
Files:= StringToArray(S, '|') //Переводим в массив
WizardForm.ProgressGauge.Max:= GetArrayLength(Files)-1; //Получаем кол-во файлов
for n:=(GetArrayLength(Files)-1) downto 0 do begin
CurFile:= Files[n]
StringChange(CurFile, AddBackslash(ExpandConstant('{app}')), '')
Exec(ExpandConstant('{app}\oggdec.exe'), '-Q '+ AddQuotes(CurFile), '', SW_Hide, EwWaitUntilTerminated, ResultCode) //Для каждого файла запускаем декодер
DeleteFile(Files[n]) //Удаляем ненужный файл
WizardForm.FilenameLabel.Caption:= Files[n]; //Двигаем прогрессбар
WizardForm.ProgressGauge.Position:= WizardForm.ProgressGauge.Position +1;
end;
DeleteFile(ExpandConstant('{app}\oggdec.exe'))
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
begin
WizardForm.ProgressGauge.Position := 0;
WizardForm.StatusLabel.Caption := 'Извлечение аудио файлов...';
RecodeOgg;
end;
end;

-------------------------------------------------------------------------------------------

возможно как-то сделать, что бы не велся поиск файлов OGG, а брался из списка,
например из ogglist.txt, в котором прописаны пути к каждому файлу:

Код:

"Voice\voice true\true.ogg"
"NBK\345.ogg"
"SOUNDS\over voice\hard drum.ogg"
"SOUNDS\music\123.ogg"
"SOUNDS\terminal future\small f.ogg"
.
.
.
"SOUNDS\terminal future\big.ogg"

Еще есть библиотека bass.dll последней версии v.2.4.7 и приведен пример для использования музыки MP3. Но она еще умеет трэкерную музыку воспроизводить MOD, IT, S3M. Может кто-то набросать пример использования этих трэкерных форматов?

[Gnom_aka_Lexander]

Подскажите пожалуйста как растянуть внутренне окно окно в дизайнере не активно »

в правом верхнем углу - комбобокс с объектами, выбираеш OuterNotebook, и он становится активным, можно менять, по своему усмотрению. С InnerNotebook - тоже самое. В рестулсовском форм-дизайнере, объекты типа TNewNotebook и TNewNotebookPage, только таким образом можно зацеплять для редактирования.

возможно как-то сделать, что бы не велся поиск файлов OGG, а брался из списка, например из ogglist.txt, в котором прописаны пути к каждому файлу: »

Можно поинтересоваться, для чего? теоретически - можно, используя функции работы с ini-файлами, но есть скрипт, который нормально сам все находит во вложенных подкаталогах.

Еще есть библиотека bass.dll последней версии v.2.4.7 и приведен пример для использования музыки MP3. Но она еще умеет трэкерную музыку воспроизводить MOD, IT, S3M. Может кто-то набросать пример использования этих трэкерных форматов? »

На сайте библиотеки есть примеры, перегнать с дельфи, в урезанный дельфи - можно попробовать, осталось найти того, у кого есть желание этим заняться.

Лександер, а можешь ГОГ доделанный выложить. »

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

[Gnom_aka_Lexander]

Neutron, Если я понял, то тебе нужен статус панель на ботве то вот пример: Скачать статус панель от Shegorat P.S> Там разобратся не трудно! »

А в чем связь статус-панели, и модуля системных требований, который ты предлагаешь взамен?

[ssv14]

ssv14:

возможно как-то сделать, что бы не велся поиск файлов OGG, а брался из списка, например из ogglist.txt, в котором прописаны пути к каждому файлу.

Можно поинтересоваться, для чего? теоретически - можно, используя функции работы с ini-файлами, но есть скрипт, который нормально сам все находит во вложенных подкаталогах. »

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

[Gnom_aka_Lexander]

просто тогда будут все OGG файлы распаковываться, а необходимо несколько файлов так и оставить »

Ясно, сейчас освобжусь, накидаю пример получения списка из ини, там такто просто, глянь пока в справке функцию -
function GetIniString(const Section, Key, Default, Filename: String): String;
-указываеш заранее в ини список, например так: секция - список, ключ - номер файла, имя файла - имя файла. Потом в скрипте читаеш имена файлов по номерам ключей.

я думаю, можно сделать так: »

Можно и так, но не обязательно батником, можно и в коде это сделать.
Экспортируеш системную функцию перемещения:

function MoveFile(const srcFile, destFile: PChar): Integer; external 'MoveFileA@kernel32.dll stdcall';
Потом в нужном месте пишеш:
MoveFile('файл с измененным расширением','файл с правильным расширением');

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

[ssv14]

я думаю, можно сделать так:
переименовать те файлы OGG, которые нужно оставить в OG_ например.
После завершения установки и декодирования всех OGG, через батник переименовать OG_ в OGG через секцию [Run]

Код:

[Run]
Filename: "{app}\ren_ogg.bat"; Flags: shellexec runhidden

[ssv14]

ни как не получается подружить трэкерную музыку с bass.dll v2.4.7
что я не так делаю?

читать дальше »

Код:

[_Code]
const
  BASS_MUSIC_RAMP               = 1;
  BASS_MUSIC_RAMPS             = 2;
  BASS_MUSIC_LOOP                = 4;
  BASS_MUSIC_FT2MOD           = 16;
  BASS_MUSIC_PT1MOD           = 32;
  BASS_MUSIC_SURROUND     = 512;
  BASS_MUSIC_SURROUND2   = 1024;


function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean; 
external 'BASS_Init@files:BASS.dll stdcall delayload';

function BASS_MusicLoad(mem: BOOL; f: PChar; offset: DWORD; length: DWORD; flags: DWORD; frec: DWORD): Boolean;
external 'BASS_MusicLoad@files:BASS.dll stdcall delayload';

function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean; 
external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';

function BASS_ChannelGetLevel(handle: DWORD): Boolean;
external 'BASS_Start@files:BASS.dll stdcall delayload';

function BASS_Start: Boolean; 
external 'BASS_Start@files:BASS.dll stdcall delayload';

function BASS_Stop: Boolean; 
external 'BASS_Stop@files:BASS.dll stdcall delayload';

function BASS_Free: Boolean; 
external 'BASS_Free@files:BASS.dll stdcall delayload';


function InitializeSetup(): Boolean;

var
  Mus: HWND;
  modName: string;
begin
  ExtractTemporaryFile('BASS.dll');
  ExtractTemporaryFile('BUSSI.S3M');
  modName := ExpandConstant('{tmp}\BUSSI.S3M');
  BASS_Init(-1, 44100, 0, 0, 0);
  Mus := BASS_MusicLoad(FALSE, PChar(modName), 0, 0, BASS_MUSIC_SURROUND, 0);
  BASS_Start();
  BASS_ChannelPlay(Mus, False);
  BASS_ChannelGetLevel();
  Result := True;
end;
 
procedure DeinitializeSetup();
begin
  BASS_Stop();
  BASS_Free();
end;