home *** CD-ROM | disk | FTP | other *** search
- #define NAME "testXpkPwd"
- #define DISTRIBUTION "(Freeware) "
- #define REVISION "3"
-
- /* Programmheader
-
- Name: testXpkPwd
- Author: SDI
- Distribution: Freeware
- Description: test XpkPassRequest
- Compileropts: -
- Linkeropts: -l xpkmaster
-
- 1.0 29.12.96 : first Version
- 1.1 28.03.97 : some new data output
- 1.2 18.01.98 : added position tests
- 1.3 21.01.98 : added verification test
- */
-
- #include <proto/exec.h>
- #include <proto/dos.h>
- #include <proto/xpkmaster.h>
- #include "SDI_defines.h"
-
- struct Library *XpkBase = 0;
-
- void main(void)
- {
- ULONG err;
- UBYTE buf[200];
- UWORD key16;
- ULONG key32;
-
- if(!(XpkBase = OpenLibrary(XPKNAME, 4)))
- return;
-
- if(!(err = XpkPassRequestTags(XPK_TimeOut, 20, XPK_PasswordBuf, buf, XPK_PassBufSize, 200, TAG_DONE)))
- {
- STRPTR a = buf;
- VPrintf("Password = %s\n", &a);
- }
- else
- XpkPrintFault(err, "No Password");
-
- if(!(err = XpkPassRequestTags(XPK_TimeOut, 40, XPK_Key16BitPtr, &key16, TAG_DONE)))
- VPrintf("16 bit key = %X\n", &key16);
- else
- XpkPrintFault(err, "No 16 bit key");
-
- if(!XpkPassRequestTags(XPK_Key32BitPtr, &key32, TAG_DONE))
- VPrintf("32 bit key = %lX\n", &key32);
- else
- XpkPrintFault(err, "No 32 bit key");
-
- XpkPassRequestTags(XPK_Key32BitPtr, &key32, XPK_PassVerify, TAG_DONE);
-
- XpkPassRequestTags(XPK_Key32BitPtr, &key32, XPK_TimeOut, 5,
- XPK_PassTitle, "Left 0, Top 11",
- XPK_PassWinLeft, 0, XPK_PassWinTop, 11, TAG_DONE);
-
- XpkPassRequestTags(XPK_Key32BitPtr, &key32, XPK_TimeOut, 5,
- XPK_PassTitle, "Width 100, Height 30",
- XPK_PassWinWidth, 100, XPK_PassWinHeight, 30, TAG_DONE);
-
- XpkPassRequestTags(XPK_Key32BitPtr, &key32, XPK_TimeOut, 5,
- XPK_PassTitle, "Left 320, Top 128, Center",
- XPK_PassWinLeft, 320, XPK_PassWinTop, 128, XPK_PassCenter, 1, TAG_DONE);
-
- /* autoadjust tests */
- XpkPassRequestTags(XPK_Key32BitPtr, &key32, XPK_TimeOut, 5,
- XPK_PassTitle, "Left 0, Top 0, Center",
- XPK_PassWinLeft, 0, XPK_PassWinTop, 0, XPK_PassCenter, 1, TAG_DONE);
-
- XpkPassRequestTags(XPK_Key32BitPtr, &key32, XPK_TimeOut, 5,
- XPK_PassTitle, "Width 8000, Height 3000",
- XPK_PassWinWidth, 8000, XPK_PassWinHeight, 3000, TAG_DONE);
-
- /* internal defaults */
- XpkPassRequestTags(XPK_Key32BitPtr, &key32, XPK_TimeOut, 5,
- XPK_PassTitle, "Width 5, Height 5",
- XPK_PassWinWidth, 5, XPK_PassWinHeight, 5, TAG_DONE);
-
- CloseLibrary(XpkBase);
- }
-
-