Delphi Can › Delphi › Genel Programlama v
Webbrowser üzerinden Download sorunu
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Gösterim Stili
Webbrowser üzerinden Download sorunu
COMMANDX Çevrimdışı
Başlangıç Düzeyi
*
Başlangıç
Yorumları: 179
Konuları: 16
Kayıt Tarihi: 16-01-2021
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 7


Rep Puanı: 1.034
Programcı
#1
04-05-2021, Saat: 10:46
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
Kod: (Select All)
<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
Hayati Çevrimdışı
Acemi Düzeyi
**
Acemi
Yorumları: 273
Konuları: 18
Kayıt Tarihi: 11-10-2016

Rep Puanı: 1.302
Programcı
#2
04-05-2021, Saat: 21:26
Siteye internet explorer ile girip istediklerinizi yapabildiginizi kontrol ettiniz mi?
Cevapla
shooterman Çevrimdışı
Programcı Düzeyi
***
Programcı
Yorumları: 701
Konuları: 74
Kayıt Tarihi: 20-12-2018
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 10.4
  • Delphi 10.2


Rep Puanı: 1.626
Programcı
#3
04-05-2021, Saat: 23:06
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
COMMANDX Çevrimdışı
Başlangıç Düzeyi
*
Başlangıç
Yorumları: 179
Konuları: 16
Kayıt Tarihi: 16-01-2021
Aktif Kullandığınız Delphi Sürümü:
  • Delphi 7


Rep Puanı: 1.034
Programcı
#4
05-05-2021, Saat: 09:57 (Son Düzenleme: 05-05-2021, Saat: 23:00, Düzenleyen: COMMANDX.)
(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
  Win 11 ve Delphi 7 Minimize sorunu. enigma 7 498 11-02-2026, Saat: 10:27
Son Yorum: RAD Coder
  Delphi SLL kullanım sorunu Bay_Y 12 1.317 22-12-2025, Saat: 18:11
Son Yorum: Bay_Y
  CxGrid Türkçe karakter sorunu mur93 1 351 12-11-2025, Saat: 09:22
Son Yorum: cinarbil
Exclamation Ftp gönderilen dosyada tr karakter sorunu forumcuali 7 3.460 01-05-2025, Saat: 02:26
Son Yorum: m_ekici
  Java Script ile sayfayı kapatma sorunu MEK 2 1.217 01-03-2025, Saat: 23:16
Son Yorum: mkysoft



Konuyu Okuyanlar: 1 Ziyaretçi