mORMot Open Source

create procedure test(@param1 nvarchar(100) output) as
begin
	set @param1 = '1234567890'	
end;

function TForm3.paramTest: string;
var stmt: ISQLDBStatement;
    val: Variant;
    vConnProp: TOleDbConnectionProperties;
    con: TSQLDBConnection;
    res: string;
begin
    vConnProp := TOleDBMSSQLConnectionProperties.Create('db', 'dbname, 'usr', 'pass');
    val:= '';  //result will be 0 char
    val:= ' ';  //result will be 1 char.. and so on

    con := vConnProp.ThreadSafeConnection;
    con.Connect;
    stmt := con.NewStatementPrepared('exec test ? output ', false);

    stmt.BindTextS(1, val, paramOut);
    stmt.ExecutePrepared;
    stmt.ParamToVariant(1, val);
    result:= val
end;