Discussion :

[iznogoud_23]

Bonjour à tous,

Je suis sur un petit projet de soft afin de customiser facilement la tablette de mon "grand" (4 ans). c'est une storio Vtech.
Le format des icones est un peu particulier. De ce que je comprends, ce sont des bmp de 57x57 ou 88x88 pixel, sans header. :

"Game icons are 57 x 57, book icons are 88 x 88
They are 16bit xRGB data, with the first 8 bytes being the width and height stored as 32bit integers in little endian format."

La question logique qui vient est donc : comment lire/ecrire et afficher dans un Tbitmap ce genre de format?

C'est surement très simple, mais j'avoue que je cale.

Merci d'avance

[der§en]

Un simple filestream devrait suffire a ton bonheur, il me semble...

Tu lis les 2 premier integer pour connaître la lageur et la hauteur puis tu lis le reste du fichier dans un tableau soit de 57 X 57 soit de 88 X 88

Ensuite si j'ai bien compris les donnees sont directement le code couleur de chaque pixel...

C'est assez simple en fait...

[tourlourou]

Le plus simple à mon avis :
1) transformer une icône de chaque taille en Bitmap Windows à l'aide de Xn View ou autre logiciel
2) enregistrer les en-têtes de ces fichiers jusqu'au tableau de pixels (donc couper à 2*57*57 et 2*88*88 octets de la fin)
3) coller à leur suite (TStream) les 2*57*57 ou 2*88*88 octets de la fin de chaque icône.

Si ça ne fonctionnait pas (pas de logiciel externe prenant en charge la conversion de format), il suffirait d'encoder ces en-têtes dans un flux en se basant sur le format d'un fichier BitMap de Windows.

[iznogoud_23]

Un simple filestream devrait suffire a ton bonheur, il me semble...

Tu lis les 2 premier integer pour connaître la lageur et la hauteur puis tu lis le reste du fichier dans un tableau soit de 57 X 57 soit de 88 X 88

Ensuite si j'ai bien compris les donnees sont directement le code couleur de chaque pixel...

C'est assez simple en fait...

bonjour,

C'est bien en gros la solution que je voyais, mais je pêche sur la realisation. Je suis pas très a l'aise avec les stream. Un petit exemple svp

Merci

[iznogoud_23]

Bon j'avance.

J'arrive a lire les 2 entiers fixant la taille du bitmap et je les affecte à un tbitmap.
Reste le problème des données du bitmap. Comment les affecter directement au canvas d'un tbitmap?

[Linkin]

Par la fonction ScanLine.

As-tu un fichier d'exemple? (pour tester)

[Paul TOTH]

sur mon ancien GHT G3 il utilisait des images dans un format fixe 200x200 pixels en 16bits, voici la procédure utilisée pour charger une image

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.LoadImage(cIndex: Integer);
var
  cFileName : string;
  cStream: TFileStream;
  cBitmap: TBitmap;
  x, y   : Integer;
begin
  cFileName := FPath + 'icon\album' + IntToStr(cIndex) + '.jpeg';
  if not FileExists(cFileName) then
  begin
    Image1.Picture := nil;
    Exit;
  end;
  cStream := TFileStream.Create(cFileName, fmOpenRead);
  try
    if cStream.Size <> 80000 then // vérification de la taille
      Exit;
    cBitmap := TBitmap.Create;
    cBitmap.PixelFormat := pf16Bit; // 16 bits
    cBitmap.Width := 200;
    cBitmap.Height := 200;
    for y := 0 to cBitmap.Height - 1 do
    begin
      cStream.ReadBuffer(cBitmap.ScanLine[y]^, 2 * cBitmap.Width); // Chargement de 2 octets par pixel
    end;
    Image1.Picture.Assign(cBitmap);
    cBitmap.Free;
  finally
    cStream.Free;
  end;
end;

pour l'écriture c'est la même chose ou presque

Code :

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

1
2
3
4
5
6
7
8
 
   cStream := TFileStream.Create(FPath + 'icon\album' + IntToStr(cIndex) + '.jpeg', fmCreate);
    try
      for y := 0 to cBitmap.Height - 1 do
        cStream.WriteBuffer(cBitmap.ScanLine[y]^, 2 * cBitmap.Width);
    finally
      cStream.Free;
    end;