Delphi --> Lazarus (Fehler)

[MitjaStachowiak]

Hallo,
bin auf der Suche nach einer Alternative zu Delphi, seit es das '2005er nicht mehr gibt. Lazarus sieht bisher ganz gut aus, jedoch erhalte ich beim Transfer meiner bisherigen Projekte Fehler. Folgenden kann ich einfach nicht lösen:

Code: Alles auswählen

uses Windows;
 
(...)
 
procedure OnFastTimer;
begin
...
end;
 
(...)
 
SetTimer(0,0,40,@OnFastTimer);   // Hier kommt der Fehler

Bei SetTimer erhalte ich den Fehler FastTimers.pas(45,54) Error: Incompatible type for arg no. 4: Got "<address of procedure;Register>", expected "<procedure variable type of procedure(LongWord, LongWord, LongWord, LongWord);StdCall>". In Delphi hat das immer funktioniert.

Genau diesen Fehler erhalte ich bei zahllosen Aufrufen. Ich hab' schon viel versucht aber nur statt dem @OnFastTimer nil einsetzen hat funktioniert, aber das ist jetzt nicht wirklich die Lösung -.-
Wer kann da helfen?

[theo]

Die Funktion ist in Windows so definiert:

Code: Alles auswählen

VOID CALLBACK TimerProc(
  __in  HWND hwnd,
  __in  UINT uMsg,
  __in  UINT_PTR idEvent,
  __in  DWORD dwTime
);

Also nicht parameterlos dafür aber mit StdCall.

Code: Alles auswählen

TIMERPROC = procedure (_para1:HWND; _para2:UINT; _para3:UINT; _para4:DWORD);stdcall;

[MitjaStachowiak]

Tatsächlich. Wenn ich schreibe

Code: Alles auswählen

procedure OnFastTimer(_para1:HWND; _para2:UINT; _para3:UINT; _para4:DWORD);
 stdcall;
begin
 (...)
end;

geht es. Jetzt bin ich dabei, alle anderen Fehler "auszubügeln"...
Hat zufällig schon jemand die Header für DirectX durch? Oder geht das in Lazarus grundsätzlich nicht?

[theo]

Hat zufällig schon jemand die Header für DirectX durch? Oder geht das in Lazarus grundsätzlich nicht?

Bin keine Experte dafür, aber es gibt z.B. das: http://andorra.sourceforge.net/

[MitjaStachowiak]

Hm... Das ist aber doch OpenGL!?
Ich brauche DirectShow in meinem Programm, weil ich MP3 Streaming über OpenAL verwende. OpenAL scheint mit Lazarus kompaktibel zu sein, aber die Komponente, die ich zur Zeit für das Dekodieren vom MP3 verwende baut eben auf DirectShow
Und da irgendwo kommt der Fehler "unerwartetes Dateiende". Den bekomme ich einfach nicht raus.

[theo]

Wie gesagt, ich versteh davon nix.
Google ist dein Freund. z.B. http://wiki.freepascal.org/FPC_and_DirectX/de

[MitjaStachowiak]

Hm... Das sieht schon mal seeehr gut aus. Die DirectShow.pas ist da leider nicht drinnen, jedoch konnte ich statt dessen (nach einigen kleinen Änderungen) eine DirectShow9.pas verwenden und die geht durch.

Wenn ich meine anderen Projekte jetzt auch transformieren kann, bleibe ich denk' ich bei Lazarus.
Vielen Dank, für deine Hilfe.

[marcov]

Hm... Das sieht schon mal seeehr gut aus. Die DirectShow.pas ist da leider nicht drinnen, jedoch konnte ich statt dessen (nach einigen kleinen Änderungen) eine DirectShow9.pas verwenden und die geht durch.

Wenn ich meine anderen Projekte jetzt auch transformieren kann, bleibe ich denk' ich bei Lazarus.
Vielen Dank, für deine Hilfe.

http://clootie.ru/