Einzelnen Beitrag anzeigen

Benutzerbild von cumi
cumi

Registriert seit: 27. Jun 2004
Ort: Schweiz
27 Beiträge
 
#1

Erfahrungen mit der TAVIWriter Komponente

  Alt 29. Nov 2004, 18:07
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
Angehängte Dateien
Dateityp: zip tavi.zip (11,3 KB, 21x aufgerufen)
Lorenz
  Mit Zitat antworten Zitat