Richard,

Do not send a server banner:

void __fastcall TSocketWin::ListenBtnClick(TObject *Sender)
{
   if (ListenBtn->Tag == 0)
   {
   NNTPLog->Clear();
      WSocketServer->Banner = ""; //<== !


Make sure this one doesn't AV :
void __fastcall TSocketWin::Log(AnsiString Msg)
{
   while (Msg.Length() && (Msg[Msg.Length()] == '\n' || Msg[Msg.Length()] == 
'\r'))
   Msg.Delete(Msg.Length(), 1);
   log->Add(Msg);
}

-- 
Arno Garrels


--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to