Şimdi Ara

Ya Arkadaşlar Hiç mi Bilen Yok

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
5
Cevap
0
Favori
342
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • Ya arkadaşlar daha öncede yazmıştım benzerini ama çok önemli en azından CppWebBrowser komponenti ile bir web sitesi görüntülediğimde Browserin kaynak kodunu bir memo bileşenine nasıl alabilrim. TCppWebBrowser->Document özelliklerine baktım biraz bişey çıkartamamdım. Ole falan dönüşümleri gerekiyor sanırım. Yardımcı olabilecek arkadaş varmı acaba.
    C++ Builder 5.0 Ent.Sui. kullanıyorum.
    İyi çalışmalar.



  • AnsiString AnsiStr = AnsiString("d:\\aaa.htm"); // buraya istediğin web sayfası

    CppWebBrowser1->Navigate((WideString)AnsiStr);
    CppWebBrowser1->Refresh2();

    AnsiString HTMLData;
    IHTMLDocument2 *htm = NULL;

    if(CppWebBrowser1->Document &&
    SUCCEEDED(CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2,(LPVOID*)&htm))){
    IPersistStreamInit *spPsi = NULL; // ocidl.h
    if(SUCCEEDED(htm->QueryInterface(IID_IPersistStreamInit,(LPVOID*)&spPsi)) && spPsi) {
    IStream *spStream = NULL; // objidl.h
    OleCheck(CreateStreamOnHGlobal(NULL, false, &spStream));
    if(spStream) {
    __int64 nSize = 0;
    STATSTG ss;
    LARGE_INTEGER nMove;
    nMove.QuadPart = 0;
    OleCheck(spPsi->Save(spStream, true));
    OleCheck(spStream->Seek(nMove, STREAM_SEEK_SET, (ULARGE_INTEGER*)&nSize));
    OleCheck(spStream->Stat(&ss, STATFLAG_NONAME));
    nSize = ss.cbSize.QuadPart;

    HTMLData.SetLength(nSize);
    OleCheck(spStream->Read((void *)HTMLData.data(), nSize, (ULONG*)&nSize));
    }
    OleCheck(spStream->Release());
    }
    spPsi->Release();
    }
    htm->Release();
    Memo1->Lines->Add(HTMLData);


    Saygılar!




  • // Programın başına aşağıdaki satırı eklemen gerek

    #include <mshtml.h>
  • Teşekkürler MehmetCaner. Kod işime yaradı ama kodun başında söyle bir enterans karakterler çıkıyor sebebi nedir acaba.

     bu 3 karekter çıkıyor.

    Selamlar.
  • Merhaba,

    Ben kodu denedim. Bahsettiğin karakterler çıkmıyor.
    Sanırım bilgisayarınla ilgili farklı bir yerde sorunun var?

    Saygılar!
  • Yapay Zeka’dan İlgili Konular
    Bu ne böceği? Bilen var mı ?
    3 yıl önce açıldı
    Daha Fazla Göster
    
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.