delphi - Delphi Postgres 存储过程

Question

我正在开发处理存储过程的Delphi应用程序。我为插入语句创建了存储过程，它适用于我的应用程序。现在，我想为 select 语句创建相同的语句。

CREATE TYPE list_all_firstname AS ( first_name character varying);  

CREATE FUNCTION select_sp()   
RETURNS SETOF list_all_firstname AS  
$$  
DECLARE  
rec record;  
BEGIN  
  FOR rec IN (SELECT first_name FROM person) LOOP  
  RETURN NEXT rec;  
END LOOP;  
END;  
$$ LANGUAGE plpgsql;  

电话是：

SELECT * FROM select_sp();

直到这一切在 postgres 中都很好。我想在我的 delphi 应用程序中访问这个存储过程。我的代码是：

 with StoredProc2 do begin
     StoredProcName :='select_sp';
     ExecProc;
     Edit5.Text:=ParamByName('list_all_firstname').AsString ;
    end;

但是我收到错误消息“找不到对象”。如何在delphi中访问存储过程的返回值？

Answer 1

我得到了答案。.could not find object is BDE error...接下来是访问值，不需要使用存储过程组件。我们可以使用TQuery如下...：

  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM select_sp()');
  Query1.Active := True;

  for i:=0 to Query1.RowsAffected-1 do
          begin
             sval:=Query1.FieldByName('first_name').AsString;
             ShowMessage(sval);
             Query1.Next;
          end;