Lazarus: SYNCPROC mit falschem Parameter

[Philipp1977]

Hallo,

folgende Zeile compiliert mit Delphi7 ohne Probleme...mit Lazarus gibts eine Fehlermeldung:

Code:

BASS_ChannelSetSync(chan, BASS_SYNC_META, 0, @MetaSync, nil);

Die Fehlermeldung kommt bei @MetaSync und zwar:

Error: Incompatible type for arg no. 4: Got "<address of procedure(LongWord,LongWord,LongWord,LongWord);Std Call>", expected "<procedure variable type of procedure(LongWord,LongWord,LongWord,Pointer);StdC all>"

Die Sync-Procedure ist wie folgt definiert:

procedure MetaSync(handle: HSYNC; channel, data, user: DWORD); stdcall;

Weiß jemand zufällig eine Lösung?

[himitsu]

Zitat von Philipp1977:

Die Sync-Procedure ist wie folgt definiert:

Die Frage ist eher wie BASS_ChannelSetSync definiert ist.

Zitat von Philipp1977:

Weiß jemand zufällig eine Lösung?

Wie wäre es, wenn du statt einem Pointer einen Integer (DWORD) übergibst?

nil, 0, typecast usw.


Oder mal den Idioten fragst, welcher das BASS_ChannelSetSync falsch deklariert hat.

[Philipp1977]

Das hat leider keine Änderung gebracht, dafür kommt jetzt ne neue Fehlermeldung:

Error: Incompatible type for arg no. 5: Got "ShortInt", expected "Pointer"

Aber das ist ja auch arg no.5, ursprünglich hatte er aber an arg no.4 rumgemeckert

[Philipp1977]

Das ist übrigens die Definition:

HSYNC BASS_ChannelSetSync(
DWORD handle,
DWORD type,
QWORD param,
SYNCPROC *proc,
void *user
);

[himitsu]

War in der Zeile verruscht.
(hatte mich schon etwas gewundert, wegen den hier 4 und da 5 Parametern ... Fehler bei Parameter 4 passte aber auf beiden Seiten)

Die richtige Frage ist also "Wie ist der Typ SYNCPROC definiert?".

Zitat:

procedure MetaSync(handle: HSYNC; channel: DWORD; data, user: DWORD); stdcall

[Philipp1977]

Die kommt aus der Bass.dll und ist so definiert:

Code:

SYNCPROC = procedure(handle: HSYNC; channel, data: DWORD; user: Pointer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};

[himitsu]

Und nun schau mal, wie deine Funktion deklariert ist.

Zitat:

Die Sync-Procedure ist wie folgt definiert:

procedure MetaSync(handle: HSYNC; channel, data, user: DWORD); stdcall;

PS: Es wäre nett, wenn du dem ersten Beitrag einen anderen Titel gibst.
Stell die mal vor alle würden nur noch Delphi-Problem, .Net-Problem, HTML-Problem oder Lazarus-Problem da hinschreiben.

[OrNEC]

Ersetze die Zeile

{$mode objfpc}{$H+}
durch

{$mode delphi}{$H+}
und schon läuft alles wie eine 1.

P.S. ist sehr oft die 3. Zeile in jeder Unit.

[Philipp1977]

Danke für die Antwort Sowohl die Tipps von OrNEC als auch von himitsu haben das Probelm gelöst.
Kann ich den Titel tatsächlich bearbeiten? Wenn ich beim ersten Beitrag auf bearbeiten klicke, kann ich nur den Beitrag bearbeiten aber nicht den Titel...

[TBx]

Klicke unten einmal auf erweitert, wenn Du im Bearbeiten bist, dann kannst Du auch den Titel editieren.