[Microformt]

الاخوه الكرام
 السلام عليكم ورحمة وبركاته
كيف يتم تحويل الصوره الى رقم  والعكس ؟؟
 نامل من الله عمل مثال حول ذلك والله يحفظكم ويرعاكم

[silverlight]

انا ابتعدت عن الفيجوال 6 من زمان لكن اعتقد ان الفكرة ربما تكون واحدة و غالبا الصورة بيكون لها Handle او IntPtr عليك فقط ان تسترجع قيمته ابحث في النت تحت Image To IntPtr فيجوال بيسك 6

[Microformt]

(09-10-15, 05:54 PM)silverlight كتب : انا ابتعدت عن الفيجوال 6 من زمان لكن اعتقد ان الفكرة ربما تكون واحدة و غالبا الصورة بيكون لها Handle او IntPtr عليك فقط ان تسترجع قيمته ابحث في النت تحت Image To IntPtr فيجوال بيسك 6

 اخي العزيز
إجابة غير موفقة !

[silverlight]

بما ان الإجابة غير موفقة حاول تتعلم كيف تقرأ Header structure الخاص بالصور لأن انا خبراتي في البرمجة صفر للاسف

[WAEL ABED]

شكرا لاستاذ 
silverlight

اتفضل الكود التالى للتحويل لرقم 

PHP كود :

[align=left]
Public Function Encode(Data As String, Optional Depth As Integer) As String
    
    Dim TempChar As String
    Dim TempAsc As Integer
    Dim NewData As String
    Dim vChar As Integer
    
    For vChar = 1 To Len(Data)
        TempChar = Mid$(Data, vChar, 1)
        TempAsc = Asc(TempChar)
        If Depth = 0 Then Depth = 40 'DEFAULT DEPTH
        If Depth > 254 Then Depth = 254
        
        TempAsc = TempAsc + Depth
        If TempAsc > 255 Then TempAsc = TempAsc - 255
        TempChar = Chr(TempAsc)
        NewData = NewData & TempChar
    Next vChar
    Encode = NewData
    
End Function
[/align] 


لاسترجاع الصورة من الرقم 

PHP كود :

Public Function Decode(Data As String, Optional Depth As Integer) As String
    
    Dim TempChar As String
    Dim TempAsc As Integer
    Dim NewData As String
    Dim vChar As Integer
    
    For vChar = 1 To Len(Data)
        TempChar = Mid$(Data, vChar, 1)
        TempAsc = Asc(TempChar)
        If Depth = 0 Then Depth = 40 'DEFAULT DEPTH
        If Depth > 254 Then Depth = 254
        TempAsc = TempAsc - Depth
        If TempAsc < 0 Then TempAsc = TempAsc + 255
        TempChar = Chr(TempAsc)
        NewData = NewData & TempChar
    Next vChar
    Decode = NewData
    
End Function
     


وشكرا