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

mStream1.Size+sizeof(MyFliesize);

{将读取数据写到到被修整的数据流}

mStream2.WriteBuffer(MyFliesize,sizeof(MyFliesize));

except

{结果为假修整失败} Result := False; end;

{结果为真修整成功} Result := True; end;

(二)内存流函数调用

内存流函数调用是通过程序对同星、同时次、异源、不同受扰程度的云图原始数据可用的数据经提取、拼接、生成质量改善的原始数据过程。

procedure TForm1.SpeedButton9Click(Sender: TObject); begin

edit11.Text:=inttostr(53866* (strtoint(edit12.Text)- strtoint(edit13.Text))); kaishic:=strtoint(edit13.Text)*53866;{开始帧号} shuju:=strtoint(edit12.Text)*53866; {结束帧号}

{用源文件数据修改主文件数据}

If SpeedButton9.Action.Execute then begin shujuliu_addtofile( mStream1, mStream2); mStream2.SaveToFile('[1][2].org'); end else

If SpeedButton3.Action.Execute then

begin shujuliu_addtofile( mStream2, mStream1);

mStream1.SaveToFile(‘存放路径’+''); {修改后的数据文件} end else end;

(三)数据修正检验

9