Delphi写Sql2000扩展存储过程的例子

Delphi写Sql2000扩展存储过程的例子

library project1; uses   Windows,   SysUtils,   MSODSApi; ...{$R *.res} Function GetParamStr(pSrvProc: SRV_PROC; Index : integer; Var Param : String ) : integer; var   PType : Byte;   cbMaxLen , ParaLen : DWORD;   IsNULL : BOOL; begin   Result := NO_ERROR;   srv_paraminfo(pSrvProc, index, @PType, @cbMaxLen, @ParaLen, NIL, @IsNULL);   if PType in [SRVTEXT,SRVVARCHAR,SRVCHAR,SRVNTEXT,                SRVBIGVARCHAR,SRVBIGCHAR,SRVNVARCHAR,SRVNCHAR] then     begin       Param := '''';       if ParaLen>0 then begin         SetLength(Param , ParaLen);         srv_paraminfo(pSrvProc, index, @PType, @cbMaxLen, @ParaLen, @Param[1], @IsNULL);       end;     end   else begin     Result := -1;   end; end; Function EpPackFile(pSrvProc: SRV_PROC) : integer;cdecl; var   ls1,ls2,ls3 : String;   n      : integer; begin   Result := 1;   n := srv_rpcparams(pSrvProc);   if n <> 3 then begin     //     不是3个参数   end;   if   (GetParamStr(pSrvProc,1,ls1)<>NO_ERROR) then begin     //    不是字符串   end;   if    (GetParamStr(pSrvProc,2,ls2)<>NO_ERROR) then begin     //    不是字符串   end;   if    (GetParamStr(pSrvProc,3,ls3)<>NO_ERROR) then begin     //    不是字符串   end;   n := Length(ls1);   srv_describe(pSrvProc, 1 ,  ''参数'', SRV_NULLTERM,  SRVBIGVARCHAR,                 n, SRVBIGVARCHAR, n,  NIL);     srv_setcoldata(pSrvProc, 1 , @ls1[1]);     srv_sendrow(pSrvProc);     srv_setcoldata(pSrvProc, 1 , @ls2[1]);     srv_sendrow(pSrvProc);     srv_setcoldata(pSrvProc, 1 , @ls3[1]);     srv_sendrow(pSrvProc);   srv_senddone(pSrvProc, (SRV_DONE_COUNT or SRV_DONE_MORE), 0, 1); end; exports   EpPackFile Name ''xp_EpPackFile''; begin end.

编译后放入binn目录，在sql中添加并测试，代码如下:

Use Master;
IF object_id(''xp_EpPackFile'') IS NOT NULL EXEC sp_dropextendedproc ''xp_EpPackFile'';
EXEC sp_addextendedproc ''xp_EpPackFile'', ''project1.dll'';
EXEC master..xp_EpPackFile ''aa'',''bb'',''cc'';
EXEC sp_dropextendedproc ''xp_EpPackFile'';
DBCC SPEncrypt(FREE);