源码很简单,就是使用一下inftp组件,把Tencoding,TIdtxtEndong的几个参数试了个遍,还是乱码,请高手帮忙解决。
procedure TForm1.Button1Click(Sender: TObject);
var
ls:Tstringlist;
i:integer;
begin
ls:=Tstringlist.Create; idftp1.Host:='ftp.trueice.net';
idftp1.Username:='upload';
idftp1.Password:='upload';
idftp1.Connect;
idftp1.List(nil);
for i := 0 to idftp1.DirectoryListing.Count - 1 do
begin listbox1.Items.Add(utf8toansi(idftp1.DirectoryListing[i].FileName));
end;end;procedure TForm1.IdFTP1Connected(Sender: TObject);
var
cod:integer;
begin
idftp1.IOHandler.DefStringEncoding:=TEncoding.Default;end;
procedure TForm1.Button1Click(Sender: TObject);
var
ls:Tstringlist;
i:integer;
begin
ls:=Tstringlist.Create; idftp1.Host:='ftp.trueice.net';
idftp1.Username:='upload';
idftp1.Password:='upload';
idftp1.Connect;
idftp1.List(nil);
for i := 0 to idftp1.DirectoryListing.Count - 1 do
begin listbox1.Items.Add(utf8toansi(idftp1.DirectoryListing[i].FileName));
end;end;procedure TForm1.IdFTP1Connected(Sender: TObject);
var
cod:integer;
begin
idftp1.IOHandler.DefStringEncoding:=TEncoding.Default;end;
2010-05-14 17:04:41.000 域名解析成功 [166.111.111.196]......
2010-05-14 17:04:41.156 服务器连接成功,等待应答消息......
2010-05-14 17:04:41.296 220 Trueice FTP Server Ready
2010-05-14 17:04:41.296 USER upload
2010-05-14 17:04:41.453 230-
2010-05-14 17:04:41.453 230- ==================================================
2010-05-14 17:04:41.453 230- Trueice的FTP站点欢迎您的光临。
2010-05-14 17:04:41.453 230- =====================================================================
2010-05-14 17:04:41.453 230- 空间升级至640G,力争成为清华最好的流行音乐站点
2010-05-14 17:04:41.453 230- WWW方式:
2010-05-14 17:04:41.453 230- PopMusic Online :http://music.zixia.net http://music.trueice.net
2010-05-14 17:04:41.453 230- Music Video Online : http://mvnet.trueice.net/ --只对清华北大开放
2010-05-14 17:04:41.453 230- 感谢清华大学网管会提供校内镜像FTP ftp://166.111.158.99/ 请校内用户由此下载
2010-05-14 17:04:41.468 230- 感谢 东北财经大学网管中心 为本站提供教育网镜像服务器 ftp://iris.trueice.net/
2010-05-14 17:04:41.468 230-
2010-05-14 17:04:41.468 230- "独乐乐,与人乐乐,孰乐?"
2010-05-14 17:04:41.468 230- 我们将以以共同的爱好为基础,努力提供精品服务!!
2010-05-14 17:04:41.468 230- =====================================================================
2010-05-14 17:04:41.468 230- 管理员:
2010-05-14 17:04:41.468 230- Harlem@SMTH & asaga@SMTH & zhuqi336@SMTH & acao@SMTH & fal@SMTH
2010-05-14 17:04:41.468 230- -- Chinese Pop & Pure Music & Others
2010-05-14 17:04:41.468 230- BrianGeorge@SMTH & choral@SMTH & capa@SMTH & jovi00@SMTH
2010-05-14 17:04:41.468 230- & kunimi@SMTH
2010-05-14 17:04:41.468 230- -- English Pop & OST
2010-05-14 17:04:41.468 230-
2010-05-14 17:04:41.468 230- 可以根据其ID到水木清华BBS与他们联系
2010-05-14 17:04:41.468 230- =================================-注意事项===========================
2010-05-14 17:04:41.468 230- 1.请勿用多线程下载,以免影响其他用户的使用
2010-05-14 17:04:41.468 230- 2.请勿上载违反国家法律的任何文件
2010-05-14 17:04:41.468 230- 3.上载可以使用ftp.trueice.net 8021端口 用户名:upload,密码:upload
2010-05-14 17:04:41.468 230- 使用中如有任何问题,请联系系统管理员 (trueice@trueice dot net)
2010-05-14 17:04:41.468 230-
2010-05-14 17:04:41.484 230- =====================================================================
2010-05-14 17:04:41.484 230- 本站允许您的区域同时连接数为 180 ,目前已有 36 个连接来自您的区域
2010-05-14 17:04:41.484 230- =====================================================================
2010-05-14 17:04:41.484 230 Anonymous user logged in
2010-05-14 17:04:41.484 SYST
2010-05-14 17:04:41.625 215 UNIX Type: L8
2010-05-14 17:04:41.625 CWD .
2010-05-14 17:04:41.781 250 OK. Current directory is /
2010-05-14 17:04:41.781 PWD
2010-05-14 17:04:41.921 257 "/" is your current location
2010-05-14 17:04:41.921 TYPE A
2010-05-14 17:04:42.437 200 TYPE is now ASCII
2010-05-14 17:04:42.437 PASV
2010-05-14 17:04:42.968 227 Entering Passive Mode (166,111,111,196,195,110)
2010-05-14 17:04:42.968 LIST -la
2010-05-14 17:04:43.250 150 Accepted data connection
2010-05-14 17:04:43.531 226 ls OK
登陆信息如上,我该使用什么参数?
idFTP1.IOHandler.DefStringEncoding:=tencoding.Default;
加ansitoutf8转换一下就可以了。