Delphi基础：实现简易聊天应用

原创于 2025-07-08 10:48:58 发布 · 662 阅读

CC 4.0 BY-SA版权

简介：Delphi是一种用于Windows应用程序开发的IDE，采用Object Pascal语言。本教程将指导你如何通过ClientSocket和ServerSocket组件，以及memo、statusbar和mainmenu等组件，构建一个基础的聊天程序。重点介绍ClientSocket和ServerSocket组件在客户端-服务器通信中的使用，memo组件用于显示聊天记录，以及如何使用StatusBar和MainMenu组件提升用户交互体验。同时，讲解了聊天程序中的编程逻辑和并发处理，为Delphi初学者提供了网络编程和GUI开发的入门知识。

1. Delphi和Object Pascal简介

Delphi作为一款强大的集成开发环境（IDE），它支持Object Pascal语言，为开发者提供了一个方便快捷的工具来创建各式应用程序。Object Pascal语言是一种结构化、面向对象的编程语言，其特点包括清晰的语法和严格的数据类型检查，这使得它在处理复杂项目时，能够保持代码的高可读性和易维护性。

Delphi的发展历程

Delphi起源于早期的Turbo Pascal，经过多年的发展和优化，逐渐成为了Windows平台上的主流开发工具之一。它以其高效的编译器、丰富的组件库和快速的应用程序开发而闻名。Delphi的应用范围从简单的桌面应用程序扩展到了企业级解决方案，如客户端-服务器、多层分布式应用程序等。

Object Pascal语言特性

Object Pascal提供了一系列面向对象的编程特性，比如类的继承、封装和多态性。此外，它还支持异常处理和泛型编程，这些特性为开发健壮的软件提供了强大的工具。在Delphi环境中，Object Pascal语言还融入了对Windows API的访问，允许开发者充分利用Windows平台的功能。

了解Delphi和Object Pascal的起源和特性，有助于开发者在后续章节中更好地理解如何利用ClientSocket、ServerSocket等组件进行网络通信编程，以及如何运用Memo、MainMenu等组件构建用户界面和交互逻辑。接下来的章节将逐一探讨这些组件在聊天程序中的应用，并涉及编程逻辑、并发处理等高级话题。

2. ClientSocket组件及其应用

2.1 ClientSocket组件的初始化和连接

2.1.1 设置连接参数

ClientSocket组件是Delphi中用于网络通信的重要组件，通常用于实现客户端与服务器之间的连接。设置连接参数是ClientSocket组件使用过程中的第一步，需要确保参数设置正确，以便能够成功与服务器建立连接。

通常需要设置的参数包括：

Host : 指定服务器的IP地址或域名。
Port : 指定服务器监听的端口号。

在Delphi代码中，可以通过属性直接赋值来设置这些参数：

ClientSocket1.Host := '127.0.0.1'; // 本地服务器
ClientSocket1.Port := 12345;        // 服务器监听的端口号

此外，ClientSocket还拥有 ConnectTimeout 属性，它定义了尝试连接服务器时的最大等待时间。设置合适的超时值是避免程序在等待服务器响应时无限制地挂起的关键。

2.1.2 连接服务器的步骤和方法

在设置了连接参数之后，接下来需要进行连接服务器的操作。这通常涉及以下几个步骤：

激活ClientSocket组件： 在代码中通过调用 Active 属性设置为 True ，使得ClientSocket开始连接尝试。

ClientSocket1.Active := True;

连接事件处理： 当连接操作开始或结束时，ClientSocket会触发 OnConnect 和 OnDisconnect 事件。在这些事件的处理程序中，可以添加自定义的逻辑代码，例如更新用户界面或记录连接状态。

procedure TForm1.ClientSocket1Connect(Sender: TObject; const Socket: TCustomWinSocket);
begin
  ShowMessage('连接成功！');
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject; const Socket: TCustomWinSocket; Reconnecting: Boolean);
begin
  ShowMessage('已断开连接。');
end;

错误处理： 在实际应用中，可能因为各种原因（比如网络问题或服务器端错误）导致连接失败。可以利用 OnError 事件对这类情况进行处理。

