عرض صورة من عنوان URL

[Foksh]

السلام عليكم ورحمة الله وبركاته..

كيف يمكن عرض صورة من خلال عنوان انترنت داخل النموذج 😅 ؟

[kanory]

33 دقائق مضت, Foksh said:

كيف يمكن عرض صورة من خلال عنوان انترنت داخل النموذج

وعليكم السلام أخي @Foksh هذا الملف يفيدك

 

kan.accdb

[Foksh]

مشكوووور يا غالي  @kanory

سأقوم بالتجربة غداً في العمل ، في المنزل ليس لدي انترنت 🤗

[Foksh]

في 21‏/2‏/2024 at 22:15, kanory said:

وعليكم السلام أخي @Foksh هذا الملف يفيدك

 

kan.accdb 424 kB · 6 downloads

أستاذ @kanory ، أشكرك جداً على مساهمتك الجميلة ،

الفكرة حلوة ولكن هي تعتمد على تنزيل الصورة من المصدر وبعد ذلك يتم عرضها على أنها من مسار داخلي وليس من مسار خارجي URL .

 

[kanory]

35 دقائق مضت, Foksh said:

أستاذ @kanory ، أشكرك جداً على مساهمتك الجميلة ،

الفكرة حلوة ولكن هي تعتمد على تنزيل الصورة من المصدر وبعد ذلك يتم عرضها على أنها من مسار داخلي وليس من مسار خارجي URL .

 

كلام صحيح استاذي @Foksh 

حاولت اجد طريقة لعرضها مباشرة .. لم اتوصل اليها ... جاري المحاولة ... طيب لو كان عرض الصورة في متصفح مدرج في النموذج مناسب لعملك ... لاني لم اجربها هل تنجح ام لا ...

[Foksh]

14 دقائق مضت, kanory said:

كلام صحيح استاذي @Foksh 

حاولت اجد طريقة لعرضها مباشرة .. لم اتوصل اليها ... جاري المحاولة ... طيب لو كان عرض الصورة في متصفح مدرج في النموذج مناسب لعملك ... لاني لم اجربها هل تنجح ام لا ...

لنر إبداعاتك استاذنا الغالي ، فكرة جميلة وقد يكون لها تطوير لغايات أخرى 

[ابوخليل]

مشاركة مع احبتي  .. وهو مجرد رأي

رأيي ان الطريقة في المثال كافية ومثالية بدلا من الزحمة وعمل متصفح داخل النموذج

ولتلافي تراكم الصور  يتم حذف الصورة آليا عند غلق النموذج

[Foksh]

بالفعل .. وجهة نظر قوية معلمنا و أستاذنا الفاضل @ابوخليل 

[kanory]

طيب شوف كدة ..... بداية ...

 

kan_1.accdb

[kanory]

[Foksh]

لم يتم تغيير اللوكيشن 

[kanory]

2 دقائق مضت, Foksh said:

اللوكيشن

لم افهم ؟؟؟؟

[Foksh]

22 ساعات مضت, ابوخليل said:

ولتلافي تراكم الصور  يتم حذف الصورة آليا عند غلق النموذج

أستاذنا @ابوخليل ، قمت بتطبيق فكرتك بأن يتم حذف الصورة عند اغلاق التطبيق ، ولكن وجدت مشكلة أنه عند تحميل الصورة من رابط قد تم حذف صورته عند الاغلاق فإنه لا يقوم بعرض الصورة مرة أخرى أو حتى تحميلها .. فهل برأيكم من حل ؟

طبعاً تمت تجربة الرابط على ملف آخر وتم تحميل الصورة أول مرة ، وعند الاغلاق وحذفها ثم اعادة فتح النموذج فإنه لا يقوم بتحميل الصورة مرة أخرى 

[ابوخليل]

عجيب !!

هذا لا يتصور وغير منطقي !!!! المسألة فيها إنّ 

المنطق يقول : حذف الصورة من المجلد .. لا علاقة له من قريب او بعيد  بالرابط وجلب الصورة منه

حاولت ابحث عن موقع يشتمل على صورة ووجدت  ... وعملت الحذف  ... وحذفت .. ثم جلبت مرة وحذفت .. ومرات وحذفت ...

جرب المرفق

 

kan.rar

[Foksh]

1 ساعه مضت, ابوخليل said:

عجيب !!

هذا لا يتصور وغير منطقي !!!! المسألة فيها إنّ 

المنطق يقول : حذف الصورة من المجلد .. لا علاقة له من قريب او بعيد  بالرابط وجلب الصورة منه

حاولت ابحث عن موقع يشتمل على صورة ووجدت  ... وعملت الحذف  ... وحذفت .. ثم جلبت مرة وحذفت .. ومرات وحذفت ...

جرب المرفق

 

kan.rar 29.24 kB · 0 downloads

وانا استعجبت تماماً مثلك أستاذي الفاضل . لذا توجهت الى ايجاد طريقة دون الإضطرار الى تحميل الصورة لتلافي مشكلتي التي واجهتني والتي لربما لنسخة الأوفيس أو الإصدار علاقة بالأمر . على العموم تم الحل بما يلي :-

في هذا الحدث Form_Current ، يتم تنفيذ الكود عندما يتم تغيير السجل الحالي في النموذج.

Private Sub Form_Current()
   On Error GoTo catch
    Dim imageURL As String
    imageURL = Me.texturl.Value
    
    If Len(imageURL) > 0 Then
        Me.Image45.pictureData = GetPictureData(imageURL)
    Else
        Me.Image45.pictureData = ""
    End If
catch:
    Resume Next
End Sub

 

يتم استخدام Me.texturl لاسترجاع قيمة الرابط من حقل النص الذي يحتوي على عنوان الصورة .

إذا كان الرابط غير فارغ (Len(imageURL) > 0) ، يتم استخدام الرابط لجلب الصورة باستخدام الدالة GetPictureData ، ويتم تعيين البيانات المسترجعة إلى حقل الصورة Me.Image45.PictureData في النموذج . أما إذا كان الرابط فارغًا ، يتم تعيين قيمة فارغة لحقل الصورة .

 

كود الدالة GetPictureData 

Function GetPictureData(ByVal imageURL As String) As Variant
    Dim webClient As Object
    Set webClient = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    
    On Error Resume Next
    webClient.Open "GET", imageURL, False
    webClient.setRequestHeader "Content-Type", "image/jpeg"
    webClient.send ""
    
    If webClient.Status = 200 Then
        GetPictureData = webClient.responseBody
    Else
        GetPictureData = ""
    End If
    On Error GoTo 0
    
    Set webClient = Nothing
End Function

 

 

Pic From URL.accdb