From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,XPRIO autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,8dd1b8da682c35ae,start
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!news3.google.com!news.glorb.com!Spring.edu.tw!news.nctu.edu.tw!feeder.seed.net.tw!netnews!not-for-mail
From: "bubble" <bubble@riskm.com.tw>
Newsgroups: comp.lang.ada
Subject: linking problem in DPAPI
Date: Wed, 28 Dec 2005 17:15:05 +0800
Organization: HiNetNews
Message-ID: <dotl36$pfh$1@netnews.hinet.net>
NNTP-Posting-Host: 211-21-128-195.hinet-ip.hinet.net
X-Trace: netnews.hinet.net 1135761318 26097 211.21.128.195 (28 Dec 2005
 09:15:18 GMT)
X-Complaints-To: usenet@HiNetnews.hinet.net
NNTP-Posting-Date: Wed, 28 Dec 2005 09:15:18 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2527
X-RFC2646: Format=Flowed; Original
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2527
Xref: g2news1.google.com comp.lang.ada:2378
Date: 2005-12-28T17:15:05+08:00
List-Id: <comp.lang.ada>

dear all:
I got a problem again :)

I am write a little security binding for my application.
and I got a error message.
....app.o(.text+0x3914):app.adb: undefined reference to 
`CryptProtectData@28'

what's the problem?
give me a hint. thanks
my compiler is [gnat gpl 2005] and my OS is windows xp.



with Win32;
With Win32.Windef;

package app.Security Is


   type Data_Blob is record
      Cbdata : Win32.DWORD;
      Pbdata : Win32.PBYTE;
   end record;
   Pragma Convention(c_pass_by_copy,Data_Blob);

   Type Access_Data_Blob Is Access All Data_Blob;

   Type CRYPTPROTECT_PROMPTSTRUCT Is Record
      Cbsize:Win32.Dword;
      DwPromptFlags:Win32.DWord;
      Hwandapp:Win32.Windef.Hwnd;
      SzPrompt:Win32.Lpcwstr;
   End Record;
   Pragma Convention(c_pass_by_copy,CRYPTPROTECT_PROMPTSTRUCT);
   Type Access_CRYPTPROTECT_PROMPTSTRUCT Is Access All 
CRYPTPROTECT_PROMPTSTRUCT;


   Function CryptProtectData(Pdatain:Access_Data_Blob;
                             SzDataDescr:Win32.Lpcwstr;
                             POptionalEntropy:Access_Data_Blob;
                             PvReserved:Win32.Pvoid;
                             pPromptStruct 
:Access_CRYPTPROTECT_PROMPTSTRUCT;
                             dwFlags :Win32.Dword;
                             Pdataout:Access_Data_Blob) Return Win32.Bool;
   Pragma Import(Stdcall,CryptProtectData,"CryptProtectData");
   Pragma Linker_Options("-lcrypt32");




end app.Security;