delphi怎么把xml文件转成html文件了??

解决方案 »

  1.   

    你用一个 Tlistbox 把 XML里的文件信息都读出来,放到 listbox.item里,读完了,在把文件保存为 htmlLdfile.Items.SaveToFile(filename+inttostr(clientID)+'.html'); //html
      Ldfile.Items.SaveToFile(filename+inttostr(clientID)+'.xml'); //xml或者你也可以定义一个文件流,用流来读出,写入,类似与上边控件的保存方法
    DataOut : TMemoryStream;
      DataIn  : TMemoryStream;DataIn   := TMemoryStream.Create;下边是我用一个流解析一个加密的文件,可以给你参考下procedure TFmDecode.BuStreamClick(Sender: TObject);
    var
      XMLdata :TMemoryStream;
      DataIn  :TMemoryStream;
      sizeint :integer;
    begin
      inherited;
      DataIn  := TMemoryStream.Create;
      XMldata := TMemoryStream.Create;
      try
        LbData.Items.Clear;
        LbData.Items.LoadFromFile('c:\d.txt');
        LbData.Items.SaveToStream(DataIn);
        sizeint :=DataIn.Size;
        if sizeint = 0 then
        begin
          application.MessageBox('不放东西就要解析!','NND不想混了啊');
          exit;
        end;    DataIn.Seek(0,soFromBeginning);
        DecodeStream(DataIn,XmlData);  ///这个是解析函数 
        XmlData.Seek(0, soFromBeginning);
        XmlData.SaveToFile('c:\dataout.xml');
        showmessage('c:\d.txt已解析为c:\dataout.xml');
      except
        application.MessageBox('不放东西就要解析!打死你','NND不想混了啊');
      end;
    end;
      

  2.   

    把xml读到 TStringList 里,然后在 TStringList 的最前和最后,分别insert('<html>') 和 Insert('</html>');