zoukankan      html  css  js  c++  java
  • 终止 IdFtp下载

     1 uses
     2   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
     3   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
     4   IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP,
     5   Vcl.StdCtrls;
     6 
     7 type
     8   TForm2 = class(TForm)
     9     Button1: TButton;
    10     IdFTP1: TIdFTP;
    11     Button2: TButton;
    12     procedure Button1Click(Sender: TObject);
    13     procedure Button2Click(Sender: TObject);
    14   private
    15     procedure a(var message: TMessage); message WM_USER+1;
    16   public
    17     { Public declarations }
    18   end;
    19 
    20 var
    21   Form2: TForm2;
    22 
    23 implementation
    24 
    25 {$R *.dfm}
    26 
    27 uses
    28   IdReplyRFC;
    29 
    30 procedure TForm2.a(var message: TMessage);
    31 begin
    32   COLOR := clRed;
    33 end;
    34 
    35 procedure TForm2.Button1Click(Sender: TObject);
    36 begin
    37   IdFTP1.Connect;
    38   IdFTP1.ChangeDir('/DelphiDir');
    39 
    40     TThread.CreateAnonymousThread(procedure begin
    41       try
    42         IdFTP1.Get('/DelphiDir/delphicbuilder10_1.iso', 'd:jjw_jjw.rar', true);
    43       except
    44         on E: EIdReplyRFCError do
    45           Postmessage(handle, wm_user+1, 0, 0);
    46       end;
    47     end).Start;
    48 end;
    49 
    50 procedure TForm2.Button2Click(Sender: TObject);
    51 begin
    52   IdFTP1.KillDataChannel;
    53 end;
  • 相关阅读:
    JAVA 基本数据类型长度
    字符编码详解
    几种编码方式
    Java1.5泛型指南中文版(Java1.5 Generic Tutorial)
    java泛型小问题
    java中的equals()方法
    Java泛型中E、T、K、V等的含义
    数据库的基本操作
    Mysql数据类型简介(大概了解)
    [BZOJ 2007] 海拔
  • 原文地址:https://www.cnblogs.com/Jiaojiawang/p/12594957.html
Copyright © 2011-2022 走看看