🚀 go-pugleaf

Remy Lebeau (TeamB) skrev:

> What exactly are you trying to do?  What exactly is not working for you?
> Please be more specific.

> You did not show the original C++ code that you are trying to translate, and
> it is not in the newsgroup archives.  I cannot tell you if the translation
> is accurate or not.
> 
>

You're right. I should have been more spesific.Sorry about that.
I'm trying download newsgroup articles in a threaded layout.
I found the discussion here:

http://216.101.185.148/scripts/isapi.dll/thread?id=5D6C5471&thread=1267947

The BCB-code:

TTreeNode* __fastcall FindParentMessage(TStrings *Messages, AnsiString
References)
     {
         if( !References.IsEmpty() )
         {
             char *pFirst = References.c_str();
             char *pStop = (pFirst+2);
             char *pStart, *pEnd = References.AnsiLastChar();

             // scan through the reference list from back to front as
             // newer messages in a discussion are at the end of the list
             while( pEnd > pStop )
             {
                 // find the end of the MsgID
                 while( (pEnd > pStop) && (*pEnd != '>') ) --pEnd;
                 if( pEnd == pStop ) break;

                 // find the start of the MsgID
                 pStart = (pEnd-1);
                 while( (pStart >= pFirst) && (*pStart != '<') ) --pStart;
                 if( pStart < pFirst ) break;

                 // find the MsgID in the stored list. chances are, the
parent
                 // message was downloaded just prior to the message
currently
                 // being processed, so scan the stored messages from 
last to
first

                 AnsiString MsgIdToFind(pStart, pEnd-pStart+1);
                 for(int idx = Messages->Count-1; idx >= 0; --idx)
                 {
                     if( Messages->Strings[idx] == MsgIdToFind )
                         // MsgID was found
                         return (TTreeNode*)Messages->Objects[idx];
                 }

                 // keep going
                 pEnd = (pStart-1);
             }
         }

         // MsgID not found
         return NULL;
     }

     //...

     TStringList *Messages = new TStringList;
     try
     {
         TStringList *XOverData = new TStringList;
         try
         {
             int ArticleIndex, ByteCount, LineCount;
             AnsiString Subject, From, MsgId, References, ExtraData;
             TDateTime dtDate;
             TTreeNode *Node;

             // use whatever article indexes you are actually downloading
             IdNNTP1->XOVER(AnsiString(IdNNTP1->MsgLow) + "-" +
AnsiString(IdNNTP1->MsgHigh), XOverData);

             TreeView1->Items->BeginUpdate();
             try
             {
                 for(int x = 0; x < XOverData->Count; ++x)
                 {
                     IdNNTP1->ParseXOVER(XOverData->Strings[x], 
ArticleIndex,
Subject, From, dtDate, MsgId, References, ByteCount, LineCount, ExtraData);

                     Node = FindParentMessage(Messages, References);
                     if( Node )
                         Node = TreeView1->Items->AddChild(Node, Subject);
                     else
                         Node = TreeView1->Items->Add(NULL, Subject);
                     }

                     Messages->AddObject(MsgId, Node);
                 }
             }
             __finally {
                 TreeView1->Items->EndUpdate();
             }
         }
         __finally {
             delete XOverData;
         }
     }
     __finally {
         delete Messages;
     }