¿Puntero a objeto asignando su handle?

[[escafandra]]

Como dice Ñuño Martínez lo esperable es que falle. Mejor intenta informarte del componente de VB, para manejarlo desde la API de Windows en la medida que sea posible.

Saludos.

[aguml]

Lo he probado en un ejemplo creado por mi y no me funciona. Tengo esto:

App:

Código PHP:

void __fastcall TForm1::AddDll()
{
   //cargamos la Dll
   Dll=LoadLibrary("DllSaveImageEdited.dll");
   if(!Dll){
      ShowMessage("No se encontró la Dll: DllSaveImageEdited.dll");
   }else{
      //buscamos la funcion en la dll
      Funcion = (LPFuncion)GetProcAddress(Dll, "SaveImageEdited");
      if(!Funcion){
         ShowMessage("ERROR, no se encontró la función: SaveImageEdited");
      }else{
         Funcion();//Ejecutamos la funcion de la dll

         ButtonDesinstalarDll->Enabled = true;
         ButtonInyectarDll->Enabled = false;
      }
   }
} 


Dll:

Código PHP:

#include <windows.h>
#include "C:\\Archivos de programa\\Borland\\CBuilder6\\Imports\\AddFlow5Lib_OCX.h"
//---------------------------------------------------------------------------

#pragma argsused

/*******************************************************/
/*FUNCIÓN PARA INSTALAR/DESINSTALAR EL HOOK DEL TECLADO*/
/*******************************************************/
extern "C" __declspec(dllexport) __stdcall int SaveImageEdited(void)
{
   int retval;

   try
   {
      //Para la prueba
      HWND hwnd = FindWindow("TForm1", "Form1");
      hwnd = FindWindowEx(hwnd, NULL, "AfxOleControl42", NULL);

      //Obtengo un puntero a dicho componente con su handle
      TAddFlow* paf = (TAddFlow*)FindControl(hwnd); 
      
      if(paf!=NULL) {
         paf->SaveImage(afTypeMediumFile, afWMF, WideString("\\DiagramaEditado.wmf"));
         retval = 0;
      }else{
         MessageBoxA(NULL,"El puntero no es válido.", "Error", MB_OK | MB_ICONERROR);
         retval = -2;
      }
   }
   catch(...)
   {
      retval = -1;
   }
   return retval;
}
//---------------------------------------------------------------------------

int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
   return 1;
}
//--------------------------------------------------------------------------- 


El control es de clase "AfxOleControl42" y consigo su hwnd sin problemas pero FindControl retorna 0, o sea que no me devuelve la direccion y por tanto se muestra el mensaje de que el puntero no es valido.
¿que puede estar fallando? ya digo que es una prueba que hice en C++builder tanto la app como la dll.

En la aplicacion el componente se declara:

Código PHP:

TAddFlow *AddFlow1; 


[[escafandra]]

Quizás con FindComponent...

Saludos.

[aguml]

¿Como seria con FindComponent? He mirado la ayuda y veo que recibe como parametro un AnsiString pero no se que poner ahi y ademas doy al ejemplo y no aparece ni la funcion en el ejemplo.
Si es el Name no lo tendria en el de VB.

[mamcx]

Y para que quieres hacer esto?

Es mala idea tratar de romper el "contrato" de lo que cualquier API te suministre, EN ESPECIAL si intentas hacer una mutacion/cambio de estado o romper con el proposito de lo que hace esa API.

[aguml]

no no, es para implementar mas cosas que la app no hace y que podria hacerlo sin problemas ya que usa un objeto el cual trae consigo esos metodos. No hay que romper apis ni nada, solo llamar a metodos que ya existen y el fabricante no los usa. Imagina una clase con los metodos Draw, SaveImage, SaveFile, Clear y Refresh, imagina que alguien usa esa clase en una aplicacion y solo usa Draw y Refresh y ¿Por que no usa el resto? El sabrá pero en mi debugger me gustaria implementar la opcion de que pueda usar cualquier metodo de esa clase y para ello necesito el puntero de la clase para poder trabajar con sus metodos, propiedades o lo que sea.

[mamcx]

Pues eso que dices es romper el API. Si esta escondiendo el metodo (que es una de las razones de la OO: encapsulamiento ) es porque llamarlos puede causar problemas, o no tiene implementacion o carece de sentido.