ICQ - API

[Mr_T]

Ich weiß nciht, ob es dir hilft, aber ich habe im I-Net mal dies Units gefunden, die scheinbar Übersetzungen einiger dieser C-Files nach Delphi sind:

Delphi-Quellcode:

unit ICQAPICalls;

interface

{$IFNDEF __ICQAPICALLS_H_}
{$DEFINE __ICQAPICALLS_H_}

uses Windows, ICQAPIData;

function ICQAPICall_SetLicenseKey( pszName: PChar;
                                   pszPassword: PChar;
                                   pszLicense: PChar): BOOL; stdcall;

function ICQAPICall_GetVersion( var iVersion: integer): BOOL; stdcall;

function ICQAPICall_GetDockingState( var iDockingState: integer): BOOL; stdcall;

function ICQAPICall_GetFirewallSettings( var oFireWallData: BSICQAPI_FireWallData ): BOOL; stdcall;

function ICQAPICall_GetFullOwnerData( var ppUser: PBSICQAPI_User;
                                      iVersion: integer ): BOOL; stdcall;

function ICQAPICall_GetFullUserData( pUser: PBSICQAPI_User;
                                     iVersion: integer ): BOOL; stdcall;

function ICQAPICall_GetOnlineListDetails( var iCount: integer;
                                          var ppUsers: PBSICQAPI_User): BOOL; stdcall;

function ICQAPICall_GetOnlineListHandle( var hWindow: HWND): BOOL; stdcall;

function ICQAPICall_GetOnlineListPlacement( var iIsShowOnlineList: integer): BOOL; stdcall;

function ICQAPICall_GetWindowHandle( var hWindow: HWND): BOOL; stdcall;

function ICQAPICall_RegisterNotify( iVersion: integer;
                                    iCount: integer;
                                    piEvents: PByte): BOOL; stdcall;

function ICQAPICall_UnRegisterNotify: BOOL; stdcall;

function ICQAPICall_SendFile( iPIN: integer;
                              pszFileNames: PChar): BOOL; stdcall;

// Version 1.0001

function ICQAPICall_GetOnlineListType( var iListType: integer): BOOL; stdcall;

type
  PPBPSICQAPI = ^PBPSICQAPI;

function ICQAPICall_GetGroupOnlineListDetails( var iGroupCount: integer;
                                               var ppGroups: PPBPSICQAPI): BOOL;
                                               stdcall;

type
  PPointer = ^Pointer;

function ICQAPICall_Generic( iCode: integer;
                             pInBuffer: Pointer;
                             iInSize: integer;
                             ppOutBuffer: PPointer;
                             var iOutSize: integer): BOOL; stdcall;

const
  ICQMsgAPI = 'ICQMsgAPI.dll';

implementation

function ICQAPICall_SetLicenseKey( pszName: PChar;
                                   pszPassword: PChar;
                                   pszLicense: PChar);
  external ICQMsgAPI name 'ICQAPICall_SetLicenseKey';

function ICQAPICall_GetVersion( var iVersion: integer);
  external ICQMsgAPI name 'ICQAPICall_GetVersion';

function ICQAPICall_GetDockingState( var iDockingState: integer);
  external ICQMsgAPI name 'ICQAPICall_GetDockingState';

function ICQAPICall_GetFirewallSettings( var oFireWallData: BSICQAPI_FireWallData );
  external ICQMsgAPI name 'ICQAPICall_GetFirewallSettings';

function ICQAPICall_GetFullOwnerData( var ppUser: PBSICQAPI_User;
                                      iVersion: integer );
  external ICQMsgAPI name 'ICQAPICall_GetFullOwnerData';

function ICQAPICall_GetFullUserData( pUser: PBSICQAPI_User;
                                     iVersion: integer );
  external ICQMsgAPI name 'ICQAPICall_GetFullUserData';

function ICQAPICall_GetOnlineListDetails( var iCount: integer;
                                          var ppUsers: PBSICQAPI_User);
  external ICQMsgAPI name 'ICQAPICall_GetOnlineListDetails';

function ICQAPICall_GetOnlineListHandle( var hWindow: HWND);
  external ICQMsgAPI name 'ICQAPICall_GetOnlineListHandle';

function ICQAPICall_GetOnlineListPlacement( var iIsShowOnlineList: integer);
  external ICQMsgAPI name 'ICQAPICall_GetOnlineListPlacement';

function ICQAPICall_GetWindowHandle( var hWindow: HWND);
  external ICQMsgAPI name 'ICQAPICall_GetWindowHandle';

function ICQAPICall_RegisterNotify( iVersion: integer;
                                    iCount: integer;
                                    piEvents: PByte);
  external ICQMsgAPI name 'ICQAPICall_RegisterNotify';

function ICQAPICall_UnRegisterNotify;
  external ICQMsgAPI name 'ICQAPICall_UnRegisterNotify';

function ICQAPICall_SendFile( iPIN: integer;
                              pszFileNames: PChar);
  external ICQMsgAPI name 'ICQAPICall_SendFile';

// Version 1.0001

function ICQAPICall_GetOnlineListType( var iListType: integer);
  external ICQMsgAPI name 'ICQAPICall_GetOnlineListType';

function ICQAPICall_GetGroupOnlineListDetails( var iGroupCount: integer;
                                               var ppGroups: PPBPSICQAPI);
  external ICQMsgAPI name 'ICQAPICall_GetGroupOnlineListDetails';

function ICQAPICall_Generic( iCode: integer;
                             pInBuffer: Pointer;
                             iInSize: integer;
                             ppOutBuffer: PPointer;
                             var iOutSize: integer);
  external ICQMsgAPI name 'ICQAPICall_Generic';
{$ENDIF}

[edit=sakura] Delphi-Tags, solange Files auch gerne als Anhang Mfg, sakura[/edit]