終止 IdFtp下載

来源:https://www.cnblogs.com/Jiaojiawang/archive/2020/03/29/12594957.html
-Advertisement-
Play Games

1 uses 2 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 3 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBa ...


 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;

 


您的分享是我們最大的動力!

-Advertisement-
Play Games
更多相關文章
  • 原創文章,轉發請標註https://www.cnblogs.com/boycelee/p/12595884.html [toc] 分析例子 啟動類 Application,使用的是ClassPathXmlApplicationContext來載入xml文件 Bean 配置文件 ​ 在resource ...
  • 小朋友,你是否有很多問號?為什麼?別人都在看漫畫,而我在學畫畫,對著鋼琴說話... 一、單鏈表(LinkedList)介紹和記憶體佈局 鏈表是有序的列表,它在記憶體中的實際存儲結構如下: 看上去雖然無序,但ta是靠每個鏈表節點元素的 地址 和 next域 來分清首尾相連的順序,如下圖所示,由頭指針指向第 ...
  • 我覺得自己寫的不好,所以先貼一個寫的好的帖子 感覺看完不用回來了。。。。 這是一個大佬寫的的博客 : https://www.cnblogs.com/yixianyixian/p/8372832.html 第一:JavaEE 體系進行分層開發,事務處理位於業務層,Spring 提供了分層設計 業務層 ...
  • 棧,一個非常基礎、常用的數據結構。 其用途十分廣泛,如: 1. 理論上所有的遞歸都可以用非遞歸實現,其中絕大部分需要用棧。 2. 表達式求值演算法中要用棧。 3. 括弧匹配演算法要用棧。 4. 瀏覽器前進後退演算法要用雙棧。 5. DFS 演算法要用棧。 可以說用棧的地方數不勝數,因此,這是必須熟練掌握並能 ...
  • 1 @echo off 2 :: 批處理中所謂的函數,是用標簽定義功能充當的。支持參數的傳遞,類似腳本文件運行時命令行參數的傳遞。 3 :: 函數返回值用標簽作為變數名作為返回使用,用完標簽名變數立即釋放變數,避免後面同樣需要調用該函數,引起返回值的混亂。 4 :: exit /b code 在標簽 ...
  • 轉載自https://www.cnblogs.com/wetest/p/6806506.html 和https://www.cnblogs.com/dudu0614/p/8821811.html 什麼是分散式系統 分散式這一概念,一直都是後端工程師繞不過去的一個坎,今天,我們就一起來看看到底什麼是分 ...
  • cookie簡介: cookie來源:HTTP協議是一種無狀態協議,即本次請求與下次請求無關係。而在不同請求時需要進行數據傳遞,需要一種可以進行請求間數據傳遞的會話跟蹤技術,cookie因此而生。 cookie機制:用戶提交第一次請求後,由伺服器生成(是一種保存在客戶端的信息載體技術,cookie可 ...
  • 我的LeetCode:https://leetcode cn.com/u/ituring/ 我的LeetCode刷題源碼[GitHub]:https://github.com/izhoujie/Algorithmcii LeetCode 820. 單詞的壓縮編碼 題目 給定一個單詞列表,我們將這個列 ...
一周排行
    -Advertisement-
    Play Games
  • Timer是什麼 Timer 是一種用於創建定期粒度行為的機制。 與標準的 .NET System.Threading.Timer 類相似,Orleans 的 Timer 允許在一段時間後執行特定的操作,或者在特定的時間間隔內重覆執行操作。 它在分散式系統中具有重要作用,特別是在處理需要周期性執行的 ...
  • 前言 相信很多做WPF開發的小伙伴都遇到過表格類的需求,雖然現有的Grid控制項也能實現,但是使用起來的體驗感並不好,比如要實現一個Excel中的表格效果,估計你能想到的第一個方法就是套Border控制項,用這種方法你需要控制每個Border的邊框,並且在一堆Bordr中找到Grid.Row,Grid. ...
  • .NET C#程式啟動閃退,目錄導致的問題 這是第2次踩這個坑了,很小的編程細節,容易忽略,所以寫個博客,分享給大家。 1.第一次坑:是windows 系統把程式運行成服務,找不到配置文件,原因是以服務運行它的工作目錄是在C:\Windows\System32 2.本次坑:WPF桌面程式通過註冊表設 ...
  • 在分散式系統中,數據的持久化是至關重要的一環。 Orleans 7 引入了強大的持久化功能,使得在分散式環境下管理數據變得更加輕鬆和可靠。 本文將介紹什麼是 Orleans 7 的持久化,如何設置它以及相應的代碼示例。 什麼是 Orleans 7 的持久化? Orleans 7 的持久化是指將 Or ...
  • 前言 .NET Feature Management 是一個用於管理應用程式功能的庫,它可以幫助開發人員在應用程式中輕鬆地添加、移除和管理功能。使用 Feature Management,開發人員可以根據不同用戶、環境或其他條件來動態地控制應用程式中的功能。這使得開發人員可以更靈活地管理應用程式的功 ...
  • 在 WPF 應用程式中,拖放操作是實現用戶交互的重要組成部分。通過拖放操作,用戶可以輕鬆地將數據從一個位置移動到另一個位置,或者將控制項從一個容器移動到另一個容器。然而,WPF 中預設的拖放操作可能並不是那麼好用。為瞭解決這個問題,我們可以自定義一個 Panel 來實現更簡單的拖拽操作。 自定義 Pa ...
  • 在實際使用中,由於涉及到不同編程語言之間互相調用,導致C++ 中的OpenCV與C#中的OpenCvSharp 圖像數據在不同編程語言之間難以有效傳遞。在本文中我們將結合OpenCvSharp源碼實現原理,探究兩種數據之間的通信方式。 ...
  • 一、前言 這是一篇搭建許可權管理系統的系列文章。 隨著網路的發展,信息安全對應任何企業來說都越發的重要,而本系列文章將和大家一起一步一步搭建一個全新的許可權管理系統。 說明:由於搭建一個全新的項目過於繁瑣,所有作者將挑選核心代碼和核心思路進行分享。 二、技術選擇 三、開始設計 1、自主搭建vue前端和. ...
  • Csharper中的表達式樹 這節課來瞭解一下表示式樹是什麼? 在C#中,表達式樹是一種數據結構,它可以表示一些代碼塊,如Lambda表達式或查詢表達式。表達式樹使你能夠查看和操作數據,就像你可以查看和操作代碼一樣。它們通常用於創建動態查詢和解析表達式。 一、認識表達式樹 為什麼要這樣說?它和委托有 ...
  • 在使用Django等框架來操作MySQL時,實際上底層還是通過Python來操作的,首先需要安裝一個驅動程式,在Python3中,驅動程式有多種選擇,比如有pymysql以及mysqlclient等。使用pip命令安裝mysqlclient失敗應如何解決? 安裝的python版本說明 機器同時安裝了 ...