加载远程xml文件

发布于 2024-11-08 23:05:48 字数 274 浏览 0 评论 0原文

我需要知道如何从需要身份验证的服务器加载远程 xml 文件。使用下面的代码：

procedure TForm1.Button1CLICK(Sender: object); 
Var xmld : TXMLDocument;
begin
   xmld.LoadFromFile('http://mysite');
   xmld.active := true;
end;

我不知道在哪里放置用户凭据。当我执行时，出现错误“访问被拒绝”。有人可以帮忙吗？提前致谢

原文

I need to know how to load remote xml file from a server that needs authentication.
Using the code bellow :

procedure TForm1.Button1CLICK(Sender: object); 
Var xmld : TXMLDocument;
begin
   xmld.LoadFromFile('http://mysite');
   xmld.active := true;
end;

I dont know where to put user credentials. When I execute, error "access denied" occures.
Can anybody help please.
Thanks in advance

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

铜锣湾横着走 2024-11-15 23:05:48

嗯，这实际上是一个由两部分组成的问题：

如何从
互联网上的服务器需要
身份验证？
如何将 XML 文档加载到
动态 XmlDocument 对象？

您可以使用 IdHttp 组件（该组件已在 Indy 包中提供并随 Delphi 一起安装）从服务器检索 XML 文档。为此，您可以调用其 Get 方法，并将 XML 文档地址作为参数传递。您可以以字符串或流的形式检索结果。

如果服务器正在使用身份验证，那么您应该首先检测它使用的是哪种身份验证方法；如果使用 HTTP 身份验证，IdHttp 已经允许您通过提供 Request 属性来定义 HTTP 请求参数。您可以使用此属性设置用户名\密码和其他参数。如果使用基于 cookie 的身份验证，您可以将 cookie 管理器对象连接到 IdHttp 并向服务器提供所需的 cookie。服务器可能会使用 Web 表单进行身份验证并将 cookie 返回给您，或者返回会话 ID。因此，了解服务器使用的身份验证方法非常重要。

如果您不知道服务器使用的身份验证方法，您可以询问他们的支持团队，或者您可以安装像 Wireshark 这样的嗅探器，并尝试使用 Web 浏览器连接到服务器，并捕获服务器和服务器之间交换的数据。你的浏览器，并分析它以找出使用了什么方法。

无论如何，一旦收到 XML 数据，您就可以使用其 LoadFromStream 方法或其 XML 属性将其加载到 TXmlDocument 实例中。

回复收藏 0 原文

鲜血染红嫁衣 2024-11-15 23:05:48

我几天前就这样编码了。我正在实施一个自动更新程序。下面是一段代码：

procedure TUpdateForm.GetPage(URL: string);
var ms: TMemoryStream;
    IdHTTP: TIdHTTP;
begin
  SRC.Free;
  SRC:=TStringList.Create;

  IdHTTP:=TIdHTTP.Create();
  IdHTTP.HandleRedirects:=True;


  IdHTTP.Request.Username:='USERNAME';
  IdHTTP.Request.Password:='PASSWORD';

  ms:=TMemoryStream.Create;
  IdHTTP.Get(URL,ms);
  ms.Position:=0;


  TEncoding.UTF8.ToString;
  Src.LoadFromStream(ms,TENCODING.UTF8);

  Src.Free;
  ms.Free;
  IdHTTP.Free;
end;

procedure TUpdateForm.GetXML;
var TempNode: IXMLNode;
    TempVersion: TVersion;
    i,j:integer;
begin
  GetPage('http://www.w3sayit.wz.cz/updateinfo.xml');
  MainForm.XMLDocument.LoadFromXML(SRC.Text);
  MainForm.XMLDocument.Active:=true;
...

第一个过程将 URL 处的文档加载到全局 TStringList (SRC)。
第二个解析 XML（我剪掉了其余部分）。

编辑：抱歉，我刚刚读到您想要一个身份验证。很快就会更新。 完成。

I coded this like a few days ago. I was implementing an auto-updater. Here is a chunk of the code:

procedure TUpdateForm.GetPage(URL: string);
var ms: TMemoryStream;
    IdHTTP: TIdHTTP;
begin
  SRC.Free;
  SRC:=TStringList.Create;

  IdHTTP:=TIdHTTP.Create();
  IdHTTP.HandleRedirects:=True;


  IdHTTP.Request.Username:='USERNAME';
  IdHTTP.Request.Password:='PASSWORD';

  ms:=TMemoryStream.Create;
  IdHTTP.Get(URL,ms);
  ms.Position:=0;


  TEncoding.UTF8.ToString;
  Src.LoadFromStream(ms,TENCODING.UTF8);

  Src.Free;
  ms.Free;
  IdHTTP.Free;
end;

procedure TUpdateForm.GetXML;
var TempNode: IXMLNode;
    TempVersion: TVersion;
    i,j:integer;
begin
  GetPage('http://www.w3sayit.wz.cz/updateinfo.xml');
  MainForm.XMLDocument.LoadFromXML(SRC.Text);
  MainForm.XMLDocument.Active:=true;
...

The first procedure loads an document at URL to a global TStringList (SRC).
The second one parses the XML (i cut the rest of it).

EDIT: sorry, I just read you want an auth. Will update soon. Done.

回复收藏 0 原文