jpegの画像サイズ取得 (ID:46171)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Win7 + XE3 starter
jpeg画像のサイズを取得したいのですが古いデジカメで撮ったEXIFの付いていない画像はが沢山あるためEXIFから求めることができません。  そこで次のようにして求めたいとやってみましたところd:= vartostr(Folder.GetDetailsOf(FolderItem, 31));の行でdには '640 x 480'のように入るのですが、これを幅と高さ（Integer）にするところでエラーが出てしまいます。ｄは何か特殊な文字列なのかわかりません。  対策がありましたら教えてください。

Var
PicW,PicH:integer;

procedure GetJPGsize(PicFile:string);
 var
     Shell: OleVariant;
     Folder: OleVariant;
     i,p: Integer;
     FolderItem: OleVariant;
     filepath,filename:string;
     d,d1,d2:string;

begin
   FilePath := ExtractFileDir(picfile);
   FileName := ExtractFileName(picfile);
   shell := CreateOleObject('Shell.Application');
   Folder := Shell.NameSpace(OleVariant(FilePath));
   FolderItem := Folder.ParseName(FileName);
   d:= vartostr(Folder.GetDetailsOf(FolderItem, 31));

p:=pos('x',d);
   d1:=leftstr(d,p-1);      d1:=trim(d1);
   d2:=copy(d,p+1,200);     d2:=trim(d2);

PicW:=strtofloat(d1);
       PicH:=strtofloat(d2);
 
     FolderItem  := Unassigned;
     Folder      := Unassigned;
     Shell       := Unassigned;

end;

←解決時は質問者本人がここをチェックしてください。

戻る