Internet Explorer web sayfası açma

[zengin]

s.a

değerli arkadaşlarım yeni iş yerlerdeki güvenlik kamarayı açıp izlemek için ptt den alınan modem sabit aypimizi
internet explorer dan (http://111.11.111.11/ gibi ?) VSS Web‎ açıp kullanıcı adı ve şifreyi girdikten sonra kamara kaydı ulaşılıyor benim istediğim ise bu sistemi Delhi ile kullanıcı adını ve şifreyi girerek yapabilir miyiz

[unicorn64]

görüntülenen web ekranında activeX varsa bunu delphiye import edip kullanabilirsiniz belki,
yada özel bir işlem yapmadan sadece masaüstünde görüntülemek istiyorsanız muhtemelen kamera yazılımının masaüstü client uygulaması vardır diye tahmin ediyorum.

[zengin]

aslında yine bu siteden almış olduğum bu örnek kodla faceye bu şekilde bağlanabiliyorum sorun olmuyor fakat asıl sorun kamaraya da bağlanıyorum fakat kullanıcı adı ve şifreyi giremiyorum bu konuda yardımlarınızı bekliyorum

Kod: Tümünü seç

unit Unit1;

interface

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

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


var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure facebookbaglan;
Var
i,j : Integer;

begin

  while Form1.WebBrowser1.ReadyState <> ReadyState_Complete do Application.ProcessMessages;

  if  Form1.WebBrowser1.OleObject.Document.Forms.Length > 0 then begin
    for i := 0 to  Form1.WebBrowser1.OleObject.Document.Forms.Length - 1 do
    begin
      for j := 0 to  Form1.WebBrowser1.OleObject.Document.Forms.Item(i).Elements.Length - 1 do begin

        if( Form1.WebBrowser1.OleObject.Document.Forms.Item(i).Elements.Item(j).Value='Giriş Yap')and (Form1.WebBrowser1.OleObject.Document.Forms.Item(i).Elements.Item(j).type ='submit') then begin

               Form1. WebBrowser1.OleObject.Document.GetElementByID('name').Value       := Form1.Edit1.Text;
               Form1. WebBrowser1.OleObject.Document.GetElementByID('password').Value        := Form1.Edit2.Text;
               Form1. WebBrowser1.OleObject.Document.GetElementByID(Form1.WebBrowser1.OleObject.Document.Forms.Item(i).Elements.Item(j).id).Click;

      end;
      end;
    end;
  end;

end;



procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate('http://111.11.111.11/'); // örnek bu şekilde  kamaraya bağlanıyorum fakat kullanıcı adı ve şifre bölümünü giremiyorum

// WebBrowser1.Navigate('https://tr-tr.facebook.com/');// örnek faceye bu şekilde girebiliyorum

end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Button1Click(Self);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
facebookbaglan;
end;

end.

[unicorn64]

kameranın web arayüzünün html kodlarını incelediniz mi? kullanıcı adı şifre bilgileri nasıl aktarılmış?

[zengin]

var username = $("username").value;
var password = $("password").value;
var logintype=0;
var ip = location.hostname;

bu şekilde denedim fakat olmadı

[Lord_Ares]

Bildiğim kadarıyla bunu o kodlama şekli ile yapamayabilirsiniz. Sebebi ise activex ile oluşturulduğu için isim gireceğiniz editin id si yoktur. Activex incelerseniz içeresinde o alana tanımlanmış bir değişken olmalı bu değişkene istedeğiniz değeri aktararak göndermelisiniz.
Burada dikkat etmeniz gerek iki unsur var. Siz daha önce internet explorer veya başka bir tarayıcı ile kameralara bağlandığınız için gerekli olan activex o tarayıcılara yüklenmiş durumdadır. Fakat delphi deki webbrowsera yüklenmiş durumda değildir. Dolayısı ile siz gerekli activex bileşenini delphideki formunuza dahil etmelisiniz ki ilgili değişkene ulaşabilin. Aksi takdirde sürekli hata alırsınız.

[zengin]

ustacığım anladım teşekkür ederim kolay gelsin

[atillademirci12]

Bildiğim kadarıyla bunu o kodlama şekli ile yapamayabilirsiniz. Sebebi ise activex ile oluşturulduğu için isim gireceğiniz editin id si yoktur. Activex incelerseniz içeresinde o alana tanımlanmış bir değişken olmalı bu değişkene istedeğiniz değeri aktararak göndermelisiniz.
Burada dikkat etmeniz gerek iki unsur var. Siz daha önce internet explorer veya başka bir tarayıcı ile kameralara bağlandığınız için gerekli olan activex o tarayıcılara yüklenmiş durumdadır. Fakat delphi deki webbrowsera yüklenmiş durumda değildir. Dolayısı ile siz gerekli activex bileşenini delphideki formunuza dahil etmelisiniz ki ilgili değişkene ulaşabilin. Aksi takdirde sürekli hata alırsınız.

Bilgi için teşekkürler