Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: 1 [2]  Hepsi   Aşağı git

Gönderen Konu: webbrowser bilgi gönderme  (Okunma sayısı 6522 defa)

0 Üye ve 2 Ziyaretçi konuyu incelemekte.

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: webbrowser bilgi gönderme
« Yanıtla #15 : 30 Aralık 2007 19:59:28 »
Yapman güzel bir şey fakat, yarın sayfanın dizaynı değişince ne olacak?
Kayıtlı

Çevrimdışı sadik12

  • Delphi 2 Level 3
  • ***
  • İleti: 79
  • Rep: +0/-1
Ynt: webbrowser bilgi gönderme
« Yanıtla #16 : 30 Aralık 2007 20:01:12 »
yani bende onda diyorum tekrar tekrar iş bi yolu olmalı ben en azından bulamassam diye yaptım yarın teslim edicem
Kayıtlı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.229
  • Rep: +55/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: webbrowser bilgi gönderme
« Yanıtla #17 : 31 Ocak 2008 20:35:39 »
Açık kaynak kısmında paylaştığım sigorta sicili sorgulayan programım ..
İnternet Üzerindeki bir formu nasıl doldurcağına yardımcı olabilir..

http://rapidshare.com/files/69696047/Yeni_Klasoer.rar.html
Kayıtlı



Amatör Küme Programcı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.229
  • Rep: +55/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: webbrowser bilgi gönderme
« Yanıtla #18 : 29 Haziran 2009 02:37:36 »
doğrulama kodunu göstermek için

Kod:  (Unknown Language)
  1.  
  2. Function AradanSec( text, ilk, son:widestring ): String;   // html parse için fonksiyon
  3. begin                                                                        
  4.    Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);          
  5.    Result := Copy(Text, 1, Pos(Son, Text)-1);              
  6. end;                                                                        
  7.  
  8. function indir(Source, Dest : String): Boolean;        //  RESMİ DOWNLOAD ETMEK İÇİN FONKSİYON                            
  9. begin                                                                                                  
  10. try                                                                                                      
  11. Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0    
  12. except                                                                                                
  13. Result := False;                                                                                  
  14. end;                                                                                                  
  15. end;                                                                                                  
  16.  
  17.  
  18. procedure tform1.resimal();          
  19. var
  20.  s : widestring;
  21.  s1: string;
  22.  begin
  23. // memoyu temizledik
  24.    memo1.Lines.Clear;
  25.  //kaynak kodları memoya aldık
  26.    Memo1.lines.Text := IdHTTP1.Get(UTF8Encode('http://tckimlik.nvi.gov.tr/Web/QueryIdentityNumber.aspx'));
  27.  // html i parseledik
  28.    s := Memo1.Lines.Text;  
  29.   s1:= AradanSec(s,'<img src="KPSImages.axd?type=dynamicimage&Val='  , ' " id="mimgSecurityCode" ');
  30.  // resmi indirdik
  31.    indir('http://tckimlik.nvi.gov.tr/Web/KPSImages.axd?type=dynamicimage&Val='+s1,'C:\a.gif');
  32. // image a yükledik ...
  33.  Image1.Picture.LoadFromFile('C:\a.gif');
  34. end;
  35.  

 arkadaşlar s1:= AradanSec(s,'<img src="KPSImages.axd?type=dynamicimage&Val='  , '" id="mimgSecurityCode"'); bu satıda
Syntax Highlighter şaşıryor kırmızı olan kısım gibi olucak


sorgulamak içinde aşağıdaki kodu kullanmıştım sitedeki textbox ların içini doldruyor ama il ve ilçede çakıyor.. 
post veya get işlemiyle oturum kodunu falan da parselemek gerekiyor fazla uğraşmadığım için ssadece böyle denemiştim..
geliştirilebilir..

