encontre esto pero no entiendo esto de pdInputOutput
Código Delphi
[-]
EvenType : string;
EvenCode : string;
begin
Conn := ConnPool.GetConnection;
if iCurrSpeed = 0 then
begin
ADOSP.Connection := Conn.Connection; ADOSP.ProcedureName := 'GetOverSpeed'; ADOSP.Parameters.Refresh; ADOSP.Parameters.ParamByName('@CompanyId').Value := iCompanyId;
ADOSP.Parameters.ParamByName('@CarNumber').Value := sVehicleId;
ADOSP.Parameters.ParamByName('@Speed').Value := iCurrSpeed;
ADOSP.Parameters.ParamByName('@EventType').Direction := pdInputOutput;
ADOSP.Parameters.ParamByName('@EventCode').Direction := pdInputOutput;
ADOSP.Open;
end;
ADOSP.Close;
ADOSP.Free;