SoloCodigo

Tengo una llamada a la API que regresa entre sus argumentos un apuntador a una estructura en memoria. Existen varias posibles estructuras (aunque yo conozco en todo momento cual de ellas está siendo regresada) Mi problema es como tomar la dirección que se regresa para referenciar el contenido de la estructura siendo esta variable. En pascal sería algo como:

case TIPO of
  1 : a := lpData^.s  
  2 : a := lpData^.f
end;

donde lpData es el apuntador regresado por la API

¿Existe alguna forma de hacer esto en VB6?

Gracias de antemano.

Al cargar un bitmap desde un TImageList mediante GetBitmap obtengo un objeto que  ignora la propiedad Transparency = true (al dibujarse tiene el fondo blanco), si el mismo mapa de bits se carga directamente desde un archivo mediante LoadFromFile,  Transparency = true es respetado. Supongo que esto demuestra que la estructura del bitmap no está corrompida y el método TImageList.GetBitmap es el que ocasiona el problema.

¿Alguna idea sobre como corregir esto?

Gracias,

Saludos:

Tengo un metafile en el portapaples y lo estoy tratando de mostrar en un control TImage a traves de la instrucción:

image1.Picture.Metafile.LoadFromClipboardFormat(Aformat,Adata,Apalette);

Según la documentación, esto debería ser suficiente para cargar el gráfico, pero se origina una excepción con el mensaje "Unsupported clipboard format"

El metafile está allí y es correcto (puede cargarse con Word, p. ejemplo) si se verifica el contenido del clipboard con Delphi se encuentran los formatos cf_metafilepict y cf_enhmetafile presentes.

Conseguí una referencia a este problema en la web pero era un foro en un idioma ininteligible para mí (¿turco?)

Agradezco cualquier ayuda que puedan ofrecerme.

Gracias de antemano.