Discussion :

[mehdi.crespo]

bonjour a tous

j'ai un programme sous delphi qui décodes les images radars météorologique moi et comme moi je travail pas sous delphi es que il y a quelle q'un qui peut m'aider

et me donnée la structure de cette image c'est à dire des information sur le codage de cette image

voici le programme

Procedure de visualisation de l'image radar 512x512 }

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
procedure visu_Image(var fromf:file);
begin
BlockRead(Fromf, Buf, SizeOf(Buf),noctet);
form2.hide;
form2.show;
form2.caption := 'station:'+ buf.indica +'     heure:'+buf.heure+':'+buf.minute+'    date:'+buf.jour
  +'/'+buf.mois+'/'+buf.annee;
 
for i := 1 to 512 do
begin
BlockRead(F, Buf0, SizeOf(Buf0),noctet);
k:=0;
for j:=  1 to 256  do
begin
pixg := integer(buf0[j]) shr 4; {pixel gauche }
pix0 := integer(buf0[j]) shl 4;
pixd := pix0 shr 4; {pixel droite}
inc(k);
form2.canvas.pixels[k,i]:=couleur(pixg);
inc(k);
form2.canvas.pixels[k,i]:=couleur(pixd);
 end;
end;
end;

j'ai besoin de vos aide

[ShaiLeTroll]

Il semblerait que chaque pixel soit codé sur 4 bits dans ton binaire
la fonction couleur doit probablement être un case qui convertit une palette en plusieurs couleurs ou alors un sorte de niveau de "gris"

[Andnotor]

L'écriture est tout de même assez compliquée

Code :

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

1
2
pixg := buf0[j] shr 4;
pixd := buf0[j] and $F;