那位大侠做过读心电图数据画波形？

Question

怎样读出心电波形数据，能教我画一个点就行了！急！

Answer 1

下面是我自己写的代码，运行出错提示：can not open 'E:\test\2006011014534830830\ecg.cv0'另一程序正在使用此文件，进程无法访问！请各位大侠指教一下！
var
  j:integer;
  fp: TFileStream;
  str: byte;
  a:byte;
begin
   a:=255;
  // assignfile(fp,'E:\test\2006011014534830830\ecg.cv0') ;
  // reset(fp);
 fp:= tfilestream.create('E:\test\2006011014534830830\ecg.cv0',fmOpenRead);
  fp.Position:=0; //移动到字符串位置
  fp.read(str,1);//读出字符串内容到str中
  if(a and str)<>0 then
  showmessage('ok');
  // j:=strtoint(str);  fp.free ;

Answer 2

因为心电图机会实时输出数据，所以你不能独占打开文件；试一下共享打开。
或者在你读取数据时，先用CopyFile将ecg.cv0这个文件拷贝为一个文本文件再读取。