procedure TForm1.ClientSocket1Error(Sender: TObject; const Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorMsg: String);
begin
  ShowMessage('连接失败：' + ErrorMsg);
end;

断线重连机制： 在一些应用中，为了提高可靠性，需要实现断线自动重连的功能。这可以通过在 OnDisconnect 事件中重新调用 Active := True; 来实现。

procedure TForm1.ClientSocket1Disconnect(Sender: TObject; const Socket: TCustomWinSocket; Reconnecting: Boolean);
begin
  if not Reconnecting then
    ClientSocket1.Active := True; // 自动重连
end;

2.1.3 实例化和配置ClientSocket

在实际编程中，我们需要在适当的地方对ClientSocket组件进行实例化和配置。具体步骤如下：

组件拖放： 在Delphi的窗体设计界面中，将ClientSocket组件拖放到窗体上，并设置其属性（如Host和Port）。
代码中实例化： 如果需要程序运行时动态创建ClientSocket，可以通过编程方式实现。

ClientSocket1 := TClientSocket.Create(Form1);
ClientSocket1.Parent := Form1;
ClientSocket1.Name := 'ClientSocket1';

初始化连接参数： 在窗体的 OnCreate 事件中设置服务器地址和端口等连接参数。

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientSocket1.Host := '192.168.1.100';
  ClientSocket1.Port := 23456;
end;

启动连接： 在窗体的 OnShow 事件中激活ClientSocket，开始连接服务器。

procedure TForm1.FormShow(Sender: TObject);
begin
  ClientSocket1.Active := True;
end;

通过以上步骤，可以完成ClientSocket组件的初始化和连接操作，为后续的消息收发和应用逻辑打下基础。

3. ServerSocket组件及其应用

ServerSocket组件是Delphi开发中用于构建服务器端程序的核心组件之一。在这一章节中，我们将详细探讨ServerSocket组件的服务器设置、消息管理和在聊天程序中的实践。通过本章节的内容，开发者可以了解到如何利用ServerSocket组件实现一个高效且稳定的聊天服务器。

3.1 ServerSocket组件的服务器设置

3.1.1 配置监听端口

创建一个基于ServerSocket组件的服务器程序首先需要配置监听端口。这是服务器程序监听客户端连接请求的端口。通常情况下，监听端口的范围是1024到65535之间的任意一个未被占用的端口。下面是一段示例代码，用于配置监听端口：

uses
  Winsock, SysUtils, Classes, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ScktComp; // 引入ServerSocket组件的单元

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 配置监听端口为自定义端口，这里以12345为例
  ServerSocket1.Port := 12345;
  // 开始监听
  ServerSocket1.Active := True;
end;

end.

在这段代码中， ServerSocket1 是我们在窗体上放置的一个ServerSocket组件。在表单的 FormCreate 方法中，通过 ServerSocket1.Port 设置监听端口，并通过 ServerSocket1.Active := True 启动监听。

3.1.2 处理客户端连接请求

一旦服务器开始监听，它将等待客户端的连接请求。当一个客户端尝试连接到服务器时，ServerSocket组件会触发 OnConnect 事件。开发者需要在该事件中处理客户端的连接。以下是一个处理连接请求的代码示例：

procedure TForm1.ServerSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
  // 当有新的客户端尝试连接时，记录到状态栏或日志
  ShowMessage('客户端已连接: ' + Socket.SocketHandle);
end;

在这段代码中， TCustomWinSocket 是一个通用的Socket对象，它包含了连接的详细信息，如 SocketHandle 。通过触发 OnConnect 事件，开发者可以将连接请求加入到日志中或更新状态栏，以通知用户新的客户端已连接。

3.2 ServerSocket组件的消息管理

3.2.1 接收客户端消息

服务器端接收客户端发送的消息是通过 OnRead 事件来实现的。当客户端发送数据到服务器时，此事件会被触发。以下是一个接收消息的代码示例：

procedure TForm1.ServerSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  Msg: String;
begin
  // 从连接的Socket中读取消息
  Msg := Socket.ReceiveText;
  // 将消息显示到Memo控件中
  Memo1.Lines.Add('客户端: ' + Socket.RemoteAddress + ': ' + Msg);
