T.C.Kimlik Sorgu Robotu ( otomatik kod giriş sistemi )

mrmarman · Mesaj gönderen **mrmarman** » 06 Eyl 2007 04:52

- DNS sorunu yaşıyor olmalısın hocam. Farklı bir tane kullanıyorsanız DNS alanlarını boşaltıp telekomu kullanın şu an kontrol ettim URL çalışıyor.

- Bir de DNS kayıtlarında değişiklik olmuşsa Başlat / Çalıştır 'dan

Kod: Tümünü seç

IPConfig /flushdns

komutunu verin. Cache'deki ayarlar resetlenecektir.

dilekdurgun · Mesaj gönderen **dilekdurgun** » 19 Eyl 2007 06:45

mrmarman yazdı:
- Burada arka fonda çalışan bir WebBrowser var. Özel bir tane değil, forumdaki yazılarımdan da hatırlayacak olanlar vadır, sürekli Delphi'nin standart bileşenlerini kullanmaktan yana tercih kullanıyorum. Böylece geriye dönük uyum elde ediyorum. Yani kısaca TWebBrowser kullanılıyor.

- Indy'ye nazaran TWebBrowser'da iki türlü engelle karşılaştık.

2. Sorgu aşamasında kullanılan Java Script fonksiyonu çalıştırıldığında TWebBrowser'in readystate'inin daha sorgu sürüyorken dahi READYSTATE_COMPLETE halinde olması. Bu arada ekleyim, ne olursa olsun TWebBrowser.Busy durumu da hep TRUE halde kalıyor. Aslında bunun bir bug olduğunu değerlendiriyorum. İşlem yapılıyorken state değişikliği beklerdim.

- Arama işlemlerinde il/ilçe seçiminde bekleme yaşanmasını engellemek için Türkiye'nin İl ve İlçe kodlarını bir INI dosyasına yazdırdım. Bunun için küçük bir döngü sayesinde tüm illeri aynı sitede sorgulayarak klasik WEB HTML PARSE tekniği ile elde ettik.

Oncelikle cok guzel olmus prog. gorsellik bakimindan olsun code bakimindan olsun cok emek harcanmis..ellerinize saglik... gelelim benim sorunuma..html parse konusunda sizden fikir almak istiyorum codlar asagida bir inceleyin hatam nerde.hersey normal kod calisiyor . fakat bu kodu cok frame li bir sayfa da kullanmaya kalktigimda [ interface not supported] hatasi ile karsilasiyorum. forum daki butun parse ve html+parse ile ilgili olan tum sayfalari gezdim ama bir cozum bulamadim..

Kod: Tümünü seç

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs,mshtml, StdCtrls, OleCtrls, SHDocVw, ExtCtrls,ActiveX; 

