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;
  • 相关阅读:
    C++ 扩展 Op
    Python 扩展 Op
    VS Code 调试 OneFlow
    运行时数据获取
    OFRecord 图片文件制数据集
    OFRecord 数据集加载
    OFRecord 数据格式
    OneFlow 并行特色
    Consistent 与 Mirrored 视角
    作业函数的定义与调用
  • 原文地址:https://www.cnblogs.com/Jiaojiawang/p/12594957.html
Copyright © 2011-2022 走看看