webbrowser nesnesinden kopyalama sorunu

[Ancestor]

Forumda kopyalama - kopyala yapıştır şeklinde aradım ama bulamadım.
Programımda webbrowser nesnesini kullandım, açılan sayfalardaki herhangi bir yerdeki yazıları kopyalayamıyorum.
Ctrl + C yada Ctrl + insert işe yaramıyor.
Bunu nasıl yapabilirim ?

Edit : Mesela enter tuşu da işlevsel değildi, forumda kısa bir araştırmadan sonra onu yaptım, acaba diyorum o kodların benzerleri ile yapmak mümkün mü

[Ancestor]

bu konu hakkında kimsenin bir fikri yokmu yaa

[Fatih!]

Kod: Tümünü seç

//adından da anlaşıldığı gibi webbrowser içindeki yazıları kopyala-yapıştır yapmak

//selectall olayı
//webbrowser içindeki tüm yazıları seçili hale getirir
WebBrowser1.ExecWB(OLECMDID_SELECTALL,OLECMDEXECOPT_DODEFAULT    ) ;

//kopyalama olayı
//cwebbrowser içindeki yazıları clipboard'a kopyalar
WebBrowser1.ExecWB(OLECMDID_copy ,OLECMDEXECOPT_DODEFAULT    ) ;

//daha sonra clipboard'daki bir yazıyı bir yere kopyalamak için
richedit1.pastefromclipboard;

//yada

memo1.pastefromclipboard;

[Ancestor]

beceremedim
extradan yapılacak birşey var mı ?

[Delhici]

verilen kodları ...

Kod: Tümünü seç

try except

blokları arasına yaz...program exe halinde çalışırken sorun vermeyecektir.. Kolay gelsin..

[Ancestor]

hmm teşekkürler
peki ya webbrowser da açılan sayfada frame kullanılmışsa; hangi frame in içindekileri kopyalayacağını nasıl belirtebiliriz ?

[Ancestor]

Bu konuda bilgisi olan yok mu ?
webbrowser da açılan sayfada frame kullanıldı. Hangi frameden kopyalayacağını nasıl belirtebilirim ?

NOT: Açılan sayfaya javascript kodu ekliyorum ama delphi javascript kodunuda çalıştırmıyor. Aslında çalışıyor ama kopyalama işlemini yapmıyor.

[mrmarman]

Merhaba...

- DivXTurk projesinde aynı sorun karşıma çıkmış ama yeni explorer penceresi açtırıp çözümlemeyi yeğlemiştim. (WebBrowser içerisinden mouse ile select edip kopyala sonra başka yerde yapıştır yapma olayı) Ama daha sonra çözümü bulmuştum.

- Programın en sonundaki end.'dan hemen önceye şu satırları ekle sorun kalmıyor...

- Ek olarak Uses satırına ActiveX eklemeyi ihmal etme..

Kod: Tümünü seç

initialization
 OleInitialize(nil);
finalization
 OleUninitialize;

- Frame için çözüm üretip üretmeyeceği takdir edeceksin ki hangi sayfa ve ne tip frame kullandığını bilemediğimden değerlendirme yapamıyorum.

- Ekstra sağ mouse tuş engeli vb. durumlar için; ne tip kodlarla engellendiğini tespit edip ona göre tespit edilen kodaların ayıklanarak, offline navigate edilmesi ile aşılabileceğini düşünüyorum.