Fehler beim starten von MCI !

[thomas2009]

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;

[shmia]

Du hast ja keinerlei Fehlerprüfungen in deinem Code!
Man muss ja mindestens mal abfragen, ob der Ergebnis von LoadLibrary in Ordnung ist.

Und noch fünf Hinweise:
* Besser die DLL so laden:

Delphi-Quellcode:

Instance:=LoadLibraryEx(pchar(LibraryName),0,LOAD_LIBRARY_AS_DATAFILE);
if Instance = 0 then raise Exception.CreateFmt('%s kann nicht geladen werden', [LibraryName]);

* nicht vergessen, die DLL mit FreeLibrary freizugeben
* Mit der Klasse TResourcestream kommst du einfacher an die Daten ran.
* Im Programmverzeichnis hat man häufig keine Schreibrechte. Die AVI-Datei gehört ins TEMP-Verzeichnis
* Trenne das Entpacken der Video-Datei von dem Abspielen der Daten. Mit zwei Funktionen mit entsprechenden Übergabeparametern wird's besser.