🚀 go-pugleaf

The answer is it needs the control period character at the end of the post

"\r\n.\r\n"

John

"John Borchers" <jborchers@nohere.rcn.com> wrote in message 
news:2Y-dnZ73hLhfvYvfRVn-hQ@rcn.net...
> All,
>
> I'm losing my Indy application in the Post() function. It only returns 
> after the news server connection times out and automatically disconnects 
> (5 minutes or so later). This code was working with the old Borland 
> sockets. Everything else with indy seems to port just fine. Any idea whats 
> wrong? The LineToStream function simply appends "\r\n"
>
> Why might the Post() function hang?
>
>       LineToStream("From: test@nomail.com");
>       LineToStream("Newsgroups: " + Group->Text);
>       AnsiString subLine="Subject: ";
>       subLine+=Subject->Text+" ";
>       subLine+=IntToStr(IndexFile->Data.Posting.ID)+" ("+curPos+
>                "\\"+total+")";
>       LineToStream(subLine);
>       // End of header is a blank line
>       LineToStream("");
>       TMemoryStream* fileMem=new TMemoryStream();
>       fileMem->LoadFromFile(search.Name);
>       //add this file size to the total post body size
>       TotalPostSize+=fileMem->Size;
>       //now add the file to the stream
>       FDataStream->Write("Just A Test\n\r",13);
>       //clean
>       do
>        {
>         // Set stream pointer to beginning of stream because TNntpCli will 
> post
>         // from the current position
>         FDataStream->Seek(0, soFromBeginning);
>         // Ask the component to post the stream. The posting occurs in the
>         // background ! We will receive the OnRequestDone event when done.
>         // It's in this event handler that the stream must be destroyed
>         //set the group
>         Label4->Caption="Posting "+subLine;
>         //check the connection
>         try
>          {
>           CheckConnect();
>           IdNNTP1->SelectGroup(Group->Text);
>           IdNNTP1->Post(FDataStream);
>          }
>         catch(Exception &E)
>          {
>           ShowMessage("Problem because "+E.Message+" during posting.");
>          }
>
>
>