Dateiinformationen aus Word und Excel-Dateien

**haef**

Hi Leute,

wie kann ich die Datei-Info aus Word und/oder Excel-Dateien auslesen? Ich hab schon verschiedene Beiträge durchgeforstet, aber immer wieder den Hinweis gefunden, dass das nur bei NTFS-Dateisystem und nicht-Office-Dateien funzt. Muss ich da jeweils Word und Excel bemühen, um an Infos wie Kommentar, Titel und Author zu kommen

Ich würde dich einfach mal an diesen

Beitrag verweisen. Ich meine, Autor und Titel von DOC-Dateien sehe ich ja unter 98 auch. Musst mal schauen ob du mit der Unit im vorletzten Beitrag was anfangen kannst.

**haef**

Hab ich schon gesehen und ausprobiert. In der ersten Fassung kam immer eine OLE-Exception, mit der storage.pas von dir erhalte ich nur einen leeren String, obwohl ich im Kommentar zum Testen was reingeschrieben habe.

Hm, das habe ich befürchtet.

Ich guck mal ins PSDK, vielleicht steht da ja noch extra was zu DOC- u.ä. Dateien.

Kannst du ja auch mal machen: [msdn]"IPropertySetStorage"[/msdn], [msdn]"IPropertyStorage"[/msdn]. Und dann einfach in den Themengebieten blättern.

Problem gelöst -

Schau mal bitte in die Funktion "GetFileSummaryInfo" in meiner "storage.pas"-Unit. Da steht eine Zeile:

markieren

Delphi-Quellcode:

			  if(StgOpenStorageEx(pwidechar(FileName),STGM_READ or STGM_SHARE_DENY_WRITE,

    STGFMT_FILE,0,nil,nil,@IID_IPropertySetStorage,Stg) = S_OK) then

Wenn du STGFMT_FILE durch STGFMT_ANY ersetzt, kommst du auch an die Infos von Office-Dateien ran, die nicht auf NTFS-Partitionen liegen.

PS: Bitte auf die Kategorie (ich nenn´s mal so!) achten:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  dummy : string;

begin

  dummy := GetFileSummaryInfo(

    'd:\Ordner_auf_FAT32_Partition\Datei.doc',

    FMTID_SummaryInformation,    // <-- normale Info

    PIDSI_AUTHOR);

  ShowMessage(dummy);

  dummy := GetFileSummaryInfo(

    'd:\Ordner_auf_FAT32_Partition\Datei.doc',

    FMTID_DocSummaryInformation, // <-- spezielle Office-Info

    PIDDSI_COMPANY);

  ShowMessage(dummy);

end;

Wollte ich nur anmerken.

**haef**

Super, das war genau das, was noch gefehlt hat ... neben der Tatsache, dass ich nur den "nackten" Dateinamen ohne Pfad übergeben habe...

Danke für deine schnelle Hilfe!!!

Dateiinformationen aus Word und Excel-Dateien

Dateiinformationen aus Word und Excel-Dateien

Re: Dateiinformationen aus Word und Excel-Dateien

Re: Dateiinformationen aus Word und Excel-Dateien

Re: Dateiinformationen aus Word und Excel-Dateien

Re: Dateiinformationen aus Word und Excel-Dateien

Re: Dateiinformationen aus Word und Excel-Dateien

Forumregeln

MathiasSimmack (Gast) n/a Beiträge	#2 Re: Dateiinformationen aus Word und Excel-Dateien 28. Apr 2004, 09:23 Ich würde dich einfach mal an diesen Beitrag verweisen. Ich meine, Autor und Titel von DOC-Dateien sehe ich ja unter 98 auch. Musst mal schauen ob du mit der Unit im vorletzten Beitrag was anfangen kannst.
	Zitat

haef Registriert seit: 21. Apr 2004 Ort: Haag in Oberbayern 3 Beiträge Delphi 4 Client/Server	#3 Re: Dateiinformationen aus Word und Excel-Dateien 28. Apr 2004, 11:13 Hab ich schon gesehen und ausprobiert. In der ersten Fassung kam immer eine OLE-Exception, mit der storage.pas von dir erhalte ich nur einen leeren String, obwohl ich im Kommentar zum Testen was reingeschrieben habe.
	Zitat

MathiasSimmack (Gast) n/a Beiträge	#4 Re: Dateiinformationen aus Word und Excel-Dateien 28. Apr 2004, 11:22 Hm, das habe ich befürchtet. Ich guck mal ins PSDK, vielleicht steht da ja noch extra was zu DOC- u.ä. Dateien. Kannst du ja auch mal machen: [msdn]"IPropertySetStorage"[/msdn], [msdn]"IPropertyStorage"[/msdn]. Und dann einfach in den Themengebieten blättern.
	Zitat

haef Registriert seit: 21. Apr 2004 Ort: Haag in Oberbayern 3 Beiträge Delphi 4 Client/Server	#6 Re: Dateiinformationen aus Word und Excel-Dateien 28. Apr 2004, 14:45 Super, das war genau das, was noch gefehlt hat ... neben der Tatsache, dass ich nur den "nackten" Dateinamen ohne Pfad übergeben habe... Danke für deine schnelle Hilfe!!!
	Zitat