Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Webbrowser üzerinden Download sorunu
#1
aşağıdaki webbrowser ile eriştiğim sayfanın son kısmına geldim, inputları otomatik doldurdum,
Webbrowser ile radiobuttonları tıklayıp inputboxları doldurup bazı butonlara tıklatabiliyorum fakat son kısma geldiğimde aynı tip buttona webbrowserde kırmızı ile işaretlediğim butona bastığımda 
download gerçekleşmiyor, PC nin kendi mausundan da tıkladığımda download yine gerçekleşmiyor
zurnanın düt dediği yerdeyim şimdi.
Sitede de döküman inceledim, bir şey çıkaramadım. acaba webbrowser desteklemiyor mu embedded webbrowser de de aynı durum.

Javascript ile ilgili sanırım

vS87J6m.jpg


Html kodları şu şekilde
<html>
<head>
<title>EBorcu Yoktur (TL)</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<LINK rel="icon" href="https://">
<LINK rel="shortcut icon" href="https://">
<link rel="stylesheet" href="/EBorcuYoktur5510/theme/Master.css" type="text/css">
</head>
 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" marginwidth="0" topmargin="5" background="/EBorcuYoktur5510/image/interface/background.gif">

<form name="logoutform" id="logoutform" method="post" action="/EBorcuYoktur5510/ibm_security_logout" style="margin: 0px;">
    <input type="hidden" name="logoutExitPage" value="/logoutExitPage">
</form>
<!-- Header Picture -->
<table width="780" border="0" cellpadding="0" align="center" cellspacing="1">
 <tr>
   <td><img src="/EBorcuYoktur5510/image/interface/header.jpg" width="780" height="65"></td>
 </tr>
</table>
<!-- Menu -->
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center" height="25">
 <tr>
   <td width="10"><img src="/EBorcuYoktur5510/image/interface/toolbarLeft.gif"></td>      
   <td background="/EBorcuYoktur5510/image/interface/toolbarBack.gif" class="pg9">
       <a href='/EBorcuYoktur5510/amp/ToAnaMenu'>Ana Menü</a>  &nbsp;<img src="/EBorcuYoktur5510/image/interface/toolbarPanelLine.gif" align="absmiddle">&nbsp;
<!--
     <a href="/EBorcuYoktur5510/HTML/klavuz.html" target=yardim >Yardım</a> &nbsp;<img src="/EBorcuYoktur5510/image/interface/toolbarPanelLine.gif" align="absmiddle">&nbsp;
-->
     <a href="/EBorcuYoktur5510/guvenlik" target=yardim >Güvenlik Uyarıları</a> &nbsp;<img src="/EBorcuYoktur5510/image/interface/toolbarPanelLine.gif" align="absmiddle">&nbsp;
       <a href="javascript:document.forms['logoutform'].submit();">Çıkış</a>
   </td>
   <td background="/EBorcuYoktur5510/image/interface/toolbarBack.gif" class="pg9" align="right">04/05/2021 10:39</td>
   <td width="10"><img src="/EBorcuYoktur5510/image/interface/toolbarRight.gif"></td>
 </tr>
</table>



<SCRIPT>
history.forward();
</SCRIPT>

<!-- En D?? Body Table -->
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr><td align="center">  

<LINK href="/EBorcuYoktur5510/theme/selectBoxes.css" rel="stylesheet" type="text/css">
<LINK href="/EBorcuYoktur5510/theme/ebildirge.css" rel="stylesheet" type="text/css">
<center>


<TABLE WIDTH="50%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
    <TR>
        <TD vAlign=bottom align=right width=11><IMG height=22 src="/EBorcuYoktur5510/image/Border_TopLeft.gif" width="11" align="absMiddle" border="0"></TD>
        <TD class=hfont1 vAlign=middle noWrap align=left width="100%" background="/EBorcuYoktur5510/image/Border_Top_Bg.gif">
<span style="color: #FFFFFF; font-weight: bold">TEK İŞYERİNDEN    </span>
<span style="color: #FFFFFF; font-weight: bold">e-Borcu Yoktur Belgesi </span>

        </TD>
        <TD vAlign="bottom" align="right" width="11">
            <IMG src="/EBorcuYoktur5510/image/Border_TopRight.gif" width="11" align="absMiddle" height="22" border="0">
        </TD>
    </TR>
    <TR>
        <TD align="right" width="11" background="/EBorcuYoktur5510/image/Border_Left.gif">&nbsp;</TD>
        <td>
<!--



<table border=0  class="sskTable" cellpadding=0 cellspacing=1 width="100%" style="BACKGROUND-COLOR:#efefFF;" >



<tr >
    <td width = 100 class="label">İşyeri Sicil No</td>
    <td width= 10 class="label">:</td>
    <td> (Özel İşyeri)
    </td>
</tr><tr>
    <td class="label">İşyeri Ünvanı</td>
    <td class="label">:</td>
    <td></td>
</tr>
<tr>
    <td class="label">İşyeri Adresi</td>
    <td class="label">:</td>
    <td ></td>
