SWF2Exe

← →
Vayrus (2008-02-11 14:22) [0]

Здравствуйте, есть такой код для создания автономного SWF проектора:

function SWF2Exe(SourceName, DestName, PlayerName: string): boolean;
var
RStream, WStream: TFileStream;
flag, SwfFileSize: DWord;
begin
result := false;
WStream := TFileStream.Create(DestName, fmCreate);
try
RStream := TFileStream.Create(PlayerName, fmOpenRead or fmShareDenyWrite);
try
WStream.CopyFrom(RStream, RStream.Size);
finally
RStream.Free;
end;
RStream := TFileStream.Create(SourceName, fmOpenRead or fmShareDenyWrite);
try
WStream.CopyFrom(RStream, RStream.Size);
flag := $FA123456;
WStream.Write(flag, 4);
SwfFileSize := RStream.Size;
WStream.Write(SwfFileSize, 4);
result := true;
finally
RStream.Free;
end;
finally
WStream.Free;
end;
end;

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

← →
ketmar © (2008-02-11 15:33) [1]

>[0] Vayrus (2008-02-11 14:22:00)
>Нужен исходник.
нет. автору нужен рабочий мозг.

---
Understanding is not required. Only obedience.

← →
Vayrus (2008-02-11 23:20) [2]

Да ладно жалко кусочек кода просто, либо сам не в курсах как это сделать,
а пошутить никогда не поздно.

← →
ketmar © (2008-02-12 00:29) [3]

>[2] Vayrus (2008-02-11 23:20:00)
я понимаю, что ты закоинание из какого-то гримуара упёр. так напрягись, и прочти заклинание-то. увидишь, что в конец файла пишется какое-то прикольное значение. если ты уже добыл рабочий мозг, тебе этого хватит.

мы тут не учим заклинания кастовать, мы учим их составлять.

---
Understanding is not required. Only obedience.

← →
Vayrus (2008-02-12 09:07) [4]

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

← →
ketmar © (2008-02-12 09:11) [5]

>[4] Vayrus (2008-02-12 09:07:00)
ты в принципе такой код написать не способен, иначе не задал бы столь идиотского вопроса.

вдобавок ты нагдец и хамло не по делу; за сим разговор с тобой я закончил.

зыж мётлы продаются в магахинах хозтоваров.

---
Understanding is not required. Only obedience.

← →
Vayrus (2008-02-12 12:53) [6]

Вот-вот, не по делу ты и начал. Если нечего сказать то молчи (язык почесать можешь и на базаре). А код, возможно, и не способен написать,
я ж не программист.

← →
ketmar © (2008-02-12 13:33) [7]

>[6] Vayrus (2008-02-12 12:53:00)
>я ж не программист.
неко, найми программиста, заплати ему и не фачь на мозги.

зыж я рад, что ты признал себя лгуном. может, для тебя ещё есть надежда (потому и продолжаю отвечать).

---
Understanding is not required. Only obedience.

← →
Vayrus (2008-02-12 15:10) [8]

Форум для того и создан, чтобы вопросы задавать и ответы по теме на него получать. Он призван помогать тем кто попал в тупик в решении того или иного вопроса по программированию или просто начинающим кодерам. А лгуном я себя не признавал, обратись к окулисту и прочти пункт [6] ещё раз.
И вообще, чё ты такой нервный, дерзиш всё время, пройди полный курс обследования на всякий случай.

тьфу. не исправился. временное просветление, видимо, было. поцЫент безнадёжен, в морг.

---
Understanding is not required. Only obedience.

← →
Vayrus (2008-02-12 15:31) [10]

Тема закрыта, т. к. светлых умов не видно и помощи ждать неоткуда.

SWF2Exe Найти похожие ветки