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);