데이터를 받아서 레코드 타입형식으로 화읽을 읽고 쓰기를 할려고 합니다.
근데
화일이 없을 경우 새로 만들어서 오픈을 하고 쓸려고 하는데 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;