开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaAF_Irda.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：15k
源码类别：

Windows编程

开发平台：

Delphi

JwaAF_Irda.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Winsock2 IRDA API interface Unit for Object Pascal                           }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: ad_irda.h, released June 2000. The original Pascal     }
  9. { code is: AD_Irda.pas, released December 2000. The initial developer of the   }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaAF_Irda;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "af_irda.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaWinSock2;
  59. //
  60. // Winsock1.1, IrDA1.1, WindowsNT5.0, Windows98 and WindowsCE1.0.
  61. // Define one of _WIN32_WINNT, _WIN32_WINDOWS, _WIN32_WCE.
  62. //  Copyright (C) Microsoft Corporation, 1994-1999.
  63. //
  65. const
  66.   WINDOWS_AF_IRDA = 26;
  67.   {$EXTERNALSYM WINDOWS_AF_IRDA}
  68.   WINDOWS_PF_IRDA = WINDOWS_AF_IRDA;
  69.   {$EXTERNALSYM WINDOWS_PF_IRDA}
  71.   WCE_AF_IRDA = 22;
  72.   {$EXTERNALSYM WCE_AF_IRDA}
  73.   WCE_PF_IRDA = WCE_AF_IRDA;
  74.   {$EXTERNALSYM WCE_PF_IRDA}
  76.   //AF_IRDA = WINDOWS_AF_IRDA;
  77.   //{$EXTERNALSYM AF_IRDA}
  79.   IRDA_PROTO_SOCK_STREAM  = 1;
  80.   {$EXTERNALSYM IRDA_PROTO_SOCK_STREAM}
  82.   PF_IRDA = WINDOWS_AF_IRDA;
  83.   {$EXTERNALSYM PF_IRDA}
  85.   // WINNT, WIN98, WINCE
  87.   SOL_IRLMP  = $00FF;
  88.   {$EXTERNALSYM SOL_IRLMP}
  90.   IRLMP_ENUMDEVICES = $00000010;
  91.   {$EXTERNALSYM IRLMP_ENUMDEVICES}
  92.   IRLMP_IAS_SET     = $00000011;
  93.   {$EXTERNALSYM IRLMP_IAS_SET}
  94.   IRLMP_IAS_QUERY   = $00000012;
  95.   {$EXTERNALSYM IRLMP_IAS_QUERY}
  97.   // WINNT, WINCE
  99.   IRLMP_SEND_PDU_LEN   = $00000013;
  100.   {$EXTERNALSYM IRLMP_SEND_PDU_LEN}
  101.   IRLMP_EXCLUSIVE_MODE = $00000014;
  102.   {$EXTERNALSYM IRLMP_EXCLUSIVE_MODE}
  103.   IRLMP_IRLPT_MODE     = $00000015;
  104.   {$EXTERNALSYM IRLMP_IRLPT_MODE}
  105.   IRLMP_9WIRE_MODE     = $00000016;
  106.   {$EXTERNALSYM IRLMP_9WIRE_MODE}
  108.   // WIN98
  110.   IRLMP_TINYTP_MODE    = $00000017;
  111.   {$EXTERNALSYM IRLMP_TINYTP_MODE}
  112.   IRLMP_PARAMETERS     = $00000018;
  113.   {$EXTERNALSYM IRLMP_PARAMETERS}
  114.   IRLMP_DISCOVERY_MODE = $00000019;
  115.   {$EXTERNALSYM IRLMP_DISCOVERY_MODE}
  117.   // WINCE
  119.   IRLMP_SHARP_MODE = $00000020;
  120.   {$EXTERNALSYM IRLMP_SHARP_MODE}
  122.   SIO_LAZY_DISCOVERY = $4004747F; // _IOR('t', 127, u_long)
  123.   {$EXTERNALSYM SIO_LAZY_DISCOVERY}
  125.   IAS_ATTRIB_NO_CLASS  = $00000010;
  126.   {$EXTERNALSYM IAS_ATTRIB_NO_CLASS}
  127.   IAS_ATTRIB_NO_ATTRIB = $00000000;
  128.   {$EXTERNALSYM IAS_ATTRIB_NO_ATTRIB}
  129.   IAS_ATTRIB_INT       = $00000001;
  130.   {$EXTERNALSYM IAS_ATTRIB_INT}
  131.   IAS_ATTRIB_OCTETSEQ  = $00000002;
  132.   {$EXTERNALSYM IAS_ATTRIB_OCTETSEQ}
  133.   IAS_ATTRIB_STR       = $00000003;
  134.   {$EXTERNALSYM IAS_ATTRIB_STR}
  136.   IAS_MAX_USER_STRING  = 256;
  137.   {$EXTERNALSYM IAS_MAX_USER_STRING}
  138.   IAS_MAX_OCTET_STRING = 1024;
  139.   {$EXTERNALSYM IAS_MAX_OCTET_STRING}
  140.   IAS_MAX_CLASSNAME    = 64;
  141.   {$EXTERNALSYM IAS_MAX_CLASSNAME}
  142.   IAS_MAX_ATTRIBNAME   = 256;
  143.   {$EXTERNALSYM IAS_MAX_ATTRIBNAME}
  145. const
  146.   LM_HB_Extension =             128;    // Any hint byte
  147.   {$EXTERNALSYM LM_HB_Extension}
  149.   LM_HB1_PnP =                  1;      // First hint byte
  150.   {$EXTERNALSYM LM_HB1_PnP}
  151.   LM_HB1_PDA_Palmtop =          2;
  152.   {$EXTERNALSYM LM_HB1_PDA_Palmtop}
  153.   LM_HB1_Computer =             4;
  154.   {$EXTERNALSYM LM_HB1_Computer}
  155.   LM_HB1_Printer =              8;
  156.   {$EXTERNALSYM LM_HB1_Printer}
  157.   LM_HB1_Modem =                16;
  158.   {$EXTERNALSYM LM_HB1_Modem}
  159.   LM_HB1_Fax =                  32;
  160.   {$EXTERNALSYM LM_HB1_Fax}
  161.   LM_HB1_LANAccess =            64;
  162.   {$EXTERNALSYM LM_HB1_LANAccess}
  164.   LM_HB2_Telephony =            1;      // Second hint byte
  165.   {$EXTERNALSYM LM_HB2_Telephony}
  166.   LM_HB2_FileServer =           2;
  167.   {$EXTERNALSYM LM_HB2_FileServer}
  169.   LmCharSetASCII      = 0;
  170.   {$EXTERNALSYM LmCharSetASCII}
  171.   LmCharSetISO_8859_1 = 1;
  172.   {$EXTERNALSYM LmCharSetISO_8859_1}
  173.   LmCharSetISO_8859_2 = 2;
  174.   {$EXTERNALSYM LmCharSetISO_8859_2}
  175.   LmCharSetISO_8859_3 = 3;
  176.   {$EXTERNALSYM LmCharSetISO_8859_3}
  177.   LmCharSetISO_8859_4 = 4;
  178.   {$EXTERNALSYM LmCharSetISO_8859_4}
  179.   LmCharSetISO_8859_5 = 5;
  180.   {$EXTERNALSYM LmCharSetISO_8859_5}
  181.   LmCharSetISO_8859_6 = 6;
  182.   {$EXTERNALSYM LmCharSetISO_8859_6}
  183.   LmCharSetISO_8859_7 = 7;
  184.   {$EXTERNALSYM LmCharSetISO_8859_7}
  185.   LmCharSetISO_8859_8 = 8;
  186.   {$EXTERNALSYM LmCharSetISO_8859_8}
  187.   LmCharSetISO_8859_9 = 9;
  188.   {$EXTERNALSYM LmCharSetISO_8859_9}
  189.   LmCharSetUNICODE    = $ff;
  190.   {$EXTERNALSYM LmCharSetUNICODE}
  192. type
  193.   LM_BAUD_RATE = u_long;
  194.   {$EXTERNALSYM LM_BAUD_RATE}
  195.   TLMBaudRate = LM_BAUD_RATE;
  196.   PLMBaudRate = ^LM_BAUD_RATE;
  198. const
  199.   LM_BAUD_1200   = 1200;
  200.   {$EXTERNALSYM LM_BAUD_1200}
  201.   LM_BAUD_2400   = 2400;
  202.   {$EXTERNALSYM LM_BAUD_2400}
  203.   LM_BAUD_9600   = 9600;
  204.   {$EXTERNALSYM LM_BAUD_9600}
  205.   LM_BAUD_19200  = 19200;
  206.   {$EXTERNALSYM LM_BAUD_19200}
  207.   LM_BAUD_38400  = 38400;
  208.   {$EXTERNALSYM LM_BAUD_38400}
  209.   LM_BAUD_57600  = 57600;
  210.   {$EXTERNALSYM LM_BAUD_57600}
  211.   LM_BAUD_115200 = 115200;
  212.   {$EXTERNALSYM LM_BAUD_115200}
  213.   LM_BAUD_576K   = 576000;
  214.   {$EXTERNALSYM LM_BAUD_576K}
  215.   LM_BAUD_1152K  = 1152000;
  216.   {$EXTERNALSYM LM_BAUD_1152K}
  217.   LM_BAUD_4M     = 4000000;
  218.   {$EXTERNALSYM LM_BAUD_4M}
  220. type
  221.   LM_IRPARMS = record
  222.     nTXDataBytes: u_long;   // Max tx data bytes per packet
  223.     nRXDataBytes: u_long;   // Max rx data bytes per packet
  224.     nBaudRate: LM_BAUD_RATE;      // Negotiated baud rate
  225.     thresholdTime: u_long;  // Threshold (ms)
  226.     discTime: u_long;       // Disconnect (ms)
  227.     nMSLinkTurn: u_short;    // Link turn around (ms)
  228.     nTXPackets: u_char;     // Number packets in transmit window
  229.     nRXPackets: u_char;     // Number packets in receive window
  230.   end;
  231.   {$EXTERNALSYM LM_IRPARMS}
  232.   PLM_IRPARMS = ^LM_IRPARMS;
  233.   TLmIrParms = LM_IRPARMS;
  234.   PLmIrParms = PLM_IRPARMS;
  236.   _SOCKADDR_IRDA = record
  237.     irdaAddressFamily: u_short;
  238.     irdaDeviceID: array [0..3] of u_char;
  239.     irdaServiceName: array [0..24] of Char;
  240.   end;
  241.   {$EXTERNALSYM _SOCKADDR_IRDA}
  242.   SOCKADDR_IRDA = _SOCKADDR_IRDA;
  243.   {$EXTERNALSYM SOCKADDR_IRDA}
  244.   PSOCKADDR_IRDA = ^SOCKADDR_IRDA;
  245.   {$EXTERNALSYM PSOCKADDR_IRDA}
  246.   LPSOCKADDR_IRDA = ^SOCKADDR_IRDA;
  247.   {$EXTERNALSYM LPSOCKADDR_IRDA}
  248.   TSockAddrIrda = SOCKADDR_IRDA;
  249.   PSockAddrIrda = LPSOCKADDR_IRDA;
  251.   _WINDOWS_IRDA_DEVICE_INFO = record
  252.     irdaDeviceID: array [0..3] of u_char;
  253.     irdaDeviceName: array [0..21] of Char;
  254.     irdaDeviceHints1: u_char;
  255.     irdaDeviceHints2: u_char;
  256.     irdaCharSet: u_char;
  257.   end;
  258.   {$EXTERNALSYM _WINDOWS_IRDA_DEVICE_INFO}
  259.   WINDOWS_IRDA_DEVICE_INFO = _WINDOWS_IRDA_DEVICE_INFO;
  260.   {$EXTERNALSYM WINDOWS_IRDA_DEVICE_INFO}
  261.   PWINDOWS_IRDA_DEVICE_INFO = ^WINDOWS_IRDA_DEVICE_INFO;
  262.   {$EXTERNALSYM PWINDOWS_IRDA_DEVICE_INFO}
  263.   LPWINDOWS_IRDA_DEVICE_INFO = ^WINDOWS_IRDA_DEVICE_INFO;
  264.   {$EXTERNALSYM LPWINDOWS_IRDA_DEVICE_INFO}
  265.   TWindowsIrdaDeviceInfo = WINDOWS_IRDA_DEVICE_INFO;
  266.   PWindowsIrdaDeviceInfo = LPWINDOWS_IRDA_DEVICE_INFO;  
  268.   _WCE_IRDA_DEVICE_INFO = record
  269.     irdaDeviceID: array [0..3] of u_char;
  270.     irdaDeviceName: array [0..21] of Char;
  271.     Reserved: array [0..1] of u_char;
  272.   end;
  273.   {$EXTERNALSYM _WCE_IRDA_DEVICE_INFO}
  274.   WCE_IRDA_DEVICE_INFO = _WCE_IRDA_DEVICE_INFO;
  275.   {$EXTERNALSYM WCE_IRDA_DEVICE_INFO}
  276.   PWCE_IRDA_DEVICE_INFO = ^WCE_IRDA_DEVICE_INFO;
  277.   {$EXTERNALSYM PWCE_IRDA_DEVICE_INFO}
  278.   TWceIrdaDeviceInfo = WCE_IRDA_DEVICE_INFO;
  279.   PWceIrdaDeviceInfo = PWCE_IRDA_DEVICE_INFO;
  281.   IRDA_DEVICE_INFO = WINDOWS_IRDA_DEVICE_INFO;
  282.   {$EXTERNALSYM IRDA_DEVICE_INFO}
  283.   PIRDA_DEVICE_INFO = ^WINDOWS_IRDA_DEVICE_INFO;
  284.   {$EXTERNALSYM PIRDA_DEVICE_INFO}
  285.   LPIRDA_DEVICE_INFO = ^WINDOWS_IRDA_DEVICE_INFO;
  286.   {$EXTERNALSYM LPIRDA_DEVICE_INFO}
  287.   TIrdaDeviceInfo = IRDA_DEVICE_INFO;
  288.   PIrdaDeviceInfo = LPIRDA_DEVICE_INFO;
  290.   _WINDOWS_DEVICELIST = record
  291.     numDevice: ULONG;
  292.     Device: array [0..0] of WINDOWS_IRDA_DEVICE_INFO;
  293.   end;
  294.   {$EXTERNALSYM _WINDOWS_DEVICELIST}
  295.   WINDOWS_DEVICELIST = _WINDOWS_DEVICELIST;
  296.   {$EXTERNALSYM WINDOWS_DEVICELIST}
  297.   PWINDOWS_DEVICELIST = ^WINDOWS_DEVICELIST;
  298.   {$EXTERNALSYM PWINDOWS_DEVICELIST}
  299.   LPWINDOWS_DEVICELIST = ^WINDOWS_DEVICELIST;
  300.   {$EXTERNALSYM LPWINDOWS_DEVICELIST}
  301.   TWindowsDeviceList = WINDOWS_DEVICELIST;
  302.   PWindowsDeviceList = LPWINDOWS_DEVICELIST;
  304.   _WCE_DEVICELIST = record
  305.     numDevice: ULONG;
  306.     Device: array [0..0] of WCE_IRDA_DEVICE_INFO;
  307.   end;
  308.   {$EXTERNALSYM _WCE_DEVICELIST}
  309.   WCE_DEVICELIST = _WCE_DEVICELIST;
  310.   {$EXTERNALSYM WCE_DEVICELIST}
  311.   PWCE_DEVICELIST = ^WCE_DEVICELIST;
  312.   {$EXTERNALSYM PWCE_DEVICELIST}
  313.   TWceDeviceList = WCE_DEVICELIST;
  314.   PWceDeviceList = PWCE_DEVICELIST;
  316.   DEVICELIST = WINDOWS_DEVICELIST;
  317.   {$EXTERNALSYM DEVICELIST}
  318.   PDEVICELIST = ^WINDOWS_DEVICELIST;
  319.   {$EXTERNALSYM PDEVICELIST}
  320.   LPDEVICELIST = ^WINDOWS_DEVICELIST;
  321.   {$EXTERNALSYM LPDEVICELIST}
  322.   TDeviceList = DEVICELIST;
  324.   _WINDOWS_IAS_SET = record
  325.     irdaClassName: array [0..IAS_MAX_CLASSNAME - 1] of Char;
  326.     irdaAttribName: array [0..IAS_MAX_ATTRIBNAME - 1] of Char;
  327.     irdaAttribType: u_long;
  328.     case Integer of
  329.       0: (
  330.         irdaAttribInt: Longint);
  331.       1: (
  332.         Len: u_short;
  333.         OctetSeq: array [0..IAS_MAX_OCTET_STRING - 1] of u_char);
  334.       2: (
  335.         Len_: u_char;
  336.         CharSet: u_char;
  337.         UsrStr: array [0..IAS_MAX_USER_STRING - 1] of u_char);
  338.   end;
  339.   {$EXTERNALSYM _WINDOWS_IAS_SET}
  340.   WINDOWS_IAS_SET = _WINDOWS_IAS_SET;
  341.   {$EXTERNALSYM WINDOWS_IAS_SET}
  342.   PWINDOWS_IAS_SET = ^WINDOWS_IAS_SET;
  343.   {$EXTERNALSYM PWINDOWS_IAS_SET}
  344.   LPWINDOWS_IAS_SET = ^WINDOWS_IAS_SET;
  345.   {$EXTERNALSYM LPWINDOWS_IAS_SET}
  346.   TWindowsIasSet = WINDOWS_IAS_SET;
  347.   PWindowsIasSet = LPWINDOWS_IAS_SET;
  349.   _WINDOWS_IAS_QUERY = record
  350.     irdaDeviceID: array [0..3] of u_char;
  351.     irdaClassName: array [0..IAS_MAX_CLASSNAME - 1] of Char;
  352.     irdaAttribName: array [0..IAS_MAX_ATTRIBNAME - 1] of Char;
  353.     irdaAttribType: u_long;
  354.     case Integer of
  355.       0: (
  356.         irdaAttribInt: Longint);
  357.       1: (
  358.         Len: u_long;
  359.         OctetSeq: array [0..IAS_MAX_OCTET_STRING - 1] of u_char);
  360.       2: (
  361.         Len_: u_long;
  362.         CharSet: u_long;
  363.         UsrStr: array [0..IAS_MAX_USER_STRING - 1] of u_char);
  364.   end;
  365.   {$EXTERNALSYM _WINDOWS_IAS_QUERY}
  366.   WINDOWS_IAS_QUERY = _WINDOWS_IAS_QUERY;
  367.   {$EXTERNALSYM WINDOWS_IAS_QUERY}
  368.   PWINDOWS_IAS_QUERY = ^WINDOWS_IAS_QUERY;
  369.   {$EXTERNALSYM PWINDOWS_IAS_QUERY}
  370.   LPWINDOWS_IAS_QUERY = ^WINDOWS_IAS_QUERY;
  371.   {$EXTERNALSYM LPWINDOWS_IAS_QUERY}
  372.   TWindowsIasQuery = WINDOWS_IAS_QUERY;
  373.   PWindowsIasQuery = LPWINDOWS_IAS_QUERY;
  375.   _WCE_IAS_SET = record
  376.     irdaClassName: array [0..60] of Char;
  377.     irdaAttribName: array [0..60] of Char;
  378.     irdaAttribType: u_short;
  379.     case Integer of
  380.       0: (
  381.         irdaAttribInt: Integer);
  382.       1: (
  383.         Len: Integer;
  384.         OctetSeq: array [0..0] of u_char;
  385.         Reserved: array [0..2] of u_char);
  386.       2: (
  387.         Len_: Integer;
  388.         CharSet: u_char;
  389.         UsrStr: array [0..0] of u_char;
  390.         Reserved_: array [0..1] of u_char);
  391.   end;
  392.   {$EXTERNALSYM _WCE_IAS_SET}
  393.   WCE_IAS_SET = _WCE_IAS_SET;
  394.   {$EXTERNALSYM WCE_IAS_SET}
  395.   PWCE_IAS_SET = ^WCE_IAS_SET;
  396.   {$EXTERNALSYM PWCE_IAS_SET}
  397.   TWceIasSet = WCE_IAS_SET;
  398.   PWceIasSet = PWCE_IAS_SET;
  400.   _WCE_IAS_QUERY = record
  401.     irdaDeviceID: array [0..3] of u_char;
  402.     irdaClassName: array [0..60] of Char;
  403.     irdaAttribName: array [0..60] of Char;
  404.     irdaAttribType: u_short;
  405.     case Integer of
  406.       0: (irdaAttribInt: Integer);
  407.       1: (
  408.         Len: Integer;
  409.         OctetSeq: array [0..0] of u_char;
  410.         Reserved: array [0..2] of u_char);
  411.       2: (
  412.         Len_: Integer;
  413.         CharSet: u_char;
  414.         UsrStr: array [0..0] of u_char;
  415.         Reserved_
  416.         : array [0..1] of u_char);
  417.   end;
  418.   {$EXTERNALSYM _WCE_IAS_QUERY}
  419.   WCE_IAS_QUERY = _WCE_IAS_QUERY;
  420.   {$EXTERNALSYM WCE_IAS_QUERY}
  421.   PWCE_IAS_QUERY = ^WCE_IAS_QUERY;
  422.   {$EXTERNALSYM PWCE_IAS_QUERY}
  423.   TWceIasQuery = WCE_IAS_QUERY;
  424.   PWceIasQuery = PWCE_IAS_QUERY;
  426.   IAS_SET = WINDOWS_IAS_SET;
  427.   {$EXTERNALSYM IAS_SET}
  428.   PIAS_SET = ^WINDOWS_IAS_SET;
  429.   {$EXTERNALSYM PIAS_SET}
  430.   LPIASSET = ^WINDOWS_IAS_SET;
  431.   TIasSet = IAS_SET;
  432.   PIasSet = PIAS_SET;
  433.   {$EXTERNALSYM LPIASSET}
  434.   IAS_QUERY = WINDOWS_IAS_QUERY;
  435.   {$EXTERNALSYM IAS_QUERY}
  436.   PIAS_QUERY = ^WINDOWS_IAS_QUERY;
  437.   {$EXTERNALSYM PIAS_QUERY}
  438.   LPIASQUERY = ^WINDOWS_IAS_QUERY;
  439.   {$EXTERNALSYM LPIASQUERY}
  440.   TIasQuery = IAS_QUERY;
  441.   PIasQuery = PIAS_QUERY;  
  443. implementation
  445. end.