Re: Get iPhoto's pictures
Re: Get iPhoto's pictures
- Subject: Re: Get iPhoto's pictures
- From: dev_sleidy <email@hidden>
- Date: Tue, 1 Aug 2006 00:49:12 -0400
... I would try to develop a little program that ... read the
iPhoto's data and make a window like the import window embedded in a
lot of programs.
Sample code :
-- File to save selected photo(s) information.
set file_Path to (((path to desktop from user domain) as string) &
"iPhoto_Info.txt")
-- Delete file ('~/Desktop/iPhoto_info.txt'), if it exists.
tell application "Finder" to if (exists file file_Path) then (delete
file file_Path)
tell application "iPhoto"
launch
set tPhotos to selection -- Obtain all selected (in 'iPhoto') photos.
-- Use a string to contain the information of each selected photo.
set tString to ("Number of selected photos: " & ((count tPhotos) as
string) & return & return)
repeat with i in tPhotos -- Cycle through the selected photos.
-- Obtain photo information of each selected file.
set {tName, tComment, tDate, tDimensions, tHeight, tId,
image_Filename, image_path, thumbnail_filename, thumbnail_path,
tTitle, tWidth} to {(name of i), (comment of i), (date of i),
(dimensions of i), (height of i), (id of i), (image filename of i),
(image path of i), (thumbnail filename of i), (thumbnail path of i),
(title of i), (width of i)}
-- One way to create a string of selected photo's information.
set temp_String to ("Name: " & tName & return & "Comment: " &
tComment & return & "Date: " & tDate & return & "Dimensions: " &
tDimensions & return & "Height: " & tHeight & return & "ID: " & tId
& return & "Image Filename: " & image_Filename & return & "Image
Path: " & image_path & return & "Thumbnail Filename " &
thumbnail_filename & return & "Thumbnail Path: " & thumbnail_path &
return & "Title: " & tTitle & return & "Width: " & tWidth)
set tString to (tString & temp_String & return & return & "
----------- " & return & return)
display dialog temp_String -- Optional. Display photo information
of each selected (in 'iPhoto') photo.
end repeat
-- Optional. Save list of photo(s) information into a file
('~/Desktop/iPhoto_info.txt').
set fRef to open for access file file_Path with write permission
write tString to fRef
close access fRef
end tell
set the clipboard to tString -- Optional. Place list of photo(s)
information onto the 'clipboard'.
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden