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;

[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.

[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

[lbccaleb]

Sag mal bemühst du sich eigentlich auch mal ein wenig alleine auf die Reihe zu bekommen?
Benutz doch einfach mal eine Suchmaschiene wie http://www.google.de um an deine Informationen zu kommen die du brauchst, da findet man gleich im ersten Link wenn man nach deinen Suchbegriffen sucht dieses hier:

DSPACK Stream Player

Wenn man nur keine Lust hat selber zu arbeiten, dann nervt man aber andere lieber damit oder wie?

Edit: Sogar für ganz doofe mit Video xD

[thomas2009]

Wenn es so kompliziert ist, dann lieber was anderes suchen. Gute Nacht

[Zacherl]

Zitat von thomas2009:

Wenn es so kompliziert ist, dann lieber was anderes suchen. Gute Nacht

Nicht dein Ernst oder? Einfacher wirst du es kaum finden, auch wenn du noch 20 Threads zum Thema aufmachst. Du brauchst doch nur den Code kopieren und statt des TFileStreams einen TMemoryStream benutzen.
Irgendwie habe ich hier das schlechte Gefühl du wartest einfach auf ein fertiges "Demo" Programm von uns. Vielleicht solltest du wirklich auf den Rat von wicht hören und mal eine Anzeige in der Job Section stellen.