Java 如何使用delphi调用没有参数的oracle函数？

我需要使用Delphi中的以下参数调用名为

GetData

的oracle函数：

(RESULT) NUMBER
P1 VARCHAR2 IN
P2 VARCHAR2 IN
P3 VARCHAR2 IN
P4 VARCHAR2 OUT

我尝试使用的代码是：

q := TADOQuery.Create(nil);
q.Connection := conn;
q.SQL.Add('BEGIN');
q.SQL.Add(' SELECT GetData(:IN_1,:IN_2,:IN_3,:OUT_1) into :OUT_2 from dual;');
q.SQL.Add('END;');

q.Parameters.ParamByName('IN_1').DataType:=ftString;
q.Parameters.ParamByName('IN_1').Direction:=pdInput;
q.Parameters.ParamByName('IN_1').Size:=3;
q.Parameters.ParamByName('IN_1').Value:='001';

q.Parameters.ParamByName('IN_2').DataType:=ftString;
q.Parameters.ParamByName('IN_2').Direction:=pdInput;
q.Parameters.ParamByName('IN_2').Size:=15;
q.Parameters.ParamByName('IN_2').Value:='88000000000';

q.Parameters.ParamByName('IN_3').DataType:=ftString;
q.Parameters.ParamByName('IN_3').Direction:=pdInput;
q.Parameters.ParamByName('IN_3').Size:=64;
q.Parameters.ParamByName('IN_3').Value:='';

q.Parameters.ParamByName('OUT_1').DataType:=ftString;
q.Parameters.ParamByName('OUT_1').Direction:=pdOutput;
q.Parameters.ParamByName('OUT_1').Size:=255;
q.Parameters.ParamByName('OUT_1').Value:='';

q.Parameters.ParamByName('OUT_2').DataType:=ftInteger;
q.Parameters.ParamByName('OUT_2').Direction:=pdOutput;
q.Parameters.ParamByName('OUT_2').Value:='0';

q.Open;

responseEdit.Text:=q.Parameters.ParamByName('OUT_1').Value;

但是我得到了ORA-06572:GETDATA函数没有参数。据我所知，在Oracle的SELECT语句中不能使用没有参数的函数

那怎么称呼呢

---

例如，在java中，我通过以下语法实现了这一点：

CallableStatement cs = conn.prepareCall("{ call ? := GetData(?,?,?,?)}");

不幸的是，它在Delphi中不起作用

---

我还尝试用以下语法调用它：

q.SQL.Add('BEGIN');
q.SQL.Add(' :OUT_2 := GetData(:IN_1,:IN_2,:IN_3,:OUT_1);');
q.SQL.Add('END;');

但是Delphi似乎错误地理解了作为参数的

：=

符号。因此，Oracle已损坏，

PLS-00103:在预期以下情况之一时遇到符号“”：。（@%；指标

异常被抛出……或者如果我删除了

周围的空格：=

Delphi已经抛出了一些常规的EOLEException

---

我试着用

TADOStoredProc

打电话：

stp := TADOStoredProc.Create(nil);
stp.Connection := conn;
//stp.ProcedureName:='GetData';    //also tried this
stp.ProcedureName:=':OUT_2 := GetData(:IN_1,:IN_2,:IN_3,:OUT_1)';
stp.Parameters.CreateParameter('OUT_2',ftInteger,pdOutput,4,0);
stp.Parameters.CreateParameter('IN_1',ftString,pdInput,3,'101');
stp.Parameters.CreateParameter('IN_2',ftString,pdInput,15,phoneEdit.Text);
stp.Parameters.CreateParameter('IN_3',ftString,pdInput,64,' ');
stp.Parameters.CreateParameter('OUT_1',ftString,pdOutput,255,' ');
stp.ExecProc;

它抛出一个未知的异常。当我指定进程名时，如

stp.ProcedureName:='GetData'；

，它说

指定的参数的数目或类型错误


我试着用
tadocomand
做同样的事情：

cmd := TADOCommand.Create(nil);
cmd.Connection := conn;
cmd.CommandType := cmdStoredProc;
cmd.CommandText := ' :OUT_2 := GetData(:IN_1,:IN_2,:IN_3,:OUT_1); ';
...

