Ok ich poste mal ein wenig mehr Code, da ich das ganze ohnehin nur in einem Testprojekt ausprobiert habe.
Wobei ich einfach mal das dynamische Laden weggelassen habe, da kompilieren auch so fehlerfrei funktioniert, was mit uses BASS zu tun hat.
Ich bin mir derzeit echt nicht im Klaren darüber, ob ich die bass.pas mit den Deklarationen benutzen darf (muss), oder ob ich bei LoadLibrary und GetProcAddress, diese besser weglasse...
Mag sein, dass hier ein Fehler meinerseits vorliegt, ich werde das aber noch ausprobieren.
Code:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Bass;
procedure TForm1.OnActivate(Sender: TObject);
begin
// BASS_Init(-1, 44100, 0,
Handle, nil);
end;
procedure TForm1.OnClose(Sender: TObject; var Action: TCloseAction);
var
fName: string;
begin
// BASS_Free();
fName := 'Bass.dll';
if FileExists(fName) then
if DeleteFile(fName) then
Application.Terminate;
end;
Sobald ich eine der auskommentierten Funktionen in Betrieb nehme, kommt die Fehlermeldung mit der fehlenden bass.dll, ja auch, wenn ich über die entsprechenden
API-Funktionen dynamisch linke.
Nichtsdestotrotz würde ich gerne auf meine Eingangsfrage zurückkommen.
Selbst wenn es durch eure Hilfe mit der bass.dll klappen sollte, würde ich trotzdem gerne wissen, wie man TLS Callback in Delphi implementiert.