Bulunan 1 den 3 - Toplam 3
web sayfası kaynak görüntüleme - inet kullanımı - - Programlama - Ceviz Forum
  1. #1
    Ceviz Üyesi
    Üyelik Tarihi
    18-Nisan-2007
    Mesaj
    9

    Varsayılan web sayfası kaynak görüntüleme - inet kullanımı

    web sayfalarının kaynak kodlarını görüntülemek için inet kullanıyorum.
    kullandığım kod sadece şu;

    Text1.Text = Inet1.OpenURL("www.xxx.com.tr")

    sürekli zamanaşımına uğruyor bağlantı. nedeni ne olabilir sizce??

    aynı hatayı çoğu sayfada almıyorum.

    zamanaşımı süresini 10 dakikaya kadar çıkardım nafile

    bi türlü çekemiyo kodları.

    önerebileceğiniz farklı bi yöntem var mı?
    Skeleton arkadaşımız daha önce forma eklenen webbrowserdaki sayfanın kodlarını görüntülemek için
    webbrowser1.document.body.innerhtml
    diye bi kod önermiş.

    bi webbrowser ekleyip sayfaya bağlandım. WebBrowser1_DocumentComplete olayına da
    Text1.Text = Inet1.OpenURL("www.milliyet.com.tr") dedim

    direk çekti kodları. ama sayfayı yüklerken webbrowser sürekli hata verdiği için işim uzuyo.

    sözün kısası kaynak görüntüleme için pratik başka bi yol var mı?

  2. #2
    Ceviz Üyesi Cihan Yakar Üyenin Avatarı
    Üyelik Tarihi
    08-Temmuz-2003
    Nereden
    Ankara
    Mesaj
    5,874

    Varsayılan

    Xmlhttp tabiki...


    http://www.ceviz.net/http-protokolu-...s_s2_a907.html
    Kod:
    Dim gezer As New XMLHTTP                            ' Gezer deişkeninin yeni bir xmlhttp olarak tanımla 
    
    Private Sub cmdBaglan_Click()
        On Error GoTo hata                              ' Desteklenmeyen sayfa olursa hata etiketine git
        
        gezer.open "GET", txtAdres.Text, False          ' Get metodu ile sayfayı çağır
        lblDurum.Caption = "Veri Alınıyor"              ' Durum
        lblDurum.Refresh
        cmdBaglan.Enabled = False                       ' Peş peşe tıklanmayı engelle
        gezer.send ""                                   ' Eğer asp, php ,cgi gibi değişken kullanan bir sistem varsa buradan değişken leri yollayabiliriz
        
        If CLng(gezer.Status) = 200 Then                ' Dönüş olarak 200(http ok) gelmiş ise
            lblDurum.Caption = "Tamam"                  ' Durum
            txtDonus.Text = gezer.responseText          ' Dönen içeriği yazı olarak kutuya aktar
        Else                                            ' 200 değilse, muhtemelen 404 ,500 gibi hata kodu dönmüştür
            lblDurum.Caption = "Sayfa Görüntülenemiyor" ' Durum
        End If
        
          cmdBaglan.Enabled = True                      ' Butonu tekrar aktifleştir
    Exit Sub                                            ' Alt programdan çık
            
    hata:                                               ' etiket
        cmdBaglan.Enabled = True                        ' Butonu aktifleştir
        lblDurum.Caption = "Geçersiz Adres"             ' Durum
    End Sub
    Blog Adresim
    LIGHTSWITCH

  3. #3
    Ceviz Üyesi
    Üyelik Tarihi
    18-Nisan-2007
    Mesaj
    9

    Varsayılan

    çok fazla aradım ama görmemişim senin makaleni.
    çok teşekkür ettim. kendi bilgisayarıma gidince deneyecem.

    bu arada 65000 karakter sorunu için de sormuştum ama yazında basetmişsin zaten mesajı düzelttim.
    daha önce görmemiştim o componenti. tekrar teşekkür ettim...

Konu Bilgileri

Bu Konuya Gözatan Kullanıcılar

Şu anda 1 kullanıcı bu konuyu görüntülüyor. (0 kayıtlı ve 1 misafir)

Yer İmleri

Mesaj Yetkileriniz

  • Yeni konu açmaya yetkiniz yok
  • Cevap yazmaya yetkiniz yok
  • Eklenti yüklemeye yetkiniz yok
  • Mesajınızı düzeltmeye yetkiniz yok
  •