Q&A

  • 레코드타입 화일 일고 쓰기
데이터를 받아서 레코드 타입형식으로 화읽을 읽고 쓰기를 할려고 합니다.
근데
화일이 없을 경우 새로 만들어서 오픈을 하고 쓸려고 하는데 I/0 에러가 납니다
이유를 알수가 없에요
에러가 난 다음 부터는 화일에 잘 씁니다 쩝 ^^

ReWrite(LogFF) // 파일생성
이부분에서 에러가 나느데 아래 의 함수가 어떻게 잘못이 됬는지 조언을 부탁 드립니다.
참고로 데이터는 소켓으로 수시로 받씁니다..

procedure WriteFac(sRecvBuff:string);
var
  LogFF        : File of TFEXECLOG;
  Facc2       : TFEXECLOG;
  sBuff       : string;
  sRbuff      : string;
  fileNmae    : string;

begin
  sRbuff := sRecvBuff;
  Delete(sRbuff, 1, sizeof(ConnHeader));
  sBuff := sRbuff;

  try
    FillChar(Facc2,sizeof(TFEXECLOG), 0);
    Move(sBuff[1],Facc2,sizeof(TFEXECLOG));

    fileNmae := Path +'FacF'+ Facc2.REG_YMD + '.dat';

    AssignFile(LogFF, fileNmae);

    if not FileExists(fileNmae) then
      ReWrite(LogFF) // 파일생성
    else
      Reset(LogFF); //파일오픈

    Seek(LogFF,FileSize(LogFF));
    Write(LogFF, Facc2);
  finally
    CloseFile(LogFF);
  end;
end;
0  COMMENTS