🚀 go-pugleaf

Hi Remy,

Sorry, I will not able to show the complete code, it was too big.

BTW, not I wanted to access the DLL after it is freed.
It was some how called during the unload/closing process and
it was always had problem when Server issue a close command.


I hv a callback routine call from EXE to DLL to recheck the
DLL's form was truely free before it unload the DLL, the problem
always after this call.  FYI, on CloseForm caFree was used.

This problem occur with this module only,  I had other modules same
coding style working without any problem.

Here some portion of the actual code

void __fastcall  TfrMxCast::avPreExit( void )
{
    if ( !iPreInited )
      return;
    tbtStop->Click( );   // stop playback
    if ( pWav    )  pWav->wvoStop( );
    if ( pAudTTx )  pAudTTx->fStop = 1;   // flag thread to stop
    if ( pVdoTTx )  pVdoTTx->fStop = 1;  // flag thread to stop
    if ( pAudTRx )  pAudTRx->fStop = 1;  // flag thread to stop
    if ( pVdoTRx )  pVdoTRx->fStop = 1;  // flag thread to stop
    if ( vdoTime )
      {
        timeKillEvent( vdoTime );  vdoTime = 0;
        while ( iInVdoDsp && (99 != iInVdoDsp) )
          xSleep( 20 );
      }
    if ( pAudTTx )  pAudTTx->fqcStp( );  // trigger thtread stop event
    if ( pAudTRx )  pAudTRx->fqcStp( );  // trigger thtread stop event
    if ( pVdoTTx )  pVdoTTx->fqcStp( );  // trigger thtread stop event
    if ( pVdoTRx )  pVdoTRx->fqcStp( );  // trigger thtread stop event
    if ( pWav )
      {
        pWav->wvoClose( );
        delete pWav;
        pWav = NULL;
      }
    if ( pAudTTx )  {  delete pAudTTx;  pAudTTx = NULL;  }
    if ( pVdoTTx )  {  delete pVdoTTx;  pVdoTTx = NULL;  }
    if ( pAudTRx )  {  delete pAudTRx;  pAudTRx = NULL;  }
    if ( pVdoTRx )  {  delete pVdoTRx;  pVdoTRx = NULL;  }
    if ( pAudTxQ )  {  pAudTxQ->queClear( );  delete pAudTxQ;  pAudTxQ = 
NULL;  }
    if ( pVdoTxQ )  {  pVdoTxQ->queClear( );  delete pVdoTxQ;  pVdoTxQ = 
NULL;  }
    if ( pAudRxQ )  {  pAudRxQ->queClear( );  delete pAudRxQ;  pAudRxQ = 
NULL;  }
    if ( pVdoRxQ )  {  pVdoRxQ->queClear( );  delete pVdoRxQ;  pVdoRxQ = 
NULL;  }
    if ( NULL != pATxCpr )  {  OSFreeMem( pATxCpr );  pATxCpr = NULL;  }
    if ( NULL != pVTxCpr )  {  OSFreeMem( pVTxCpr );  pVTxCpr = NULL;  }
    if ( NULL != pATxRaw )  {  OSFreeMem( pATxRaw );  pATxRaw = NULL;  }
    if ( NULL != pVTxRaw )  {  OSFreeMem( pVTxRaw );  pVTxRaw = NULL;  }
    if ( NULL != pARxDcp )  {  OSFreeMem( pARxDcp );  pARxDcp = NULL;  }
    if ( NULL != pARxRaw )  {  OSFreeMem( pARxRaw );  pARxRaw = NULL;  }
    if ( NULL != pVRxRaw )  {  OSFreeMem( pVRxRaw );  pVRxRaw = NULL;  }
    dxdExit( );
    if ( hWndVdo )  { delete hWndVdo;  hWndVdo = NULL;  }
    iPreInited = 0;
}

void __fastcall TfrMxCast::FormClose( TObject *Sender,  TCloseAction 
&Action )
{
  DWORD dwtm;
  int   ncnt;

    DspMsg( 0,0,80,0,"Closing %08ld",GetTickCount( ) );
    Enabled          = false;
    tmrNQue->Enabled = false;
    tmrSeek->Enabled = false;
    tmrLoop->Enabled = false;
    tmrTime->Enabled = false;
    if ( iPlgInTInfo )
      iPlgInTInfo( PGII_PLUGINFREE,(PVOID)20000,InTAID_MOVIE );    // inform 
host, it will take 20000msec to free
    avPreExit( );
    if ( wTermType != TERM_ST )  // is program act as server
      {
        iEndSend = 0xFEFE;
        // To ensure packet were sending out with InTMSG_NETACK and must be 
valid dll InTMSG_VALIDDLL
        if ( iSendInT_VarPrm )
          iSendInT_VarPrm( InTMSG_USENETPRM | InTMSG_VALIDDLL | 
InTMSG_USETCP,  // InTMSG_SENDTOAPP,
                           dwLocalTID,dwLocalTID | 
0x000000FF,InTAID_MOVIE,InTAID_MOVIE,MDC_EXIT,0xFEFE,0,NULL );
        xSleep( 200 );  // delay 200msec
      }
    if ( pGrpLst )
      for ( ncnt = 0;  ncnt < pGrpLst->Count;  ++ncnt )
        iPlgInTInfo( 
PGII_RMVTMPCID,(PVOID)((PTIDGrpInf)pGrpLst->Items[ncnt])->agrphdr.dwCID,InTAID_MOVIE 
 );
    while ( pNetQue && pNetQue->Count )
      {
        OSFreeMem( pNetQue->Items[0] );
        pNetQue->Items[0] = NULL;
        pNetQue->Delete( 0 );
      }
    while ( pGrpLst && pGrpLst->Count )
      {
        OSFreeMem( pGrpLst->Items[0] );
        pGrpLst->Items[0] = NULL;
        pGrpLst->Delete( 0 );
      }
    if ( !iForceStop )
      {
        frMxCast = NULL;
        Action   = caFree;
      }
    if ( iPlgInTInfo )
      iPlgInTInfo( PGII_PLUGINCLOSED,NULL,InTAID_MOVIE );  // inform Host 
that DLL was ready to be unload.
}  // until this point, everything still good

