|
Internet Direct (Indy) Version 9.0.1 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;