急！请大侠帮忙看看我的源码错在什么地主？我新建的txt文件为什么不能用？？？ ( 积分: 0 )

lsxysuper · 2005-04-23

procedure TForm3.shiyanreadtimeClick(Sender: TObject); var    myfile:string;    prufile:string;    f:textfile;   // f:file;    timetmp:string;    timetmp2:string;    rehosttime:string;    i:integer;    len:integer;    t:integer;    strCmd:string; begin      myfile:='d:/project2server.exe';      prufile:='h:';      winexec('cmd /c net use h: //10.20.40.136/super "" /y',sw_shownormal);      //将远程机的super共享文件夹映射为 h：      sleep(1000);      if not fileexists('h:/project2server.exe') then      begin            winexec('cmd /c copy d:/project2server.exe h:',sw_shownormal);           //将本地d:/project2server.exe 复制到 H：            sleep(1000);      end;     //若在C：根目录下有time.txt，则删除此time.txt     If FileExists('c:/time.txt') then     begin    //      showmessage('the fiel is exists!');          winexec('cmd /c attrib -R c:/time.txt',sw_shownormal);  //将文件的只读属性清楚          deletefile('c:/time.txt');     end;     //新建time.txt    // tfilestream.Create('c:/time.txt',fmcreate);     filecreate('c:/time.txt');     sleep(5000);     winexec('cmd /c attrib -R c:/time.txt',sw_shownormal);     //将文件的只读属性清楚     winexec('cmd /c net time //10.20.40.136 >>c:/time.txt',sw_shownormal);      //获取远程机的时间并导入到time.txt中     sleep(1000);   //  winexec('cmd /c net time //10.20.40.64 >>c:/time.txt',sw_shownormal);     winexec('cmd /c attrib +R c:/time.txt',sw_shownormal);     //将文件的属性设为只读，因为下面的reset(f)要求所对应的文件属性需为只读   //   filesetattr('c:/time.txt',faReadOnly);   //   filesetattr('c:/time.txt',1);     //get the time form  c:/time.txt      assignfile(f,'c:/time.txt');//将文件名字符串str赋给文件变量f，程序对文件变量f的操作代替对文件str的操作      //打开一个已经存在的磁盘文件，其文件名必须先由assign过程赋给变量f,该文件只能读，指向文件元素的指针指向第一个元素。      reset(f); // 此文件只能读       //以下是将time.txt中的时间获取回来并传给at 命令      readln(f,timetmp);      timetmp2:=timetmp;      i:=pos('午 ',timetmp); //      len:=length(timetmp);      rehosttime:=copy(timetmp,i+3,5);      if pos('下',timetmp2)>0 then      begin  //若为下午，则加上12           timetmp2:=copy(rehosttime,1,2);           t:=strtoint(timetmp2);           t:=t+12;           timetmp2:=inttostr(t);         //  rehosttime:=timetmp2;      end;            rehosttime:=timetmp2+copy(rehosttime,3,5);      showmessage(rehosttime); //测试获到的时间      i:=pos(':',rehosttime);      timetmp:=copy(rehosttime,i+1,2);      t:=strtoint(timetmp);      inc(t);      timetmp:=inttostr(t);      rehosttime:=copy(rehosttime,1,3)+timetmp;      showmessage(rehosttime); //测试获到的时间      strCmd:='cmd /c at //10.20.40.136 '+rehosttime+'c:/super/project2server.exe';      winexec(pchar(strCmd),sw_shownormal);      sleep(1000);      closefile(f);   //end   winexec('cmd /c net use h: /d /y',sw_shownormal);   //删除映射，准备另一台机子的操作 end; 我有filecreate('c:/time.txt');新建的time.txt为什么不能用？调度时说我的这个txt正在被另一个程序应用？？

lsxysuper · 2005-04-23

