منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف يتم تحويل الصوره الى رقم والعكس ؟؟

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

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

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

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

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

شكرا لاستاذ
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
     

وشكرا

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Microformt

silverlight

Microformt

silverlight

WAEL ABED