Tips&Tricks I trucchi del mestiere

 

Convertire un filmato flash in EXE
Il tip consente di convertire un qualunque filmato formato Macromedia Flash in un comune file eseguibile di Windows, ovvero un .EXE.
Si tratta di una funzione che accetta tre argomenti:il file sorgente (file formato Flash), il file di destinazione (file .exe) e il percorso del Flash Player installato nel proprio sistema.
Tips fornito dal sig. G.Pasqua 

function Swf2Exe(S, D, F: string): string;
var
 SourceStream, DestinyStream, LinkStream: TFileStream;
 flag: Cardinal;
 SwfFileSize: integer;
begin
 result := 'something error';
 DestinyStream := TFileStream.Create(D, fmCreate);
 try
   LinkStream := TFileStream.Create(F, fmOpenRead or fmShareExclusive);
   try
     DestinyStream.CopyFrom(LinkStream, 0);
   finally
     LinkStream.Free;
   end;

   SourceStream := TFileStream.Create(S, fmOpenRead or fmShareExclusive);
   try
     DestinyStream.CopyFrom(SourceStream, 0);
     flag := $FA123456;
     DestinyStream.WriteBuffer(flag, sizeof(integer));
     SwfFileSize := SourceStream.Size;
     DestinyStream.WriteBuffer(SwfFileSize, sizeof(integer));
     result := '';
   finally
     SourceStream.Free;
   end;
 finally
   DestinyStream.Free;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Swf2Exe('c:\prova.swf', 'c:\provai.exe', 'D:\FlashPla.exe');
end;