<div dir="ltr">I cannot understand how I can post a message into a newsgroup using INet<br>components.<br><br>I can connect, authenticate, join a group and issue several commands like<br>ARTICLE<br>BODY<br>HEAD<br>XOVER<br><br>However, when I try to post a message, my code always returns 500 (unknown<br>command or wrong syntax).<br><br>Any help?<br><br>This is what I do (after connecting and authenticating):<br><br>uses<div>...lNet, lclnet, lnetcomponents, LConvEncoding;<br><div><br></div><div>var<br>   aStream:TMemoryStream;      // correctly initialized elsewhere<br>   aclient:TLTCPComponent;     // correctly initialized elsewhere<br><br>procedure LineToStream(Buf : String);<br>begin<br>   Buf := Buf + #13#10;<br>   aStream.WriteBuffer(Buf[1], Length(Buf));<br>end;<br><br>procedure TfrmUReader.btnSendPostClick(Sender: TObject);<br>var<br>   a:integer;<br>begin<br>   aStream.Clear;<br>   LineToStream('POST');<br>   LineToStream('"peppepolpo" <<a href="mailto:octopushole@gmail.com">octopushole@gmail.com</a>>');<br>   LineToStream('Newsgroups: it.hobby.fai-da-te');<br>   LineToStream('Subject: test 201937');<br>   LineToStream('Organization: None');<br>   LineToStream('X-Newsreader: DIY component ');<br><br>   { End of header is a blank line }<br>   LineToStream('');<br><br>   { Write the message body }<br>   LineToStream('');<br>   LineToStream('test 201937');<br><br><br>   aStream.Seek(0, soFromBeginning     );<br><br>   a:=aclient.Send(aStream, aStream.Size);<br><br>   // a=500 here<br>end;<br><br><br></div></div></div>