🚀 go-pugleaf

"McKool" <kenethw@peak-system.com> ha scritto nel messaggio 
news:4176363d@newsgroups.borland.com...
> Have someone an example of  how works SharedMemory? I want to communicate 
> two programs that work in the same computer (as Cleint/Server app).
>
> Thanks In Advance.
>
> K.W.
>

Hi

I put here the code I use to communicate some parameters among several 
application on the same PC having one of these as Server (Supervisor) using 
shared memory. If you have some problem feel free to email me!!

good luck

Paolo




    HANDLE              FShareHandle;
    void *              FMemory;



SendHASMessage(hmHASSUPERVISOR,hmHASPHONEANS,hmCMD_HIDE,0,0,"");



////////////////////////////////////////////////////////////////////////////////
void __fastcall TFMain::SendHASMessage(int mMittente,int mDest,int mCmd, 
long lPar1, long lPar2, AnsiString sPar1)
{
hmc.idMit  = mMittente;
hmc.idDest = mDest;
hmc.idCmd  = mCmd;
hmc.lPar1  = lPar1;
hmc.lPar2  = lPar2;
strcpy(hmc.sPar1,sPar1._S);
memcpy(FMemory,&hmc,hmcSIZE);
HWND tw = FindWindow(NULL,destWindows[mDest-100]._S);
SendMessage(tw, UM_HASCOMMANDS, 0, 0 );
}


////////////////////////////////////////////////////////////////////////////////
void __fastcall TFMain::hcGetParameters()
{
memcpy(&hmc,FMemory,hmcSIZE);
}

////////////////////////////////////////////////////////////////////////////////
void __fastcall TFMain::SetSharedMem()
{
char name[20];
strcpy(name,"HASCMDMEM");
FShareHandle = CreateFileMapping((HANDLE)0xFFFFFFFF, NULL, PAGE_READWRITE, 
0, (int)hmcSIZE, name);
FMemory = MapViewOfFile( FShareHandle, FILE_MAP_WRITE, 0, 0, 0 );

if ( FMemory == NULL )
    MsgBox("ERRORE CREAZIONE PIPE COMANDI","H.A.S. Error SM2",0);
}


////////////////////////////////////////////////////////////////////////////////
void __fastcall TFMain::DestroySharedMem()
{
if ( !UnmapViewOfFile( FMemory ) )
    {
    MsgBox("ERRORE CHIUSURA PIPE COMANDI","H.A.S. Error SM3",0);
    FMemory = NULL;
    }

if ( FShareHandle != 0 )
    if ( ! CloseHandle( FShareHandle ) )
        MsgBox("ERRORE CHIUSURA PIPE COMANDI","H.A.S. Error SM4",0);

}




void __fastcall TFMain::WndProc(Messages::TMessage &Message)
{
switch ( Message.Msg )    {
    case WM_ERASEBKGND:
        Message.Result = 1;
        break;
    case UM_HASCOMMANDS:
        hcGetParameters();
        if ( hmc.idDest == hmHASSUPERVISOR )
            {
            switch ( hmc.idMit )
                {
                case hmHASPHONEANS:
                    switch(hmc.idCmd)
                        {
                        case hmCMD_APPHIDDEN:
                            SegreteriaTelefonica1->Checked = false;
                            break;
                        case hmCMD_APPSHOWN:
                            iPhoneAnsw->Show();
                            PHONEANS_READY = true;
                            SegreteriaTelefonica1->Checked = true;
                            break;
                        case hmCMD_APPCLOSED:
                            iPhoneAnsw->Hide();
                            PHONEANS_READY = false;
                            SegreteriaTelefonica1->Enabled = false;
                            break;
                        }
                break;
                case hmHASSPEAKER:
                    switch(hmc.idCmd)
                        {
                        case hmCMD_APPCLOSED:
                            iVoxModule->Hide();
                            SPEAKER_READY = false;
                            USEVOICE = false;
                            break;
                        case hmCMD_APPSHOWN:
                            iVoxModule->Show();
                            SPEAKER_READY = true;
                            USEVOICE = true;
                            break;
                        case hmCMD_ENDSPEAK:
                            SPEAKING = false;
                            tSpeak->Enabled = true;
                            break;
                        }
                }
            }
        Message.Result = true;
        break;
    default:
        TForm::WndProc(Message);
        break;
    }
}