Текущий архив: 2006.07.09;
Скачать: CL | DM;

Вниз

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

← →
ZeFiR ©   (2006-01-29 21:40) [0]

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

---

← →
ZeFiR ©   (2006-01-30 18:17) [1]

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;


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

---

← →
ZeFiR ©   (2006-01-30 18:34) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.07.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.047 c