25-12-2021, 06:42 PM
سلام عليكم
مساء الخير للجميع
ارجوا المساعدة في تحويل من Hex إلى bass64 دلفي 7
مثال Hex 010C426F6273205265636F726473020F3331303132323339333530303030330314323032322D30342D32355431353A33303A30305A0407313030302E303005063135302E3030
Base64 يكون AQxCb2JzIFJlY29yZHMCDzMxMDEyMjM5MzUwMDAwMwMUMjAyMi0wNC0yNVQxNTozMDowMFoEBzEwMDAuMDAFBjE1MC4wMA==
لدي مثال على C# يعمل وأريد عمله على Delphi7
مساء الخير للجميع
ارجوا المساعدة في تحويل من 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";
}
}