草庐IT

windows - 重置非空文件后，Freepascal 发现 eof

coder 2024-06-14 原文

让我难住了:在 Windows 上，Free Pascal

    {... writes text lines to PdfTmp, then ...}
    close(PdfTmp);
    reset(PdfTmp);
    while not eof(PdfTmp) do begin
        readln(PdfTmp,InpLine);
        writeln(ProdFile,InpLine);
    end;
    close(PdfTmp);

我已经验证 PdfTmp 文件是用文本写入的，但是 eof() 函数在第一次调用时返回 true，因此永远不会执行 while block 。

我对周围的代码尝试了各种技巧来确定可能导致失败的其他原因，包括更新我的 FPC 编译器，但都无济于事。测试确认这是不正确的 eof() 函数结果。

相同的代码在 Mac 上可以正常工作。 (FreePascal 支持各种平台。)

有没有其他可怜的人遇到过这种不幸并拖延了一个不错的项目？如果是，它是如何修复的？

最佳答案

这是我解决问题的方法:

{}
{$ifdef WIN}

procedure starttext (var F :file; var Feof :boolean);
begin
    reset(F,1); Feof := filesize(F) = 0;
end;

procedure gettext (var F :file; Feoln :array of byte; var Feof :boolean; var S :string);
{ gets the next text line from F into S. Returns false at end of file.
It returns the last string and sets eof if there are no additional strings.}
var  endline, endfile :boolean;  P, R :longint; C, D :byte;
begin
    S := '';
    endline := false;
    endfile := false;
    repeat
        P := filepos(F);
        blockread(F,C,1,R);
        if R = 0 then begin
            endline := true;
            endfile := true; end
        else begin
            P := P + 1;
            if C = Feoln[0] then begin
                if high(Feoln) > 0 then begin
                    blockread(F,D,1,R);
                    if (R <> 0) then begin
                        if D = Feoln[1] then begin
                            endline := true;
                            P := P + 1; end
                        else
                            seek(F, P);
                    end else
                        P := P + 1;
                end else
                    endline := true;
            end else
                 S := S + chr(C);
            endfile := P = (filesize(F));
        end;
    until
        (endline = true) or (endfile = true);
    Feof := endfile;
end;

{$endif}
{}
...
{}
        close(PdfTmp);
{$ifdef OSX}
        reset(PdfTmp);
        while not eof(PdfTmp) do begin
            readln(PdfTmp,InpLine);
            putpdfln(InpLine);
        end;
        close(PdfTmp);
{$endif}
{$ifdef WIN}
        assign(PdfWrk,FileID+'.$$$'); {same file as PdfTmp}
        starttext(PdfWrk,eofPdfWrk);
        while not eofPdfWrk do begin
            gettext(PdfWrk, [13,10], eofPdfWrk, InpLine);
            putpdfln(InpLine);
        end;
        close(PdfWrk);
{$endif}
{}
...

当我意识到 Microsoft 未能遵循 IBM 在第一台 IBM-PC 上发布的关于如何处理中断的说明时，我放弃了 Windows 是一个可行产品的想法。这种失败仍然困扰着 Windows 的可怕的错误类结构。并导致我们在 Windows 应用程序中都遇到过的神秘偶发故障。

就我个人而言，我认为操作系统不应该使用类来构建，这会给系统中只需要一次的进程代码带来不必要的开销(如果处理得当，系统中的所有代码都将如此)操作系统)。一个好的 API 就足够了。

关于windows - 重置非空文件后，Freepascal 发现 eof，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/35228009/

FreepascalwindowsPdfTmpbeginsectionreseteof

