Delphi寫Sql2000擴(kuò)展存儲過程的例子

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個參數(shù) ??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?,??''參數(shù)'',?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);