上传用FTP来完成,具体的要参考一些资料例子了,
转换成HTML格式的话,可以通过处理文件流的方法呀。以下只是读文件,对tmplist修改(或不修改)后,再tmplist.SaveFromStream
procedure TForm2.SpeedButton1Click(Sender: TObject);
var tmplist:TStringList;
tmpstream:TFileStream;
begin
tmplist:=TStringList.Create ;
if OpenDialog1.Execute then
begin
tmpstream:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
tmpstream.Position:=0;
tmplist.LoadFromStream(tmpstream);
showmessage(inttostr(tmplist.Count ));
end;
tmplist.Free ;
tmpstream.Free ;
end;
转换成HTML格式的话,可以通过处理文件流的方法呀。以下只是读文件,对tmplist修改(或不修改)后,再tmplist.SaveFromStream
procedure TForm2.SpeedButton1Click(Sender: TObject);
var tmplist:TStringList;
tmpstream:TFileStream;
begin
tmplist:=TStringList.Create ;
if OpenDialog1.Execute then
begin
tmpstream:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
tmpstream.Position:=0;
tmplist.LoadFromStream(tmpstream);
showmessage(inttostr(tmplist.Count ));
end;
tmplist.Free ;
tmpstream.Free ;
end;
解决方案 »
- 接口的困惑 (分到用时方恨少)
- 请问如何实现DateTimePacker控件只能选择星期一呢?
- 这样的项目,用什么数据库,用什么方式开发比较好,大家给个意见?
- 请问各位兄弟,怎样用Delphi 发邮件的,最好有代码? 兄弟在此先谢了
- 怎么控制小数的位数?
- 小弟初来乍到,给各位大哥大姐拜码头来啦
- 如何在程序中用代码建立和删除文件!
- 请教:各位大哥用 socket 发送数据时,我怎么知道数据发送完了呢?谢谢!
- 如何动态生成QuickReport???即有一个form,点击一个自定义的按钮,来preview 报表,如何动态生成????
- 关于String类型的问题?(不够就加分)
- 求求各位大哥帮忙,关于进程的问题!
- 一个很菜很菜的问题:去空格函数是什么?????
NMFT1.Upload(localfile,remotfile:string)?能不能给我再举个例子?