</tr>
<tr>
    <td class="label">Vergi numarası</td>
    <td class="label">:</td>
    <td ></td>
</tr>
</table>  -->



<form method="post" style="margin: 0px"  name=form id=form>

<table border=1 class="sskTable" cellpadding=4 cellspacing=2">

<tr>




<tr><td valign="top" bgcolor="#D8E1F5">İşyeri Tescil No</td><TD>



<TR><td valign="top" bgcolor="#D8E1F5">İşyeri Ünvan/Adı</td><td>


<tr><td valign="top" bgcolor="#D8E1F5">İşyeri Adresi </td><td>



<TR><td valign="top" bgcolor="#D8E1F5">Sorgulama Tarihi</td><td>

04.05.2021

<tr><td style="color: #ff6666; font-weight: bold;font-size: 15" colspan="2" align="center">
BORÇ DURUMU (TL) </TD></TR>


<tr><td valign="top" bgcolor="#D8E1F5">SİGORTA PRİM ASLI </TD>

<td>0,00</td></TR>
<TR><td valign="top" bgcolor="#D8E1F5">İŞSİZLİK SİGORTASI PRİM ASLI</TD>

<td>0,00</td></TR>
<TR><td valign="top" bgcolor="#D8E1F5">EĞİTİME KATKI PAYI ASLI </TD>

<td>0,00</td></TR>
<TR><td valign="top" bgcolor="#D8E1F5">ÖZEL İŞLEM VERGİSİ ASLI </TD>

<td>0,00</td></TR>
<TR><td valign="top" bgcolor="#D8E1F5">DAMGA VERGİSİ ASLI </TD>

<td>0,00</td></TR>
<TR><td valign="top" bgcolor="#D8E1F5">İDARİ PARA CEZASI ASLI </TD>

<td>0,00</td></TR>
<TR><td valign="top" bgcolor="#D8E1F5">BORÇ ASILLARI GENEL TOPLAMI</TD>

<td>0,00</td></TR>


<tr><td style="color: #ff6666; font-weight: bold;font-size: 15" colspan="2" align="center">
SORGULAMA SONUCU</TD></TR>


<tr><td  style="color: #ff6666; font-weight: bold;font-size: 10"  colspan="2" align="center">
 
</td></tr>




<!-- < %String tarihsaat =OrtakIslemler.getToday("DMY",".")+"_"+OrtakIslemler.getTodayTime(":"); % >-->


<tr>
<td>

<table cellspacing="0" cellpadding="0" align="center">
        <tr>
        <td width="5" align="right"><img src="/EBorcuYoktur5510/image/interface/buttonLeft.jpg"></td>
        <td background="/EBorcuYoktur5510/image/interface/buttonBack.jpg">
        <input class="newInputButton" type="button"  name="btnSubmit" width="100%"     value="e-Borcu Yoktur Belgesi Hazırla(pdf)"
        
        onclick="javascript: form.action='/EBorcuYoktur5510/PdfOlustur.pdf?rapor=PdfTek&turcode=3&ts=04.05.2021_10:39:23';
          form.target='newp';    form.submit();" ></td>
        <td width="5"><img src="/EBorcuYoktur5510/image/interface/buttonRight.jpg"></td>
        </tr>
        </table>



<!--
        <input  STYLE="cursor:hand"  type="button" class="inputSubmit" value="Borcu Yoktur Belgesi Dökümü (pdf)"  
         onclick="javascript: form.action='/WPEB/PdfOlustur.pdf?rapor=PdfTek&turcode=3';
          form.target='newp';    form.submit();" >
          
          
          -->
          
          </td>
        </TR>



<!--
<TR><td valign="top" bgcolor="#D8E1F5">BELGE KAYIT NO</TD>
<td>AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA</TD></TR>-->

</table>

<center>
<li> Borç Tutarı Olarak Sadece Borç Asılları Gösterilmiştir.
<li> Bu sayfa Resmi Belge Değildir.
<li> e-Borcu Yoktur Belgesi hazirla butonuna tıklayarak resmi belgeyi hazirlatabilirsiniz.  </center>



</td><TD align=left width=11 background="/EBorcuYoktur5510/image/Border_Right.gif"><IMG height=1 src="/EBorcuYoktur5510/image/dot.gif" width="1"
                               border="0"></TD>
                </TR>
                <TR height=9>
                        <TD vAlign=top align=right width=11><IMG  
                       src="/EBorcuYoktur5510/image/Border_BottomLeft.gif"
                       border="0"></TD>
                       <TD background="/EBorcuYoktur5510/image/Border_Bottom.gif"><IMG height=1
                       src="/EBorcuYoktur5510/image/dot.gif" width="1" border="0"></TD>
                       <TD vAlign=top align=left width=11><IMG  
                       src="/EBorcuYoktur5510/image/Border_BottomRight.gif"
                       border=0></TD>
                </TR>
            </TABLE>
            
<!-- En D?? Body Table -->
</td></tr>
</table>
</center>


