Discussion forums for open issues and questions concerning database tools, data access components and developer tools from Devart
https://forums.devart.com/
Code: Select all
var
Query: TUniQuery;
begin
UniConnection.Connect;
Query := TUniQuery.Create(Nil);
try
Query.Connection := UniConnection;
Query.SQL.Text := 'Begin DBMS_Output.Enable(20000); End;';
Query.Execute;
// DBMS_Output.Put_Line
Query.SQL.Text := 'Begin DBMS_Output.Put_Line(''Hello''); End;';
Query.Execute;
// DBMS_Output.Get_Line
Query.SQL.Text := 'Begin DBMS_Output.Get_Line(:LineValue, :Status); End;';
Query.ParamByName('LineValue').ParamType := ptOutput;
Query.ParamByName('LineValue').DataType := ftString;
Query.ParamByName('Status').ParamType := ptOutput;
Query.ParamByName('Status').DataType := ftInteger;
Query.Execute;
ShowMessage(Query.ParamByName('LineValue').AsString);
finally
Query.Free;
end;
end;