Hallo,
habe die Typbliotheken von PDFCreator ohne Probleme importieren können.
Leider habe ich in dem nachfolgenden Code irgendwo was vergessen oder falsch eingestellt. Bitte um Hilfe, da ich nicht weiter weiß.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant PDFCreatorServer = Variant::CreateObject("PDFCreator.clsPDFCreator");
clsPDFCreator1->Disconnect();
clsPDFCreator1->cErrorClear();
clsPDFCreator1->Connect();
clsPDFCreatorOptions1->Connect();
//clsPDFCreator1->OneError = clsPDFCreatorError1->GetDefaultInterface();
//ShowMessage(AnsiString(clsPDFCreator1->Get_cPDFCreatorApplicationPath()));
clsPDFCreator1->InitServerData();
clsPDFCreator1->OneReady = OnPDFCreator_Ready;
clsPDFCreator1->OneError = OnPDFCreator_Error;
try
{
clsPDFCreator1->cStart(L"/NoProcessingAtStartup", true);
}
catch(...)
{
_clsPDFCreatorErrorPtr error_ptr = clsPDFCreator1-> Get_cError();
ShowMessage(error_ptr->get_Description());
}
_clsPDFCreatorOptionsPtr ptr = clsPDFCreatorOptions1->GetDefaultInterface();
// clsPDFCreator1->cOptions
ptr->UseAutosave = 1;
ptr->UseAutosaveDirectory = 1;
ptr->set_AutosaveFormat(0);
// ; 0=PDF, 1=PNG, 2=JPG, 3=BMP, 4=PCX, 5=TIFF, 6=PS, 7= EPS, 8=ASCII
ptr->set_AutosaveDirectory(L"C:\\");
ptr->set_AutosaveFilename(L"testing");
ptr->set_NoProcessingAtStartup(true);
//ptr->set_DontUseDocumentSettings(true);
ptr->PDFColorsColorModel = 0; // RGB format
ptr->set_SaveFilename(L"C:\\testing.pdf");// (false);
clsPDFCreator1->_Set_cOptions( ptr );
// clsPDFCreator1->cSaveOptions( (IDispatch*)ptr,L"");
clsPDFCreator1->Set_cVisible(true);
clsPDFCreator1->Set_cDefaultPrinter(L"PDFCreator");
clsPDFCreator1->cClearCache();
// $ReadyState = 0
//clsPDFCreator1->cPrintFile(L"C:\\help.doc");
clsPDFCreator1->cPrintURL(L"http://www.pdfforge.org",1500);
clsPDFCreator1->cPrintPDFCreatorTestpage();
clsPDFCreator1->cPrinterStop = 0;
for(int i=0; i<50; i++)
{
Sleep(100);
Application->ProcessMessages();
}
///// now wait for PDFCreator to finish
//int c = clsPDFCreator1->cCountOfPrintjobs;
//while (c > printJobCount)
//{
// Sleep(10);
// Application1->ProcessMessages();
// c = clsPDFCreator1->cCountOfPrintjobs;
//}
//clsPDFCreator1->Get_cIsConverted();
//PDFCreatorServer = Unassigned;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OnPDFCreator_Ready(TObject* Object)
{
// $ReadyState = 1
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OnPDFCreator_Error(TObject* Object)
{
_clsPDFCreatorErrorPtr error_ptr = clsPDFCreator1-> Get_cError();
ListBox1->Items->Add(error_ptr->get_Description());
// WideString ws;
// clsPDFCreator1->Get_cErrorDetail(ws);
// ShowMessage(ws);
}
//---------------------------------------------------------------------------
besten Dank im vorraus,
JM
habe die Typbliotheken von PDFCreator ohne Probleme importieren können.
Leider habe ich in dem nachfolgenden Code irgendwo was vergessen oder falsch eingestellt. Bitte um Hilfe, da ich nicht weiter weiß.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant PDFCreatorServer = Variant::CreateObject("PDFCreator.clsPDFCreator");
clsPDFCreator1->Disconnect();
clsPDFCreator1->cErrorClear();
clsPDFCreator1->Connect();
clsPDFCreatorOptions1->Connect();
//clsPDFCreator1->OneError = clsPDFCreatorError1->GetDefaultInterface();
//ShowMessage(AnsiString(clsPDFCreator1->Get_cPDFCreatorApplicationPath()));
clsPDFCreator1->InitServerData();
clsPDFCreator1->OneReady = OnPDFCreator_Ready;
clsPDFCreator1->OneError = OnPDFCreator_Error;
try
{
clsPDFCreator1->cStart(L"/NoProcessingAtStartup", true);
}
catch(...)
{
_clsPDFCreatorErrorPtr error_ptr = clsPDFCreator1-> Get_cError();
ShowMessage(error_ptr->get_Description());
}
_clsPDFCreatorOptionsPtr ptr = clsPDFCreatorOptions1->GetDefaultInterface();
// clsPDFCreator1->cOptions
ptr->UseAutosave = 1;
ptr->UseAutosaveDirectory = 1;
ptr->set_AutosaveFormat(0);
// ; 0=PDF, 1=PNG, 2=JPG, 3=BMP, 4=PCX, 5=TIFF, 6=PS, 7= EPS, 8=ASCII
ptr->set_AutosaveDirectory(L"C:\\");
ptr->set_AutosaveFilename(L"testing");
ptr->set_NoProcessingAtStartup(true);
//ptr->set_DontUseDocumentSettings(true);
ptr->PDFColorsColorModel = 0; // RGB format
ptr->set_SaveFilename(L"C:\\testing.pdf");// (false);
clsPDFCreator1->_Set_cOptions( ptr );
// clsPDFCreator1->cSaveOptions( (IDispatch*)ptr,L"");
clsPDFCreator1->Set_cVisible(true);
clsPDFCreator1->Set_cDefaultPrinter(L"PDFCreator");
clsPDFCreator1->cClearCache();
// $ReadyState = 0
//clsPDFCreator1->cPrintFile(L"C:\\help.doc");
clsPDFCreator1->cPrintURL(L"http://www.pdfforge.org",1500);
clsPDFCreator1->cPrintPDFCreatorTestpage();
clsPDFCreator1->cPrinterStop = 0;
for(int i=0; i<50; i++)
{
Sleep(100);
Application->ProcessMessages();
}
///// now wait for PDFCreator to finish
//int c = clsPDFCreator1->cCountOfPrintjobs;
//while (c > printJobCount)
//{
// Sleep(10);
// Application1->ProcessMessages();
// c = clsPDFCreator1->cCountOfPrintjobs;
//}
//clsPDFCreator1->Get_cIsConverted();
//PDFCreatorServer = Unassigned;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OnPDFCreator_Ready(TObject* Object)
{
// $ReadyState = 1
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OnPDFCreator_Error(TObject* Object)
{
_clsPDFCreatorErrorPtr error_ptr = clsPDFCreator1-> Get_cError();
ListBox1->Items->Add(error_ptr->get_Description());
// WideString ws;
// clsPDFCreator1->Get_cErrorDetail(ws);
// ShowMessage(ws);
}
//---------------------------------------------------------------------------
besten Dank im vorraus,
JM
Comment