Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];

Вниз

Чтение/запись свойств Word документа челез ОЛЕ линки   Найти похожие ветки 

 
Davinchi   (2004-06-22 13:35) [0]

Помогите разобраться в чем проблема, читать свойства (автор, тема, и т.д.т.п.) из вордовского файла получается без проблем, а при записи тем же методом ничего не происходит....
Вот реальный код моих процедур:

uses ActiveX, ComObj, SysUtils;

function GetDocInf(FileName: TFileName): String;
const
 FMTID_SummaryInformation: TGUID = "{F29F85E0-4FF9-1068-AB91-08002B27B3D9}";
var
 PFileName: PWideChar;
 Storage: IStorage;
 PropSetStg: IPropertySetStorage;
 PropStg: IPropertyStorage;
 ps: PROPSPEC;
 pv: PROPVARIANT;
begin
 PFileName := StringToOleStr(FileName);
 try
   OleCheck(StgOpenStorage(PFileName, nil, STGM_DIRECT or STGM_READWRITE or STGM_SHARE_EXCLUSIVE, nil, 0, Storage));
 finally
   SysFreeString(PFileName);
 end;
 PropSetStg := Storage as IPropertySetStorage;
 OleCheck(PropSetStg.Open(FMTID_SummaryInformation, STGM_DIRECT or STGM_READWRITE or STGM_SHARE_EXCLUSIVE, PropStg));
 ps.ulKind := PRSPEC_PROPID;
 ps.propid := PIDSI_AUTHOR;
 PropStg.ReadMultiple(1, @ps, @pv);
 Result := pv.pszVal;
end;

procedure SetDocInf(FileName: TFileName; Value: String);
const
 FMTID_SummaryInformation: TGUID = "{F29F85E0-4FF9-1068-AB91-08002B27B3D9}";
var
 PFileName: PWideChar;
 Storage: IStorage;
 PropSetStg: IPropertySetStorage;
 PropStg: IPropertyStorage;
 ps: PROPSPEC;
 pv: PROPVARIANT;
begin
 PFileName := StringToOleStr(FileName);
 try
   OleCheck(StgOpenStorage(PFileName, nil, STGM_DIRECT or STGM_READWRITE or STGM_SHARE_EXCLUSIVE, nil, 0, Storage));
 finally
   SysFreeString(PFileName);
 end;
 PropSetStg := Storage as IPropertySetStorage;
 OleCheck(PropSetStg.Open(FMTID_SummaryInformation, STGM_DIRECT or STGM_READWRITE or STGM_SHARE_EXCLUSIVE, PropStg));
 ps.ulKind := PRSPEC_PROPID;
 ps.propid := PIDSI_AUTHOR;
 pv.pszVal := PChar(Value);
 PropStg.WriteMultiple(1, @ps, @pv, PIDSI_AUTHOR);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text := GetDocInf(Filename.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 SetDocInf(Filename.FileName, Edit1.Text);
end;


 
User_Name   (2004-06-23 11:49) [1]

Всегда такие вещи записывал так: т.е. открывал через ОLE и

WrdDoc.BuiltInProperty [wdPropertyAuthor] := ...
WrdDoc.BuiltInProperty [wdPropertyComments] :=...



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.056 c
8-1084885435
Iraizor
2004-05-18 17:03
2004.08.01
ошибка после завершения приложения работающего с канвой


1-1090096862
Журавлёв Антон
2004-07-18 00:41
2004.08.01
Здраствуйте! У меня проблема с кодировками


1-1089977459
borow
2004-07-16 15:30
2004.08.01
Проблема с quickrep


11-1074852651
Владимир Кладов
2004-01-23 13:10
2004.08.01
Версия 1.91


1-1089880048
Ш-К
2004-07-15 12:27
2004.08.01
Как отключить warning?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский