Subj : help
To : All
From : Chris Hoppman
Date : Sun Aug 18 2002 08:35 am
I was wondering what would I pass to these procedures.
I have tired to pass just:
Cli.HeadByNo(10234,'alt.bbs');
The same for Id, but it didn't ruturn
what I thought it would.
PROCEDURE TAbsNNTPClient.HeadByNo(No: Integer; Head: TStringList);
BEGIN
SendCommand('HEAD '+IntToStr(No));
IF LastResponseCode<>221 THEN
RAISE EAbsNNTPClient.Create('HeadByNo', LastResponse);
GetMsgLines(Head);
END;
PROCEDURE TAbsNNTPClient.BodyById(Id: STRING; Body: TStringList);
BEGIN
SendCommand('BODY <'+Id+'>');
IF LastResponseCode<>222 THEN
RAISE EAbsNNTPClient.Create('BodyById', LastResponse);
GetMsgLines(Body);
END;
Also, how would I send say a string to this so I can
read a text file and then post that to a newsgroup.
PROCEDURE TAbsNNTPClient.Post(Article: TStringList);
VAR
I : Integer;
BEGIN
SendCommand('POST');
IF LastResponseCode<>340 THEN
RAISE EAbsNNTPClient.Create('Post', LastResponse);
FOR I:=0 TO Article.Count-1 DO
BEGIN
IF Copy(Article[I],1,1)='.' THEN Article[I]:='.'+Article[I];
Socket.WriteLn(Article[I]);
END;
Socket.WriteLn('.');
GetResponse(Nil);
IF LastResponseCode<>240 THEN
RAISE EAbsNNTPClient.Create('Post: After transfer', LastResponse);
END;
