关于CreateFile的问题，文件创建后为什么不能使用啊。(200分)

smao · 2003-08-11

var   f : TextFile;   FileRout : string; begin   FileRout := ExtractFilePath(application.ExeName) + 'outPutData.sql';   CreateFile(pchar(FileRout),GENERIC_WRITE+GENERIC_READ,FILE_SHARE_WRITE,nil,         CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0); //  FileCreate(FileRout);   AssignFile(F,FileRout);   Reset(F);   write(F,'<?');   write(F,'123');   CloseFile(F); end;

smao · 2003-08-11

不好意思，忘记说什么错误了。  AssignFile(F,FileRout);  Reset(F);  //---------------这句说错误，提示i/o错误

realLearning · 2003-08-11

把createfile注释掉你根本没有用到它。  CreateFile(pchar(FileRout),GENERIC_WRITE+GENERIC_READ,FILE_SHARE_WRITE,nil,        CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);

张无忌 · 2003-08-11

hFile:=CreateFile以后，要调用CloseHandle(hFile);再来assignFile()

爱元元的哥哥 · 2003-08-11

AssignFile是独占模式的，应当先关闭createFile的句柄

smao · 2003-08-11

FileRout := ExtractFilePath(application.ExeName) + 'outPutData.sql';   hhd := CreateFile(pchar(FileRout),GENERIC_WRITE+GENERIC_READ,FILE_SHARE_WRITE,nil,         CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);   CloseHandle(hhd);   sleep(100);   AssignFile(F,FileRout);   Reset(F);   write(F,'<?');//我改好了，但是这句出错是为什么呢？是不是创建的时候我属性没有设置好？   write(F,'123');

ZRWeng · 2003-08-11

Append(f);//<-- write(F,'<?');//我改好了，但是这句出错是为什么呢？是不是创建的时候我属性没有设置好？ write(F,'123'); closeFile(f);//记得CloseFile，否则数据将没写入。

smao · 2003-08-11

多人接受答案了。

关于CreateFile的问题，文件创建后为什么不能使用啊。(200分)

smao

Unregistered / Unconfirmed

smao

Unregistered / Unconfirmed

realLearning

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

爱元元的哥哥

Unregistered / Unconfirmed

smao

Unregistered / Unconfirmed

ZRWeng

Unregistered / Unconfirmed

smao

Unregistered / Unconfirmed

Similar threads