Forum: Multimedia
by DeddyH,
7. Dez 2014
Es ist doch schon 2 mal gesagt worden: das Create gehört vor das try.
if FindResource(hInstance, PChar(aResName), 'MIDIFILE') <> 0 then
begin // Ist die Ressource verfügbar
Stream := TResourceStream.Create(hInstance, aResName, 'MIDIFILE'); // Stream erstellen
try
Stream.SaveToFile(tmpPath); // temporäre Datei speichern
finally
Stream.Free;
end;
end
Forum: Multimedia
by DeddyH,
6. Dez 2014
Das hatte ich mit asynchron gemeint. Ich glaube kaum, dass das mit MMSystem so einfach zu machen ist, es sei denn, Du verlagerst das Abspielen selbst in einen eigenen Thread. Und zu der Warnung:
Dings := TDings.Create;
try
MachWasMitDings;
finally
Dings.Free;
end;
Das Erzeugen sollte vor dem Eintritt in den Ressourcenschutzblock erfolgen, sonst gibt es im Fehlerfall ja auch nichts...
Forum: Multimedia
by DeddyH,
5. Dez 2014
Und asynchron aus einer Ressource?
Forum: Multimedia
by DeddyH,
5. Dez 2014
Darauf kenne ich keine generelle Antwort. Soll es mit BASS, FMOD oder ähnlichen Libs sein?
Forum: Multimedia
by DeddyH,
5. Dez 2014
Das steht doch auf der ersten Seite.