Newsgroup-Einträge empfangen mit idNNTP

[lucius]

Ich habe es geschafft mich ein zu loggen und etwas zu downloaden.
Jetzt moechte Ich aber die Datei Deliverance.par2 haben in alt.binaries.dvd angeben?
Wie funktioniert dass?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
Memo1.Clear;
IdNNTP1.Host:='newsreader11.eweka.nl';
IdNNTP1.Username := '******';
IdNNTP1.Password := '******';
IdNNTP1.Port := 119;
idNNTP1.Connect;
idNNTP1.SelectGroup('alt.binaries.x');
idNNTP1.GetArticle(idNNTP1.MsgLow,idmessage1);
for i:=0 to idmessage1.Body.Count-1 do
memo1.Lines.Add(idmessage1.Body.Strings[i]);
Idmessage1.SaveToFile('i:\Test\test.bin');
IdNNTP1.Disconnect;
end;

Gruss Lucius.