Problemas con checkado en checkbox de otra aplicacion

[[escafandra]]

Los mensajes de usuario comienzan a partir del WM_USER, sirven para crear tus propios mensajes.

Cuando tenga un rato miro ese código.


Saludos.

[ecfisa]

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

[aguml]

Ok, cambiado.
Con respecto a lo que hago para gestionar lo del CheckBox ¿como lo ves? ¿como lo mejorarías? Es que acabo de aprender lo de cambiar el WndProc y lo aplico a todo jejeje

[ecfisa]

Hola aguml.

No estoy diciendo que esté mal usar WndProc, lo que sucede es que Builder ya tiene definido ese mensaje y te evitas la comprobación de si el mensaje fué otro.

A ver si este ejemplo te dá otra idea... En el form emisor pone un TButton y un TCheckBox y en el receptor tres TCheckBox (CheckBox1, CheckBox2 y CheckBox3) .

Emisor:

Código PHP:

...
struct data_struct {
  char className[255];
  char caption[255];
  int x, y;
  TColor color;
  bool state;
} ds;

void __fastcall TfrmSender::Button1Click(TObject *Sender)
{
  HANDLE hRecept = FindWindow("TfrmReceiver", "Receiver");
  if (hRecept != 0) {
    COPYDATASTRUCT cds;
    strcpy(ds.className, "TCheckBox");  
    strcpy(ds.caption,"CheckBox2");     
    ds.x = 50;
    ds.y = 30;
    ds.color = clYellow;
    ds.state = CheckBox1->Checked;
    cds.dwData = 0;
    cds.cbData = sizeof(ds);
    cds.lpData = &ds;
    ShowWindow(hRecept, SW_SHOW);
    SetForegroundWindow(hRecept);
    SendMessage(hRecept, WM_COPYDATA, 0, (LPARAM)& cds);
  } else
    MessageBox(0,"Receptor no encontrado","", MB_ICONERROR);
} 


Receptor:

header

Código PHP:

class TfrmReceiver : public TForm
{
__published:
  TCheckBox *CheckBox1;
  TCheckBox *CheckBox2;
  TCheckBox *CheckBox3;

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);
}; 


code

Código PHP:

struct data_struct {
  char className[255];
  char caption[255];
  int x, y;
  TColor color;
  bool state;
} ds;

void __fastcall TfrmReceiver::OnWMCopyData(TWMCopyData& msg)
{
  memcpy(&ds, msg.CopyDataStruct->lpData, sizeof(data_struct));

  for(int i = 0; i < ComponentCount; i++) {
    TCheckBox *cb = static_cast<TCheckBox*>(Components[i]);
    if (cb->ClassNameIs(ds.className) && cb->Caption == ds.caption) {
      cb->Left    = ds.x;
      cb->Top     = ds.y;
      cb->Color   = ds.color;
      cb->Checked = ds.state;
    }
  }
} 


Saludos

[aguml]

Guauuu pues si que es potente este método.