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; |
