DSPACK Beispiel : video Direkt aus Ressource laden !

[thomas2009]

Hallo,

einige sagen, dass die Komponent DSPACK in der Lage ist, ein Video direkt aus Ressource (Stream) zu laden
Ich habe die Komponente in mein Delphi7 installiert aber ich weiß nicht wie es geht

Mein Video ist in einer .dll datei

Wer kann mir ein Beispiel als Demo schreiben
so ähnlich hier aber war für mich trotzdem nicht klar :
http://www.progdigy.com/forums/viewtopic.php?p=14094

[DeddyH]

Wie viele Threads willst Du zu diesem Thema eigentlich noch eröffnen?

[Zacherl]

Statt 10 Threads zu diesem Thema aufzumachen, solltest du uns vielleicht eher genau mitteilen, was du eigentlich vor hast. Vielleicht können wir dann auch hilfreiche Antworten geben

[Sir Rufo]

Das hat er aber doch schon lang und breit gemacht, allerdings scheint hier niemand eine Antwort drauf zu haben.

Er möchte eine Video-Datei die sich in einer Ressource befindet direkt aus selbiger heraus abspielen, ohne diese vorher auf die Platte zu speichern. Also aus einem Stream

[Zacherl]

Vielleicht liegt es auch nur daran, dass ich seine Sätze nicht genau verstanden habe. Aber wenn ich dem Link im Post folge, dann finde ich auf anhieb ein Beispiel für das Abspielen aus einem Stream heraus:

Delphi-Quellcode:

procedure TForm3.TestCustomStream(Src: TStream; Compress: boolean);
var
  D : TStream;
  TS : TCustomSrcFilter;
  Size: Int64;
begin
  if not FilterGraph.Active then FilterGraph.Active := true;
  FilterGraph.ClearGraph;

  Size := Src.Size;

  D := TMemoryStream.Create;
  try
    D := Src;
    TS := TCustomSrcFilter.Create(D, Compress, Size);
    try
      RenderFilter(TS);
    finally
       log.Lines.Add('* Rendering Complete!');
    end;
  finally
    D:=nil;
    D.Free;
  end;
end;

procedure TForm3.RenderFilter(AFilter: TBCBaseFilter);
var
  FG : IFilterGraph2;
  I  : integer;
begin
  FilterGraph.QueryInterface(IFilterGraph2, FG);
  FG.AddFilter(AFilter, 'Test');
  with TPinList.Create(AFilter) do
  try
    for I := 0 to Count - 1 do
      if PinInfo[I].dir = PINDIR_OUTPUT then
        CheckDSError(FG.Render(Items[I]));
  finally
    Free;
  end;
  SoundLevel.Position := FilterGraph.Volume;
  SetNormalSize;
  FilterGraph.Play;
end;

Sogar der Aufruf wird gezeigt:

Delphi-Quellcode:

var
   t : TMemoryStream;
begin
    t:= TMemoryStream.Create;
    try
      t.LoadFromStream(varYourFileStream);
      TestCustomStream(t, false);
    finally
      t:=nil;
      t.Free;
    end;
end;

[Sir Rufo]

Es gibt dort auch noch einen Link auf die Embargo Seite mit einem kompletten Projekt inkl. Exe

Das verstehe ich allerdings auch nicht ... Ich hätte jetzt auch eher Fragen zu dem Code dort erwartet

[wicht]

Genau. Und weil der TE das Video aus einer Resource heraus lädt, wenn ich das richtig in Erinnerung habe, müsste da einfach ein TResourceStream übergeben werden. Ich kenne DSPack allerdings nicht.
Falls das auch noch nichts bringt, könnte etwas Quelltext sicher auch helfen. Aber dieses "geht nicht, verstehe ich nicht, macht ihr bitte mal" ist irgendwie nicht so schön. Vielleicht wäre ein Thread in dem Jobs-Topic ja passender... weil ich irgendwie denke, dass auf diesen Thread noch ein paar andere folgen, die mit Resourcen, DLLs und Videos zu tun haben...
Ich kann DeddyH da schon gut verstehen.