Einzelnen Beitrag anzeigen

itsme

Registriert seit: 3. Aug 2006
32 Beiträge
 
Delphi XE Architect
 
#6

AW: Wie TLS Callback in Delphi

  Alt 25. Okt 2010, 12:11
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.
  Mit Zitat antworten Zitat