DSPACK Beispiel : video Direkt aus Ressource laden !

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

[Sir Rufo]

Ich glaube du meintest einen TResourceStream kommt ja aus einer Resource

Ich habe das Gefühl er möchte das in Hipp-Ausführung - vorgekaut

[Zacherl]

Ja klar TResourceStream meinte ich natürlich

[thomas2009]

Natürlich wird hier TResourceStream benötigt und nicht TMemoryStream,
da mein Video in einer dll Datei sich befindet und nicht in .Res

---
http://www.vwlowen.co.uk/directshow/page01.htm

[lbccaleb]

Was genau ist denn jetzt dein Problem?
Wir können dir sicherlich besser helfen, wenn du mal ein wenig mehr verrätst.
Vllt auch ein wenig mehr deines Codes zeigst, oder event. sogar dein Programm postest...

[Zacherl]

Zitat von thomas2009:

Natürlich wird hier TResourceStream benötigt und nicht TMemoryStream,
da mein Video in einer dll Datei sich befindet und nicht in .Res

Was ne geile Begründung. Weißt du eigentlich auch nur ansatzweise was du da überhaupt machst? Und wenn du schon weißt, dass natürlich TResourceStream benutzt werden muss, wieso fragst du dann noch nach der weiteren Verwendung? Hier im Thread steht der komplette Code, mit dem du dein Vorhaben alleine durch Copy&Paste umsetzen kannst ..

[thomas2009]

Das Video befindet sich in einer .dll Datei
Ich muss das Video als Ressource laden
und dann mit der Komponente abspielen
also :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  hRes: THandle;
  h: THandle;
  p: Pointer;
  DestStream: TFileStream;
begin
  hRes := LoadLibrary('videos.dll');
  if hRes <> 0 then
  try
    h := FindResource(hRes, 'video1', RT_RCDATA);
    if h <> 0 then
    try
      h := LoadResource(hRes, h); // nun haben wir das Video als Stream
...

wer kann weiter den Code fertigen ?