谁有 http , ftp下载程序的源代码，高分享用

Question

你把ICS下载后，上面有例子程序很不错啊

Answer 1

什么是ICS？
在哪里有下载？

Answer 2

procedure TFrm_wjcs.btnConnectClick(Sender: TObject);
begin//------------------
  SuessFlag:=False;
   if NMFTP.Connected then
      NMFTP.Disconnect
   else
      begin
         NMFTP.Host:=edtHost.Text;
         NMFTP.UserID:=edtUserName.Text;
         NMFTP.Password:=edtPassword.Text;
         NMFTP.Vendor:=NMOS_AUTO;
         stbarTransProg.SimpleText:='正在连接,请稍候...';
         try
          NMFTP.Connect;
         except
            ShowMessage('连接失败!');
         end;
      end;
end;procedure TFrm_wjcs.NMFTPConnect(Sender: TObject);
begin
   mmoStatusShow.Lines.Add('连接'+edtHost.Text+'远程主机');
   btnConnect.Caption:='断开远程主机';
   stbarTransProg.SimpleText:='';
   TransButton.Enabled:=true; 
   ZHButton.Enabled:=True;
   NMFTP.List;
end;procedure TFrm_wjcs.NMFTPDisconnect(Sender: TObject);
begin
   mmoStatusShow.Lines.Add('断开'+edtHost.Text+'远程主机');
   btnConnect.Caption:='连接远程主机';
   stbarTransProg.SimpleText:='';
   TransButton.Enabled:=false;
   FileListView.Items.Clear;
end;
procedure TFrm_wjcs.NMFTPSuccess(Trans_Type: TCmdType);
begin
  If (TransTypeRadioGroup.ItemIndex=1)and(Trans_Type<>CmdUpLoad) then
     Trans_Type:=cmdList;
  case Trans_Type of
    cmdList:
    begin
      case TransTypeRadioGroup.ItemIndex of
        0: Pro_RemoteFileList();
        1: Pro_LocalFileList();
      end;
    end;
    cmdUpload:
    begin
      case TransTypeRadioGroup.ItemIndex of
      0: mmoStatusShow.Lines.Add('文件' + sRemoteFile + '下载成功');
      1: mmoStatusShow.Lines.Add('文件' + ExtractFileName(sLocalFile) + '上传成功');
     end;
    end;
   { cmdDownload:
     begin
       case TransTypeRadioGroup.ItemIndex of
       0: mmoStatusShow.Lines.Add('文件' + sRemoteFile + '下传成功');
       1: mmoStatusShow.Lines.Add('文件' + ExtractFileName(sLocalFile) + '上传成功');
     end;
    end;}
  end;
end;procedure TFrm_wjcs.TransButtonClick(Sender: TObject);
begin
 SuessFlag:=True;
  If FileListView.SelCount<>0 then
  begin
     mmoStatusShow.Clear;
     case TransTypeRadioGroup.ItemIndex of
       0: Pro_DownloadFile();
       1: Pro_UploadFile();
    end;
 end
  else
  begin
     MessageDlg('没有选择文件',
       mtWarning, [mbOK], 0) ;
     exit;
  end;     end;procedure TFrm_wjcs.NMFTPPacketRecvd(Sender: TObject);
begin
  stbarTransProg.SimpleText:='已接受字节: '+IntToStr(NMFTP.BytesRecvd)
                              +',总字节: '+IntToStr(NMFTP.BytesTotal);
end;procedure TFrm_wjcs.NMFTPPacketSent(Sender: TObject);
begin
  stbarTransProg.SimpleText:='已发送字节: '+IntToStr(NMFTP.BytesSent)
                              +',总字节: '+IntToStr(NMFTP.BytesTotal);
end;procedure TFrm_wjcs.NMFTPFailure(var Handled: Boolean;
  Trans_Type: TCmdType);
begin
  Handled:=TRUE;
  case Trans_Type of
    cmdList:mmoStatusShow.Lines.Add('文件列表失败');
    cmdDownload:mmoStatusShow.Lines.Add('下传文件失败');
    cmdUpload:mmoStatusShow.Lines.Add('上传文件失败');
  end;
end;procedure TFrm_wjcs.NMFTPConnectionFailed(Sender: TObject);
begin
  mmoStatusShow.Lines.Add('连接失败');
  stbarTransProg.SimpleText:='';
end;procedure TFrm_wjcs.NMFTPInvalidHost(var Handled: Boolean);
begin
  mmoStatusShow.Lines.Add('没有该主机名');
  stbarTransProg.SimpleText:='';
end;procedure TFrm_wjcs.NMFTPConnectionRequired(var Handled: Boolean);
begin
  stbarTransProg.SimpleText:='正在连接,请稍候...';
end;

Answer 3

to lygsee(园月当空)
你这只是FTP的，我想要的是http ,ftp 通用的
是不是要用套接字，谁能告诉我怎么用？