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;