Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.05 c
5-1135002673
Afonya
2005-12-19 17:31
2006.07.09
Добавления компонента в IDE (через создание пакета)


15-1149967699
Vitek_12
2006-06-10 23:28
2006.07.09
Модули на олимпиаде по информатике


15-1150191747
vajo
2006-06-13 13:42
2006.07.09
Текст в диплом участникам соревнований


1-1148562932
Silver...
2006-05-25 17:15
2006.07.09
OLEContainer -> PowerPoint + ...??? Команды ???... = Типа Preview


10-1121745962
just
2005-07-19 08:06
2006.07.09
twebbrowser, ihtmldocument, таблица большого размера