Delphi再次抛出一个未知的异常


所以要么我对oracle和delphi都使用了错误的语法，要么我无法将参数传递给delphi，这样它就可以格式化对oracle的正确调用

但是，当调用没有输出参数的oracle函数时，或者调用ms sql函数（即使没有输出参数…）时，所有这些都是有效的。那么，这里有什么问题吗？
正如我在评论中所说，
TADOStoredProc
已知可以使用输出参数。

以下是SSCCE：

CREATE OR REPLACE FUNCTION ADMIN.GETDATA(IN_1 IN VARCHAR2, 
                                   IN_2 IN VARCHAR2, 
                                   IN_3 IN VARCHAR2, 
                                   OUT_1 IN OUT VARCHAR2) RETURN INTEGER
IS
BEGIN
    OUT_1 := IN_1 || IN_2 || IN_3;
    RETURN 5;
END;

在PL/SQL上，这是可行的：

BEGIN  
  DECLARE OUTVAR VARCHAR(255);
          RETVAR INTEGER;    
  BEGIN
     RETVAR:= ADMIN.GETDATA('A','B','C', OUTVAR);
     DBMS_OUTPUT.PUT_LINE(OUTVAR);     
     DBMS_OUTPUT.PUT_LINE(RETVAR);         
  END;  
END;

输出页面为：

ABC
5

现在是Delphi代码：

var Proc: TADOStoredProc;
    P: TParameter;
    Results: String;
begin
  Proc := TADOStoredProc.Create(nil);
  try
    (* Set up the connection to an Oracle database *)
    Proc.Connection := MyADOConnection;

    (* Define the function Name *)
    Proc.ProcedureName := 'GETDATA';

    (* Let the FrameWork retrieve all the parameters from DataBase *)
    //Proc.Parameters.Refresh;
    //Set parameters values
    //Proc.Parameters.ParamByName('IN_1').Value := 'A';
    //Proc.Parameters.ParamByName('IN_2').Value := 'B';
    //Proc.Parameters.ParamByName('IN_3').Value := 'C';
    //Proc.Parameters.ParamByName('OUT1').Value := ''; //This will be overrided by the database.

    // **********************
    //          OR
    // **********************

    //Define it manually!
    begin
      //Defining the Return Value
      Proc.Parameters.CreateParameter('RETVAL', ftBCD (* or ftInteger *), pdReturnValue, 0, Unassigned);

      //Defining Input parameters 1, 2 and 3;

      Proc.Parameters.CreateParameter('IN1', ftString , pdInput, 4000 (* This is the Max *), 'A');

      //Collect the reference to update later
      P := Proc.Parameters.CreateParameter('IN2', ftString , pdInput, 4000 (* Length for a    *), Unassigned);

      Proc.Parameters.CreateParameter('IN3', ftString , pdInput, 4000 (* ftString param  *), 'C');

      Proc.Parameters.CreateParameter('OUT1', ftString , pdOutput, 4000, Unassigned);

      P.Value := 'B';

      Proc.ExecProc;

      // Expected : [Return Value : 5]~[Out Var: ABC]
      Results := Format('[Return Value : %s]~[Out Var: %s]',
                        [VarToStr(Proc.Parameters.ParamByName('RETVAL').Value),
                         VarToStr(Proc.Parameters.ParamByName('OUT1').Value)]);
      Proc.Close;

      // ACTUAL : [Return Value : 5]~[Out Var: ABC]
      ShowMessage(Results);


      //IT WORKS!!
    end;
  finally
    FreeAndNil(Proc);
  end;

你试过使用TADOStoredProc吗？大家都知道，使用parametersTry调用q.ExecSQL并检查你的参数是可行的。@MatheusFreitas，请查看我的编辑…我试过了，但没有成功…可能是语法错误…或者参数初始化错误…如果有人能纠正我的错误，我会很高兴…@Jason calling
ExecSQL没有改变任何东西…所有相同的错误都会发生…@horgh检查我的回答我的错误是将返回值类型指定为
pOutput
，并尝试将一些查询而不是过程名称写入
ProcedureName
我们可以在Java中使用示例吗？