end;

在这段代码中， ReceiveText 方法被用于从连接的Socket对象中读取文本格式的消息。接收到的消息被添加到Memo控件的行中，这样就实现了聊天记录的显示。

3.2.2 向客户端广播消息

服务器需要有一个机制来向所有或特定的客户端发送消息。这可以通过 OnWrite 事件实现。以下是一个广播消息到所有客户端的代码示例：

procedure TForm1.ServerSocket1Write(Sender: TObject; Socket: TCustomWinSocket);
begin
  // 向所有连接的客户端广播消息
  for var i := 0 to ServerSocket1.SocketCount - 1 do
    ServerSocket1.Socks[i].SendText(Socket.ReceiveText);
end;

在这段代码中， SocketCount 属性用于获取当前连接的客户端数量。然后，使用 SendText 方法将消息广播到每一个客户端。这里假设每个客户端发送的消息是需要被广播给其他所有客户端的。

3.3 ServerSocket组件在聊天程序中的实践

3.3.1 创建和启动服务器

创建和启动ServerSocket组件的服务器是构建聊天程序的基础。开发者通常需要在程序的初始化阶段执行这一步骤。以下是一个创建和启动服务器的代码示例：

procedure TForm1.CreateAndStartServer;
begin
  // 创建服务器
  ServerSocket1 := TServerSocket.Create(Self);
  // 设置服务器的监听端口
  ServerSocket1.Port := 12345;
  // 启动监听
  ServerSocket1.Active := True;
  // 此时服务器已经可以接收客户端的连接请求
end;

在这个代码块中，通过创建TServerSocket的实例并设置它的属性，我们创建了一个简单的服务器。将 Active 属性设置为 True 就可以启动服务器并开始监听指定端口的连接请求。

3.3.2 多客户端管理机制

一个聊天服务器通常需要同时管理多个客户端。Delphi的ServerSocket组件为开发者提供了管理客户端连接的接口。一个常见的做法是创建一个列表来存储所有连接的客户端。以下是一个简单的客户端管理机制的代码示例：

procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  // 当新的客户端连接时，将其添加到客户端列表中
  ClientList.Items.Add(Socket);
end;

procedure TForm1.ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  // 当客户端断开连接时，从客户端列表中移除
  ClientList.Items.Remove(Socket);
end;

在这段代码中， ClientList 是一个用于存储客户端Socket对象的列表。当有新的客户端连接时，它的Socket对象被添加到列表中，当客户端断开连接时，它的Socket对象从列表中移除。这样我们就可以维护一个动态的客户端列表，并且可以根据需要对这些客户端进行操作，比如广播消息等。

接下来的章节中，我们将探讨Memo组件在聊天记录显示中的作用，以及如何通过StatusBar组件提供程序状态信息，使聊天程序的用户体验更加友好。

4. Memo组件在聊天记录显示中的作用

4.1 Memo组件的基本使用

4.1.1 Memo组件的属性和方法

Memo组件是Delphi中用于显示和编辑多行文本的组件。它拥有诸如字体、颜色、换行模式等属性，以及Clear、Lines、LoadFromFile等方法，非常适合用来显示聊天记录。Memo的 Lines 属性允许程序以字符串列表的形式访问文本内容，使得动态更新内容变得非常方便。

在使用Memo组件时，需要熟悉它的基本操作：

设置 Memo 的 Font 属性来调整文本的样式。
使用 Color 和 BackgroundColor 属性来改变显示文本和背景的颜色。
设置 ScrollBars 属性为 ssVertical ，使得用户可以滚动查看聊天记录。

4.1.2 动态更新聊天记录

动态更新聊天记录通常涉及到在收到消息时向Memo组件的 Lines 中添加新的条目。这可以通过以下代码实现：

// 假设MessageReceived是从ClientSocket接收到的服务器消息
procedure TForm1.UpdateChatLog(const MessageReceived: string);
begin
  Memo1.Lines.Add(MessageReceived);  // 添加消息到Memo组件中
  Memo1.SelStart := Memo1.GetTextLen; // 移动光标到文本末尾
  Memo1.SelLength := 0;
  Memo1.perform(EM_SCROLLCARET, 0, 0); // 滚动到最新消息
