Ver Mensaje Individual
  #7  
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: 36
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(charWndClasscharWndTitlecharmsg
{
  
HANDLE hRecept;
  
COPYDATASTRUCT cds;

  
hRecept FindWindow(WndClassWndTitle);
  if (
hRecept != 0) {
    
cds.dwData 0;
    
cds.cbData strlen(msg)+1;
    
cds.lpData = (char*)msg;
    
SetForegroundWindow(hRecept);
    
SendMessage(hReceptWM_COPYDATA0, (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(TWMCopyDatamsg);

protected:
  
BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER
(WM_COPYDATATWMCopyDataOnWMCopyData)
  
END_MESSAGE_MAP(TForm)

public:
  
__fastcall TfrmReceiver(TComponentOwner);
};
... 
codigo
Código PHP:
...
void __fastcall TfrmReceiver::OnWMCopyData(TWMCopyDatamsg)
{
  
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