+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكنني قرائة التكويد للغه أقصد utf-8 (/showthread.php?tid=6547)
كيف يمكنني قرائة التكويد للغه أقصد utf-8 - أحمد 13 - 09-11-2014
السلام عليكم
نجحت بفضل الله في قرائة به ملف xml في مكون ميمو1
و لكن بعض ملفات xml مشفرة بتكويد للغه أقصد utf-8 .. فلا يمكنني القرائة بحيث تظهر رموز غريبة
فكيف اجعل ميمو1 يقرأ التكويد ؟ و جزاكم الله خيرا و نفع الله بكم
كيف يمكنني قرائة التكويد للغه أقصد utf-8 - onexite - 09-11-2014
من DSiWin32.pas
PHP كود :
function UTF8Encode(const ws: WideString): UTF8String;
begin
if ws = '' then
Result := ''
else begin
SetLength(Result, Length(ws)*3); // worst case - 3 bytes per character
SetLength(Result, WideCharBufToUTF8Buf(ws[1], Length(ws)*SizeOf(WideChar),
Result[1]));
end;
end; { UTF8Encode }
function UTF8Decode(const sUtf: UTF8String): WideString;
var
leftUtf: integer;
begin
if sUtf = '' then
Result := ''
else begin
SetLength(Result, Length(sUtf)); // worst case - 1 widechar per character
SetLength(Result, UTF8BufToWideCharBuf(sUtf[1], Length(sUtf), Result[1], leftUtf)
div SizeOf(WideChar));
end;
end; { UTF8Decode }
كيف يمكنني قرائة التكويد للغه أقصد utf-8 - S.FATEH - 09-11-2014
السلام عليكم
ماذا استخدمت لتحميل ملف xml ؟