Чтение/запись свойств Word документа челез ОЛЕ линки [D7, WinXP]
Davinchi © (2004-06-22 13:35:00)
Помогите разобраться в чем проблема, читать свойства (автор,
тема, и т.д.т.п.) из вордовского файла получается без проблем, а
при записи тем же методом ничего не происходит....
Вот реальный код моих процедур:
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:00) [1]
Всегда такие вещи записывал так: т.е. открывал через ОLE и
WrdDoc.BuiltInProperty [wdPropertyAuthor] := ...
WrdDoc.BuiltInProperty [wdPropertyComments] :=...
Наверх 
ЧАТ |
Орешник |
|
