unit1.pas

网络传输相关代码应用到INDY9控件 希望可以帮助正在学习的人

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdFTP,strUtils;

type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Fn:string;
  FilePath:string;
  FolderName:STRING;
begin
  FilePath:= 'D:\超声NetVersion071020\Data\200710\18\00001\Video\000002.avi';
  Fn:=ExtractFileName(FilePath);
  IdFtp1.Host    :='192.168.0.128'; //Ml350
  IdFtp1.Port    :=21;
  IdFtp1.Username    :='anonymous';
  IdFtp1.Password :='';
  try
    IdFtp1.Connect(True);
  except
    begin
      showmessage('未成功連線到主機!請檢查網路狀態~');
      exit;
    end;
  end;
  try
    FolderName:=LeftStr(LeftStr(RightStr(FilePath,32),15),6)+Copy(LeftStr(RightStr(FilePath,32),15),8,2)+RightStr(LeftStr(RightStr(FilePath,32),15),5);
    IdFtp1.MakeDir(FolderName); //新建選擇的File資料夾
  except
  end;

  IdFtp1.ChangeDir(FolderName); //換到新建的資料夾

  Try
    IdFtp1.Put(FilePath,Fn);    //開ex：a.htm上傳
    //Idftp1.Put('\\Ml350\Apache Group\Tomcat 4.1\webapps\ROOT\pmp\9509\b.htm','b.htm'); //複製b.htm到新建資料夾
  except
    begin
      showmessage('上傳失敗!請檢查~');
      exit;
    end;
  end;
  showmessage('上傳成功!');
  IdFtp1.Disconnect;
end;

end.