用BCB自带indy能 上传文件 吗？

[castlooo]

如题

[loveshell]

当然可以

[loveshell]

tcp,ftp,http都可以

[castlooo]

很多都是Indy9 或者Indy10 的IdHttp

怎么用BCB自带的Indy8怎么上传？

[我不懂电脑]

Examples\indy\TrivialFTPClient

[castlooo]

有没有达人 给个例子
BCB自带indy能 上传文件到网站的可写路径

[gdhuman]

IdFTP1->Host="192.168.1.1";
IdFTP1->User="用户名";
IdFTP1->Password="密码";
if(!IdFTP1->Connected()) {IdFTP1->Connect(); IdFTP1->ChangeDir("要转到的目录"); }

IdFTP1->Put("上传文件路径和文件名","上传后用的名字",true);
IdFTP1->Disconnect();

[gdhuman]

随便送你进度条代码

void __fastcall TForm1::IdFTP1Work(TObject *Sender, TWorkMode AWorkMode,
      const int AWorkCount)
{
  AnsiString     s;
  TDateTime     TotalTime;
  WORD   H,   M,   Sec,   MS;
  double   DLTime;   
    
      TotalTime   =     Now()   -   STime;
      DecodeTime(TotalTime,   H,   M,   Sec,   MS);   
      Sec   =   Sec   +   M   *   60   +   H   *   3600;   
      DLTime   =   Sec   +   MS   /   1000;   
      FileLenCurrentCount=AWorkCount/1024;
      if   (DLTime   >   0)   
          AverageSpeed   =   (AverageSpeed   +   (AWorkCount   /   1024)   /   DLTime)   /   2;
    
      s   =   FormatFloat("0.00   KB/s",   AverageSpeed);   
    
      switch   (AWorkMode)   
    {   case     wmRead:
          {   Label2->Caption   =   "下载速度   "   +   s;   
              if(FileLenCurrentCount>0)   
                  Label3->Caption   ="下载   "+IntToStr(FileLenCurrentCount)+"   KB   总计   "+IntToStr(FileLenCount)+"   KB";
              break;   
          }   
          case   wmWrite:
          {   
            Label2->Caption   =   "上传速度   "   +   s;   
              if(FileLenCurrentCount>0)   
                  Label3->Caption="上传   "+IntToStr(FileLenCurrentCount)+"   KB   总计   "+IntToStr(FileLenCount)+"   KB";   
          }   
    };   
    
      if   (AbortTransfer)
        IdFTP1->Abort();
    
      ProgressBar1->Position   =   AWorkCount;   
      AbortTransfer   =   false;   
        
}
//---------------------------------------------------------------------------


void __fastcall TForm1::IdFTP1WorkBegin(TObject *Sender,
      TWorkMode AWorkMode, const int AWorkCountMax)
{
STime   =   Now();   
      if   (AWorkCountMax   >   0)   
      {   
          ProgressBar1->Max   =   AWorkCountMax;   
    
      }   
      else   
      {   
          ProgressBar1->Max   =   BytesToTransfer;
      }
      AverageSpeed   =   0;
      FileLenCount=AWorkCountMax/1024;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::IdFTP1WorkEnd(TObject *Sender, TWorkMode AWorkMode)
{
BytesToTransfer   =   0;
      ProgressBar1->Position   =   0;   
      AverageSpeed   =   0;   
      FileLenCount=0;
      FileLenCurrentCount=0;   

}

[laowang2]

应该可以。

[castlooo]

用 TrivialFTP 服务器端是不是 要设置FTP 服务器呢？
请教达人

[我来看看CB]

要

[thncn]

学习一下

[castlooo]

我想要的是 HTTP 上传的，
用FTP协议上传 还要设置Ftp 服务器