Discussion :

[wezzar]

Bonjour à tous !
Voilà mon problème : je voudrais afficher dans un TImage l'avatar de la session windows en cours, qui se trouve à l'adresse :
C:\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\[username].bmp

Le problème se situe au niveau de l'affichage des couleurs :
Au lieu de ca :

Delphi m'affiche ca :


Une petite idée ?

[wezzar]

up ?

[Lung]

Une petite idée ?

aucune.
Tu n'as pas d'autres infos ...

[wezzar]

Ben nan, à part que je pense très fortement que c'est la manipulation de Windows, lorsqu'il enregistre l'avatar au format bmp, qui est la cause du problème. J'ai le problème même en changeant d'avatar, vous pouvez essayer chez vous aussi d'ailleurs.

[wezzar]

J'ai beau essayer avec d'autres composants d'affichage d'image sur le net, le problème persiste !
N'y a-t-il pas une api ou quelque chose du genre pour que ce soit Windows qui affiche l'image ?

[Linkin]

Si on ouvre l'image et qu'on l'enregistre (sous de préférence) (avec paint par exemple), on a le même problème que le tien.

Donc je pense c'est c'est un format un peu spécial utilisé pour ces bitmap.

[portu]

D'après quelques tests, ça à l'air d'être du png et non du bmp. Essaie de le charger avec un compo ou lib prenant en charge le format png.

[wezzar]

J'ai essayé avec le composant pngimage, mais j'ai le meme progblème.
La signature du fichier est "BM@", alors qu'un bmp lisible par Delphi est "BM8".
Je n'ai pas réussi à trouver des informations sur le BM@ sur Internet, le connaissez-vous ?

[Jipété]

Salut !

J'ai bien regardé tes images, et comme ces derniers temps j'ai lu d'un oeil à gauche à droite des articles sur les modifications d'images, je me suis demandé s'il n'y avait pas bêtement une erreur de codage et que le fichier définisse du bleu quand il devrait y avoir du rouge...

Auquel cas un simple traitement sur le fichier devrait suffire, style

BVR > Traitement > RVB

C'est juste une hypothèse mais moi je tenterais ça, juste pour voir (mais je sais pas faire).
Mes 2 cts;
--
jp

[birdyz]

Hello

Il semble que Jipété ai une partie de la réponse, mais je penche plus pour :
BRV > Traitement > RVB
De plus, il semble que les 4 dernières colonnes soit en premier. Bizarre Microsoft.
Voila un code qui fonctionne chez moi.

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
27
28
29
30
31
32
procedure TForm1.Button3Click(Sender: TObject);
var
  i, j : integer;
  inew : integer;
  R, G, B : byte;
  Couleur : Tcolor;
  BmpTemp : TBitmap;
begin
  Image1.Picture.LoadFromFile('C:\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Stephane.bmp');
  BmpTemp := TBitmap.Create;
  try
    BmpTemp.Width := Image1.Picture.Bitmap.Width;
    BmpTemp.Height := Image1.Picture.Bitmap.Height;
 
    for i := 0 to Image1.Picture.Bitmap.Width - 1 do
      for j := 0 to Image1.Picture.Bitmap.Height - 1 do
      begin
        Couleur := Image1.Picture.Bitmap.Canvas.Pixels[i,j];
        R := GetRValue( ColorToRGB(couleur));
        G := GetGValue( ColorToRGB(couleur));
        B := GetBValue( ColorToRGB(couleur));
        inew := i - 3;
        if inew < 0 then
          inew := inew + BmpTemp.Width;
        BmpTemp.Canvas.Pixels[inew,j] := RGB(B,R,G);
      end;
 
    Image1.Picture.Bitmap.Assign(BmpTemp);
  finally
    BmpTemp.Free;
  end;
end;

Birdyz

[Jipété]

Yep !

Voila un code qui fonctionne chez moi.

Tu veux dire que ça transforme l'image bleue en image rouge telle qu'attendue ?

Ben alors j'ai tout à fait raison !
Parce que j'ai écrit "BVR" sans savoir exactement comment l'image est codée en interne (ch'suis pas pro de TGraphics !), mais c'était l'idée qui comptait; et toi tu l'as pigée !
Attendons donc le "Résolu" de wezzar !
--
jp