Доброго времени суток.
Подскажите, пожалуйста, как использовать функцию 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 параметр?? Заранее спасибо.