Access SQL
[FORM] Web tarayıcısı denetimi hakkında. - Yazdırılabilir Sürüm

+- Access SQL (https://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (https://www.access-sql.com/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (https://www.access-sql.com/Forum-ACCESS-SORULARI)
+--- Konu: [FORM] Web tarayıcısı denetimi hakkında. (/Konu-Web-tarayicisi-denetimi-hakkinda)

Sayfalar: 1 2

Web tarayıcısı denetimi hakkında. - serdar2020 - 18-04-2015

Merhabalar;
Arkadaşlar ekteki örnekte https://support.microsoft.com/tr-tr/kb/285820 adresinden yararlanarak yaptığım örnek mevcut. Formdaki web tarayıcısına ilgili adresteki resimleri getiriyor. Bu resimleri WebTarayıcısının boyutuna uygun şekilde görüntülenmesi sağlanabilir mi?(genişletilmiş)



Cvp: Web tarayıcısı denetimi hakkında. - dsezgin - 18-04-2015

Sn serdar2020; 100% browser de ki nesneyi genisletir. Bekleme surelerini kendine gore ayarlarsin.
Visual Basic
  1. Function DisplayImageWeb(ctlBrowserControl As Object, strImgPath As String) As Boolean
  2.   Dim SayfaHTML As String
  3.   SayfaHTML = "<html>" & vbNewLine & _
  4.             "  <head>" & vbNewLine & _
  5.             "    <script>" & vbNewLine & _
  6.             "      function set_orientation(imgID){" & vbNewLine & _
  7.             "        var imgPass = document.getElementById('myImg');" & vbNewLine & _
  8.             "        var width = imgPass.width;" & vbNewLine & _
  9.             "        var height = imgPass.height;" & vbNewLine & _
  10.             "        if(width > height) {" & vbNewLine & _
  11.             "          imgPass.style.width = '100%';" & vbNewLine & _
  12.             "        } else {" & vbNewLine & _
  13.             "          imgPass.style.height = '100%';" & vbNewLine & _
  14.             "        }" & vbNewLine & _
  15.             "        return 0;" & vbNewLine & _
  16.             "      }" & vbNewLine & _
  17.             "    </script>" & vbNewLine & _
  18.             "  </head>" & vbNewLine & _
  19.             "  <body>" & vbNewLine & _
  20.             "    <div style='width: 100%'>" & vbNewLine & _
  21.             "      <img id='myImg' onload='set_orientation(" & Chr(34) & "myImg" & Chr(34) & ")' src='" & strImgPath & "' />" & vbNewLine & _
  22.             "    </div>" & vbNewLine & _
  23.             "  </body>" & vbNewLine & _
  24.             "</html>"
  25.  
  26.   With ctlBrowserControl
  27.     .Navigate "ABOUT_BLANK"
  28.     Call Bekleme(.Object)
  29.     If Len(SayfaHTML) Then
  30.       .Document.Write SayfaHTML
  31.      Call Bekleme(.Object)
  32.     End If
  33.   End With
  34.  
  35. End Function
  36.  
  37. Public Function Bekleme(WebSyf As Object, Optional Sure As Integer = 10) As Boolean
  38.  
  39.   Const READYSTATE_COMPLETE As Integer = 4
  40.   Dim Baslama As Date
  41.  
  42.   Baslama = Now
  43.   With WebSyf
  44.     Do While .ReadyState <> READYSTATE_COMPLETE
  45.       If DateDiff("s", Baslama, Now) > Sure Then Exit Function
  46.       DoEvents
  47.     Loop
  48.     Bekleme = .ReadyState = READYSTATE_COMPLETE
  49.   End With
  50.  
  51. End Function




Cvp: Web tarayıcısı denetimi hakkında. - serdar2020 - 19-04-2015

Merhabalar;
Hocam kusura bakmayın biraz geç dönüş yaptım. Modül deki eski kodları silip sizin verdiğiniz kodları ekledim. Butona tıklayınca ekteki hata geliyor. Müsait olduğunuz acaba tekrar bakabilir misiniz?
[attachment=17222]

Cvp: Web tarayıcısı denetimi hakkında. - dsezgin - 19-04-2015

Sn Serdar;
[attachment=17223] ornekte hata vermeden resimleri gosteriyor.

Cvp: Web tarayıcısı denetimi hakkında. - serdar2020 - 19-04-2015

Hocam emeginize saglik tam istedigim gibi oldu.
Son olarak bekleme surelerini kendin ayarlarsin demistiniz. Bu kismi biraz daha aciklayabilir misiniz. Bekleme fonksiyonu ne ise yariyor?
Moduldeki sure alani suan 10. Bu saniye mi oluyor?

İyi calismalar.

Cvp: Web tarayıcısı denetimi hakkında. - dsezgin - 19-04-2015

Sn serdar;
Bir baska yontem ise bilgisayariniza resimleri siteden indirme ile yapilabilir.
Soyle ki:
Formda Resim isimli Image tipinde nesne olusturun. Module asagida ki kodlari tasiyin.
Visual Basic
  1. Option Compare Database
  2. Declare PtrSafe Function URLIndirilenDosya Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
  3.   ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
  4. Function WebIndDosya(URL As String, ResimYeri As String) As Boolean
  5. On Error GoTo HataCik
  6. Dim CvpSayi As Long
  7.   CvpSayi = URLIndirilenDosya(0, URL, ResimYeri, 0, 0)
  8.   WebIndDosya= (CvpSayi = 0)
  9. Exit Function
  10. HataCik:
  11. MsgBox Err.Description
  12. End Function
  13. Function kopya(strImgPath As String) As Boolean
  14. Dim x As Boolean, Klasor As String,IndPic  As Variant
  15. Klasor = "D:\A1.jpg" '******* Buradaki klasor adini degistirebilirsiniz.*********
  16. If Dir(Klasor, vbNormal) <> "" Then Kill Klasor
  17. IndPic = WebIndDosya(strImgPath, Klasor)
  18. If IndPic = True Then
  19.         DoEvents
  20.         Forms("Form1")!Resim.Picture = Klasor
  21.         End If
  22. End Function


Form1 gecerli oldugu olay yordamina
Visual Basic
  1. Private Sub Form_Current()
  2. If IsNull(Me.txtImageName) Then DoCmd.RunCommand acCmdRecordsGoToFirst Else Call kopya(Me.txtImageName)
  3. End Sub


Kayit degisimi ile tabloda kayitli resim nesnesi Size Modu na gore ilgili resim gosterilecektir.
Resim degistiginde web de hata cikmamasi icin tolreansi. Hata almadiysaniz yazili olan uzerinden kullanabilirsin.