السلام عليكم ورحمة الله
إخواني الكرام، أردت برمجة دالة خارجية لـ FireBird (UDF) عن طريق الدلفي 2009، جربت الدالة في الدلفي عملت بنجاح، لكن في FireBird لا تعمل أي شئ ، ترجع لي نفس القيمة التي أدخلتها، أرجو مساعدتكم
function withowtTachkil(Const Text : PChar) : PChar; cdecl;
var
S : String;
L : string;
C : Char;
begin
S := string(Text);
for C := #$064E to #$0652 do
begin
S:= StringReplace(S,C,'',[rfReplaceAll]);
end;
L := S;
Result := Pchar(L);
end;بالتوفيق، وشكرا
السلام عليكم ورحمة الله
بعد تجريب كل الإحتمالات - الحمد لله - توصلت إلى مايلي :
function withowtTachkil(Const Text : PAnsiChar) : PAnsiChar; cdecl;
var
c: Char;
S : string;
AText ,R: AnsiString;
i,j : Integer;
begin
AText := AnsiString(Text);
S := UTF8ToWideString(A);
for C := #$064E to #$0652 do //الحركات
begin
S:= StringReplace(S,C,'',[rfReplaceAll]);
end;
R := UTF8Encode(S);
Result := PAnsiChar(R);
end;على ما يبدو، FireBird يرسل القيم النصية بترميز UTF8، لذلك يجب تحويلها إلى Unicode لتستطيع التعامل معها
من له شرح أوضح اهذه القضية فليتفضل
بالتوفيق وشكرا
أرجو منك أخي المساعدة لتعلم استعمال FIREBIRD مع دلفي
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…