Нужен распаковщик - упаковщик скин файла

[sachok]

Ну в итоге бесплатно не хочу, считаю что любой труд должен оплачиваться...
Готов потратить 1000-2000р. Пишите мне на почту...

[WorldMaster]

Так вы исполнителя то выберите? Вон сколько заявок на участие

[sachok]

Спасибо всем! Исполнитель выбран!

[Slym]

Сообщение от WorldMaster

От скуки я обычно решаю задачки которые разных разделах форума есть. С количеством ответов 0.
И мозгу полезно и студики довольны.

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

кстати запость результаты сюда, посмотрим за что ты кровные отдал

[Avazart]

<<Поощрять безмозглую школоту... неее...>>
Так это вложение в будующее ... тип чем они тупее тем мы востребование ))

А вообще если скучно лучше книжку почитать.

[WorldMaster]

Сообщение от Slym

кстати запость результаты сюда, посмотрим за что ты кровные отдал

Зачем вам такое?? Вы недавно рвались задаром сделать .. Сделайте и запостье. Ну если только вы не пустозвон ...

[Slym]

На слабо? файло для отладки в студию...
Вот прикол будет, если исполнитель скопипастит и бапки за это получит
Гуи обсуждается, движок ниже:

procedure BdbExtractAllBmp(const bdbFileName,IndexFileName,Path:stri ng);
type
TFileRec=packed record
index:Integer;
Offset:Integer;
Header:Integer;
end;
var
bdb,bmp:TFileStream;
Files:array of TFileRec;
Count,i:Integer;
begin
bdb:=TFileStream.Create(IndexFileNa me,fmOpenRead);
try
bdb.ReadBuffer(Count,SizeOf(Count)) ;
SetLength(Files,Count);
for i:=0 to Count-1 do
bdb.ReadBuffer(Files[i],SizeOf(TFileRec));
finally
bdb.Free;
end;

ForceDirectories(Path);
bdb:=TFileStream.Create(bdbFileName ,fmOpenRead);
try
for i:=0 to Count-1 do
begin
bdb.Seek(Files[i].Offset,soBeginning);
bmp:=TFileStream.Create(Path+Format ('%.4d',[Files[i].index]),fmCreate);
try
bmp.WriteBuffer(Files[i].Header,SizeOf(Files[i].Header));
bmp.CopyFrom(bdb,Files[i].Header shr 16);
finally
bmp.Free;
end;
end;
finally
bdb.Free;
end;
end;

[WorldMaster]

Сообщение от Slym

На слабо? файло для отладки в студию...
Вот прикол будет, если исполнитель скопипастит и бапки за это получит

Не мелочитесь из за этих копеек. 2000р это не та сумма.
ТС сам может увидеть похожесть кодов и сделать свой выбор.

[Slym]

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

[Человек_Борща]

__
Так это вложение в будующее ... тип чем они тупее тем мы востребование
_____
Нафиг, нафиг такое вложение. Пускай создают конкуренцию на рынке дворников, чем с нашей помощью, нам самим.