Delphi实现静止气象卫星云图原始(4)

len:=length(AStr); {测试字符串长度} Result:=''; {清空结果存储器空间} for i:=1 to len do {逐位转换} begin

schar:=AStr[i]; {读对应位的字符串}

{将字符串转化为16进制字符串，并以空格间隔}

result:=Result +IntToHex(Ord(schar),2); weixingshijian:= result; Edit19.Text:=Edit19.Text+Result; Edit25.Text:= Edit19.Text; Timer3.Enabled:=false; Timer2.Enabled:=true;

image1.Canvas.TextOut(10,36, '[世界时]'+Edit19.Text); end; end;

SpeedButton4.Click; {数据提取执行按键} end; end; end;

(二)特定数据提取

原始数据中分布于特定区域的填充码，在每一帧的开始与结束处，在首地址累计递增帧长，即可完成对整个特定区域填充码的提取。以下程序实现填充码提取和数据质量判别，并完成被检测数据的质量标注，根据需要选择标注数据的使用方式。

4