- procedure CreateAviCompressor;
- begin
- AVICompressor := TAVICompressor.Create;
- end;
- procedure InitAviOptions;
- begin
- with AVIOptions do
- begin
- Init;
- Width := 800;
- Height := 600;
- FrameRate := 25;
- Name := 'myavi';
- Handler := 'XVID'; // 'MSVC'
- Quality := 10000;
- KeyFrameEvery := 1;
- BytesPerSecond := 0;
- Compress := true;
- ShowDialog := false; // Kannst ja mal auf True setzen.
- end;
- end;
- procedure TfVideo.CreateAvi(name : string);
- begin
- CreateAviCompressor;
- InitAviOptions;
- AVICompressor.Open('myavi',AVIOptions); // Erstellt Datei
- end;
- procedure TfVideo.CloseAvi;
- begin
- AVICompressor.Close;
- end;