Kod: Tümünü seç
unit Unit1;
interface
function Topla(var i,j:integer):integer;cdecl;export;
function StrUzunlugu(STR:pchar):integer;cdecl;export;
implementation
function Topla(var i,j:integer):integer;
begin
result:=i+j;
end;
function StrUzunlugu(STR:pchar):integer;
begin
result:=Length(STR);
end;
end.
Kod: Tümünü seç
library UDF_Dosyam;
uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas';
{$R *.res}
exports Topla, StrUzunlugu;
begin
end.
Kod: Tümünü seç
declare external function UDFEM
integer,
integer
returns integer by value
entry_point 'topla' module_name 'UDF_Dosyam'
Kod: Tümünü seç
create procedure UDF_DENEME(a integer, b integer)
returns(toplam integer)
as
declare variable sayi integer;
begin
toplam=udfem(:a,:b);
end;
Kod: Tümünü seç
Cannot commit transaction:
Invalid token.
invalid request BLR at offset 54.
function UDFEM is not defined.
module name or entrypoint could not be found.