Embarcadero® Delphi 10.2 Version 25.0.31059.3231
UniDAC 8.4.4
Microsoft SQL Server 2019 Developer Edition (64-bit) version 15.0.2080.9 (X64) on Windows 10 Pro
1) Create SQL Server stored procedure with output parameter
Code: Select all
CREATE OR ALTER PROCEDURE Test
(
@DataID UNIQUEIDENTIFIER
, @Result NVARCHAR(MAX) OUTPUT
)
AS
BEGIN
SET NOCOUNT ON;
SET @Result = LOWER( @DataID ) + N' / test';
RETURN 33
END
GO
DECLARE @TestID UNIQUEIDENTIFIER = 'E6E06644-A098-49E5-9B17-30CFF83C1537';
DECLARE @Rc INT
DECLARE @Res NVARCHAR(MAX)
EXECUTE @Rc = Test @TestID, @Res OUTPUT
SELECT @Rc, @Res
3) Create Delphi code
Code: Select all
var
rc: Integer;
Result: string;
begin
Conn.Open;
rc := Conn.ExecProc('test', ['E6E06644-A098-49E5-9B17-30CFF83C1537', Result]);
Conn.Close;
end;
What's wrong ?