Delphi Dünyası Facebook'ta

Kodbank İndir

! CODEBANK 2012 !

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

Gönderen Konu: Web sayfasını kaydetmek (?) Soru  (Okunma sayısı 1171 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Remark

  • Delphi 1 Level 3
  • ***
  • İleti: 23
  • Rep: +0/-0
Web sayfasını kaydetmek (?) Soru
« : 08 Eylül 2009 08:38:44 »
Merhabalar.
Bir sayfaya Login olup login olduktan sonra o sayfayı kaydetmek istiyorum.
Delphi de yeni olduğum için takılıyorum.
Şimdi şöyle birşey yaptım.

Kodlar;

1 adet webbrowser 2 adet buton.

Kod: [Seç]
unit ana;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw,urlmon, StdCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.cekileceksite.com/SonucSorgu.do');
while WebBrowser1.ReadyState <>  READYSTATE_COMPLETE  do application.ProcessMessages;
WebBrowser1.OleObject.document.GetElementById('noterSiraNo').value :='70000';
WebBrowser1.OleObject.document.GetElementById('vergiKimlikNo').value :='0044440';
WebBrowser1.OleObject.document.GetElementById('Image3').Click;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
URLDownloadToFile(Nil, PChar('http://www.cekileceksite.com/SonucSorgu.do;jsessionid=NBBLMMEHFCCM'), PChar('C:\ihaleMaden.html'), 0, Nil);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Buton 1 tıkladığımda sayfaya bağlanıyor giriş yapıyor.
İkinci butona tıkladığımda ise sayfayı kaydediyor. Fakat ikinci butona bastığım zaman kaydediyor ama giriş yaptıktan sonra ki sayfayı kaydetmiyor.

Giriş yaptıktan sonra jsessionid=NBBLMMEHFCCM url şu şekilde değişiyor. Fakat "NBBLMMEHFCCM" burası değişekn sürekli değişiyor.

Ben şöyle düşünüyorum. Giriş yaptıktan sonra url okutup sonuna atadığı sessionid deki değeri alıp

Kod: [Seç]
URLDownloadToFile(Nil, PChar('http://www.cekileceksite.com/SonucSorgu.do;jsessionid=' + '[b]sesiondegeri[/b]), PChar('C:\ihaleMaden.html'), 0, Nil);
Şeklinde yaparsam sayfayı kaydedebilirim diye düşünüyorum. (URLDownloadToFile virüs programları sakıncalı bulduğu için kullanılması tavsiye edilmiyor. Forumda bir arkadaş söyledi. Buna altarnaetif ne kullanabilirim acaba?)

Fakat URL deki değeri nasıl alabilirim onu bilmiyorum.