Скачать: CL | DM;

...даже не знаю как тему назвать...   Найти похожие ветки 

← →
ZeFiR ©   (2006-02-02 18:21) [0]

Дан такой код:
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;
код создает екзе из свф... но при помощи родного макромедиевского двига... как можно создать екзе из свф с помощью своей проги(с уже встроенным TShockwaveFlash)?

---

← →
ZeFiR ©   (2006-02-02 20:34) [1]

Переместили в конференцию "Начинающим", а помочь нормально "начинающему" не могут! Где справедливость?

---

← →
Gero ©   (2006-02-02 20:51) [2]

Про себя пишет «начинающий» в кавычках, а тему нормально сформулировать не может. Где логичка?

---

← →
ZeFiR ©   (2006-02-02 21:10) [3]

Ну как где? как можно в рантайме забить в екзешник своей проги свф муви и потом сохранить это все дело куда-то(как это делает SaFlashPlayer.exe)? Так понятно? Иль еще че-то не сформулировал?

---

← →
GuAV ©   (2006-02-02 23:32) [4]

> как можно в рантайме забить в екзешник своей проги свф
> муви и потом сохранить это все дело куда-то

Используя код [0] и передавая в качестве параметра PlayerName екзешник своей проги.

---

← →
ZeFiR ©   (2006-02-03 18:13) [5]

> Используя код [0]

куда его тыкать)?

---

← →
ZeFiR ©   (2006-02-03 19:49) [6]

Кстати, условие такое: чтоб потом эта муви легко шпилилась с пом. моей проги

---

← →
guav ©   (2006-02-04 15:51) [7]

> куда его тыкать)?

Не тыкать а использовать в своей программе.
SWF2Exe("my.swf", "my.exe", ParamStr(0)); - остальное так же.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c