получить изображение с камеры.

[Aleksandr]

Необходимо подключиться к камере №1 IP 192.168.1.34:12088.
Пробовал через WebBrowser, но там не получается автоматически провести авторегистрацию

var
 Flags, TargetFrameName, PostData, Headers: OleVariant;

 s:string;


 begin


 S := Format('login_id=admin&login_passwd=111111 &button.x=27&button.y=8',
 [Edit1.Text, Edit2.Text]);
 PostData := VarArrayCreate([1,
 Length(S) + 1], varByte);
 System.Move(S[1], VarArrayLock(PostData)^,
 Length(S) + 1);
 VarArrayUnlock(PostData);

 WebBrowser1.Navigate('http://192.168.1.34:12088/  webguard_login.htm',Flags,
 TargetFrameName, PostData, Headers);

И пробовал с помощью VideoGrabber

  VideoGrabber := TVideoGrabber.Create(nil);  
   VideoGrabber.Parent := Form1;
   VideoGrabber.Display_AspectRatio := ar_Box;
   VideoGrabber.Align := alClient;
   VideoGrabber.BorderStyle := bsNone;
   VideoGrabber.IPCameraURL := 'http://192.168.1.34:12088/webguard_login.htm';

  VideoGrabber.VideoSource := vs_IPCamera;
  VideoGrabber.SetAuthentication (at_IPCamera, 'admin', '111111');

  VideoGrabber.StartPreview();

[Aleksandr]

Подключился с помощью браузера

var
a1, a2: variant;
 Doc : Variant;
 begin
  a1:=webbrowser1.oleobject.document.getelementbyid('Login_id');
  a1.value:='admin';

  a2:=webbrowser1.oleobject.document.getelementbyid('login_passwd');
  a2.value:='111111';

    Doc := WebBrowser1.OleObject.document;
    if TVarData(Doc).VDispatch = nil then begin
    ShowMessage('Документ не задан. Действие отменено.');
    Exit;
  end;
 
  Doc.parentWindow.on_Login();

А как подключиться с помощью VideoGrabber.