Delphi TWebBrowser подключиться к локальному устройству не удается - PullRequest
Новая
       26

Delphi TWebBrowser подключиться к локальному устройству не удается

0 голосов
/ 15 февраля 2019

Здравствуйте, у меня очень простая программа Twebbowser.Я хочу получить доступ к устройству в моей локальной сети, которое находится в диапазоне IP 192.168.192.xxx.Я могу связаться с устройством через браузер chrome, но браузер в программе выдает страницу с ошибкой:

"Невозможно перейти на эту страницу. Убедитесь, что веб-адрес http://192.168.192.56 правильный. Поиск по сайтуна Bing Обновить страницу. "

Это код Delphi: 

unit Main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw, Vcl.StdCtrls,
  Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    txtAddress: TEdit;
    cmdLoad: TButton;
    WebBrowser1: TWebBrowser;
    Panel1: TPanel;
    cmdName: TButton;
    procedure FormCreate(Sender: TObject);
    procedure cmdLoadClick(Sender: TObject);
    procedure cmdNameClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   End;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }



procedure TForm1.cmdLoadClick(Sender: TObject);
begin
  WebBrowser1.Navigate(txtAddress.Text);
end;

procedure TForm1.cmdNameClick(Sender: TObject);
begin
  WebBrowser1.GoBack;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   WebBrowser1.Silent := True; //disable java script errors/windows...

end;

end.

Спасибо за вашу помощь.Объявление

enter image description here

1 Ответ

0 голосов
/ 22 февраля 2019

Проблема решается, если я устанавливаю пароль для устройства, скажем, «12345». Я могу зайти на сайт устройства с помощью URL-адреса http://12345:12345@192.168.192.56. Имя пользователя выглядит произвольно, например http://xxx:12345@192.168.192.56также будет работать.Спасибо всем, кто внес свой вклад, супер!С уважением Ad

...