+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف يتم تحويل الصوره الى رقم والعكس ؟؟ (/showthread.php?tid=13475)
كيف يتم تحويل الصوره الى رقم والعكس ؟؟ - Microformt - 09-10-15
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف يتم تحويل الصوره الى رقم والعكس ؟؟
نامل من الله عمل مثال حول ذلك والله يحفظكم ويرعاكم
RE: كيف يتم تحويل الصوره الى رقم والعكس ؟؟ - silverlight - 09-10-15
انا ابتعدت عن الفيجوال 6 من زمان لكن اعتقد ان الفكرة ربما تكون واحدة و غالبا الصورة بيكون لها Handle او IntPtr عليك فقط ان تسترجع قيمته ابحث في النت تحت Image To IntPtr فيجوال بيسك 6
RE: كيف يتم تحويل الصوره الى رقم والعكس ؟؟ - Microformt - 09-10-15
(09-10-15, 05:54 PM)silverlight كتب : انا ابتعدت عن الفيجوال 6 من زمان لكن اعتقد ان الفكرة ربما تكون واحدة و غالبا الصورة بيكون لها Handle او IntPtr عليك فقط ان تسترجع قيمته ابحث في النت تحت Image To IntPtr فيجوال بيسك 6
اخي العزيز
إجابة غير موفقة !
RE: كيف يتم تحويل الصوره الى رقم والعكس ؟؟ - silverlight - 09-10-15
بما ان الإجابة غير موفقة حاول تتعلم كيف تقرأ Header structure الخاص بالصور لأن انا خبراتي في البرمجة صفر للاسف
RE: كيف يتم تحويل الصوره الى رقم والعكس ؟؟ - WAEL ABED - 10-10-15
شكرا لاستاذ
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
وشكرا