end;

上述代码片段中， UpdateChatLog 过程用于更新Memo组件的内容，将新消息添加到聊天日志的末尾。 SelStart 和 SelLength 属性确保文本的末尾被选中，当新消息添加后， EM_SCROLLCARET 消息确保Memo滚动到最底部以显示最新消息。

4.2 Memo组件的高级应用

4.2.1 格式化聊天消息

为了提高聊天记录的可读性，可以采用不同的颜色和字体格式对不同类型的消息进行格式化。例如，可以将用户发送的消息和服务器发送的消息用不同的颜色来区分：

procedure TForm1.FormatMessage(const MessageText: string; IsIncoming: Boolean);
var
  S: string;
  Color: TColor;
begin
  if IsIncoming then
    Color := clBlue  // 来自服务器的消息颜色设置为蓝色
  else
    Color := clBlack; // 用户发出的消息为黑色

  S := '<' + FormatDateTime('HH:MM:SS', Now) + '> ' + MessageText; // 格式化消息文本

  with Memo1.Canvas do
  begin
    Font.Color := Color;
    Brush.Color := Memo1.Color;
    TextRect(Rect(0, Memo1.Height, Memo1.Width, Memo1.Height + Canvas.TextHeight(S)),
      S, [tfLeft, tfVerticalCenter]);
    Memo1.Height := Memo1.Canvas.TextHeight(S) + 10; // 更新Memo的高度以适应新内容
  end;
end;

4.2.2 滚动条的使用和管理

Memo组件默认带有滚动条，根据需求不同，我们可能需要控制滚动条的显示与否。在实时聊天应用中，通常会保持滚动条在最底部，以便用户总是看到最新的消息：

procedure TForm1.EnsureScrollAtBottom;
begin
  if not Memo1.SilentScroll then
    Memo1.perform(EM_SCROLLCARET, 0, 0);
end;

EnsureScrollAtBottom 过程确保当新的消息到达并添加到Memo组件后，滚动条自动滚动到最新内容。 EM_SCROLLCARET 消息会将滚动条移动到文本框底部，并且 SilentScroll 属性设置为 False ，确保滚动条的移动时不会发出滚动声音。

4.3 Memo组件在聊天界面的集成

4.3.1 设计聊天界面布局

Memo组件通常放置在窗体的下半部分，用于显示消息列表，而消息输入框和发送按钮通常放置在窗体的上半部分。Memo组件的 Align 属性可以设置为 alBottom ，这样Memo会自动填充窗体的底部区域。

4.3.2 实现消息的即时显示

即时显示消息是聊天程序中的关键功能。要在用户界面中实时显示消息，需要将更新聊天记录的代码与ClientSocket组件的 OnReceive 事件关联起来。以下是实现消息即时显示的代码示例：

procedure TForm1.ClientSocket1Receive(Sender: TObject; Socket: TCustomWinSocket);
var
  RecvString: string;
begin
  SetLength(RecvString, 1024);
  try
    // 读取从服务器接收到的字符串
    Socket.Socket.Read(RecvString[1], 1024);
    SetLength(RecvString, Socket.Socket.BytesRead);

    // 由于接收消息可能在不同线程上，需要调用到UI线程上执行更新
    if InvokeRequired then
    begin
      Invoke(FormatMessage, [RecvString, True]);
      Exit;
    end;

    // 更新Memo组件内容
    UpdateChatLog(RecvString);
  except
    on E: Exception do
      Memo1.Lines.Add('Error: ' + E.Message);
  end;
end;

在上述代码中， ClientSocket1Receive 处理接收到消息的事件，并通过 FormatMessage 和 UpdateChatLog 过程在UI线程上更新聊天记录。异常处理确保了即使在读取消息过程中发生错误，也能将错误信息显示在聊天记录中。

在此，我们已经介绍了Memo组件在聊天程序中的基本使用、高级应用以及如何集成到聊天界面，确保用户能有一个流畅和直观的通信体验。

