ActiveSync und RAPI benutzen

[chris01]

Hallo,

wollte mich einwenig mit der Programmierung einer Desktopanwendung für mein PDA auseinander setzen, habe hier die Suche bedient und bin auf die RAPI (http://www.pocketpcfaq.com/developer/faq/RAPI.html) gestoßen. Jedoch habe ich bisher wenig Erfolg mit dieser Schnittstelle. Habe probiert dieses Codebeispiel (http://support.microsoft.com/kb/249144/de) von vB nach Delphi zuportieren, aber schon das initialisieren der Schnittstelle schlägt fehl. Was mache ich falsch? Benutze ActiveSync 4.5 und mein PDA kommuniziert wunderbar mit ActiveSync.

Delphi-Quellcode:

uses rapi;

...

function ConnectRAPI : LongINT;
var
  lcon: LongInt;
  lRapiInit : TRapiInit;
begin
    With lRapiInit do
    begin
        cbsize := sizeof(lRapiInit);
        heRapiInit := 0;
        hrRapiInit := 0;
    end;

    lcon := CeRapiInitEx(lRapiInit);
    ConnectRapi := lcon;
end;

function DisconnectRapi : LongINT;
var
  lcon : LongINT;
begin
  lcon := CeRapiUninit();
  result := lcon;
End;


procedure TForm1.Button1Click(Sender: TObject);
var
  lcon : LongINT;
begin
  try
    lcon := ConnectRapi();
      if lcon <> 0 then
        ShowMessage('Failure to initialize RAPI')
      else
        ShowMessage('RAPI was initialized successfully');
  finally
    lcon := DisconnectRapi();
    if lcon <> 0 then
       ShowMessage('Failure to uninitialize RAPI')
    else
       ShowMessage('RAPI was uninitialized successfully');
  end;
end;

Gruß