delphi怎么把xml文件转成html文件了??
解决方案 »
- delphi 手动窗体创建函数
- VC转为delphi的问题,急。。。在线等
- 本人不想再做开发了,想出售delphi做的p2p代码,包括p2p文字聊天,p2p文件传送,和p2p语音聊天代码,有了这些代码,您就可以开发出和oicq
- 有没有把stringgrid某一行删掉的函数
- 请问,在delphi中,访问端口的函数是什么?
- 哪位高手知道用CreateProcess或ShellExecute 写拷贝文件命令的格式?
- 多个dll调用问题
- Ado控件能否使用*.dbf格式的数据库?怎样才能和那种库连上并读写?
- 各位请帮忙.我的帖子是紧急!!!!!!(softkinx)我来不及了,帮忙啊大哥们
- OO技术
- 如何直接连接ACCESS数据库,不通过ODBC连接.
- 表裡面的日程安排數據如何導出至ms project甘特圖,誰有ms project控件,並且有實例最好
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;