如何将图片转换为EXE，以及SWF格式，如屏幕录像软件----要代码

Question

如何将图片转换为EXE，以及SWF格式，如屏幕录像软件1.EXE，SWF文件的格式（什么代码（语言）均可）？
2.谁知道各种视频压缩格式的详细参数？回答后可以给更多分，谢谢了

Answer 1

到网上去找bmp2Avi这样的东西，还是有的如果做成exe的话，你自己处理格式会简单一点先写一个exe宿主，然后再写一个exe程序将图片添加到那个exe宿主程序的尾部分
各个图片直接用固定的字符等区分开来，然后你那个exe宿主，就根据这个格式将
各个图片读取出来，这样就是连续的了。

Answer 2

今天又是好不容易来一趟，期盼赶快开学啊，然后就有的网上了，(～ o ～)~zZsuiyunonghen 你能不能再详细点，或者给个什么代码网址的，嘿嘿（不是我懒啊，是我现在实在不容易上网，算是给自己找借口吧）开学后要好好查查，真是快受不了了，(～ o ～)~zZ

Answer 3

始终没人顶啊，呼呼自己顶下吧。
uses//需要用到的东西
                           //bukoo swf
  JPEG,comobj, OleServer, SWFOBJSLib_TLB,  ActiveX;function Tform1.RecordSwf():boolean;   //录制swf文件，无声音
begin
try
swf:=createoleobject('swfObjs.swfMovie');
swf.setsize(sourceRect.Right*20,sourceRect.Bottom*20);
frame:=1;
x1:=(sourceRect.Left)*20;
y1:=(sourceRect.Top)*20;
x2:=(sourceRect.Right)*20;
y2:=(sourceRect.Bottom)*20;
swf.setframerate(Framerate);
jpgobj:=createoleobject('swfObjs.swfObject');
soudobj:=createoleobject('swfObjs.swfObject');
except
application.MessageBox('创建swf文件失败！请重试！','提示',mb_iconinformation);
result:=false;
exit;
end;result:=true;
 end;那么生产EXE呢，这里采用把swf加入到exe后面的方式了，希望有能给出更好的方案的，过几天结贴

Answer 4

function Tform1.bmptojpg(Bmp: TBitmap; Quality: Integer = 100): TJpegImage;  //将bmp转换为jpg
begin
result:=nil;
 if assigned(Bmp) then
  begin
   result:=TjpegImage.Create;
   result.Assign(Bmp);
   result.CompressionQuality:=Quality;
   result.JPEGNeeded;
   result.Compress;
  end;
end;procedure TForm1.Timer1Timer(Sender: TObject);
...
begin
...
if ((fileExt='SWF') or (fileExt='EXE') ) then
  begin
  jpg:=bmptojpg(bmp,50);
  jpgname:=BmpPaths+'temp';
  jpg.SaveToFile(jpgname);
  jpgobj.makepicture(x1,y1,x2,y2,x2/20,y2/20,jpgname);
  swf.addobject(jpgobj);
  frame:=frame+1;
  swf.gotoframe(frame);
  end;
end;