5. StatusBar组件提供程序状态信息

5.1 StatusBar组件的自定义

5.1.1 设置StatusBar的段数和样式

StatusBar组件通常用于显示程序的状态信息，例如当前操作状态、提示信息等。在Delphi中，我们可以很容易地自定义StatusBar的段数以及每个段的样式。

首先，我们添加StatusBar组件到Form上，然后在设计模式下，通过点击组件，打开StatusBar的属性页。在这里，我们可以修改“Panels”属性，增加段数。每个段可以使用不同的Panel Style，从而可以显示不同的信息。

// 增加StatusBar段数并设置每个段的样式
StatusBar1.Panels.Count := 3;
with StatusBar1.Panels[0] do
begin
  Style := psText;
  Alignment := taLeftJustify;
  Text := '左侧状态';
end;
with StatusBar1.Panels[1] do
begin
  Style := psOwnerDraw;
  Alignment := taCenter;
  Width := 100;
end;
with StatusBar1.Panels[2] do
begin
  Style := psOwnerDraw;
  Alignment := taRightJustify;
  Width := 50;
end;

在上述代码中，我们创建了三个段，其中第一个段显示静态文本“左侧状态”，第二个和第三个段则用于自定义绘制，可以根据实际需求绘制不同的内容。

5.1.2 状态信息的动态更新

在聊天程序中，StatusBar常常用于显示连接状态、发送/接收消息的数量等。我们可以通过编程方式动态更新StatusBar中的信息。

procedure TForm1.ButtonConnectClick(Sender: TObject);
begin
  // 假设有一个函数CheckConnection用于检查连接状态
  if CheckConnection then
    StatusBar1.Panels[0].Text := '已连接'
  else
    StatusBar1.Panels[0].Text := '未连接';
end;

在实际应用中， CheckConnection 函数会根据实际情况检查网络连接状态，并返回相应的布尔值。状态信息更新后，用户即可在StatusBar中看到最新的状态。

5.2 StatusBar组件与程序状态同步

5.2.1 显示当前连接状态

连接状态是聊天程序非常重要的状态信息。StatusBar组件可以用来实时显示当前的连接状态，无论是与服务器的连接还是与其它用户的连接。

procedure TForm1.ClientSocket1Connect(Sender: TObject);
begin
  // 当客户端成功连接到服务器时，更新StatusBar
  StatusBar1.Panels[0].Text := '已连接到服务器';
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject);
begin
  // 当客户端与服务器断开连接时，更新StatusBar
  StatusBar1.Panels[0].Text := '未连接';
end;

通过捕获ClientSocket组件的 Connect 和 Disconnect 事件，我们可以实时同步连接状态到StatusBar，提供给用户直观的状态显示。

5.2.2 展示其他重要状态信息

除了连接状态，StatusBar还可以展示其他类型的重要状态信息。比如，消息接收计数器、警告信息、提示信息等。

procedure TForm1.ClientSocket1MessageReceived(Sender: TObject);
begin
  // 当接收到消息时，更新StatusBar上的消息计数器
  Inc(MessagesReceived);
  StatusBar1.Panels[1].Text := IntToStr(MessagesReceived);
end;

procedure TForm1.ShowWarning(const Msg: string);
begin
  // 显示警告信息
  StatusBar1.Panels[2].Text := Msg;
end;

这里， MessagesReceived 是一个整型变量，用来记录接收的消息数量。每当客户端接收到一条消息时，我们就增加该变量的值，并更新StatusBar的第二个段的信息。

5.3 StatusBar组件在用户界面的优化

5.3.1 设计友好的用户交互界面

StatusBar是用户与程序交互的重要组成部分。合理设计StatusBar不仅能提供状态信息，还能增强用户体验。

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 在窗体创建时，设置StatusBar的字体和颜色
  StatusBar1.Font.Name := 'Arial';
  StatusBar1.Font.Size := 8;
  StatusBar1.Canvas.Font.Color := clWhite;
end;

通过设置字体和颜色，我们使得StatusBar在视觉上更易读，也更具美观性。这是设计友好用户界面的第一步。

5.3.2 状态信息的用户体验优化

