iBase.ru Forum

Код: Выделить всё

library my_udf;

uses
  SysUtils;

function malloc(Size: Integer): Pointer; cdecl; external 'msvcrt.dll';

function StrUpperCase(sz1: PChar): PChar; cdecl; export;
var
  S: string;
begin
  S := AnsiUpperCase(sz1);
  Result := malloc(Length(S) + 1);
  StrPCopy(Result, S);
end;

exports
  StrUpperCase;

begin
end.

Код: Выделить всё

DECLARE EXTERNAL FUNCTION FN_UPPER_CASE
    CSTRING(200)
RETURNS CSTRING(200) FREE_IT
ENTRY_POINT 'StrUpperCase' MODULE_NAME 'my_udf'

Код: Выделить всё

SELECT
    FN_UPPER_CASE('qwe')
FROM
    RDB$DATABASE