Bitmaps als AVI-Vido / MPEG-Video speichern

[KodeZwerg]

Ich habe ein lauffähiges Demo hier in DP gefunden, also BMP2AVI, geschrieben von turboPASCAL.

Für mein Delphi 2010 musste ich folgende Änderung vornehmen damit es erstmal überhaupt funktioniert, es hat noch Probleme und Speicherleks, aber die Grundsubstanz funktioniert.
Datei: CreateAVI.pas
Zeile: 198
ist nun:     if AVIFileOpenW(pfile, PWideChar(WideString(WorkFile)), OF_WRITE or OF_CREATE, nil) <> AVIERR_OK then

edit
Ps: vorher war die Zeile     if AVIFileOpen(pfile, PChar(WorkFile), OF_WRITE or OF_CREATE, nil) <> AVIERR_OK then aber der Compiler hat immer die Ansi Version genommen und beim String abgekackt. Da ist wieder so was was ich nicht verstehe obwohl ja PChar und keine A/W angegeben war nimmt der intern bei mir die A variante...... (Workfile : String; falls ihr das fragen/sagen wollt)