Ver Mensaje Individual
  #2  
Antiguo 01-10-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola aguml.

Creo que lo complicas usando WndProc para capturar el mensaje, es mas simple:

Emisor:
codigo
Código PHP:
...
void wmCopyData(char* WndClass, char* WndTitle, char* msg) 
{
  
HANDLE hRecept;
  
COPYDATASTRUCT cds;

  
hRecept = FindWindow(WndClass, WndTitle);
  if (
hRecept != 0) {
    
cds.dwData = 0;
    
cds.cbData = strlen(msg)+1;
    
cds.lpData = (char*)msg;
    
SetForegroundWindow(hRecept);
    
SendMessage(hRecept, WM_COPYDATA, 0, (LPARAM)& cds);
  } else
    
MessageBox(0,"Receptor no encontrado","", MB_ICONERROR);
}

// ej. envio 
void __fastcall TfrmSender::Button1Click(TObject *Sender)
{
 
wmCopyData("TfrmReceiver", "Receiver", Edit1->Text.c_str());
} 
Receptor:
header
Código PHP:
...
class 
TfrmReceiver : public TForm
{
__published:

private:
  
void __fastcall OnWMCopyData(TWMCopyData& msg);

protected:
  
BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER
(WM_COPYDATA, TWMCopyData, OnWMCopyData)
  
END_MESSAGE_MAP(TForm)

public:
  
__fastcall TfrmReceiver(TComponent* Owner);
};
... 
codigo
Código PHP:
...
void __fastcall TfrmReceiver::OnWMCopyData(TWMCopyData& msg)
{
  
ShowMessage("Mensaje recibido: " + String((char*)msg.CopyDataStruct->lpData));
}
... 
Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 01-10-2014 a las 02:13:09.
Responder Con Cita