Estoy trabajando en un proyecto de base de datos, tengo el siguiente codigo que copia el contenido de un Query a Word.
void __fastcall TmQuick::SpeedButton16Click(TObject *Sender)
{
OleVariant Template = EmptyParam;
OleVariant NewTemplate = False;
OleVariant ItemIndex = 1;
try
{
try
{
WordApplication1->Connect();
}
catch (Exception &exception)
{
MessageDlg("Microsoft Word no está instalado.", mtError, TMsgDlgButtons() << mbYes, 0);
Abort;
}
WordApplication1->Visible = True;
WordApplication1->Caption = StringToOleStr("QuickSearch insert to Microsoft Word.");
if (CheckBox1->Checked)
{
WordApplication1->Documents->Add(Template, NewTemplate);
WordDocument1->ConnectTo(WordApplication1->Documents->Item(ItemIndex));
}
WordApplication1->Options->CheckSpellingAsYouType = False;
WordApplication1->Options->CheckGrammarAsYouType = False;
WordDocument1->Sentences->Last->Paste();
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("Número: " + Query1->Fields->Fields[0]->AsString + '\n'));
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("Especie:" + Query1->Fields->Fields[1]->AsString + '\n'));
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("Autor: " + Query1->Fields->Fields[2]->AsString + '\n'));
WordDocument1->Range(EmptyParam, EmptyParam)->InsertAfter(StringToOleStr("______________________________________________\n"));
}
catch (Exception &exception)
{
Application->ShowException(&exception);
WordApplication1->Disconnect();
}
}
//---------------------------------------------------------------------------Quisiera copiar tambien la imagen que se muestra con un Query en un Timage, en el evento AfterScroll del Query, pero no se como hacerlo, alguien podría decirme como enviar la imagen a Word, muchas gracias.
