Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

...даже не знаю как тему назвать... [D7, WinXP]

ZeFiR © (2006-02-02 18:21:00)
Дан такой код:
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)?

guav (2006-02-04 15:51:00) [1]

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

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

ZeFiR (2006-02-03 19:49:00) [2]
Кстати, условие такое: чтоб потом эта муви легко шпилилась с пом. моей проги

ZeFiR (2006-02-03 18:13:00) [3]

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

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

GuAV (2006-02-02 23:32:00) [4]

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

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

ZeFiR (2006-02-02 21:10:00) [5]
Ну как где? как можно в рантайме забить в екзешник своей проги свф муви и потом сохранить это все дело куда-то(как это делает SaFlashPlayer.exe)? Так понятно? Иль еще че-то не сформулировал?

Gero (2006-02-02 20:51:00) [6]
Про себя пишет «начинающий» в кавычках, а тему нормально сформулировать не может. Где логичка?

ZeFiR (2006-02-02 20:34:00) [7]
Переместили в конференцию "Начинающим", а помочь нормально "начинающему" не могут! Где справедливость?

Наверх

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