现要将多个JPG文件制作成AVI文件,请问用DELPHI如找超市进销存

库存管理软件版1楼: 除了用TAviWriter控件,还没有别的办法？急的要命!

2楼: http://www.delphibbs.com/delphibbs/dispq.asp？lid=2232820 如超市进销存

3楼: 怎么没人回呀？急的要吊劲呀!

4楼: 下面是合成gif的。你把gif转为avi吧
var
GIF : TGIFImage;
i : integer;
function TransparentIndex(GIF: TGIFSubImage): byte;
begin
Result := GIF.Pixels[0, GIF.Height-1];
end;
function AddBitmap(GIF: TGIFImage; Source: TGraphic; Transparent: boolean): integer;
var
Ext : TGIFGraphicControlExtension;
LoopExt: TGIFAppExtNSLoop;
begin
Result := GIF.Add(Source);
if (Result = 0) then
begin
LoopExt := TGIFAppExtNSLoop.Create(GIF.Images[Result]);
LoopExt.Loops := 0; // Number of loops (0 = forever)
GIF.Images[Result].Extensions.Add(LoopExt);
end;
Ext := TGIFGraphicControlExtension.Create(GIF.Images[Result]);
Ext.Delay := 30; // Animation delay (30 = 300 mS)
if (Transparent) then
begin
Ext.Transparent := True;
Ext.TransparentColorIndex := TransparentIndex(GIF.Images[Result]);
end;
GIF.Images[Result].Extensions.Add(Ext);
end;
begin
Screen.Cursor := crHourGlass;
GIF := TGIFImage.Create;
try
for i:=0 to panel16.ControlCount -1 do
AddBitmap(GIF, TImage(panel16.Controls[i]).Picture.Graphic,(i > 0));
gif_stream.Clear ;
gif.SaveToStream(gif_stream);
bmp_stream.Clear ;
Image1.Picture.Assign(GIF);
finally
GIF.Free;
Screen.Cursor := crDefault;

end;

end;