请问Delphi有没有封装‘security.dll’或者 'secur32.dll' 这个模块？

Question

我找了一下 没发现有这么个单元我想自己写 只怕会有些处理不好 比如，delphi封装模块时用到的那些编译指示字没研究过急盼 研究过Win32 系统安全的高手指点

Answer 1

搜了一下，我机器上还真有这个文件
是在C:\Program Files\Common Files\Real\Common目录下real……-_-!楼主，没搞错吧？这玩意Delphi怎么会封装呢……

Answer 2

自己找到封装的单元了 是Indy有封装
IdSSPI 等

Answer 3

我搜索了一下
确实在C:\Program Files\Common Files\Real\Common下阿我还以为你要做real的东东呢……可以自己删贴的不扣性欲

Answer 4

delphi中没有这个文件,这个文件是水表或者电表程序中的一个进行串口读写的接口文件

Answer 5

{
------------------------------------------------------------------
=  sure32wc.dll ---- IC卡操作函数库                              =
=  Copyright (c) 2004-2005 Aoke, All rights reserved             =
=  IC Read/Write DLL                                             =
=  Version: 1.0                                                  =
------------------------------------------------------------------
------------------------------------------------------------------
=  publicunit.pas ---- IC卡操作函数库Delphi调用模块              =
=  Copyright (c) 2004-2005 Aoke, All rights reserved             =
=  Created 2004/10/03 by wjc                                     =
=  Version: 1.0                                                  =
=  Email: [email protected]                                          =
------------------------------------------------------------------
}
unit S_IC_Public;
interface
uses
  Windows, Messages, Classes, Graphics, Controls, Dialogs;
type
  myCharArray = array of Char;function init_com(comport: integer): integer; stdcall; external 'sure32wc.dll';
function power_on(): integer; stdcall; external 'sure32wc.dll';
function power_off(): integer; stdcall; external 'sure32wc.dll';
function sele_card(card_type: integer): integer; stdcall; external 'sure32wc.dll';
function chk_sc(zone: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function chk_erk(zone: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function era_at(zone: integer; iPos: integer; iLength: integer): integer; stdcall; external 'sure32wc.dll';
function inquire(Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function rd_str(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function prd_str(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function wr_str(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function pwr_str(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function cpwr_str(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function rd_pm(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function rd_sm(Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function wr_sc(Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function fuse(): integer; stdcall; external 'sure32wc.dll';procedure des_str(var p_cont: Pchar; var p_secr: Pchar); stdcall; external 'sure32wc.dll';
procedure des_asc(var p_cont: Pchar; var p_secr: Pchar); stdcall; external 'sure32wc.dll';
procedure undes_str(var p_cont: Pchar; var p_secr: Pchar); stdcall; external 'sure32wc.dll';
procedure undes_asc(var p_cont: Pchar; var p_secr: Pchar); stdcall; external 'sure32wc.dll';function rd_asc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function prd_asc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function wr_asc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function pwr_asc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function cpwr_asc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function close_com(): integer; stdcall; external 'sure32wc.dll';function rd_mstr(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function rd_masc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function wr_mstr(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function wr_masc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';const
    INAT24C01A  = 00; //* INSIDE ATMEL LOGIC MEMORY */
    INAT24C02   = 01;
    INAT24C04   = 02;
    INAT24C08   = 03;
    INAT24C16   = 04;
    INAT24C32   = 05;
    INAT24C64   = 07;
    INAT24C65   = 06;
    AT88SC101   = 10; // * ATMEL SECURITY LOGIC SMART CARD * /
    AT88SC102   = 11;
    AT88SC103   = 12;
    AT88SC1601  = 13;
    AT88SC1604  = 14;
    AT88SC1604A = 15;
    AT24C01A    = 20; // * ATMEL LOGIC SMART CARD * /
    AT24C02     = 21;
    AT24C04     = 22;
    AT24C08     = 23;
    AT24C16     = 24;
    AT24C32     = 25;
    AT24C64     = 27;
    AT24C65     = 26;
    AT93C46     = 30;
    AT45D041    = 64; // * 4M IC card * /
    SLE4404     = 40; // * SIMENS SECURITY LOGIC SMART CARD * /
    SLE4406     = 41;
    SLE4442     = 42;
    SLE4428     = 43;
    SLE4432     = 50; // * SIMENS LOGIC SMART CARD * /
    SLE4418     = 51;
implementationprocedure Initialize;
begin
  //所有的函数如果成功返回0,否则返回非0或者4
  //
end;end.