PJBlog : Pierre-Jean, WinLibre et Cie...

Je cherche sans succès depuis un moment un logiciel libre me permettant de créer des icones multi-résolution pour Windows.

Je me suis donc décidé à écrire en Delphi, un petit outils pour réaliser cette tâche bien précise : créer un fichier .ico contenant toute les résolutions et profondeurs nécessaires à partir d'une image quelconque. Dés que le développement sera finalisé, je l'annoncerai ici.

Pour me simplifier la tâche j'utilise le génial ImageMagick qui dispose d'un moteur accessible en OLE Automation. La difficulté consiste à créer un SafeArray contenant les différents paramètres à passer à ImageMagickObject.

Voici un extrait du code permettant de réaliser ça :

 procedure TFormMain.Convert( ImgSource, ImgDest:TImage; SizeX, SizeY : Integer;PixelFormat: TPixelFormat);
 var
   SrcName, DestName : String;
   sa_cmdline : Variant;
   Params : PSafeArray;
   StrList : TStringList;
   i : Integer;
 begin
   StrList := TStringList.Create;
   SrcName := ExtractFilePath(Application.ExeName)+'tmp.bmp';
   DestName := Format(ExtractFilePath(Application.ExeName)+'tmpdest%d_%d.bmp',[SizeX,ord(PixelFormat)]);
   ImgSource.Picture.SaveToFile(SrcName);

   StrList.Add('-geometry');
   StrList.Add(Format('%dx%d',[Sizex,SizeY]));

   Case PixelFormat of
     pf1bit  : begin
       StrList.Add('-monochrome');
       StrList.Add('-dither');
     end;
     pf4bit  : begin
       StrList.Add('-colors');
       StrList.Add('-16');
       StrList.Add('-dither');
     end;
     pf8bit  : begin
       StrList.Add('-colors');
       StrList.Add('-256');
       StrList.Add('-dither');
     end;
     pf16bit : begin
       StrList.Add('-colors');
       StrList.Add('-65536');
     end;
   end;
   StrList.Add(SrcName);
   StrList.Add(DestName);

   sa_cmdline := VarArrayCreate([0,StrList.Count-1], varVariant);
   for i := 0 to StrList.Count-1 do
     sa_cmdline[i]:=StrList[i];
   Params := PSafeArray(TVarData(sa_cmdline).VArray);
   MagickImage1.Convert(Params);
   ImgDest.Picture.LoadFromFile(DestName);
   StrList.Free;
 end;