Hallo allerseits
Ich versuche gerade die RAPI.PAS unter Delphi 8 zum laufen zu bringen. Ich habe alle bisherigen Fehlermeldung wie z.B. "Ich mag Pointer nicht" mit {$UNSAFECODE ON} oder "Ich kenne Type PDWORD nicht" mit PDWORD = ^DWORD zum Schweigen gebracht. Einzig beim folgenden Codeschnipsel versagt mein Delphilatein.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
| 1 type 2 TCeRapiInit = function : LongInt stdcall; 3 4 var 5 mCeRapiInit : TCeRapiInit; 6 7 begin 8 RapiModule := LoadLibrary('RAPI.DLL'); 9 @mCeRapiInit := GetProcAddress(RapiModule, 'CeRapiInit'); 10 end; |
Die erzeugt die Fehlermeldung
Quelltext
1:
| [Fehler] beispiel(9): Inkompatible Typen: 'Pointer' und 'IntPtr' |
Die Delphihilfe ist nicht wirklich hilfreich da ich ja nicht versuche einen Double in einen Integer zu quetschen sondern ich gerne die Einsprungadresse der Funktion zuweisen möchte. Wie kann ich dieses Problem umschiffen
Oder hat gar jemand schon die Rapi-funktionalität für Delphi 8 angepasst
Ich habe vorher Delphi 5 verwendet und da ergaben diese Anweisungen keine Probleme.
Schon mal Dank an Alle die sich meines Problems annehmen
Michael <-Dies ist wirklich mein Vorname