UpFileByld

[oracle]

Доброго времени суток.
Подскажите, пожалуйста, как использовать функцию UpFileByld. Мне нужно прикрепить файл к созданному мной (программно) документу. Пишу на Делфи.

HResult UpFileById(

long inIdVersion,        // идентификатор версии

BSTR stFileName,        // название файла

BSTR stFullFilePath,        // относительный путь к файлу

Variant vaFileData,        // содержимое файла

DateTime dtDateOfCreate,        // дата создания файла

WordBool boDel,        // признак удаления файла

Variant * inReturnCode,        // код возврата

Variant * stErrorMessage,        // сообщение об ошибке

);

Первый параметр, как я понимаю, это идентификатор объекта(документа) к которому будет прикреплен файл. Я его получил так:

NewLinkIdDoc := RunMethod('InsertObject', [ParentType, ParentProduct,
                    ParentVersion, '3D-модель детали Inventor', ParentProduct, #32,
                    'Документы', 'Проектирование', false]);                                        //Создал документ к которому будет прикреплен файл

if NewLinkIdDoc <> 0 then begin
    with TClientDataSet.Create(nil) do
    try
      Data := RunMethod('GetInfoAboutLink', [NewLinkIdDoc, 2]);
      NewIdDoc := FieldByName('_ID_CHILD').AsInteger;                 //это и есть этот идентификатор версии, как я понял
    finally Free; end;
end;

Второй параметр название файла (например - string.ipt)

Третий параметр относительный путь к файлу (например - C:\Temp\string.ipt)

Четвертый параметр мне не очень понятен (как его можно получить??)

Пятый параметр дата создания файла. Я его получил так:

FileDateToDateTime(FileAge(FileName))

Шестой параметр в моем случае, как я понимаю, будет false.

Правильно ли я делаю и как получить 4 параметр?? Заранее спасибо.