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

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

1. library project1;
3. uses
4.   Windows,
5.   SysUtils,
6.   MSODSApi;
8. ...{$R *.res}
9. Function GetParamStr(pSrvProc: SRV_PROC; Index : integer; Var Param : String ) : integer;
10. var
11.   PType : Byte;
12.   cbMaxLen , ParaLen : DWORD;
13.   IsNULL : BOOL;
14. begin
15.   Result := NO_ERROR;
16.   srv_paraminfo(pSrvProc, index, @PType, @cbMaxLen, @ParaLen, NIL, @IsNULL);
18.   if PType in [SRVTEXT,SRVVARCHAR,SRVCHAR,SRVNTEXT,
19.                SRVBIGVARCHAR,SRVBIGCHAR,SRVNVARCHAR,SRVNCHAR] then
20.     begin
21.       Param := '''';
22.       if ParaLen>0 then begin
23.         SetLength(Param , ParaLen);
24.         srv_paraminfo(pSrvProc, index, @PType, @cbMaxLen, @ParaLen, @Param[1], @IsNULL);
25.       end;
26.     end
27.   else begin
28.     Result := -1;
29.   end;
30. end;
33. Function EpPackFile(pSrvProc: SRV_PROC) : integer;cdecl;
34. var
35.   ls1,ls2,ls3 : String;
36.   n      : integer;
37. begin
39.   Result := 1;
40.   n := srv_rpcparams(pSrvProc);
41.   if n <> 3 then begin
42.     //     不是3个参数
43.   end;
44.   if   (GetParamStr(pSrvProc,1,ls1)<>NO_ERROR) then begin
45.     //    不是字符串
46.   end;
47.   if    (GetParamStr(pSrvProc,2,ls2)<>NO_ERROR) then begin
48.     //    不是字符串
49.   end;
50.   if    (GetParamStr(pSrvProc,3,ls3)<>NO_ERROR) then begin
51.     //    不是字符串
52.   end;
53.   n := Length(ls1);
54.   srv_describe(pSrvProc, 1 ,  ''参数'', SRV_NULLTERM,  SRVBIGVARCHAR,
55.                 n, SRVBIGVARCHAR, n,  NIL);
56.     srv_setcoldata(pSrvProc, 1 , @ls1[1]);
57.     srv_sendrow(pSrvProc);
58.     srv_setcoldata(pSrvProc, 1 , @ls2[1]);
59.     srv_sendrow(pSrvProc);
60.     srv_setcoldata(pSrvProc, 1 , @ls3[1]);
61.     srv_sendrow(pSrvProc);
62.   srv_senddone(pSrvProc, (SRV_DONE_COUNT or SRV_DONE_MORE), 0, 1);
63. end;
66. exports
67.   EpPackFile Name ''xp_EpPackFile'';
68. begin
69. 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);