[Realbasic] Une icône en Picture

[jmini]

Voila une question que j'ai posée dans la liste de diffusion [email protected], mais comme je n'ai pas eu de réponce, je la repose ici en espérant avoir plus de réponces...


Le problème est simple :

Je voudrait obtenir l'icône de n'importe quel Folderitem (dossier,
fichier, Application) et la récupérer dans un picture

Peut être faut il gérer les cas séparément...




Merci de m'aider.

 

[mfay]

J'ai essayé avec cette petite

fonction, mais ça ne marche qu'avec les applications CARBON ou CLASSIC.

Function MMrechercheIconeFichier(LFich as folderItem) As Picture
Dim LeFich as FolderItem
Dim laRep as ResourceFork
Dim LaPict as Picture
Dim i, nb, leRes, j as integer
LaPict = nil

LeFich = GetFolderItem(LFich.AbsolutePath)

If LeFich.ResourceForkLength <> 0 then
LaRep = LeFich.OpenResourceFork
If LaRep <> nil then
nb = LaRep.ResourceCount("icl8")
If nb > 0 then
LeRes = 9999999
for i = 0 to nb - 1
j = LaRep.ResourceID("icl8", i)
if j < LeRes then
LeRes = j
End
Next
LaPict = LaRep.GetIcl(LeRes)
End
End
LaRep.Close
End

Return LaPict
End Function

 

[mfay]

Sinon la solution idéale : Un petit APPLESCRIPT qui recopie une icône dans le presse-papier.

Après en RealBasic, on execute le script, puis, on récupère le presse-papier sans pb.


Mais je suis un peu juste en APPLESCRIPT, vous pouvez nous aider ???

Merci.

 

[jmini]

Très bonne idée je vois cela comme ca :

- [RB] sauvegarder le contenu du presse papier tel qu'il soit
- [AS] copier dans le presse-papier l'icone du FolderItem passé en argument
- [RB] récupération du contenu du Presse-Papier dans un FolderItem
- [RB] remise dans le presse papier de la sauvegarde de l'étape 1...


Très bon plan, mais je ne connais pas Apple Script...

 

[Hurrican]

Je sais que je me répète et que j'incite parfois à aller voir ailleurs, mais là n'est pas le but de mon intervention, je renvoies aussi sur les forums MacG si c'est là qu'on est susceptible de trouver la bonne info ...
Ces temps-ci je suis un peu hors sujet question RealBasic à cause de mon boulot de développeur qui me prends tout mon temps, alors allez poser vos questions sur les forums de macfr.com. ChezSeb ou un autre, vous proposeront une solution sur mesure à votre petit problème