如何使用Lazarus将TFilestream保存到硬盘驱动器

我在更改某些值后保存xml文件时遇到问题。我使用的拉撒路1.6作为IDE与FPC版本3.0.0 这里是我的xml文件的结构，我用了这个帖子：如何使用Lazarus将TFilestream保存到硬盘驱动器

<?xml version="1.0" encoding="UTF-8"?> 
<wbpickeys> 
    <picture> 
    <name>C:\IMG_1.JPG</name> 
    <imagedate>p-06/04/2014 16:22:10</imagedate> 
    <favorit>n</favorit> 
    <remark>aaa</remark> 
    <drive>DRIVE_FIXED</drive> 
    </picture> 
</wbpickeys>

我用下面的使用条款（可能不是所有的人都必要的，但我认为至少一次重要的是可用）：

uses 
Windows, ShellAPI, FileUtil, Graphics, Menus, ComCtrls, ExtCtrls, ExtDlgs, Classes, SysUtils, LResources, Forms, Controls, StdCtrls, Dialogs, CheckLst, Buttons, inifiles, 
laz2_DOM, laz2_XMLRead, laz2_XMLWrite, laz2_XMLCfg, laz2_XMLUtils, laz_XMLStreaming;

在程序启动我这个XML文件加载到TFileStream的（g_stream：TFileStream的）。原因是在程序运行期间拥有独家访问权限。要做到这一点我用下面的open函数：

function open_xml:Boolean; 
begin 
    if g_stream <> nil then FreeAndNil(g_stream); 
    try 
      //with load from (TFile)-Stream the xml file can be opened with Share Exclusive 
      //when loading only from file there is no possibility to open it exclusive 
      g_stream:= TFileStream.Create('wbpickeys.xml',fmShareExclusive); 
      //Read the XML file into an XML Document 
     readxmlfile(g_wbpickeys,g_stream); 
      result:= true; 
    except 
     on E:EFOpenError do 
     begin 
      beep(); 
       MessageDlg 
     (
      //br is defined as a constance for line feed 
     '*** A T T E N T I O N ***' + br + br + 
      'When trying to open the file for the keywords' + br + '"wbpickeys.xml"' + br + 
      'the following error occurs:' + br + 
      E.Message + br + 
      'Please check if the file is available' + br + 
      'or deleted or moved or what else',mtError,[mbOK],0 
     ); 
     result:= false; 
     end; 
    end; 
end;

比我改变一个childnode的文本值：

procedure TForm1.BChangeNodeClick(Sender: TObject); 
var 
    pictures   : TDOMNodeList; 
    pic, tempnode  : TDOMNode; 
    i     : integer; 
begin 
    // Get all nodes with name "picture" 
    pictures:= g_wbpickeys.GetElementsByTagName('picture'); 
    // For all Member nodes 
    for i:= 0 to pictures.Count - 1 do 
    begin 
    pic:= pictures[i]; 
    tempnode:= pic.FindNode('remark'); 
    // if content is 'bbb' change it 
    if(tempnode.TextContent = 'bbb') then 
    begin 
     tempnode.TextContent:= 'aaa'; 
     //than I try to save the xmldocument to the hard drive  
     writeXMLFile(g_wbpickeys,'wbpickeys.xml'); 
    end; 
end;

这里是我的问题：新文本设置和我能够在备忘录中看到结果。但是这个值只在运行时加载xml的内存中发生了变化，而物理上并没有在硬盘上的文件中发生。我看起来几乎遍布网络，但我无法找到解决方案将流保存到硬盘驱动器上相应的文件。

如果我用这个 “writeXMLFile（g_wbpickeys， 'wbpickeys.xml'）;” 我得到一个EFCreateError“无法创建文件wbpickeys.xml”文件lazutf8classes.pas线143

问题是我不想创建一个XML文件 - 我想改变一个现有的。

比我查找的可能性将流保存到磁盘上的文件。不幸的是，我没有找到任何东西。

肯定我犯了一个错误，但我看不到它。有人可以让我知道吗？

来源

2016-09-28 Arthur Meier

创建另一个文件流并复制到该流 –

将修改后的文档写回磁盘时，必须替换整个文件，不能将操作限制为仅修改节点。因此，您必须先删除旧的xml文件（或者更好：重新命名它，以防写入过程中出现问题），然后使用WriteXMLFile编写文档。或者写入一个新的临时文件名，以便始终锁定原始文件;然后销毁阅读流（以结束独占访问），删除原始文件并将新文件重命名为旧文件。

来源

2016-09-28 06:20:06

哇 - 这听起来真的很复杂。 Bevor我使用了Delphi，并且更容易。但好的，非常感谢那个回应！ –

复杂吗？我无法想象如何简化这一点。我无法想象德尔福原则上可以如何做到这一点。 –

我不是真正的专家，但我想用delphi和writeXML函数没有创建xml，但是这个函数改变了现有的文件。可能是在后台做的功能相同 - 删除现有的功能并写入一个新功能。但是，这不会让用户考虑它。无论如何 - 我遵循你的建议，它的工作。非常感谢 Andreas –

如何使用Lazarus将TFilestream保存到硬盘驱动器

回答

相关问题