Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 320
  • Last Modified:

Create Avi from TBitmap


Hi !
I receive a TBitmap every second in my app. I would like to create an avi file
out of them. I'd need a sample code which

- creates an avi file (320x240)
- adds TBitmap in a loop
- closes the avi file

The avi should be compressed. I searched EE it seems that there exist a component
but I don't have it and I don't know how to use it. A whole demo project would be nice.

Thanks
fuluppi
0
fuluppi
Asked:
fuluppi
  • 3
  • 2
1 Solution
 
Ferruccio AccalaiSenior developer, analyst and customer assistance Commented:
Take a look at Avibuild (BMP to AVI) from here http://www.efg2.com/Lab/Library/Delphi/Graphics/avibuild.zip
0
 
fuluppiAuthor Commented:
Hi !
Thanks for this hint. The source does not compile. I have no idea what to change.
fuluppi
0
 
Ferruccio AccalaiSenior developer, analyst and customer assistance Commented:
Here in this part change BitmapSize type from Integer to Cardinal

procedure TAniToolForm.SpeedButton1Click(Sender: TObject);
var
  i: Integer;
  pfile: PAVIFile;
  asi: TAVIStreamInfo;
  ps: PAVIStream;
  nul: Longint;

  BitmapInfo: PBitmapInfoHeader;
  BitmapInfoSize: Integer;
  BitmapBits: Pointer;
  BitmapSize: Cardinal; //<---this one
begin


F68 ;-)
0
 
fuluppiAuthor Commented:
that was a simple one ;-) thanks!
0
 
Ferruccio AccalaiSenior developer, analyst and customer assistance Commented:
Glad to have helped you :)

F68 ;-)
0

Featured Post

[Webinar] Database Backup and Recovery

Does your company store data on premises, off site, in the cloud, or a combination of these? If you answered “yes”, you need a data backup recovery plan that fits each and every platform. Watch now as as Percona teaches us how to build agile data backup recovery plan.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now