Erfahrungen mit der TAVIWriter Komponente

[cumi]

Hallo Zusammen

Hat er Erfahrungen mit der TAviWriter Komponente? Also die kann eigentlich genau, dass was ich haben will. Und zwar eine Reihe von BitMaps in ein AVI File saven. Doch irgendwie klappt das bei mit gar nicht... Es hat ja schon ein Beispiel dabei. Nun um dieses zu complieren muss man die Komponente erstmal installieren und dabei die compilieren. Doch das ging schief und zwar auf eine sehr merkwürdige Weise. Also der Dubugger springt an folgenden Punkt (siehe Sterne):

Delphi-Quellcode:

...
    try
      AddVideo;

      if WavFileName <> ''
         then AddAudio;

      // Create the output file.
      if WavFileName <> ''
         then nstreams := 2
         else nstreams := 1;

      Streams[0] := VideoStream;
      Streams[1] := AudioStream;
      CompOptions[0] := nil;
      CompOptions[1] := nil;

      AVIERR := AVISaveV(pchar(FileName),
                   nil,                    // File handler
                   nil,                    // Callback
                   nStreams,               // Number of streams
************       Streams,      <---- hier hin mitten im Wort Streams 
                   CompOptions);           // Compress options for VideoStream
      if (AVIERR <> AVIERR_OK) then
             raise Exception.Create('Unable to write output file');
    finally
      if assigned(VideoStream)
         then AviStreamRelease(VideoStream);
      if assigned(AudioStream)
         then AviStreamRelease(AudioStream);

      try
        repeat
          refcount := AviFileRelease(pFile);
        until refcount <= 0;
      except
      end;

      DeleteFile(TempFileName);
    en

und meint:

Code:

[Fehler] AviWriter.pas(372): Ausdruck erwartet, aber 'THEN' gefunden
[Fehler] AviWriter.pas(372): Inkompatible Typen: 'APAVISTREAM' und 'Cardinal'
[Fehler] AviWriter.pas(379): EXCEPT oder FINALLY erwartet
[Warnung] AviWriter.pas(518): Konstantenausdruck verletzt untere Grenzen
[Warnung] AviWriter.pas(519): Konstantenausdruck verletzt untere Grenzen
[Warnung] AviWriter.pas(521): Konstantenausdruck verletzt untere Grenzen
[Hinweis] AviWriter.pas(260): Das private-Symbol 'FrameCount' wurde deklariert, aber nie verwendet
[Fataler Fehler] lk.dpk(33): Verwendete Unit 'D:\temp\Tavi\AviWriter.pas' kann nicht compiliert werden

Nun also die Fehlermeldung ([Fehler] AviWriter.pas(372): Ausdruck erwartet, aber 'THEN' gefunden) passt doch da überhaupt nicht, oder?
Also ich kam auf keine Idee, wie sowas zustande kommt... Ausser vielleicht ein Problem mit der Delphi-Version oder so, aber dann müsste der Debugger eigentlich trotzdem richtig funktionieren!
Kann mir da einer weiterhelfen?

Danke schon im Voraus!

Edit: nochwas, ich benutze die Delphi Version 6

[jim_raynor]

Mmmh. Unter Delphi 5 kompiliert die Datei fehlerfrei

[cumi]

hmm, dann muss ich wohl wiedermal mein altes Delphi hervorkramen und dies installieren... thx...
Aber trotzdem wer eine idee, wie es mit dem delphi 6 geht?

[Sanchez]

Hallo,

Ich hatte heute das gleiche Problem. Ich hab den Inhalt der Pas-Datei aus der IDE in einen Texteditor kopiert und dort dann wieder als Pas-Datei gespeichert. Die neue Datei war um 4 Bytes länger als die alte und sie lies sich kompilieren.
Da wirds wohl irgendwann einen kleinen Übertragungsfehler gegeben haben.

grüße, daniel