| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Flash [D1, D2, D3, D4, D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

ZeFiR ©   (2006-01-29 21:40:00) 

Доброго времени суток! Как из Projector EXE можно вытащить "чистый" SWF?
И как можно из "чистого" SWF сделать EXE(не средствами SAFlashPlayer.exe)?

---

ZeFiR   (2006-01-30 18:34:00) [1]

Думаю дело все во flag ... ток где его отыскать в моей проге...

---

ZeFiR   (2006-01-30 18:17:00) [2]

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;

...

Procedure TMyForm.Button1Click(Sender: TObject);

begin

SWF2Exe('my.swf', 'my.exe', 'c:\Flash MX\Players\SAFlashPlayer.exe');

end;


есть такой код, как мона его переделать под мою апп

---

Наверх