Zugriff auf XML im Projektordner klappt nicht

[stev-e87]

Ok,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  lStream: TFileStream;
begin
 if cb_Proxy.Checked=True then
  begin
    HTTP_File.ProxyParams.ProxyServer:=txt_Proxy_IP.Text;
    HTTP_FIle.ProxyParams.ProxyPort:=Strtoint(txt_Port.Text);
  end;
 lStream:=TFileStream.Create('Data\ico.xml', fmCreate or fmShareDenyWrite);
  try
    try
    //Während der Tests wird die Zeile nicht benötigt, da die XML bereits auf der Platte ist.
    //HTTP_File.Get('http://www.t-knows.de/programs/iconcatcher/ico.xml',lStream);
    List_Icons;
    except
    On E : EDomParseError do
      begin
         MessageDlg('Es ist ein Fehler bei der Arbeit mit der Icondatenbank aufgetreten!',mtConfirmation,
          [mbOk], 0, mbOk);
            Exit;
      end;

    end;
  finally
    lStream.Free;
  end;
end;

Naja und sonst nix mehr als das...

Delphi-Quellcode:

procedure TForm1.List_Icons();
begin
  XML.Active := true;
  ShowMessage(IntToStr(XML.DocumentElement.ChildNodes.Count));
end;
end.

...was ich bereits eingangs postete. Die Eigenschaften wie Pfad zur Datei geb ich der Komponente via der Eigenschaftenseite.
Hmmm


Ahhhh!!!!!
Da fällts einem wie Schuppen von den Augen. Oje is ja peinlich... Ok der Selbstdemütigung wegen geb ich mal für die, denen es genauso spät auffällt wie mir die Lösung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  lStream: TFileStream;
begin
 if cb_Proxy.Checked=True then
  begin
    HTTP_File.ProxyParams.ProxyServer:=txt_Proxy_IP.Text;
    HTTP_FIle.ProxyParams.ProxyPort:=Strtoint(txt_Port.Text);
  end;
 lStream:=TFileStream.Create('ico.xml', fmCreate or fmShareDenyWrite);
  try
    try
    HTTP_File.Get('http://www.t-knows.de/programs/iconcatcher/ico.xml',lStream);
    except
    On E : EDomParseError do
      begin
         MessageDlg('Es ist ein Fehler bei der Arbeit mit der Icondatenbank aufgetreten!',mtConfirmation,
          [mbOk], 0, mbOk);
            Exit;
      end;

    end;
  finally
    lStream.Free;
    List_Icons; //Muss natürlich hinter die Freigabe des Streams... *Schäm*
  end;