int __fastcall TfrMxCast::ProcessQue( LPTNetHeader lpPrm )   // process 
remote command from server
{
  DWORD dwCID;

    DspMsg( 0,0,0,0,"MDC : %04lX",lpPrm->InTHdr.wMDC );
    switch ( lpPrm->InTHdr.wMDC )
      {
        case MDC_EXIT      :  iOnClosing = 2;
                              Enabled          = false;
                              tmrNQue->Enabled = false;
                              tmrSeek->Enabled = false;
                              tmrLoop->Enabled = false;
                              tmrTime->Enabled = false;
                              tbtStop->Click( );  // stop playback
                              xSleep( 100 );
                              PostMessage( Handle,WM_CLOSE,0,0 );
                              PostMessage( Handle,WM_DESTROY,0,0 );  // with 
this closing issue look like dissapear, but
                                                                             
                          //  new problem occur when re-start, still 
checking
                         break;
     }
}

void __fastcall TfrMxCast::tmrNQueTimer( TObject *Sender )
{
  LPTNetHeader pptr;

    tmrNQue->Enabled = false;
    while ( pNetQue && pNetQue->Count )
      {
        pptr = (LPTNetHeader)pNetQue->Items[0];
        pNetQue->Delete( 0 );
        ProcessQue( pptr );
        OSFreeMem( pptr );
      }
    tmrNQue->Enabled = !iOnClosing;
}

// call from Host/EXE to make sure created form was freed before it unload 
it
__declspec(dllexport) int WINAPI PluginExit( void )
{
    if ( frMxCast )
      {
        iForceStop = 1;
        frMxCast->Close( );
        delete frMxCast;
      }
    frMxCast = NULL;
    if ( clsPrms.WinClassName[0] ) // not used
      UnregisterClass( clsPrms.WinClassName,clsPrms.WindowClass.hInstance );
    CoUninitialize( );
    return ( 0 );
}   // until this point, everything still good

// call from EXE to create a Form
__declspec(dllexport) int WINAPI PluginInit( HWND hWnd,  viPluginInTInfo 
lpInTInfo )
{
  static PSTR psec = "Movie";

  FARPROC      afunc[10];
  String       stmp,sini;
  WAVEFORMATEX awf;
  char         amac[256];
  BYTE         bmac[64];
  PSTR         pnxt;
  char         aaut[256];

    CoInitialize( NULL );  // must call otherwise TSampleGrabber not 
availble
    dxdInit( GetDesktopWindow( ),353,288 );
    ZeroMemory( &clsPrms,sizeof(Controls::TCreateParams) );
    if ( lpInTInfo )
      {
        iPlgInTInfo = lpInTInfo;
        iPlgInTInfo( PGII_NETSEND,afunc,sizeof(afunc) );  // get EXE's 
function for DLL to  callback
        (FARPROC)iSendInT_VarPrm = afunc[0];
        (FARPROC)iSendInT_NetPrm = afunc[1];
        (FARPROC)iSendInT_NetPkt = afunc[2];
      }
    if ( !frMxCast )
      frMxCast = new TfrMxCast( (HWND)NULL );
    return ( frMxCast == NULL ? 0 : 1 );
}


Regards
KL Chin

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message 
news:41c7a7df$1@newsgroups.borland.com...
>
> "KL Chin" <klchin@1asia.com.my> wrote in message
> news:41c7a03a@newsgroups.borland.com...
>
>> The problem almost every time (99%) had problem when close
>> the application remotely, by issue the PostMessage with WM_CLOSE
>> or Close.  Where the application always access/call/jump to the
>> free-ed DLL memory/code area (filled with 0 or ???? view with

>> debugger), where I'm not sure the code belonging to which lib, bcoz
>> the debugging show the wrong source code or little info.
>
> Please show your actual code.  Why are you trying to access the DLL after 
> it
> is freed?  Where are you freeing the DLL to begin with?
>
>
> Gambit
>
>