procedure TForm3.shiyanreadtimeClick(Sender: TObject); var    myfile:string;    prufile:string;    f:textfile;   // f:file;    timetmp:string;    timetmp2:string;    rehosttime:string;    i:integer;    len:integer;    t:integer;    strCmd:string; begin      myfile:='d:/project2server.exe';      prufile:='h:';      winexec('cmd /c net use h: //10.20.40.136/super "" /y',sw_shownormal);      //将远程机的super共享文件夹映射为 h：      sleep(1000);      if not fileexists('h:/project2server.exe') then      begin            winexec('cmd /c copy d:/project2server.exe h:',sw_shownormal);           //将本地d:/project2server.exe 复制到 H：            sleep(1000);      end;     //若在C：根目录下有time.txt，则删除此time.txt     If FileExists('c:/time.txt') then     begin    //      showmessage('the fiel is exists!');          winexec('cmd /c attrib -R c:/time.txt',sw_shownormal);  //将文件的只读属性清楚          deletefile('c:/time.txt');     end;     //新建time.txt    // tfilestream.Create('c:/time.txt',fmcreate);     filecreate('c:/time.txt');     sleep(5000);     winexec('cmd /c attrib -R c:/time.txt',sw_shownormal);     //将文件的只读属性清楚     winexec('cmd /c net time //10.20.40.136 >>c:/time.txt',sw_shownormal);      //获取远程机的时间并导入到time.txt中     sleep(1000);   //  winexec('cmd /c net time //10.20.40.64 >>c:/time.txt',sw_shownormal);     winexec('cmd /c attrib +R c:/time.txt',sw_shownormal);     //将文件的属性设为只读，因为下面的reset(f)要求所对应的文件属性需为只读   //   filesetattr('c:/time.txt',faReadOnly);   //   filesetattr('c:/time.txt',1);     //get the time form  c:/time.txt      assignfile(f,'c:/time.txt');//将文件名字符串str赋给文件变量f，程序对文件变量f的操作代替对文件str的操作      //打开一个已经存在的磁盘文件，其文件名必须先由assign过程赋给变量f,该文件只能读，指向文件元素的指针指向第一个元素。      reset(f); // 此文件只能读       //以下是将time.txt中的时间获取回来并传给at 命令      readln(f,timetmp);      timetmp2:=timetmp;      i:=pos('午 ',timetmp); //      len:=length(timetmp);      rehosttime:=copy(timetmp,i+3,5);      if pos('下',timetmp2)>0 then      begin  //若为下午，则加上12           timetmp2:=copy(rehosttime,1,2);           t:=strtoint(timetmp2);           t:=t+12;           timetmp2:=inttostr(t);         //  rehosttime:=timetmp2;      end;            rehosttime:=timetmp2+copy(rehosttime,3,5);      showmessage(rehosttime); //测试获到的时间      i:=pos(':',rehosttime);      timetmp:=copy(rehosttime,i+1,2);      t:=strtoint(timetmp);      inc(t);      timetmp:=inttostr(t);      rehosttime:=copy(rehosttime,1,3)+timetmp;      showmessage(rehosttime); //测试获到的时间      strCmd:='cmd /c at //10.20.40.136 '+rehosttime+'c:/super/project2server.exe';      winexec(pchar(strCmd),sw_shownormal);      sleep(1000);      closefile(f);   //end   winexec('cmd /c net use h: /d /y',sw_shownormal);   //删除映射，准备另一台机子的操作 end; 我有filecreate('c:/time.txt');新建的time.txt为什么不能用？调度时说我的这个txt正在被另一个程序应用？？

lsxysuper · 2005-04-23

winexec('cmd /c net time //10.20.40.136 >>c:/time.txt',sw_shownormal); 我想用这句从远程机（局域网）获取的时间放到c:/time.txt中，但提示说这个txt正在被另一个程序占用，为什么啊？？ 我不是刚新建好的吗？？

moshengren · 2005-04-23

If FileExists('c:/time.txt') then     begin    //      showmessage('the fiel is exists!');          winexec('cmd /c attrib -R c:/time.txt',sw_shownormal);  //将文件的只读属性清楚          deletefile('c:/time.txt');     end;     //新建time.txt    // tfilestream.Create('c:/time.txt',fmcreate);     filecreate('c:/time.txt');  //前面都知道SLEEP，这里之前怎么不做？ 提示说这个txt正在被另一个程序占用，证明你那个CMD命令还没返回

lsxysuper · 2005-04-23

to moshengren 谢谢 上面我有sleep的啊 我说详细点：新建好之后，我要把我的程序关掉之后才能对time.txt文件进行操作。若不关闭我的程序，我在C：下双击time.txt时，打开之后才提示“正在被另一个程序占用”，且这个txt文件的标题栏是“未定标题－记事本”，但我在新建时已给它一个名：“time.txt”的啊？这是为什么？当我关闭我的程序后，再去双击time.txt，这个txt文件的标题栏是“time.txt－记事本，请大侠指教？

moshengren · 2005-04-23

FileCreate()返回一个文件HANDLE，用完后要FILECLOSE（HANDLE）

moshengren · 2005-04-23

var AHandle: THandle; ................ begin //文件不存在  AHandle := FileCreate('c:/time.txt');  try    //用这个AHandle就可以对文件操作拉    //FileWrite  finally    FileClose(AHandle);  end; end;

lsxysuper · 2005-04-23

谢谢 moshengren 成功了 可惜我没分了，呵呵，不好意思！真的非常感谢

急！请大侠帮忙看看我的源码错在什么地主？我新建的txt文件为什么不能用？？？ ( 积分: 0 )

lsxysuper

Unregistered / Unconfirmed

lsxysuper

Unregistered / Unconfirmed

lsxysuper

Unregistered / Unconfirmed

moshengren

Unregistered / Unconfirmed

lsxysuper

Unregistered / Unconfirmed

moshengren

Unregistered / Unconfirmed

moshengren

Unregistered / Unconfirmed

lsxysuper

Unregistered / Unconfirmed

Similar threads