DSPACK Beispiel : video Direkt aus Ressource laden !

[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 :P

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

Zitat von thomas2009 (Beitrag 1055071)

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 ?

[Zacherl]

Du scheinst wirklich keine Ahnung von dem zu haben was du da machst. Dein Beispielcode läd eine Resource per API. Bisher hast du nur das Resourcen Handle. Vorher wolltest du die Resource per TResourceStream laden, was für einen offensichtlichen Anfänger auf dem Gebiet auch sehr viel praktischer ist. Ein einfaches Beispiel findest du per Google in 5 Sekunden:

Delphi-Quellcode:

var
  RS: TResourceStream;
begin
  // Do this if the resource is named
  RS := TResourceStream.Create(
    HInstance,     // your app or DLL instance handle
    ResourceName,  // string containing resource name
    RT_RCDATA);    // identifies RCDATA resource type

[thomas2009]

Was machst du da !!!
der Code muss so anfangen :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  h :HINST;
  r :TResourceStream;
begin
  h := LoadLibrary('videos.dll');
  if h <> 0 then begin
    r := TResourceStream.Create(h, 'video1', 'RCDATA');
...

[lbccaleb]

na das sieht doch schon gut aus, und wo genau ist nun dein problem?

[Sir Rufo]

Zitat:

Zitat von thomas2009 (Beitrag 1055277)

Was machst du da !!!
der Code muss so anfangen :

Mach mal das Fenster bei Dir auf, ich denke der Sauerstoffgehalt in deinem Zimmer ist gerade an einem kritischen Punkt.

Da versucht dir jemand zu helfen und du kommst ihm hier als Klugs...

Wenn du alles so genau weißt (BTW. Dein Code war falsch und Zacherl hat nur auf das falsche hingewiesen - das würdest du erkennen, wenn du wissen würdest, was du da machst), warum fragst du dann noch. Du hast alles um das umzusetzen.

OK, denken und tippen musst du selber. Einsicht, Erkenntnis und Transferleistung müssen aus einem selber kommen - das gibt's auch nicht zu kaufen.

und

Dieses ist kein Cry4CopyNPaste Forum (lies dir die Forumsregeln durch, oder möchtest du die lieber als Hörbuch?)