[[basti]]

Hola, creo que no me expliqué bien. El acceso a través del navegador es sólo para poder descargar el ActiveX, cuando accedes por primera vez a la cámara, el IE (en el resto de los navegadores no funciona normalmente) te solicita descargarte el control ActiveX desde la cámara. Luego lo añades a tu delphi y ya lo puedes usar. Te pongo un ejemplo de una prueba que tenía guardada, es sobre una cámara LinkSys, pero también había probado con cámaras DLink, sólo cambia el ActiveX y las funciones que tiene incorporadas.

Código Delphi [-]
type
  TForm1 = class(TForm)
    Visualizador: TNetCamPlayerWeb11g; // este es el ActiveX, depende del modelo de la cámara
    ChVisible: TCheckBox;
    BtnPalyClick: TButton;
    EditIP: TEdit;
    EditUser: TEdit;
    EditPassword: TEdit;
    procedure BtnPlayClick(Sender: TObject);
    procedure ChVisibleClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ChVisibleClick(Sender: TObject);
begin
  if chVisible.Checked then
    self.FormStyle := fsStayOnTop
  else
    self.FormStyle := fsNormal;
end;

procedure TForm1.BtnPlayClick(Sender: TObject);
begin
  if (Sender as TBitBtn).Caption = 'Play' then
  begin
    Visualizador.SetSource('http://' + EditIP.Text + '/img/video.asf',            
                                    EditUser.Text, EditPassword.Text);
    Visualizador.TestPlay;
    (Sender as TBitBtn).Caption := 'Stop';
  end
  else begin
    Visualizador.StopPlay;
    (Sender as TBitBtn).Caption := 'Play';
  end;
end;

procedure TForm1.FormResize(Sender: TObject);
var
  zoom : integer;
begin
  zoom := (width * 100) div 650;
  Visualizador.SetZoomPercent(zoom);
end;

No recuerdo muy bien como eran los parámetros, pero en el procedimiento TestPlay, se le podía pasar un parámetro con un nombre de archivo y creaba un 'MPG' o 'AVI' con la grabación, no recuerdo el tipo exactamente.