</td></tr></table><table width="780" border="0" cellpadding="3" align="center" cellspacing="0" bgcolor="#000000">
 <tr>
   <td class="p10BoldWhite" align="center" valign="middle">&copy; Sosyal Sigortalar Kurumu</td>
 </tr>
</table>



</BODY>

</HTML>
Cevapla
#2
Siteye internet explorer ile girip istediklerinizi yapabildiginizi kontrol ettiniz mi?
Cevapla
#3
Selamlar
Java script ile ilgili bir sorun yaşadığımdan dolayı bir projede, Edgebrowser kullanmıştım ve normal webbrowser ın meydana getirdiği hataları yaşamamıştım. Bunu da denemenizde fayda var.
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Cevapla
#4
(04-05-2021, Saat: 21:26)Hayati Adlı Kullanıcıdan Alıntı: Siteye internet explorer ile girip istediklerinizi yapabildiginizi kontrol ettiniz mi?

Explorerde yapabiliyorum ne hikmetse Webbrowserde olmuyor.
Projede kodlarım şu şekilde
Sonuç Download butonuna kadar 3 ekran sayfası sonra gelindiği için firma şifreleri bilgileri sildim, daha önce buradan borç sorgulama yapan varsa bunu kullanabilir.
Browseri kandırmişimdır, emulasyon da yapmışımdır olmamıştır. Ben artık köyüme dönirem.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,SHELLAPI, StdCtrls, RzButton, ExtCtrls, OleCtrls, SHDocVw_EWB,
  EmbeddedWB,REGISTRY,MSHTML, ActiveX;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    Edit1: TEdit;
    Memo1: TMemo;
    RzBitBtn5: TRzBitBtn;
    WebBrowser1: TEmbeddedWB;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure SetBrowserEmulationDWORD(const value: DWORD);
const
  registryPath = 'Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION';
var
  registry  : TRegistry;
  exeName   : String;
begin
  exeName   := extractfilename (Application.exename); // eski path filename d7 için

  registry  := TRegistry.Create(KEY_SET_VALUE);
  try
     registry.RootKey := HKEY_CURRENT_USER;
     Win32Check( registry.OpenKey(registryPath, True) );
     registry.WriteInteger(exeName, value)
  finally
     registry.Destroy();
  end;
end;



procedure TForm1.FormCreate(Sender: TObject);
const
 IE11_Quirks    = 11001;
var
 aStream     : TMemoryStream;
begin
 SetBrowserEmulationDWORD( IE11_Quirks );

end;




procedure TForm1.RzBitBtn1Click(Sender: TObject);

begin
  WebBrowser1.Navigate(EDIT1.Text);
 // while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
  begin
    Sleep(1);
    Application.ProcessMessages;
  end;


end;

procedure TForm1.RzBitBtn2Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.Forms.Item(1).Elements.Item(0).VALUE   := 'XXXXXXXXXX'; // TC NO
WebBrowser1.OleObject.Document.Forms.Item(1).Elements.Item(1).VALUE   := 'XX'; // İŞYERİ NO
WebBrowser1.OleObject.Document.Forms.Item(1).Elements.Item(2).VALUE   := 'XXXXXXX'; // SİSTEM ŞİFRESİ
WebBrowser1.OleObject.Document.Forms.Item(1).Elements.Item(3).VALUE   := 'XXXXXXXX'; // İŞYERİ ŞİFRESİ
end;



procedure BrowseEt( strURL : String; WebBrowser:TEmbeddedWB );
Const
// strUserAgent = 'Mozilla/5.0 (Windows; U; MSIE 9.0; WIndows NT 9.0; en-US))';
 strUserAgent = 'Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:71.0) Gecko/20100101 Firefox/72.0)';
Var
 Headers  : OleVariant;
begin
 Headers := 'Content-type: application/x-www-form-urlencoded'#10#13
          + 'User-Agent: '+strUserAgent;
 WebBrowser.Silent := True;
 WebBrowser.Navigate( strURL,
                      EmptyParam, EmptyParam, EmptyParam, Headers);
 while Webbrowser.ReadyState <> READYSTATE_COMPLETE do
 begin
   Sleep(1);
   Application.ProcessMessages;
 end;
end;


procedure TForm1.RzBitBtn5Click(Sender: TObject);
begin
BrowseEt(edit1.text,WEBBROWSER1);
end;

end.



Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Fast Report - barkod çizgi (çubuk) sorunu debug 1 147 11-05-2021, Saat: 17:45
Son Yorum: shooterman
  SQLite Runtime Connection Sorunu (ÇÖZÜLDÜ) recepmut@hotmail.com 7 360 08-05-2021, Saat: 22:22
Son Yorum: shooterman
  JSON UTF8 Sorunu pro_imaj 7 1.104 12-04-2021, Saat: 22:34
Son Yorum: tmrksmt
  Datasnap rest service türkçe karakter sorunu hakkında yanniosman 2 360 01-04-2021, Saat: 01:11
Son Yorum: yanniosman
  Soap servis import sorunu klavye 0 204 29-03-2021, Saat: 15:29
Son Yorum: klavye



Konuyu Okuyanlar: 1 Ziyaretçi