Kod:  (Unknown Language)
  1.  
  2. var
  3.  Doc: IHTMLDocument2;
  4.  tik : OleVariant;
  5. begin
  6.  
  7. WebBrowser1.Navigate( 'http://tckimlik.nvi.gov.tr/Web/QueryIdentityNumber.aspx');
  8. While WebBrowser1.ReadyState <> READYSTATE_Complete do
  9. Application.ProcessMessages;
  10.  
  11. WebBrowser1.OleObject.Document.GetElementByID('ctlCity').Value :='35';
  12. WebBrowser1.OleObject.Document.GetElementByID('ctlDistrict').Value :='1819';
  13. WebBrowser1.OleObject.Document.GetElementByID('ctlFirstName').Value :='Ali';
  14. WebBrowser1.OleObject.Document.GetElementByID('ctlLastName').Value :='YEŞİLOĞLU';
  15. WebBrowser1.OleObject.Document.GetElementByID('mnbxSecurityCode').value :=Edit3.Text;
  16. WebBrowser1.OleObject.Document.GetElementByID('ctlCilt').Value :='51';
  17. WebBrowser1.OleObject.Document.GetElementByID('ctlAileSiraNo').Value :='00789';
  18. WebBrowser1.OleObject.Document.GetElementByID('ctlSiraNo').Value :='0028';
  19. WebBrowser1.OleObject.Document.GetElementByID('ctlFatherName').Value :='Kenan';
  20. WebBrowser1.OleObject.Document.GetElementByID('ctlMotherName').Value :='Kıymet';
  21. WebBrowser1.OleObject.Document.GetElementByID('ctlBirthDate').Value :='1988';
  22. WebBrowser1.OleObject.Document.GetElementByID('ctlSex').Value :='E';
  23.  
  24. Doc := IHTMLDocument2(WebBrowser1.Document);
  25. tik := WebBrowser1.oleobject.Document.GetElementByID('ctlQueryFromData');
  26. tik.Click;
  27.  
  28.  


şeklinde denemiştim bende zamanında ama il ve ilçede takıldım :) ili seçtikten sonra sayfa kendini yeniliyor ve ilçe listesini güncelliyor..
fazla durmamıştım üstünde zaten...


Kayıtlı



Amatör Küme Programcı

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: webbrowser bilgi gönderme
« Yanıtla #19 : 29 Haziran 2009 23:34:31 »
Alıntı yapılan: barutali - 29 Haziran 2009 02:37:36
doğrulama kodunu göstermek için

....
 arkadaşlar s1:= AradanSec(s,'<img src="KPSImages.axd?type=dynamicimage&Val='  , '" id="mimgSecurityCode"'); bu satıda
Syntax Highlighter şaşıryor kırmızı olan kısım gibi olucak
....

Bu açıklama

s1:= AradanSec(s,'<IMG id=mimgSecurityCode src="KPSImages.axd?type=dynamicimage&Val=' , ' " ?); 
 

satırı için mi?, eğer öyle ise SynHighlighter ile ilgilenmem gerekecek te. çünkü hiç alakası yok. :(
Kayıtlı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.229
  • Rep: +55/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: webbrowser bilgi gönderme
« Yanıtla #20 : 29 Haziran 2009 23:43:13 »
Alıntı yapılan: Kocaturk - 29 Haziran 2009 23:34:31
Alıntı yapılan: barutali - 29 Haziran 2009 02:37:36
doğrulama kodunu göstermek için

....
 arkadaşlar s1:= AradanSec(s,'<img src="KPSImages.axd?type=dynamicimage&Val='  , '" id="mimgSecurityCode"'); bu satıda
Syntax Highlighter şaşıryor kırmızı olan kısım gibi olucak
....

Bu açıklama

s1:= AradanSec(s,'<IMG id=mimgSecurityCode src="KPSImages.axd?type=dynamicimage&Val=' , ' " ?); 
 

satırı için mi?, eğer öyle ise SynHighlighter ile ilgilenmem gerekecek te. çünkü hiç alakası yok. :(

@Kocatürk hocam tırnak işaretlerini ve boşlukları html deki gibi % li gösteriyor..

%27%20%C2%A0 Bu şekilde gösteriyor ama aslında orası  sadece tek tırnak ve bir boşluk bende anlamadım neden öyle yaptı :S
Kayıtlı



Amatör Küme Programcı

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: webbrowser bilgi gönderme
« Yanıtla #21 : 29 Haziran 2009 23:48:48 »
 :_ds  sen olması gereken kodu bana herhangi bir tag içerisine almadan pm olarak gönderirsen ben bir bakayım. Gerçi SynHghlghtr ın son sürümünü siteye uyarlamak için uğraşıyorum ama enazından bununla ilgili bir şey yapabilirmiyiz bir bakalım.
Kayıtlı
Sayfa: 1 [2]  Hepsi   Yukarı git
« önceki sonraki »