Работа с классами(?) DocCom

[zero_1632]

Есть замечательная программа docs2text (http://www.textlib.com). Точнее, это называется библиотекой.
Назначение- конвертация в текст вордовских и pdf файлов.
Проблема в том, что как я не пытался, не смог ее запустить.
Есть краткая дока:

Спойлер

The functions below are methods of the DocCom class

GetText extracts all required information from the document given. Implemented as Unicode. Ansi version also available.


int GetText(
LPCTSTR lpbstrFileName,
OutPutStruc lpOutPutStruc
);


lpFileName - [in] Pointer to the BSTR string that specifies the name of a document to open; Format of the given document detected automatically and doesn't need to be specified anywhere.


lpOutPutStruc – [in, out] Pointer to OutPutStruc structure:


struct OutPutStruc {
BSTR pText;
BSTR pTitle;
BSTR pAuthor;
BSTR pPassword;
};

pText – Pointer to a document's text;

pTitle– Pointer to a title's text;

pAuthor- Pointer to an author's text;

pPassword- Pointer to a password string for a pdf password protected documents (see detailed information below), make sure this field is zeroed before usage;

Не очень понятно, наверное надо использовать ObjCreate.
Проблема в том, что в директории установки программы лежит dll.
Что делать с ней - ума не приложу.
Также там лежит код для vb6

Спойлер

Attribute VB_Name = "doctxt"
Public Enum docStatus
doc_OK = 0
doc_Corrupted = -1
doc_Unsupported = -2
doc_Encrypted = -3
doc_PdfPassword = -4
End Enum

Sub Main()
Dim doctxt As DocCom.DocCom
Dim pStructure As DocCom.OutPutStruc
Set doctxt = New DocCom.DocCom

Call doctxt.GetText("test.doc", pStructure)
MsgBox pStructure.pText, vbOKOnly

End Sub

Так, понятно. Пишем:

$doctxt =ObjCreate("DocCom.DocCom")
$pStructure =ObjCreate("DocCom.OutPutStruc")
doctxt.GetText("test.doc", pStructure)

А вот и нет. Ничего не получается. Даже объект не создается.
И дальше я бы зашел в тупик.

Хорошо, берем код от ASP Demo (лежит там же,какой язык - вообще не знаю)

Спойлер

dim obj
Set obj = CreateObject("CDocComTxt")
Response.Write obj.GetASPText("c:\Inetpub\wwwroot\test1.doc")

Класс.

Пишем

$doctxt =ObjCreate("CDocComTxt")

Откуда они взяли CDocComTxt? В хелпе ни слова. Ну ладно, объект создается. (или это ссылка на объект?)
Дальше облом.
Я пытался

$doctxt = ObjCreate("CDocComTxt")
$text=$doctxt.GetASPText("c:\Inetpub\wwwroot\test1.doc")

Не получается. Голову сломал.

 

[madmasles]

Предупреждение

За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

С уважением, ваш Модератор.

 

[Medic84]

А Вас не смущает что это не COM DLL, а простая DLL библиотека? И использоваться должна соответствующе.

DLLOpen()
DLLCall()
DllStructCreate ()

и т.п.

 

[zero_1632]

А Вас не смущает что это не COM DLL, а простая DLL библиотека? И использоваться должна соответствующе.

Да в том-то и дело, что ни в одном примере нет команды открытия DLL-файла, а только упоминания типа DocCom.DocCom
Я не очень понял, что мне использовать при создании структуры вместо BSTR?
Народ на официальном форуме вовсю развлекается с AutoItObject.au3, я конечно ее попробую, но не уверен в результате.

 

[zero_1632]

Решение найдено,спустя более чем полгода, совместно с автором docs2text
(еще раз спасибо ему за изменение функций своей библиотеки именно для autout)
Были нужны коды завершения работы с объектами, добавлены автором.

$objDocCom = ObjCreate("CDocComTxt")
$tResult=$objDocCom.GetASPText("test.doc")

В результате получаем выдранный текст, либо с отрицательным значением -ошибку.
-1 - невозможно конвертировать
-4 - запаролен
(наверное есть еще какие-то, я правда не встречал, мне и этих пока достаточно)