Internet Direct (Indy) Version 9.0.2 Beta
|
procedure TForm1.TestSendXHDR; var Client : TIdNNTP; // our NNTP client Response : TStringList; // Store our results here begin Response := TStringList.Create; Client := TIdNNTP.Create(NIL); with Client do begin Host := 'foo.newsfoo.com'; // This is not a real server change this line Port := 119; // This is the default try Connect; // connect to the server if connected then begin if SelectGroup('some.group.name') then // This is not a real group // essentially gets all articles in the group SendXHDR('From','1-',Response); SendCmd('quit'); end; finally if Connected then Disconnect; Client.Free; // Do something with response Response.Clear; Response.Free. end; end; end;