تحويل ملف الصوت mid الى HEX لارسالة كنغمة لجوال, ارجو المساعدة العاجلة

[سيف جرافيكس]

بسم الله الرحمن الرحيم

بعد عناء كبير في البحث في الانترنت وجت دالة للتحويل من النغمات الخاصة بالجوال بمتداد MID الى نظام MEX

Function HexConvert(ByVal strFileName As String) As String
Dim s As String
Dim hx As String
Open strFileName For Binary Access Read As 1
hx = ""
While (Not EOF(1))
   c = Input$(1, 1)
   If (c <> "") Then
       s = Hex(Asc(c))
       If (Len(s) = 1) Then
           hx = hx + "0" + s
       Else
           hx = hx + s
       End If
   End If
Wend
HexConvert = hx
End Function

وحاولت اطبق عليها ماقدرت ارجو المساعدة

كلما بان هذه الدالة تقبل التحويل لملفات الصور والاصوات