收录日期:2020/01/29 12:51:35 时间: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是什么意思啊?
那密码是取那里的密码的?

activeX 在某页面中为其父窗口的 select 添加内容时出错[50分] 请问怎样才能对公司里外发的邮件进行拦截检查? 感谢无名兄! 如何在同报表页面中实砚以下内容(高分,可再加) 怎么在DBGrid1+ADOQuery1里动态添加一个由其他字段计算出来的字段??? 及时处理输入字符的问题 Error inspecting \'i\': E2451 Undefined symbol \'i\'是为什么问题?i变量明明定义过啊! MultiMedia Timer 中把精度设为 2 ms ,而Event函数的执行需要 5 ms,后果如何,宜采取什么措施?(不改变其中的2 ms 和5 ms) 请问java里获得文件的创建日期。大小等的类(方法)是什么? Help, 200分相送! 感谢无名兄! 请问java里获得文件的创建日期。大小等的类(方法)是什么?谢谢 在ASP中怎样上载文件到数据库中?数据库字段要设置什么类型? 从避免重复到设计模式 感谢无名兄! 请问谁有jdbc for sqlserver 7 怎样在程序中设置或取得一个单元格的公式? 菜單問題 高分! 找水晶报表8.5的帮助文件 CrystalDevHelp.chm 关于多显示器编程哪有资料啊 100大放送 快要第一次讲课了,好紧张啊!请教各位有经验的大侠。 装过linux 的请进来!有个问题请教一下! 我刚装了IIS…… 寻址方式和指令的对应关系是如何的??? 找到重要资料ggdag@163.com ,,这个地址是千年复制器作者的EMAIL 现在网上哪里还有象yahoo公文包那样可以存放东西的地方? 关于socket急!!!!!!!!!!!!!!!!!! 急!急!急! 请问大家一个局域网的问题? ? ? ? 教我了解男人!----给意见就散分!