type 
  TForm1 = class(TForm) 
    WebBrowser1: TWebBrowser; 
    Panel1: TPanel; 
    Button1: TButton; 
    Edit1: TEdit; 
    procedure FormActivate(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 
procedure IterateFrames(const AWB: IWebBrowser2); 
  var 
    Doc: IHTMLDocument2; 
    Container: IOleContainer; 
    Enumerator: ActiveX.IEnumUnknown; 
    Unknown: IUnknown; 
    Browser: IWebBrowser2; 
    Fetched: Longint; 
  begin 
    if (Assigned(AWB.Document)) 
       and (Supports(AWB.Document, IHTMLDocument2, Doc)) 
    then begin 
     if (Supports(Doc, IOleContainer, Container)) 
         and (Container.EnumObjects(OLECONTF_EMBEDDINGS, Enumerator) = S_OK) 
      then begin 
        while Enumerator.Next(1, Unknown, @Fetched) = S_OK do 
          if (Supports(Unknown, IWebBrowser2, Browser)) 
          then begin 
            showmessage(doc.body.outerhtml); 
            IterateFrames(browser); 
          end; 
      end; 
    end; 
  end; 

procedure WBLocateHighlight(WB: TWebBrowser; Text: string) ; 
const 
   prefix = '<span style="color:white; background-color: red;">'; 
   suffix = '</span>'; 
var 
   tr: IHTMLTxtRange; 
begin 
   if Assigned(WB.Document) then 
   begin 
     tr := ((wb.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange; 
     while tr.findText(Text, 1, 0) do 
     begin 
       tr.pasteHTML(prefix + tr.htmlText + suffix) ; 
       tr.scrollIntoView(True) ; 
     end; 
   end; 
end; 
procedure TForm1.FormActivate(Sender: TObject); 
begin 
webbrowser1.Navigate('http://www.google.com.tr/'); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
 WBLocateHighlight(WebBrowser1,Edit1.Text) ; 
 IterateFrames(WebBrowser1.DefaultInterface); 
end; 

end.

simdiden yardimlariniz icin tesekkurler..

mrmarman · Mesaj gönderen **mrmarman** » 20 Eyl 2007 01:39

Merhaba..

- Konu ile ilgili değil ama cevap vereyim... Frame olan sayfalarda Body aramamalısın ya da Try..Except bloğuna alarak hata kontrolü yapmalısın.

- Verdiğin koddaki gerekli düzeltmeleri / eklemeleri yaptım. Aşağıda veriyorum.

- Frame sayısı 0'dan fazla ise Frame vardır diyoruz ve Frame by Frame dolaşarak arama işlemi yaparak gerekli değişikliği her frame için ayrı ayrı yapıyoruz. Yoksa normal operasyon yapılıyor.

Kod: Tümünü seç

procedure WBLocateHighlight(WB: TWebBrowser; Text: string) ;
const
   prefix = '<span style="color:white; background-color: red;">';
   suffix = '</span>';
var
   tr     : Variant; // IHTMLTxtRange;
   i      : Integer;
begin
   if Assigned(WB.Document) then
   begin
     If WB.OleObject.Document.Frames.length > 0
     then begin // Frame var demektir. Her Frame için ayrı ayrı değerlendirmek lazım...
       For i := 0 to WB.OleObject.Document.Frames.length-1 do begin
         tr := WB.OleObject.Document.Frames.item(i).Document.Body.createTextRange;
         while tr.findText(Text, 1, 0) do
         begin
           tr.pasteHTML(prefix + tr.htmlText + suffix) ;
           tr.scrollIntoView(True) ;
         end;
       end;
     end else begin // Frame yoksa ana body işleme alınır...
       tr := ((wb.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange;
       while tr.findText(Text, 1, 0) do
       begin
         tr.pasteHTML(prefix + tr.htmlText + suffix) ;
         tr.scrollIntoView(True) ;
       end;
     end;
   end;
end;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  WBLocateHighlight(WebBrowser1, Edit1.Text) ;
end;

davut · Mesaj gönderen **davut** » 20 Eyl 2007 02:02

merhaba hocam,

Ellerinize sağlık, çok güzel bir çalışma olmuş.

bu programı kendi projelerimizde kullanabilmek için dışarıdan parametre alarak sonucu bir INI dosyası,vb bir dosyaya yazan hale getirseniz çok işe yarayabilir.

iyi çalışmalar...

mrmarman · Mesaj gönderen **mrmarman** » 20 Eyl 2007 02:14

- INI'ye gerek yok takvim veremiyorum ama bir DLL hazırlıycam.. O zaman aracı işleme gerek kalmaksızın sonuçları direkt yazılımınıza çekebilirsiniz. Daha önce yağmıştım sistem değişince kaldırmıştım. Aynı uygulamayı buna da yapabiliriz.

Mesaj gönderen **TRSoft** » 31 Eki 2007 12:54

s.a.

mrmarman yazdı: - Indy'ye nazaran TWebBrowser'da iki türlü engelle karşılaştık.

1. Navigasyon yapıldığında, ekranın tümüyle yüklenmesini beklemek için TWebBrowser'in readystate durumunu ele alarak bekleme yapmak gerekliliği.

2. Sorgu aşamasında kullanılan Java Script fonksiyonu çalıştırıldığında TWebBrowser'in readystate'inin daha sorgu sürüyorken dahi READYSTATE_COMPLETE halinde olması. Bu arada ekleyim, ne olursa olsun TWebBrowser.Busy durumu da hep TRUE halde kalıyor. Aslında bunun bir bug olduğunu değerlendiriyorum. İşlem yapılıyorken state değişikliği beklerdim.

@Muharrem hocam burada bahsedilen 2. sorunu halletmek için nasıl bir yol izlememizi tavsiye edersiniz...

SAYGILARIMLA

mrmarman · Mesaj gönderen **mrmarman** » 31 Eki 2007 01:09

- Bu durumda web sitesinin tepkilerini incelemeniz gerekiyor. Örneğin başka bir sayfaya redirect ediyorsa bu linki yakaladığınızda sayfa gelmiş demektir vb. çözümler. Mevzu bahis olan site hakkında bilgi verirsen bakar sana bir yol haritası çizerim.

Mesaj gönderen **TRSoft** » 31 Eki 2007 01:17

Hocam daha önce böyle bir çalışma yapmamışdım. Amacım biraz araştırma diyebiliriz.

Bende deneme amaclı T.C. Kimlik sayfasını kullanıyorum bakalım yapabilecekmiyim diye uğraşıyorum. Sonuca ulaşmakdaki tek sorun bahse konu sorun..

İl değiştiğinde veya sorgula düğmesine click yaptığımda readystate sonucu daha sorgu sürerken hep READYSTATE_COMPLETE olarak dönüyor..

Zaman ayırdığınız için teşekkür ederim..

mrmarman · Mesaj gönderen **mrmarman** » 31 Eki 2007 01:56

Şu aşamada T.C.Kimlik sayfasının OnDocumentComplete kısmında gelen InnderHTML verisine bakıldığında sonuç alınabilmektedir. Bu kanaldan çözüm bulabilirsin.

- Uygulaman şu olabilir. JavaScript uygulamayı çalıştırırsın, ardından da While WebBrowser.ReaduState = ReadyState_Complete diyeceğine While NOT bilgigeldi do şeklinde döngü kurarsın. BilgiGeldi boolean değişkeni ise birden fazla kere devreye giren OnDocumetComplete eventinden InnerHTML içeriğindeki kerteriz alacağın veri çerçevesinde tetiklenecektir. Örneğin son satırdaki veri de geldiğinde önceki tüm veri gelmiş demektir diyebilirsin. Böylece kendine aracı bir yeni event oluşturmuş gibi çalışabiliyorsun.[/b]

Mesaj gönderen **TRSoft** » 31 Eki 2007 03:15

@muharrem hocam teşekkür ederim.

InnerHtml ile sonuça ulaştım. Aslında biraz hokus pokus yapmış olduk galiba

Kolay gelsin...

mrmarman · Mesaj gönderen **mrmarman** » 31 Eki 2007 03:58

aynen dediğin gibi. Ayrıntılar projeleri daha akıllı yapıyor.

- Çalışmalarında başarılar...

ozanyazar · Mesaj gönderen **ozanyazar** » 04 Şub 2008 04:12

dilekdurgun yazdı:
mrmarman yazdı:
fakat bu kodu cok frame li bir sayfa da kullanmaya kalktigimda [ interface not supported] hatasi ile karsilasiyorum. forum daki butun parse ve html+parse ile ilgili olan tum sayfalari gezdim ama bir cozum bulamadim..
Kod: Tümünü seç
unit Unit1; 

interface 
[/quote][/quote]


"interface not supported" hatasıyla, çektiğimiz datayı EXCEL'e aktarırken yaşadık. Proğramı yapan oda arkadaşımla adım adım incelediğimizde ise EXCEL'e aktarma sorununu farkedince, OFİS programını sorunlu bilgisayardan kaldırıp, yeniden kurmaya karar verdik. Çünkü aynı proğram sadece benim bilgisayarımda sorun yaşıyor ve ben Pc de OfisXp varken, Ofis2007 kurdum, beğenmeyip kaldırdım ama çakışmalar oluştu, temizleyemedim. Sorun Ofis'in düzgün kurululmayışından/iki sürümünün kalıntılarının kalmasından kaynaklandı.

mrmarman · Mesaj gönderen **mrmarman** » 04 Şub 2008 08:05

Office 2007 ve / veya BETA sürümlerinin lisans süresi dolduğunda OleAutomation özelliği devre dışı kalıyor. Sorun bundan kaynaklı. Lisanslı bir Office 2007 bulursanız sorun olmuyor.

ozanyazar · Mesaj gönderen **ozanyazar** » 05 Şub 2008 09:08

OfisXp lisanslı,
Ofis2007 internetten indirdiğim bir proğramdı.
Ofis proğramlarını tamamen kaldırıp, MS Ofis Xp'yi yeniden kurdum, denedim sorun kalmadı.

ikutluay · Mesaj gönderen **ikutluay** » 05 Şub 2008 09:59

insanlar kod yazarken bir şeye dikkat etmeliler diye düşünüyorum. kullanıcı sizin donanımıza veya programlarınıza sahip olmak zorundamı. örneğin burada OLE otomasyon yapılıyor ama karşı makinede excel kurulu olmak zorunda gibi. oysa ben olayın donanım tarafındada çalışıyorum. şu anki işyerimdede open office geçişi yapıyoruz.. eski çalıştığım işyerindede sırf excele göre yazılmış ole kodları yüzünden bir sürü sıkıntı yaşanmıştı. bugün koca merkez bankası 2500 pc de open office kullanıyor.

ole kullanılacaksa benim fikrim her iki office içinde ayrı ayrı ole yazılmalıdır. sonuçta open office tede ole desteği var. yada doğrudan biff gibi excel formatına çıktı atılıp shell execute ile açtırılmalıdır. en idealide bu olur sanırım.

buradaki örnek basit bir program ama genede dikkat etmek lazım bu konuya

Delphi Forum

T.C.Kimlik Sorgu Robotu ( otomatik kod giriş sistemi )

Cok Frame i olan sayfa icinde parse....

Re: Cok Frame i olan sayfa icinde parse....