rewrite到文本文件时，报告“invalid filename”错误，怎么办

2003-04-08 04:27:22 1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Debian 8下Apache mod_rewrite生产级配置实战 URL重写是Web服务路由控制的基础能力，其核心原理在于Apache请求处理生命周期中的URI转换阶段。通过mod_rewrite模块，开发者可实现301跳转、SEO友好路径、参数隐藏等关键功能，技术价值体现在流量平滑迁移、搜索引擎权重保留与架构解耦上。典型应用场景包括老旧PHP系统URL重构、多语言站点路由、域名标准化及反向代理适配等。本文聚焦Debian 8（Apache 2.4.10）这一长期服役的生产环境，深入解析mod_rewrite启用机制、RewriteEngine开关位置、AllowOver 阅读详情

下面这段代码，执行到rewrite时，有时报错，有时通过，不知到底是什么原因？
procedure form1.button1Click(Sender:Object);
var
f: textfile;
begin
//定义文件名
assignfile(f,'e:\1.txt');
rewrite(f);
writeln(f,'Test');
CloseFile(f);
end;

...全文

Nginx Rewrite 实战指南：URL重写、重定向与条件路由详解 Nginx Rewrite 是 Web 服务器层实现 URL 重写与请求调度的核心机制，基于 PCRE 正则引擎，在 rewrite 阶段修改请求 URI 或触发 HTTP 重定向，直接影响前端 SPA 刷新兼容性、API 版本迁移、SEO 友好链接等关键场景。其技术价值在于不依赖应用层即可完成流量分发、路径标准化与客户端跳转，兼具高性能与低侵入性。典型应用包括单页应用 history 模式兜底、301/302 地址跳转、移动端路径适配及参数清洗。本文聚焦 Nginx Rewrite 的真实配置逻辑、fla 阅读详情

heziqq

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

fuzhan820 2003-07-16

打赏
举报

文件处理基本的方法。我们按对磁盘上已存在的文件和创建新文件两种操作方式分别说明。

对于磁盘上已经存在的文件，我们的操作方法一般是，用AssignFile对象方法将它和实际文件相连，AssignFile方法的语法是 AssignFile（文件变量，文件名称）。接下来如果要读取文件内容，需要使用Reset（文件变量）打开文件，文件打开后使用相应的过程或函数读取文件内容，对不同的文件类型有不同的读取方法，下面再讲。如果打开文件是为了在文件的末尾进行追加写操作，需要调用Append（文件变量）方法。

创建新文件。创建新文件只能用于写，因为创建的新文件是没有内容可读的。用AssignFile对象方法将文件变量和要创建的文件相连，即 AssignFile（文件变量，要创建的文件名称字符串），然后使用Rewrite（文件变量）方法可创建新的文件。

重要说明：1 在打开已存在的文件时，用户必须考虑要打开的文件可能因各种原因而导致文件可能不存在的情况。也就是说用户应该在打开时检测文件是否存在。有两种方法可检测要打开的文件是否存在，首先可用Delphi提供的fileExists函数，使用例句如下：

if not fileExists('my.dat') then

showmessage('文件不存在');

其次，可在使用Reset后检测IOResult函数的返回值来判断文件是否存在，IOResult函数不需要任何参数。这里先说明一下$I编译开关，此开关控制着I/O（输入/输出）过程中产生的错误信息是否出现，缺省情况下开关处于开的状态，也就是程序会自动提示错误信息。比如我们执行下面两行代码，事实上my.dat文件是不存在的，

assignfile(mf,'my.dat');

reset(mf);

执行的结果会得到一串英文错误信息，告诉你文件不存在。如果在assignfile前面加上一行编译开关{$I-}（抑制提示信息），再运行程序就不会有任何提示。其实，我们即需要给用户提示文件不存在的信息，但又不想使用Delphi自动提供的英文信息，这种情况下需要我们自己编写代码，在Reset过程之后，通过检测IOResult函数的返回值来判断文件是否存在并给出提示信息，由于文件存在时，IOResult函数的返回值为0，所以我们检测它不为0的情况即可，代码如下：

begin

{$I-}

assignfile(mf,'my.dat');

reset(mf);

if IOResult<>0 then

showmessage('文件不存在');

……

end;

heziqq 2003-04-21

打赏
举报

这问题我已解决了，确实是灵活选择路径selpath.pas那块出错了，我重新写了代码，就通过了。但我还没有找到原因，我将错误的那段代码粘贴如下，有谁帮分析一下：
unit SelPath;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, FileCtrl;

type
TSelPathFrm = class(TForm)
DirectoryListBox1: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
Label1: TLabel;
Label2: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DriveComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
sPath : string;
end;

var
SelPathFrm: TSelPathFrm;

implementation
uses PutUp;
{$R *.dfm}

//取消选定
procedure TSelPathFrm.BitBtn2Click(Sender: TObject);
begin
sPath := '';
PutUpFrm.Efilename.Text := '';
SelPathFrm.Close;
end;

//选定目录
procedure TSelPathFrm.BitBtn1Click(Sender: TObject);
begin
DirectoryListBox1.OpenCurrent;
sPath := DirectoryListBox1.Directory ;

if sPath = '' then
begin
PutUpFrm.Efilename.Text := DirectoryListBox1.Directory ;
end
else
PutUpFrm.Efilename.Text := sPath;
SelPathFrm.Close;
end;

procedure TSelPathFrm.FormCreate(Sender: TObject);
begin
DriveComboBox1.Drive := 'e' ;
DriveComboBox1.DirList := DirectoryListBox1;
DirectoryListBox1.Directory := DriveComboBox1.Drive + 'windows\system\';
sPath := '';
end;

procedure TSelPathFrm.DriveComboBox1Change(Sender: TObject);
begin
DirectoryListBox1.Drive := DriveComboBox1.Drive;
end;

end.

cx_super 2003-04-08

打赏
举报

灵活选择路径是怎么选择的？是不是选择路径有问题？

heziqq 2003-04-08

打赏
举报

这段代码，我一直都可以运行，对于指定的文件不存在，使用rewrite时，就会创建；如果存在，就overwrite文件的内容。只是我今天想改为灵活选择路径，就出错，再恢复为固定路径就不可以了。请那位大虾帮帮忙，我已经困扰了整整一天了，看似简单，但就是不知何固。

wang11912 2003-04-08

打赏
举报

先判断文件e:\1.txt是否存在，再用rewrite
或者reset.
isfileexist(filename)

rewrite到文本文件时，报告“invalid filename”错误，怎么办

相关推荐