现在要用一SDK,SEC_WINNT_AUTH_IDENTITY,不知道在DELPHI5中还要加入哪个PAS文件,主要是改装以下VC代码
SEC_WINNT_AUTH_IDENTITY SecAuthIdentity;
 SecAuthIdentity.User = (unsigned char*)L"rcc";
 SecAuthIdentity.UserLength = (ULONG)wcslen(L"rcc");
 SecAuthIdentity.Domain = (unsigned char*)L"credit-wz";
 SecAuthIdentity.DomainLength = (ULONG)wcslen(L"credit-wz");
 SecAuthIdentity.Password = (unsigned char*)L"ccsscc";
 SecAuthIdentity.PasswordLength = (ULONG)wcslen(L"ccsscc");
 SecAuthIdentity.Flags = SEC_WINNT_AUTH_IDENTITY_UNICODE;

解决方案 »

  1.   

    Delphi中没有定义,须要自己从C的定义中转:
    typedef struct _SEC_WINNT_AUTH_IDENTITY {
      unsigned short __RPC_FAR *User;
      unsigned long UserLength;
      unsigned short __RPC_FAR *Domain;
      unsigned long DomainLength;
      unsigned short __RPC_FAR *Password;
      unsigned long PasswordLength;
      unsigned long Flags;
    } SEC_WINNT_AUTH_IDENTITY, *PSEC_WINNT_AUTH_IDENTITY;
      

  2.   

    Delphi中没有定义,须要自己从C的定义中转:
    typedef struct _SEC_WINNT_AUTH_IDENTITY {
      unsigned short __RPC_FAR *User;
      unsigned long UserLength;
      unsigned short __RPC_FAR *Domain;
      unsigned long DomainLength;
      unsigned short __RPC_FAR *Password;
      unsigned long PasswordLength;
      unsigned long Flags;
    } SEC_WINNT_AUTH_IDENTITY, *PSEC_WINNT_AUTH_IDENTITY;