Delphi TADOStoredProc / D6 和 RAD Studio XE2 上最近的故障

问：

感谢任何可以提供一些帮助的人......

背景：

我有一个应用程序已编码，并且在 Borland Delphi v6 中仍然受支持。最近，我遇到了 TADOStoredProc 类无法执行存储过程的问题。这段代码以前已经稳定了好几年，从未被修改过。

我可以在请求上配置超时，但存储过程调用永远不会运行，即使在很长的超时时间也是如此。应用程序只是挂起，或因超时异常而保释。（我知道服务器没有负担过重，并且响应由同一客户端发起的其他 SQL SELECT 请求。

我知道 D6 很旧。我确实有一个单独的环境与 Embarcadero RAD Studio XE2，在那里我设法构建了相同的项目，但仍然有相同的问题。...只是为了确保。

去哪里？

• 请查看提供的代码，看看是否有更好的方法。（也许MSSQL界面在最近更新后更挑剔？我当然欢迎建议。
• 有没有另一种方法可以插入到应用程序中，该方法可靠且不需要 TADOStoredProc？我已经完成了挖掘，但没有找到任何好的例子。

代码示例

function TImport.OpenHeader(DriverID: Integer, …, ScanStart: DateTime, ...): integer;
var
    suid: integer;
    jid: integer;

    con : TADOConnection;
    sp : TADOStoredProc;
begin
    suid := getScanUnitID();
    jid := deriveJobID(ScanStart);

    con := TADOConnection.Create(nil);
    con.LoginPrompt := false;
    con.ConnectionString :=  'Provider=SQLOLEDB.1;Password=<testPwd>;Persist Security Info=True;User ID=<testUser>;Initial Catalog=<myDB>;Data Source=<myServer>';
    con.CommandTimeout := 10;
    con.KeepConnection := true;
    con.Connected := true;

    sp := TADOStoredProc.Create(nil);
    sp.Connection := con;
    sp.CommandTimeout := 10;
    sp.ProcedureName := 'mon4_OpenHeader;1';
    sp.Parameters.Refresh;

    sp.Parameters.ParamByName('@ScanUnitID').Value := suid;
    sp.Parameters.ParamByName('@JobID').Value := jid;
    sp.Parameters.ParamByName('@DriverID').Value := DriverID;
    //[…]

    sp.Parameters.ParamByName('@Result').Direction := pdOutput; //returned from stored proc

    sp.ExecProc;

    Result := sp.Parameters.ParamByName('@Result').Value;
    sp.Free;
    con.Free;
end; // end OpenHeader(DriverID: Integer, …, ScanStart: DateTime, …): integer

感谢您提供的任何帮助。