掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Win7で撮影日時取得 (ID:41828)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お世話になります。 XP+D6pでやっていますがWin7対策が必要となりました。カメラ画像の撮影日時を取得するために従来はXPで下記のようにしておりましたがWin7(64)では日時の取得ができないことがわかりました。試しにGetDetailsOfの番号（25,31）を可変にしてWin7で試したところ、特に秒まで出ている項目はありませんでした。Win7でもエクスプローラで画像ファイルにマウスを当てると撮影日時（分まで）が出るのを見るとWin7でも何か策があるのではないかと思い質問させていただきました。 なおD6pでExifの扱いができるものがありましたらそれも試してみたいと思いますのでよろしくお願いします。 procedure GetPicDT(PicFile:string); var Shell: OleVariant; Folder: OleVariant; i,p: Integer; FolderItem: OleVariant; filepath,filename:string; begin FilePath := ExtractFileDir(picfile); FileName := ExtractFileName(picfile); shell := CreateOleObject('Shell.Application'); Folder := Shell.NameSpace(OleVariant(FilePath)); FolderItem := Folder.ParseName(FileName); picHM_:=vartostr(Folder.GetDetailsOf(FolderItem, 25)); //時分 picHMS:=vartostr(Folder.GetDetailsOf(FolderItem, 31)); //時分秒 // 解放 FolderItem := Unassigned; Folder := Unassigned; Shell := Unassigned; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.