C++Builder5 - PDFCreator - convert doc into pdf

PDFCreator PDFCreator English
1
Hi,

the typelibraries are imported into C++Builder5 as components without any problems. My code works, but doesn't convert anything. Instead an error will be thrown: "Ghostscript error '-15'". Can anyone help me.  

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);

}
//---------------------------------------------------------------------------

thanks in advance,
JM