IPictureDisp al portapapeles

[aguml]

Pues siguiendo la ayuda del componente que estoy probando veo que para guardar una imagen de lo que se muestra al portapapeles hace esto:

' Copy the diagram to the clipboard: 
' here we wish to copy all items and the back picture. 
Clipboard.Clear 
Clipboard.SetData 
AddFlow1.ExportPicture(afAllItems, False, True)

ExportPicture devuelve un IPictureDisp**.
El problema es que eso es VB y que no se como pasarlo a C++builder ¿alguien sabria decirme como hacer eso?

[aguml]

He probado a hacer cosas como estas que pongo a continuacion pero nada me funcionó

Código PHP:

void __fastcall TForm1::Exportarimagendeseleccionadosalportapapeles1Click(
      TObject *Sender)
{
   Clipboard()->Open();
   Clipboard()->Clear();
   TPicture *pIPD = new TPicture;
   pIPD->Assign((TPersistent*)AddFlow1->ExportPicture(afSelectedItems, true, true));
   Clipboard()->SetAsHandle(CF_METAFILEPICT, pIPD->Metafile->Handle);
   Clipboard()->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ExportarImagendetodosalportapapeles1Click(
      TObject *Sender)
{
   Clipboard()->Open();
   Clipboard()->Clear();
   IPictureDisp **pIPD = AddFlow1->ExportPicture(afAllItems, true, true);
   Clipboard()->SetAsHandle(CF_METAFILEPICT, (unsigned int)pIPD);
   Clipboard()->Close();
} 


[aguml]

Sigo investigando como conseguirlo y he llegado a esto:

Código PHP:

unsigned int DataHandle;
HPALETTE APalette;
unsigned short MyFormat;
TPicture *pic;
IPictureDisp **pIPD;

//Obtengo el puntero al IPictureDisp
pIPD = AddFlow1->ExportPicture(afAllItems, true, true);

try
{
   pic = new TPicture; //Solicito memoria para el TPicture
   __try
   {
      try
      {
         SetOlePicture(pic, *pIPD); //Paso la imagen del IPictureDisp al TPicture

         //Envio la imagen al portapapeles
         pic->SaveToClipboardFormat(MyFormat,DataHandle,APalette);
         Clipboard()->SetAsHandle(MyFormat,DataHandle);
      }catch(...){
         ShowMessage("Fallo al copiar la imagen al portapapeles.");
      }
   }__finally{
      delete pic; //Libero la memoria del TPicture
   }
}catch(...){
   ShowMessage("No hay memoria suficiente.");
} 


Cuando llego aquí da una excepcion:

Código PHP:

SetOlePicture(pic, *pIPD); 


Si entro con F7 veo esto:

Código PHP:

__fastcall DelphiInterface<T>(T* rhs)
{
   if (rhs != 0)
     rhs->AddRef();
   intf = rhs;
} 


Si voy linea a linea veo que al intentar ejecutar rhs->AddRef(); ese metodo no existe para ese objeto.
He mirado con OleViewer y no veo el interface IPictureDisp por ningun sitio pero si veo IPicture ¿como puede ser que no aparezca entre las interfaces y builder lo reconozca? ¿que puedo estar haciendo mal para que no funcione mi codigo?

[aguml]

Amigo, si hago esto:

IPictureDisp *pIPD = AddFlow1->ExportPicture(afAllItems, true, true);

Me da este error al compilar:

[C++ Error] Main.cpp(731): E2034 Cannot convert 'IPictureDisp * *' to 'IPictureDisp *'


La ayuda del componente no da mucha ayuda ya que casi todo el soporte lo da para VB y en algun que otro caso pone algun ejemplo en C++. Aqui los tres ejemplos que pone para ese metodo en VB:

Export the diagram to a picture box:


Código PHP:

' here, we copy only the selected items.

Picture1.Picture = AddFlow1.ExportPicture(afSelectedItems, False, False)
 




Example 2 (VB)



Código PHP:

' Copy the diagram to the clipboard:

' here we wish to copy all items and the back picture.

Clipboard.Clear

Clipboard.SetData AddFlow1.ExportPicture(afAllItems, False, True)
 


Example 3 (VB)



Código PHP:

' Save the diagram in a file:

' here we don›t want to save the grid.

Dim pic As IpictureDisp

AddFlow1.ShowGrid = False

Set pic = AddFlow1.ExportPicture(afAllItems, True, True) 

AddFlow1.ShowGrid = True

SavePicture pic, "myfile.emf"

 




Traceando puedo ver que ExportPicture se declara asi:


Código PHP:

IPictureDisp** __fastcall TAddFlow::ExportPicture(Addflow5lib_tlb::ItemSetConstants ItemSet, 
 VARIANT_BOOL IncludeBackColor,
 VARIANT_BOOL IncludeBackPic)
{

return GetDefaultInterface()->ExportPicture(ItemSet, IncludeBackColor, IncludeBackPic);

} 





Si entro con F7 llego aqui:


Código PHP:

IPictureDisp** __fastcall ExportPicture(Addflow5lib_tlb::ItemSetConstants ItemSet, 
 VARIANT_BOOL IncludeBackColor, VARIANT_BOOL IncludeBackPic)

 {
 _TDispID _dispid(/* ExportPicture */ DISPID(134));
 
TAutoArgs<3> _args;&#8233;
 _args[1] = (int)ItemSet /*[VT_USERDEFINED:0]*/;&#8233;
 _args[2] = IncludeBackColor /*[VT_BOOL:0]*/;&#8233;
 _args[3] = IncludeBackPic /*[VT_BOOL:0]*/;&#8233;
 OleFunction(_dispid, _args);&#8233;
 return (IPictureDisp** /*[C1]*/)(LPDISPATCH) /*[VT_DISPATCH:1]*/_args.GetRetVariant();
}&#8233; 


He traceado por dentro y no veo que en ningun sitio llame a Release() y ya no se que mas puedo probar. 


[aguml]

Por favor, que algun administrador elimine la respuesta anterior ya que el formato no está bien. Aqui lo pongo bien:

Amigos, si hago esto:

Código PHP:

IPictureDisp *pIPD = AddFlow1->ExportPicture(afAllItems, true, true); 


Me da este error al compilar:

[C++ Error] Main.cpp(731): E2034 Cannot convert 'IPictureDisp * *' to 'IPictureDisp *'

La ayuda del componente no da mucha ayuda ya que casi todo el soporte lo da para VB y en algun que otro caso pone algun ejemplo en C++. Aqui los tres ejemplos que pone para ese metodo en VB:

Example 1 (VB)

' Export the diagram to a picture box:
' here, we copy only the selected items.
Picture1.Picture = AddFlow1.ExportPicture(afSelectedItems, False, False)

Example 2 (VB)

' Copy the diagram to the clipboard:
' here we wish to copy all items and the back picture.
Clipboard.Clear
Clipboard.SetData AddFlow1.ExportPicture(afAllItems, False, True)

Example 3 (VB)

' Save the diagram in a file: 
' here we don›t want to save the grid. 
Dim pic As IpictureDisp
AddFlow1.ShowGrid = False
Set pic = AddFlow1.ExportPicture(afAllItems, True, True)
AddFlow1.ShowGrid = True
SavePicture pic, "myfile.emf"

Traceando puedo ver que ExportPicture se declara asi:

Código PHP:

IPictureDisp** __fastcall TAddFlow::ExportPicture(Addflow5lib_tlb::ItemSetConstants ItemSet,
                                                                      VARIANT_BOOL IncludeBackColor,
                                                                      VARIANT_BOOL IncludeBackPic)
{
  return GetDefaultInterface()->ExportPicture(ItemSet, IncludeBackColor, IncludeBackPic)
} 


Si entro con F7 llego aqui:

Código PHP:

IPictureDisp** __fastcall ExportPicture(Addflow5lib_tlb::ItemSetConstants ItemSet,
                                                 VARIANT_BOOL IncludeBackColor,
                                                     VARIANT_BOOL IncludeBackPic)
{
    _TDispID _dispid(/* ExportPicture */ DISPID(134));
    TAutoArgs<3> _args;
    _args[1] = (int)ItemSet /*[VT_USERDEFINED:0]*/;
    _args[2] = IncludeBackColor /*[VT_BOOL:0]*/;
    _args[3] = IncludeBackPic /*[VT_BOOL:0]*/;
    OleFunction(_dispid, _args);
    return (IPictureDisp** /*[C1]*/)(LPDISPATCH) /*[VT_DISPATCH:1]*/_args.GetRetVariant();
} 


He traceado por dentro y no veo que en ningun sitio llame a Release() y ya no se que mas puedo probar.

[aguml]

He hecho una prueba para intentar ver que pasa:

Código PHP:

   unsigned int DataHandle;
   HPALETTE APalette;
   unsigned short MyFormat;
   TPicture *pic;
   IPictureDisp *pIPD;

   //Obtengo el puntero al IPictureDisp
   pIPD = (IPictureDisp*)AddFlow1->ExportPicture(afAllItems, true, true);

   try
   {
      pic = new TPicture; //Solicito memoria para el TPicture

      __try
      {
         try
         {
            //Prueba que deberia pasar la imagen al IPictureDisp
            pic->LoadFromFile("Diagramas.wmf"); //Leo una imagen desde un archivo
            GetOlePicture(pic, pIPD); //La paso del TPicture al IPictureDisp
            SetOlePicture(pic, pIPD); //La paso del IPictureDisp al TPicture

            //Envio la imagen al portapapeles
            pic->SaveToClipboardFormat(MyFormat,DataHandle,APalette);
            Clipboard()->SetAsHandle(MyFormat,DataHandle);
         }catch(...){
            ShowMessage("Fallo al copiar la imagen al portapapeles.");
         }
      }__finally{
         delete pic; //Libero la memoria del TPicture
      }
   }catch(...){
      ShowMessage("No hay memoria suficiente.");
   } 


Lo que hago es leer una imagen desde el TPicture, luego la paso al IPictureDispatch y luego la vuelvo a pasar al TPicture desde el IPictureDisp. Pues bien:
1- Al IPictureDisp le tengo que hacer un cast mas que extraño al asignarlo para que no de error despues.
2- Tanto GetOlePicture como GetOlePicture devuelven void por lo que no se si fallan pero no dan excepcion ninguna.
3- Cuando uso GetOlePicture no veo que nada cambie en el IPictureDisp.
4- Cuando uso SetOlePicture puedo ver como cambia el valor de FGrafic en su interior.

¿como puede ser que solo con copiar la imagen de uno a otro y luego otra vez volver a hacer lo mismo ya no sea capaz de leer la imagen? Creo que GetOlePicture no hace lo que debe o que IPictureDisp no se inicializa como debe. ¿Alguien puede ayudarme?