DLL ISDone 0.6 final

[ProFrager]

Edison007, меняй надпись между функциями.

 

[Fix]

Ne0N, delta поддерживается здесь?

 

[ProFrager]

Fix, xdelta3 - да, delta Булата - только внутри arc архива

 

[Fix]

Ne0N, т.е. dlt-архивы только через ISExec можно распаковать?

 

[ProFrager]

Fix, да, а чем не устраивает тот, что внутри freearc?

 

[Fix]

Ne0N, я внутри арка не пользовался. В Packers Show наткнулся на нее и спросил) Посмотрим в арке)
Как скрыть извлекаемые файлы? Чтобы было как здесь

 

[dvd4el]

Ne0N, почему не сделаешь полный пусть распаковываемых файлов? Всмысле, чтобы в LabelCurrFileName был полный путь. (C:\PF\Game\data.bin)

 

[Fix]

dvd4el, а смысл? Лишнее нагромождение) Как есть удобнее)

 

[deus_ex]

function ExtractOGG(Component:Cardinal; InputFiles,OutputPath:string):boolean;
var
FindHandle1,ColFiles1,CurIndex1:integer;
ExecError:boolean;
InFilePath,OutFilePath,OutFileNameAnsiChar;
begin
FindHandle1:=ISFindFiles(Component,InputFiles,ColFiles1);
ExecError:=false;
while not ExecError and ISPickFilename(FindHandle1,OutputPath,CurIndex1,true) do begin
InFilePath:=ISGetName(0);
OutFilePath:=ISGetName(1)+'.wav';
OutFileName:=ISGetName(2)+'.wav';
ExecError:=not ISExec(Component, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFileName);
end;
ISFindFree(FindHandle1);
result:=not ExecError;
end;

вот в этой функции можно как-то заставить распакованные .ogg на выходе иметь расширение скажем .123??
по идее тут
OutFilePath:=ISGetName(1)+'.wav';
OutFileName:=ISGetName(2)+'.wav';
я как понял меняется.. но как не пиши, что не меняй, всё равно на выходе получается .wav. Хотя в строке прогресса показывается нормальное расширение (.123)

 

[ProFrager]

deus_ex, видимо oggdec пофиг на второй параметр в его строке (OutFilePath), он использует свое. Либо ты где-то что-то упустил.

Добавлено через 1 минуту
А в строке состояния просто показывается то, что ты задал в OutFileName.

 

[deus_ex]

мм.. да, так оно и есть, без опции оггдеку пофиг на название. собственно тогда вопрос.
правильно будет примерно вот так
oggdec.exe music.ogg -w music.123
т.е. критичный параметр -w

как правильно это записать в эту строчку
ExecError:=not ISExec(Component, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFile Name);
?

 

[ProFrager]

ExecError:=not ISExec(Component, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" -w "'+OutFilePath+'"',ExpandConstant('{tmp}'),Out File Name);

 

[Fix]

Ne0N, а по моему вопросу поможешь?

 

[Snoopak96]

Fix,
LabelCurrFileName.Hide в конец процедуры CreateControls добавь.

 

[Fix]

Snoopak96, спасибо!)

 

[1noObman1]

Можно ли как-то сделать что-то вроде ISFindFiles, но чтоб оно искало не файлы а папки в названии которых содержится (*.zip1) например? Ну и собсно потом это запаковывало в зипы (но это я и сам прописать могу, главное пути все иметь).

 

[nik1967]

хотя... можно просто игнорить ошибки при отмене

Эээ... Что то не соображу, как это реализовать. Туплю, наверно

 

[ProFrager]

nik1967, эт в исходниках дллки немного поправить надо.

1noObman1, овчинка выделки не стоит, все равно для разового использования. Проще каждый каталог указать вручную.

 

[ozerothik]

Какие строки используются для распаковки SrepInside и PrecompInside архивов? Я имею ввиду внизу строки, где прописывают архивы. Вот мне хотелось бы спросить какие строки там прописывать!)

 

[ACtivity]

Какие строки используются для распаковки SrepInside и PrecompInside архивов? Я имею ввиду внизу строки, где прописывают архивы. Вот мне хотелось бы спросить какие строки там прописывать!)

if not ISSRepExtract ( 0, 0, ExpandConstant('{app}\data1024_1024.srep'),ExpandConstant('{app}\data1024.arc'), true) then break;
if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\data.pcf'), ExpandConstant('{app}\data.7z'), true) then break;