注册 登录
编程论坛 Delphi论坛

关于 图像显示的问题

lokami 发布于 2011-05-19 15:54, 557 次点击
procedure TForm1.LoadYCbCr2(FileName: String);
var Fifo:array[0..3]of BYTE; F:TFileStream; b,Y,Cb,Cr:byte;  st,i,j1,j2:integer;
  FastBmp:T24bitBmp;
begin
  F:= TFileStream.Create(FileName,fmOpenRead);
  ZeroMemory(@Fifo,4);
  st := 0;
  j1:=1;
  j2:=2;
  i:=0;
  FastBmp:=T24bitBmp.Create ;
  FastBmp.LoadFromGraphic(Bitmap);
  while (F.Position < F.Size ) do
  begin
    F.Read(b,1);
    Fifo[0] := Fifo[1];
    Fifo[1] := Fifo[2];
    Fifo[2] := Fifo[3];
    Fifo[3] := b;

    case st of
 0: if (Fifo[0] = $FF) and (Fifo[1] = $00) and (Fifo[2]= $00)  then
          begin
            if (Fifo[3]=$80) then st := 1
            else
              if (Fifo[3] = $C7) then st := 2;
            //Find First FF0000XY
          end;   
请问:这个程序里面的:              
if (Fifo[0] = $FF) and (Fifo[1] = $00) and (Fifo[2]= $00),         Fifo[3]=$80,           Fifo[3] = $C7   ,  
 是起什么作用? 在网上查了两天都没查出来。    谢谢指教。
2 回复
#2
aaa0008302011-05-19 21:56
$ 表示 16进制 ,$FF 等于 255
#3
lokami2011-05-20 11:10
回复 2楼 aaa000830
谢谢了,其实我也知道这个。。。。。。
1