有关windows - 重置非空文件后，Freepascal 发现 eof的更多相关文章

  1. ruby - 使用 RubyZip 生成 ZIP 文件时设置压缩级别 - 2

    我有一个Ruby程序，它使用rubyzip压缩XML文件的目录树。gem。我的问题是文件开始变得很重，我想提高压缩级别，因为压缩时间不是问题。我在rubyzipdocumentation中找不到一种为创建的ZIP文件指定压缩级别的方法。有人知道如何更改此设置吗？是否有另一个允许指定压缩级别的Ruby库？ 最佳答案 这是我通过查看ruby​​zip内部创建的代码。level=Zlib::BEST_COMPRESSIONZip::ZipOutputStream.open(zip_file)do|zip|Dir.glob("**/*")d

  2. ruby - 其他文件中的 Rake 任务 - 2

    我试图在一个项目中使用rake，如果我把所有东西都放到Rakefile中，它会很大并且很难读取/找到东西，所以我试着将每个命名空间放在lib/rake中它自己的文件中，我添加了这个到我的rake文件的顶部:Dir['#{File.dirname(__FILE__)}/lib/rake/*.rake'].map{|f|requiref}它加载文件没问题，但没有任务。我现在只有一个.rake文件作为测试，名为“servers.rake”，它看起来像这样:namespace:serverdotask:testdoputs"test"endend所以当我运行rakeserver:testid时

  3. ruby-on-rails - 在 Rails 中将文件大小字符串转换为等效千字节 - 2

    我的目标是转换表单输入，例如“100兆字节”或“1GB”，并将其转换为我可以存储在数据库中的文件大小(以千字节为单位)。目前，我有这个:defquota_convert@regex=/([0-9]+)(.*)s/@sizes=%w{kilobytemegabytegigabyte}m=self.quota.match(@regex)if@sizes.include?m[2]eval("self.quota=#{m[1]}.#{m[2]}")endend这有效，但前提是输入是倍数(“gigabytes”，而不是“gigabyte”)并且由于使用了eval看起来疯狂不安全。所以，功能正常，

  4. ruby - 在 Ruby 程序执行时阻止 Windows 7 PC 进入休眠状态 - 2

    我需要在客户计算机上运行Ruby应用程序。通常需要几天才能完成(复制大备份文件)。问题是如果启用sleep，它会中断应用程序。否则，计算机将持续运行数周，直到我下次访问为止。有什么方法可以防止执行期间休眠并让Windows在执行后休眠吗？欢迎任何疯狂的想法;-) 最佳答案 Here建议使用SetThreadExecutionStateWinAPI函数，使应用程序能够通知系统它正在使用中，从而防止系统在应用程序运行时进入休眠状态或关闭显示。像这样的东西:require'Win32API'ES_AWAYMODE_REQUIRED=0x0

  5. ruby-on-rails - Rails 3 中的多个路由文件 - 2

    Rails2.3可以选择随时使用RouteSet#add_configuration_file添加更多路由。是否可以在Rails3项目中做同样的事情？ 最佳答案 在config/application.rb中:config.paths.config.routes在Rails3.2(也可能是Rails3.1)中，使用:config.paths["config/routes"] 关于ruby-on-rails-Rails3中的多个路由文件，我们在StackOverflow上找到一个类似的问题

  6. ruby - 将差异补丁应用于字符串/文件 - 2

    对于具有离线功能的智能手机应用程序，我正在为Xml文件创建单向文本同步。我希望我的服务器将增量/差异(例如GNU差异补丁)发送到目标设备。这是计划:Time=0Server:hasversion_1ofXmlfile(~800kiB)Client:hasversion_1ofXmlfile(~800kiB)Time=1Server:hasversion_1andversion_2ofXmlfile(each~800kiB)computesdeltaoftheseversions(=patch)(~10kiB)sendspatchtoClient(~10kiBtransferred)Cl

  7. ruby - 如何将脚本文件的末尾读取为数据文件(Perl 或任何其他语言) - 2

    我正在寻找执行以下操作的正确语法(在Perl、Shell或Ruby中):#variabletoaccessthedatalinesappendedasafileEND_OF_SCRIPT_MARKERrawdatastartshereanditcontinues. 最佳答案 Perl用__DATA__做这个:#!/usr/bin/perlusestrict;usewarnings;while(){print;}__DATA__Texttoprintgoeshere 关于ruby-如何将脚

  8. ruby - 使用 Vim Rails，您可以创建一个新的迁移文件并一次性打开它吗？ - 2

    使用带有Rails插件的vim，您可以创建一个迁移文件，然后一次性打开该文件吗？textmate也可以这样吗？ 最佳答案 你可以使用rails.vim然后做类似的事情::Rgeneratemigratonadd_foo_to_bar插件将打开迁移生成的文件，这正是您想要的。我不能代表textmate。 关于ruby-使用VimRails，您可以创建一个新的迁移文件并一次性打开它吗？，我们在StackOverflow上找到一个类似的问题： https://sta

  9. Ruby 写入和读取对象到文件 - 2

    好的，所以我的目标是轻松地将一些数据保存到磁盘以备后用。您如何简单地写入然后读取一个对象？所以如果我有一个简单的类classCattr_accessor:a,:bdefinitialize(a,b)@a,@b=a,bendend所以如果我从中非常快地制作一个objobj=C.new("foo","bar")#justgaveitsomerandomvalues然后我可以把它变成一个kindaidstring=obj.to_s#whichreturns""我终于可以将此字符串打印到文件或其他内容中。我的问题是，我该如何再次将这个id变回一个对象？我知道我可以自己挑选信息并制作一个接受该信

  10. ruby - 如何使用 Ruby aws/s3 Gem 生成安全 URL 以从 s3 下载文件 - 2

    我正在编写一个小脚本来定位aws存储桶中的特定文件，并创建一个临时验证的url以发送给同事。(理想情况下，这将创建类似于在控制台上右键单击存储桶中的文件并复制链接地址的结果)。我研究过回形针，它似乎不符合这个标准，但我可能只是不知道它的全部功能。我尝试了以下方法:defauthenticated_url(file_name,bucket)AWS::S3::S3Object.url_for(file_name,bucket,:secure=>true,:expires=>20*60)end产生这种类型的结果:...-1.amazonaws.com/file_path/file.zip.A

随机推荐