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 ?