تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف يتم تحويل الصوره الى رقم والعكس ؟؟
#1
Question 
الاخوه الكرام
 السلام عليكم ورحمة وبركاته
كيف يتم تحويل الصوره الى رقم  والعكس ؟؟
 نامل من الله عمل مثال حول ذلك والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#2
انا ابتعدت عن الفيجوال 6 من زمان لكن اعتقد ان الفكرة ربما تكون واحدة و غالبا الصورة بيكون لها Handle او IntPtr عليك فقط ان تسترجع قيمته ابحث في النت تحت Image To IntPtr فيجوال بيسك 6
الرد }}}}
تم الشكر بواسطة: WAEL ABED
#3
(09-10-15, 05:54 PM)silverlight كتب : انا ابتعدت عن الفيجوال 6 من زمان لكن اعتقد ان الفكرة ربما تكون واحدة و غالبا الصورة بيكون لها Handle او IntPtr عليك فقط ان تسترجع قيمته ابحث في النت تحت Image To IntPtr فيجوال بيسك 6

 اخي العزيز
إجابة غير موفقة ! Huh Huh Huh Huh Huh Huh Huh
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#4
بما ان الإجابة غير موفقة حاول تتعلم كيف تقرأ Header structure الخاص بالصور لأن انا خبراتي في البرمجة صفر للاسف
الرد }}}}
تم الشكر بواسطة: WAEL ABED
#5
شكرا لاستاذ 
silverlight

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

PHP كود :
[align=left]
Public Function 
Encode(Data As StringOptional 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$(DatavChar1)
        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 StringOptional 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$(DatavChar1)
        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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحويل من hex الى string wolf1120 3 152 02-10-17, 09:04 PM
آخر رد: wolf1120
  [كود] تحويل تاريخ الى نص Microsoft Visual Basic 6.0 4 80 22-09-17, 01:46 AM
آخر رد: Microsoft Visual Basic 6.0
  تحويل من الهيكس الى الديسمال wolf1120 1 74 21-09-17, 06:41 PM
آخر رد: أبو نوره
Question [vb6.0] كيف اجعل الصوره تتوسط الفورم سوى كان عند التكبير او التصغير ؟ Microformt 1 94 05-09-17, 10:22 PM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف انشي زر امر يحول موشر الكتابة من عربي الى انجليزي والعكس ؟؟ Microformt 3 95 04-09-17, 05:21 PM
آخر رد: Microformt
  طلب تحويل قاعدة بيانات أكس إلى ملف dll مصمم هاوي 2 132 16-07-17, 08:01 AM
آخر رد: مصمم هاوي
Question [vb6.0] هل يمكن ان افعل هذا الخيار الموجود في الصوره على جميع إصدارات وندز من خلال البرمجة؟؟ Microformt 3 148 15-07-17, 07:24 PM
آخر رد: مصمم هاوي
Question [vb6.0] كيف يمكن إضافة ايقونات الى قائمة المستخدمين في برنامجي المرفق مثال الذي في الصوره ؟ Microformt 2 423 18-01-17, 11:53 AM
آخر رد: Microformt
  [vb6.0] كيف اجعل عند إدارج مسار الصورة في Text تظهر الصوره في برنامج المرفق ؟؟ Microformt 1 321 07-10-16, 12:37 PM
آخر رد: Amir_alzubidy
  [سؤال] تحويل النص من ping الى text (التعرف على النصوص) hsansalhh 4 402 26-06-16, 01:52 PM
آخر رد: hsansalhh

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم