存储过程中有返回参数的如何得到？

Question

ADOStoredProc1.Parameters.Clear;
        ADOStoredProc1.Parameters.CreateParameter('@filename',ftstring,pdInput,100,filename);
        ADOStoredProc1.Parameters.CreateParameter('@len',ftSmallint,pdInputOutput,0,len);
        ADOStoredProc1.Parameters.Items[0].value := filename;
怎么样得到返回的参数len？

Answer 1

ADOStoredProc1.Parameters.Clear;
        ADOStoredProc1.Parameters.CreateParameter('@filename',ftstring,pdInput,100,filename);
        ADOStoredProc1.Parameters.CreateParameter('@len',ftSmallint,pdInputOutput,0,len);
        ADOStoredProc1.Parameters.Items[0].value := filename;ADOStoredProc1.exec;
filename:=ADOStoredProc1.Parameters.Items[1].AsString;