Discussion :

[zwoke]

Salut,
Pour recuperer l'icone d'un fichier sur un disque local j'utilise ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
SHFILEINFO info;
DWORD result = SHGetFileInfo("c:\\fichier.exe",
                               0,
                               &info,
                               sizeof(info),
                               SHGFI_SMALLICON |
                               SHGFI_SHELLICONSIZE |
                               SHGFI_SYSICONINDEX);

Je voudrais savoir comment je peu faire pour recuperer l'icone d'un fichier situer sur internet et que a la place de "c:\\fichier.exe" je puisse avoir "www.site.com/fichier.exe"

Merci

[bebeours]

Bonjour,

Tu seras tout d'abord obligé de télécharger complètement sur ton disque le fichier.exe pour pouvoir extraire l'icone. Regarde les composants Indy pour télécharger un fichier via HTTP.

[zwoke]

Merci mais en fait je veux connaitre l'icone sans telecharger le fichier un peu comme ftp expert que affiche l'icone acoté des nom des fichier presente sur le serveur

[bebeours]

Ok, je comprends mieux ce que tu souhaites faire. Tu n'as donc pas besoin de télécharger le fichier, tu dois juste extraire son extension (à partir de son nom, c'est pas trop dur, regarde la fonction ExtractFileExt) et à partir de cette extension tu dois retrouver l'icone qui lui est associée (par ton OS local, c'est à dire Windows). Il doit exister une fonction de l'api windows pour réaliser ceci mais je ne la connais pas.

[Trap D]

Salut

tu as

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
ExtractAssociatedIcon
The ExtractAssociatedIcon function returns a handle to an indexed icon found in a file or an icon found in an associated executable file. 
 
HICON ExtractAssociatedIcon(
  HINSTANCE hInst,    // application instance handle
  LPTSTR lpIconPath,  // file name
  LPWORD lpiIcon      // icon index
);
Parameters
hInst 
[in] Specifies the instance of the application calling the function. 
lpIconPath 
[in] Pointer to a string that specifies the full path and file name of the file that contains the icon. The function extracts the icon handle from that file, or from an executable file associated with that file. 
If the icon handle is obtained from an executable file, the function stores the full path and file name of that executable in the string pointed to by lpIconPath. 
 
lpiIcon 
[in] Pointer to a WORD that specifies the index of the icon whose handle is to be obtained. 
If the icon handle is obtained from an executable file, the function stores the icon's identifier in the WORD pointed to by lpiIcon. 
 
Return Values
If the function succeeds, the return value is an icon handle. If the icon is extracted from an associated executable file, the function stores the full path and file name of the executable file in the string pointed to by lpIconPath, and stores the icon's identifier in the WORD pointed to by lpiIcon. 
 
If the function fails, the return value is NULL. 
 
Remarks
The ExtractAssociatedIcon function first looks for the indexed icon in the file specified by lpIconPath. If the function cannot obtain the icon handle from that file, and the file has an associated executable file, it looks in that executable file for an icon. Associations with executable files are based on file name extensions, are stored in the per-user part of the registry, and can be defined using File Manager's Associate command.

[zwoke]

Salut,
Ca a l'air sympa comme fonction mais ta pas un bout de code pour comment elle marche car j'ai pas reussi

Merci

[zwoke]

Voila le code qui me provoque une erreur de violation a chaque fois que le fichier existe ou pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
HICON Icon;
LPWORD IconIndex;
 
Icon = ExtractAssociatedIcon(Application->Handle,"C:\\d.txt.exe",IconIndex);
 
DrawIcon(Form1->Canvas->Handle, 10, 10, Icon);

[Trap D]

Salut

J'ai testé celà avec BCB 3, il marche bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
	WORD pIcon = 0;
	char buffer[MAX_PATH];
	// strcpy(buffer, "C:\\Program Files\\I_View\\I_VIEW32.EXE");
    strcpy(buffer, "C:\\_NavCClt.Log");
	HICON hicon = ExtractAssociatedIcon(m_hinst, buffer, &pIcon);
	if (hicon == NULL)
	{
		MessageBox(NULL, "Raté", "Icon", MB_OK);
		return;
	}
    DrawIcon(Form1->Canvas->Handle, 10, 10, hicon);
	DestroyIcon(hicon);

m_hinst est récupéré par le WinMain.
Je suppose qu'il faut détruire hicon, mais ce n'est pas précisé dans la doc .
N'oublie pas de tester les retours de fonctions, c'est pour ça que ça plante !

[zwoke]

J'ai placer ce code dans un evenement et ca compile que si je change m_hinst par Application->Handle sinon il me dit qu'il me dit symbole non definie

voila le code que j'ai utiliser mais ca m'ffiche pas d'icone

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
   WORD pIcon = 0;
   char buffer[MAX_PATH];
   strcpy(buffer, "C:\\NavCClt.Log");
   HICON hicon = ExtractAssociatedIcon(Application->Handle, buffer, &pIcon);
   if (hicon == NULL)
   {
      MessageBox(NULL, "Raté", "Icon", MB_OK);
      return;
   }
    DrawIcon(Form1->Canvas->Handle, 10, 10, hicon);
   DestroyIcon(hicon);

Merci

[Trap D]

Il faut absolument un handle d'instance sinon ça ne marche pas !
Voilà le code du WinMain :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
HINSTANCE m_hinst;
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE hinst, HINSTANCE, LPSTR, int)
{
    try
    {
        m_hinst = hinst;
        Application->Initialize();
        Application->CreateForm(__classid(TForm1), &Form1);
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    return 0;
}

Dans ton unit1.Cpp tu déclares

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

extern HINSTANCE m_hinst;

As-tu un fichier "C:\\NavCClt.Log" sur ton ordi ?

[zwoke]

ca compile parfaitement maintenant mais l'icone ne s'affiche pas que je crée ou pas le fichier. Normalement cette fonction doit renvoyer l'icone associer au type de fichier que le fichier existe ou pas. Si tu as une idée


Merci

[Trap D]

Je ne sais pas, lorsque je donne un nom bidon, la fonction affiche une icône par défaut, lorsque le fichier existe, j'ai la bonne icône. Celà vient peut-être de ta base de registres.

[CGi]

BCB fourni un handle d'instance : HInstance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
//...
HICON hicon = ExtractAssociatedIcon(HInstance, buffer, &pIcon); 
//...

[Trap D]

Tu le dis toi-même CGi

Pourquoi faire simple quand on peut faire compliqué ?