Hallo
ich versuche Dateien aus einer
dll Datei auf die Festplatte zu speichern.
Es wird zwar eine Video Datei aus
dll geholt aber leer (0 bit)
Fehlermeldung : Fehler beim Starten von MCI
das ist mein Code :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
LibraryName, ResourceName, TempName: string;
Instance, Resource, Block, BlockSize: LongInt;
Buffer:pointer;
Stream:TMemoryStream;
begin
LibraryName:='myarchivdll.dll';
ResourceName:='test.avi';
TempName:=ExtractFilePath(ParamStr(0))+'TEMP.avi';
Instance:=LoadLibrary(pchar(LibraryName));
Resource:=FindResource(Instance, pchar(ResourceName), RT_RCDATA);
Block:=LoadResource(Instance,Resource);
BlockSize:=(SizeOfResource(Instance,Resource));
Buffer:=LockResource(Block);
Stream:=TMemoryStream.Create;
try
Stream.WriteBuffer(pointer(Buffer)^,BlockSize);
Stream.Position:=0;
Stream.SaveToFile(TempName);
finally
Stream.Free;
end;
MediaPlayer1.FileName:=TempName;
MediaPlayer1.Display:=Panel1;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;