Hallo zusammen...
Ich habe eine vlt. etwas ungewöhnliche Frage, nämlich wie kann ich eine TLS Callback Funktion in Delphi implementieren?
Längere Suche im Netz hat lediglich Lösungen in
ASM und C++ ans Licht gebracht, wobei in C++ die Funktion offensichtlich programmiertechnisch, vor die Main() Funktion gepackt wird.
Aber wie sieht das in Delphi aus?
Wozu brauche ich sowas?
Nun mich stört, dass bei Mediaprogrammen immer die bass.dll separat dazu gelegt werden muss, daher habe ich die bass.dll als Resource mit in die EXE gepackt, um sie zur Laufzeit aus der Resource temporär zu erzeugen...
Code:
begin
Application.Initialize;
sAppPath := IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName));
if not FileExists(sAppPath + 'Bass.dll') then
begin
fName := sAppPath + 'Bass.dll';
rStream := TResourceStream.Create(hInstance, 'Bass', RT_RCDATA);
try
fStream := TFileStream.Create(fName, fmCreate);
try
fStream.CopyFrom(rStream, 0);
finally
fStream.Free;
end;
finally
rStream.Free;
end;
end;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Das klappt auch alles wunderbar, leider wird offensichtlich so früh versucht die
DLL zu laden, dass jeder programmierte Aufruf einer Funktion dazu führt, dass wg. fehlender bass.dll das Programm erst gar nicht gestartet wird.
Selbst ein BASS_Free() in OnClose, welches ja erst zu Programmende benötigt, sprich aufgerufen wird, führt zu o. a. Fehler!
Daher meine Überlegung, die temporäre Erzeugung der bass.dll per TLS Callback, also vor Erreichen des Program Entry Point, zu gestalten, um dieser Fehlermeldung zu entgehen und ein (hoffentlich) funktionierendes Programm zu erhalten.
Jeder hilfreiche Tipp ist herzlich willkommen...
