Bitmaps2Video für Windows Media Foundation

**Renate Schaaf**

Hallo, Klaus,

Ich hätte meinen Post gestern am liebsten gelöscht. Tut mir leid, dass ich Dich missverstanden habe. Ich hätte gar nicht gedacht, dass jemand das alte Zeug von mir noch kennt. Arbeit an der Legacy-Version geht etwas schleppend voran, wenn man mit der alten Delphi-Version arbeitet, merkt man erst, welche Annehmlichkeiten die neueren bieten.
Ich porte jetzt die neue Version nach Delphi2006, anstatt die alte aufzufrischen, dann sind die threads auch gleich mit dabei. Dass Du die neue Version nicht complilieren konntest, ohne zu wissen, wie die Sachen ineinander greifen, ist verständlich. Hätte ich auch nicht geschafft.

Alles Gute,
Renate

**klaus schaaff**

Hallo Renate,

ich möchte gern mal etwas ausprobieren, was auch dir nützlich sein könnte, zum Zeitvertreib oder was auch immer.

Ich lade mal hier meinen Screengrabber hoch, da es in diesem
Forum schon öfters Probleme gab wegen Virusmeldungen, daher ein Schuss ins Blaue.

Ich habe bei Virustotal meine *.exe prüfen lassen. Nur bei MaxSecure gab es eine positive Virusmeldung, bei allen anderen war der Befund negativ.

Liebe Grüße
Klaus Schaaff

**dummzeuch**

Zitat von Renate Schaaf:

Ich porte jetzt die neue Version nach Delphi2006, anstatt die alte aufzufrischen

Sicher, dass Du Dir das antun willst? Delphi 2006 war zwar deutlich besser als 2005, aber z.B. Enhanced Records (falls Du die verwendest) hatten noch einiges an Bugs, die gerne zu einem "internal compiler error" führen. Außerdem war das noch eine non-Unicode-Version (oder war das mit "legacy" gemeint?).

Aber gut, die Entscheidung liegt natürlich bei Dir.

Für den Fall, dass Du das noch nicht wusstest: Wenn Du ein Delphi 11 gekauft hast, ist da normalerweise auch noch je eine Lizenz für alles bis zurück zu Delphi 2007 + Delphi 7 dabei. Allerdings muss man sich die Lizenzkeys dafür rechtzeitig herunterladen, nach einem Jahr (oder so) funktioniert der Link nicht mehr. (Einer meiner Kollegen hat das verbummelt

).

**Renate Schaaf**

Zitat:

Sicher, dass Du Dir das antun willst?

Ist schon fertig, s.u.

Gott sei Dank habe ich genügend Erfahrung mit den alten Versionen bis 2006. Unicode ist bei mir egal. Die Records habe ich entweder in Klassen umgewandelt oder auf normale reduziert.
Leider habe ich für Delphi 11 nur die Community, bin aber glücklich, dass es die gibt.

Zitat:

Ich lade mal hier meinen Screengrabber hoch

Läuft bei mir OK. Schönes Tool, z.B. nützlich, um schnell Fehlermeldungen hier hochzuladen.

Die Legacy-Version vom Bitmap-Resampler ist fertig, Demo eingeschlossen. Hoffe es passiert nichts Unerwartetes mehr beim Ausprobieren.

Leider werden die Bitmaps u.U. nicht in Originalgröße angezeigt, von wegen GDI-Scaling.

Die Version müsste auch in Delphi 7 laufen, wenn man alle ;inline entfernt. Delphi 6 hatte Schwierigkeiten mit threads, ist also nicht empfohlen.

Edit: Ich hab ein Icon gelöscht, weswegen Delphi meckert, macht aber nichts. Einfach Projekt-Optionen anpassen.

Renate

**klaus schaaff**

Hallo Renate,

Der Bitmap Resampler läuft bei mir inzwischen auf Delphi 5. Das
Konzept mit der nachträglichen Skalierung ist wesentlich besser als meines. So ganz verstanden habe ich es aber noch nicht, das braucht noch etwas Zeit.

Ich werde dann alles nochmals nach Delphi 2009 portieren und sehen, was da 'rauskommt. Alles in Allem ist das Projekt ein hochkomplexes Thema. Im Moment sehe ich noch kein Land, wohin das führen wird. All meine Vorschläge sind erst mal obsolet. Nochmals, Entschuldigung ... für meine unverblümten Einfälle.

Auf jeden Fall, danke für deine Geduld und die Arbeit, die du dir gemacht hast!

Liebe Grüße
Klaus Schaaff

**Renate Schaaf**

Zitat:

So ganz verstanden habe ich es aber noch nicht, das braucht noch etwas Zeit

Erklärung siehe Anhang.

Renate

**klaus schaaff**

Hallo Renate,

was mich von Anfang an viel mehr interessiert hat, ist die Möglichkeit deines Package ein Video aus Einzelbildern rendern zu lassen.

Ich habe vor langer Zeit einen eigenen RayTracer ähnlich POV-Ray v3.6 geschrieben und diesen über die Jahre immer mal wieder erweitert mit neuen Features.

Also, der RayTracer rendert bei mir eine 3D-Szene (1 Frame). Die 3D-Szenensprache enthält Animationsparameter x, y, z nach denen alles z.B. Orte der Körper, Texturen in Zeitschritten verändert werden kann. Der erste Frame wird mittels AviWriter_2 dem Video hinzugefügt. Dann der nächste Frame gerendert, hinzugefügt usw. bis ein kleines Video fertig ist. Damit du mir einfacher folgen kannst füge ich im Anhang Sinus.zip hinzu. Blöd ist jetzt, man kann hier im Forum keine *.mp4 als Anhang hochladen. Sinus.zip enthält Sinus.mp4 ein gerendertes Video. Dort wird nur die Oberflächen-Textur mit der Funktion Sinus variiert.

Nun zum meiner Frage: Ich habe es nie geschafft in das Video zusätzlich eine Wave-Datei zu rendern. Video Schnittsoftware kann sowas, da legt man mehrere Einzelbilder in den Videostream und in den Audiostream eine *.wav und rendert das zusammen.

Gibt es in deinem Bitmaps2Video eine Möglichkeit Audiostreams hinzuzufügen?

Liebe Grüße
Klaus Schaaff

**Renate Schaaf**

Zitat:

Ich habe es nie geschafft in das Video zusätzlich eine Wave-Datei zu rendern

Mit AviWriter_2 kannst du eigentlich sogar mehrere wav-Dateien hinzufügen. Was für eine Version hast Du denn? Ich habe irgendwann aufgegeben, das Teil irgendwohin hochzuladen, und es nur noch für meine eigenen Anwendungen benutzt. Bitmaps2Video sollte ein besserer Ersatz werden. Ich habe auf GitHub schon eine Version, die ffmpeg benutzt. Siehe

https://github.com/rmesch/Bitmaps2Video
, aber die wirst Du wahrscheinlich mit 2009 nicht direkt benutzen können. Die WMF-version kann inzwischen auch Audio direkt mit enkodieren, aber soweit ich bisher erfahren habe, kann man die Demo nur mit 10.3 oder höher compilieren, das kann aber daran liegen, dass ich in den utilities eine d2d1_1-routine habe, die ich aber gar nicht brauche.

Renate