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; ChVisible: TCheckBox;
BtnPalyClick: TButton;
EditIP: TEdit;
EditUser: TEdit;
EditPassword: TEdit;
procedure BtnPlayClick(Sender: TObject);
procedure ChVisibleClick(Sender: TObject);
procedure FormResize(Sender: TObject);
private
public
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.