为了提供更好的用户体验，我们应该确保状态信息不仅准确，还要及时更新，同时还要避免过于复杂而让用户困惑。

procedure TForm1.UpdateStatus(const StatusMsg: string);
begin
  // 该过程可以更新状态信息，同时保证信息的简洁性和及时性
  StatusBar1.Panels[1].Text := StatusMsg;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  // 窗体大小变化时，确保StatusBar适应新的布局
  StatusBar1_WIDTH := Self.ClientWidth;
end;

UpdateStatus 过程可用于更新StatusBar上显示的任何文本，而窗体大小调整时，确保StatusBar调整大小，从而保证用户始终能看到最新的状态信息。

在设计和实现StatusBar时，始终应将用户的需求和体验放在首位。一个良好设计的StatusBar不仅能够提供实时的状态信息，还能够在不干扰用户的情况下进行必要的视觉提示。

6. MainMenu组件实现用户交互

Delphi中MainMenu组件是实现用户界面中菜单功能的关键元素，它允许开发者通过简单的点击来触发程序的特定功能或操作。它不仅增强了程序的可用性，而且通过合理的菜单设计，还可以引导用户更有效地使用程序。本章节将深入探讨MainMenu组件的设计原理、功能实现以及在用户交互中的应用。

6.1 MainMenu组件的设计原理

MainMenu组件的设计要遵循清晰易懂的原则，菜单项应该分类合理，便于用户快速定位所需的功能。

6.1.1 菜单项的创建和分类

创建菜单项时，首先需要确定主要的功能模块，比如“文件”、“编辑”、“查看”等。每个模块下的菜单项应该能够精确描述它所执行的操作。

// 示例代码：创建菜单项
var
  FileMenu: TMenuItem;
  OpenMI, CloseMI: TMenuItem;
begin
  FileMenu := TMenuItem.Create(MainMenu);
  FileMenu.Caption := '&File';

  OpenMI := TMenuItem.Create(FileMenu);
  OpenMI.Caption := '&Open';
  OpenMI.ShortCut := Menus.ShortCut(Ord('O'), [ssCtrl]);
  // 添加点击事件处理
  OpenMI.OnClick := OpenFile;

  CloseMI := TMenuItem.Create(FileMenu);
  CloseMI.Caption := '&Close';
  CloseMI.ShortCut := Menus.ShortCut(Ord('C'), [ssCtrl]);
  // 添加点击事件处理
  CloseMI.OnClick := CloseFile;

  FileMenu.Add(OpenMI);
  FileMenu.Add(CloseMI);
  // 将文件菜单添加到菜单栏
  MainMenu.Items.Add(FileMenu);
end;

6.1.2 菜单项的事件绑定和处理

每一个菜单项都需要绑定相应的事件处理程序，这样用户点击菜单时程序才能执行预期的操作。

// 示例代码：菜单项的点击事件处理
procedure TForm1.OpenFile(Sender: TObject);
begin
  // 实现打开文件的代码
  ShowMessage('Open file action.');
end;

procedure TForm1.CloseFile(Sender: TObject);
begin
  // 实现关闭文件的代码
  ShowMessage('Close file action.');
end;

6.2 MainMenu组件的功能实现

MainMenu组件不仅能够提供基本的菜单功能，还可以集成文件传输、设置等高级功能。

6.2.1 实现聊天程序的菜单操作

在聊天程序中，MainMenu组件可以用来实现发送消息、用户管理、程序设置等功能。

6.2.2 集成文件传输和其他高级功能

通过添加特定的菜单项，可以在聊天程序中集成文件传输功能，方便用户在聊天过程中直接发送文件。

// 示例代码：集成文件传输功能
var
  FileTransferMI: TMenuItem;
begin
  FileTransferMI := TMenuItem.Create(MainMenu);
  FileTransferMI.Caption := '&File Transfer';
  FileTransferMI.OnClick := StartFileTransfer;
  MainMenu.Items.Add(FileTransferMI);
end;

procedure TForm1.StartFileTransfer(Sender: TObject);
begin
  // 实现文件传输的代码
  ShowMessage('Start file transfer.');
end;