Подниму тему. Для будущих поколений.
_Vasilisk_Вызов
1.
ADOCommand1.Parameters.Refresh
приводит к полной очистке параметров, т.к. вызов
1.
if OLEDBParameters.GetParameterInfo(ParamCount, PDBPARAMINFO(ParamInfo), @NamesBuffer) = S_OK then
в TParameters.InternalRefreshюRefreshFromOleDB возвращает 0x80040E51
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
function TParameters.InternalRefresh: Boolean;
...........
begin
BeginUpdate;
try
Clear;
if Command.CommandType = cmdText then
RefreshFromOLEDB else
RefreshFromADO;
Result := Count > 0;
finally
EndUpdate;
end;
end;
RefreshFromOLEDB, действительно не достает параметров. Но параметры достает RefreshFromADO. Чтобы она вызвалась нужно изменить CommandType с cmdText. Т.к. у нас процедура, то устанавливаем cmdStoredProc. Но тогда должен быть другой формат CommandText.
Итого для процедуры
_Vasilisk_
1.
2.
3.
CREATE PROCEDURE SP_E_TEST(
in_param IN NUMBER,
out_param OUT NUMBER)
делаем так
1.
2.
3.
4.
5.
6.
ADOCommand1.CommandType = cmdStoredProc;
ADOCommand1.CommandText := 'SP_E_TEST'; // Вместо call sp_e_test(:in, :out) для CommandType = cmdText
ADOCommand1.Parameters.Refresh; // Подгружаем типы и направления параметров
ADOCommand1.Parameters.ParamByName('in_param').Value := 5; // Имена параметров поднимаются из базы
ADOCommand1.Execute;
Msg(ADOCommand1.Parameters.ParamByName('out_param').Value);
Все работает. Только нужно помнить, что имя процедуры должно быть записано в том же регистре, что и в базе, иначе ADOCommand1.Parameters.Refresh вываливается с сообщением
Project Project1.exe raised exception class EOleException with message 'Не удается найти текст сообщения с номером 0x80040e51 в файле сообщений OraOLEDB'.для CommandType = cmdText регистр значения не имеет
А теперь отдельные грабли по возвращаемым строковым параметрам. У параметра есть свойство Size. Для CommandType = cmdText для всех параметров оно выставляется в -1. Для CommandType = cmdStoredProc после Parameters.Refresh оно выставляется в 0. Выполнение запроса (для любого CommandType) с выходными строковыми параметрами и установленных для них Size <= 0, получаем исключение
Project Project1.exe raised exception class EOleException with message 'Неправильно определен объект Parameter. Предоставлены несогласованные или неполные сведения'.Если указать значение > 0, но меньше, чем длина возвращаемого значения, то для SQL типа CHAR возвращается NULL, а для VARCHAR значение обрезается до указанного числа символов. Если указать значение больше, чем длина возвращаемого значения, то для SQL типа CHAR значение добивается пробелами, а для VARCHAR возвращается как есть.
