التحويل من Hex To Base64 Delphi 7 - نسخة قابلة للطباعة

التحويل من Hex To Base64 Delphi 7 - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التحويل من Hex To Base64 Delphi 7 (/showthread.php?tid=11721)

التحويل من Hex To Base64 Delphi 7 - Eagle - 25-12-2021

سلام عليكم
مساء الخير للجميع
ارجوا المساعدة في تحويل من Hex إلى bass64 دلفي 7
مثال Hex 010C426F6273205265636F726473020F3331303132323339333530303030330314323032322D30342D32355431353A33303A30305A0407313030302E303005063135302E3030

Base64 يكون AQxCb2JzIFJlY29yZHMCDzMxMDEyMjM5MzUwMDAwMwMUMjAyMi0wNC0yNVQxNTozMDowMFoEBzEwMDAuMDAFBjE1MC4wMA==

لدي مثال على C# يعمل وأريد عمله على Delphi7

كود :
public static string HexToBase64(string strInput)
        {
            try
            {
                var bytes = new byte[strInput.Length / 2];
                for (var i = 0; i < bytes.Length; i++)
                {
                    bytes[i] = Convert.ToByte(strInput.Substring(i * 2, 2), 16);
                }
                return Convert.ToBase64String(bytes);
            }
            catch (Exception)
            {
                return "-1";
            }
        }