Ya Arkadaşlar Hiç mi Bilen Yok

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Ya Arkadaşlar Hiç mi Bilen Yok

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

4
Cevap 350
Tıklama 0
Öne Çıkarma

1. sayfa

Ya Arkadaşlar Hiç mi Bilen Yok

Cevap Yaz

ahyilmaz

20 yıl

Onbaşı

Konu Sahibi

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.

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

MehmetCaner

20 yıl

Çavuş

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!

Bu mesaja 1 cevap geldi.

MehmetCaner

20 yıl

Çavuş

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

#include <mshtml.h>

Bu mesaja 1 cevap geldi.

ahyilmaz

20 yıl

Onbaşı

Konu Sahibi

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.

Bu mesaja 1 cevap geldi.

MehmetCaner

20 yıl

Çavuş

Merhaba,

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

Saygılar!

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Ya Arkadaşlar Hiç mi Bilen Yok