收录日期:2020/09/28 22:00:11 时间:2016/07/12 06:56:42 标签:VCL组件开发及应用
1请问怎么连接,(5分)


2上传的代码是什么(50)

3本地设置了http,怎么连接本地的机器(45)



请教大侠
连接:

function TfrmFileTransferModule.connect:boolean;
begin
   with IdFTP1 do
  begin
    Host := __Host;
    Username := __userName;
    Password := __passWord;
    Port := __Port;
    try
      if IdFTP1.Connected then IdFTP1.Disconnect;
      idftp1.ReadTimeout := 60000;
      IdFTP1.Connect(True,60000);
      Result := True;
    except
      Result := false;
    end;
  end;
end;


上传文件


procedure TfrmFileTransferModule.mUpClick(Sender: TObject);
var

  __fileName : string;
begin
  if OpenDialog1.Execute then
  begin
    //检查文件是否存在
    if not FileExists(OpenDialog1.FileName) then exit;
        try
          IdFTP1.ChangeDir(IntToStr(ModuleID));
          idftp1.TransferType :=ftASCII;// ftBinary;
          idftp1.Passive := True;  // 这里分为主动和被动
          idftp1.Noop ;

          IdFTP1.Put(OpenDialog1.Filename,__fileName);


          Application.MessageBox(pchar('文件上传成功!'),'提示',MB_OK+MB_ICONINFORMATION);
        except
          on E :Exception do
           Raise Exception.Create(E.Message);
        end;
  end;
   getFilecount; 
end;

上传用这个

procedure TfrmFileTransferModule.mUpClick(Sender: TObject);
var

  __fileName : string;
begin
  if OpenDialog1.Execute then
  begin
    //检查文件是否存在
    if not FileExists(OpenDialog1.FileName) then exit;
    // 检查服务器是否已经存在此文件
    __fileName := ExtractFileName(OpenDialog1.FileName);
        try
          idftp1.TransferType :=ftASCII;// ftBinary;
          idftp1.Passive := True;  // 这里分为主动和被动
            idftp1.Noop ;

          IdFTP1.Put(OpenDialog1.Filename,__fileName);


          Application.MessageBox(pchar('文件上传成功!'),'提示',MB_OK+MB_ICONINFORMATION);
        except
          on E :Exception do
           Raise Exception.Create(E.Message);
        end;
  end;
end;



3本地设置了http,怎么连接本地的机器(45) 


http 与FTP???
假设我的是http://127.0.0.1/
那我要把文件上传到这个目录下当然要连接的啦
要看你开放的端口

FTP打开就是根目录
现在我的问题是用idftp连接本地不上啊,就是用idftp连接127.0.0.1  端口我开发的是80,用户名和密码都是登录本机的,就是连接不上,不上说ftp打开的问题
引用 7 楼 ou630j 的回复:
现在我的问题是用idftp连接本地不上啊,就是用idftp连接127.0.0.1  端口我开发的是80,用户名和密码都是登录本机的,就是连接不上,不上说ftp打开的问题



这样吧,你要先排除是不是服务端有问题.在CMD下用FTP试下.
引用 7 楼 ou630j 的回复:
现在我的问题是用idftp连接本地不上啊,就是用idftp连接127.0.0.1  端口我开发的是80,用户名和密码都是登录本机的,就是连接不上,不上说ftp打开的问题



你是不是用IIS来开发的80端口?  那跟FTP没什么关系啊,兄弟


如果是我上面的猜测,建议你装一个SERVER-U做服务端,即安全也易用.
用机器名测试一下。
IPCONFIG 看能不能看到IP地址。不行就用HOSTNAME,端口改成80,如果有HTTP服务要注意冲突

我来个简洁的


上传

begin
IdFTP1.Host := '主机地址';
IdFTP1.Username := '用户名';
IdFTP1.Password := '密码';
if IdFTP1.Connected then IdFTP1.Disconnect;
IdFTP1.Connect();
try
IdFTP1.Put('data/本地文件名','远程文件名');
except
end;

引用 11 楼 masterjames 的回复:
IPCONFIG 看能不能看到IP地址。不行就用HOSTNAME,端口改成80,如果有HTTP服务要注意冲突


可以看到ip地址
HOSTNAME是什么意思啊?
那密码是取那里的密码的?

请问如何判断鼠标右键按下? 帮看看那里出错 谢谢 新建excel 文件点击保存是不出现对话框,点击另存为时也不出现对话框。 哪里有免费空间呀 如何写datatime型SQL语句 我和我的MM该如何选择,现在弄得我心烦意乱,大伙快点帮我看看? 谁知道新闻“印度科学家发明确定素数的计算方法”中的具体算法。 请问listview中怎么取指定subItem的Text win2000 网络中的用户权限设置 程序员的问题 简单问题。。。帮忙解决 关于赋值问题===+在线等待。。。 下面两条机器有什么区别? 有没有这样的控件 SAX高手请进。 解决问题,一定给分!!! @@@ 急~~~~~~~! 如何用钩子截获文本和图片的ole拖动事件 up有分 @@@ how to use adoQuery?? 想为Edit组件增加两个属性,怎么加?谢谢! 散分题---100分 我是新手 请教各位大哥 我是新来学习,请各位大侠指点一下!只要有帮助的都给分! 哪位大侠快帮忙,急死了!! SAX高手请进。 解决问题,一定给分!!! 一个急得要命的问题,好心人帮帮忙,有高分相送,关于地址! SAX高手请进。 解决问题,一定给分!!! 关于JDBC连接Oracle的问题 100分求值!进者有分!!! 100分求教,回帖给分 怎样用utl_smtp包发邮件? 介绍几个学习java的经典书籍和经典网站? 请问:那里有介绍windows未公开API的图书或者文章下载?