UDF_Ismi(String,integer):integer; Sonuç Yanlış Dönüyor :(

[huseyinkucuk]

Arkadaşlar merhaba...
UDF konusunda bir sıkıntım var.
Umarım yardımcı olabilirsiniz...

Delphide UDF için yazdığım dll dosyası şu şekilde;

Kod: Tümünü seç

unit Unit1;

interface
uses SysUtils, ib_util;

function KategoriBul(HesapNo:Pchar; Kategori:integer):integer;cdecl;export;

implementation

function KategoriBul(HesapNo:Pchar; Kategori:integer):integer;
begin
  result:=strtoint(copy(HesapNo,1,Kategori));
end;

end.

Kod: Tümünü seç

library UDF_DOSYAM;

uses
  SysUtils,
  Classes,
  Unit1 in 'Unit1.pas';

{$R *.res}

exports KategoriBul;
begin
end.

FireBirdde de şu şekilde komut yazarak UDFyi oluşturuyorum:

Kod: Tümünü seç

declare external function Kategori
CString(32767),integer
returns integer by value
entry_point 'KategoriBul' module_name 'UDF_DOSYAM'

Bütün bunlar sonucunda firdbird'de 'Kategori' adında bir UDF oluşuyor...
Bu UDF'yi "Select KategoriBul('12345',2) from RDB$DATABASE" şeklinde SQL editöre yazdığım zaman geriye "12" sayısının dönmesini bekliyor iken "12345" sayısı döndü... Problemi bir türlü çözemedim... Yardımcı olursanız sevinirim.
Herkese iyi çalışmalar...