Universal Steam Extractor

[andreil]

Отлично, только про нас со $t@t!c_V()1D не забывай. Тут проблема есть, которую никакими Free, Clear, Free_And_Nil не решишь (ну не получается...все поперепробовали) - очищение pStrListEx :( . Я что предлагаю: сделай листинг находящихся в папке "X", не в pStrListEx, а в PChar/String, чтоб можно было парсить "своими" средствами (NSIS), а?

Я и не забываю ;)
Насчет просьбы - как освобожусь от других проектов ;)

[M1ke]

как освобожусь от других проектов

...*посмотрел на их количество и ужаснулся*.
Слушай, у нас тут работа стоит...не мог бы ты выложить USE'шные исходники...может быть Статик решит проблемку без твоего привлечения к решению этой самой проблемки?

[andreil]

как освобожусь от других проектов

...*посмотрел на их количество и ужаснулся*.
Слушай, у нас тут работа стоит...не мог бы ты выложить USE'шные исходники...может быть Статик решит проблемку без твоего привлечения к решению этой самой проблемки?

Пожалуйста ;) Выкладываю самммые полные исходники программы (с ресурсами и все-всем, кроме КОЛа).

[M1ke]

Слушай, $t@t!c_V()1D нашел глюк в DLL - она не видит файлов в .PAK-архивах. Папки нормально, а файлов нет (Может ты просто функцию забыл добавить/раскомментировать?).
Если наладишь, то скинь PakFile.pas.

[andreil]

Слушай, $t@t!c_V()1D нашел глюк в DLL - она не видит файлов в .PAK-архивах. Папки нормально, а файлов нет (Может ты просто функцию забыл добавить/раскомментировать?).
Если наладишь, то скинь PakFile.pas.

ОК, как только закончу с одним этапом в эмуляторе (те сегодня), сразу посмотрю, что там такое.

[proplayer666]

Блин у мну при выполнении функции Gcf_GetCompletion появляется ошибка времени выполнения(((( Помогите может че я не так делаю. Вот кусок кода (это только для проверки поэтому на файл не обращайте внимание)

Код: Выделить всё

implementation

uses Step1;

{$R *.dfm}
function Gcf_GetCompletion(Filename: string): single; far; external 'USE.dll';

И сама фунция в выполнении
procedure TStep4_Form.Step4_FormShow(Sender: TObject);
begin

Step4_Progress_all_Label.Caption:=FloatToStr(Gcf_GetCompletion('F:\Мои работы\Программирование\Delphi\Easy_inst\sourceinit.gcf'));
end;

[andreil]

Блин у мну при выполнении функции Gcf_GetCompletion появляется ошибка времени выполнения(((( Помогите может че я не так делаю. Вот кусок кода (это только для проверки поэтому на файл не обращайте внимание)

Код: Выделить всё

implementation

uses Step1;

{$R *.dfm}
function Gcf_GetCompletion(Filename: string): single; far; external 'USE.dll';

И сама фунция в выполнении
procedure TStep4_Form.Step4_FormShow(Sender: TObject);
begin

Step4_Progress_all_Label.Caption:=FloatToStr(Gcf_GetCompletion('F:\Мои работы\Программирование\Delphi\Easy_inst\sourceinit.gcf'));
end;

ХЗ, проверю сегодня днем.

[$t@t!c_V()1D]

Тут ещё один баг нашел: GCF_GetItemSize возвращает неверное количество папок(по-моему, это количество не папок, а Item'ов в данной папке). Наладь функцию в ближайшее время, если сможешь, и скинь код или файл...лучше первое ;) .

proplayer96, ты лучше GetPackageInfo используй и вычисляй процент используемых блоков (BlockUsed) от всех блоков (BlockCount).

[andreil]

Итак, посидев немного сегодня утром, решил переписать USE.
Будет множество нововведений:

1. Интерфейс будет идти через специальный класс, что облегчит программирование проектов с использованием USE;
2. Заголовки для работы с USE будут для Delhi и C++
3. Будет возможно чтение по принципу "архив в архиве" (т.е. PAK-архив в GCF-файле и т.п.);
4. Будут осуществлены функции виртуальной файловой системы (т.е. FindFirst, FindNext, OpenFIle, ReadFile, SeekFile).

Вроде все. Или что-то забыл?

На данный момент занимаюсь полным переписыванием исходников. Осталось только дописать GcfFile.pas и переписать остальные *Files.pas, а так же организовать виртуальную файловую систему (она понадобится в таких подделках, как ManiaEmu и т.п.).

[$t@t!c_V()1D]

Будет возможно чтение по принципу "архив в архиве" (т.е. PAK-архив в GCF-файле и т.п.);

А такие вообще есть? Лучше бы просто чтение PAK'ов сделал - мне бы пригодилось .

[andreil]

Есть такие ;) Только их мало. Просто там необходимо создать свой класс-файловый поток, в чем бывают сложности, особенно если исходный поток сжат.
Но мне это все равно необходимо, так что буду реализовывать ;)

[$t@t!c_V()1D]

Есть такие ;) Только их мало

Перечисли, коль труда не составит :D .

Я буду ждать релиз с нетерпением :Yahoo!: ...надеюсь пол-модуля мне не придется переписывать blink ?

[andreil]

Ну, был у меня на диске (и щас даже есть) модуль одного хорошего человека, который (модуль естественно) работал по принципу "архив в архиве" со множеством архивов (.WAD, .GRP, .PAK, .SPE, .ZIP) и называется он SFS (сайт создателя уже давно оффлайн, так что проект заброшен).

И да, выкладываю потестить (пример правильного юзания - в архиве).
Заголовки для С++ будут позже, тк я там немного недопер, как импортировать функции из ДЛЛки :%)

[$t@t!c_V()1D]

Ну и как там дела :D ?

[andreil]

Отдыхаю немного. Делаю одну самоделку (ARF из StarGate SG-1 :crazy: )