icsftp test

最新推荐文章于 2022-12-12 18:30:49 发布

weixin_33882443

最新推荐文章于 2022-12-12 18:30:49 发布

阅读量80

点赞数

文章标签： python

原文链接：https://my.oschina.net/u/582827/blog/3049258

版权

2019独角兽企业重金招聘Python工程师标准>>>

procedure TForm1.Button1Click(Sender: TObject);
var
  t: cardinal;
  sm: TMemoryStream;
begin
  t := gettickcount;
  sm := TMemoryStream.Create;
  sm.LoadFromFile('c:\0001.jpg');
  ftp.HostName := '127.0.0.1';
  sm.Position := 0;
  ftp.LocalStream := sm;
  //ftp.LocalFileName := 'c:\0001.jpg';
  ftp.UserName := 'ftp';
  ftp.PassWord := '1';
  ftp.HostFileName := '/1.jpg';
  ftp.Connect;
  ftp.put;
  ftp.Quit;
  sm.Free;
  caption := inttostr(gettickcount-t);
end;

转载于:https://my.oschina.net/u/582827/blog/3049258