使用Delphi读取文件时实现超时

unit MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    btnReadFile: TButton;
    edtFileName: TEdit;
    lblStatus: TLabel;
    tmrTimeout: TTimer;
    procedure btnReadFileClick(Sender: TObject);
    procedure tmrTimeoutTimer(Sender: TObject);
  private
    FReadFileThread: TThread;
    procedure ReadFileThread;
    procedure SetStatus(const Value: string);
    property Status: string write SetStatus;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnReadFileClick(Sender: TObject);
begin
  tmrTimeout.Enabled := False;
  tmrTimeout.Interval := 5000; // 设置超时时间为5秒
  tmrTimeout.Enabled := True;

  FReadFileThread := TThread.CreateAnonymousThread(ReadFileThread);
  FReadFileThread.Start;
end;

procedure TForm1.ReadFileThread;
var
  FileContent: string;
begin
  try
    FileContent := TFile.ReadAllText(edtFileName.Text);
    Status := '文件内容：' + FileContent;
  except
    on E: Exception do
      Status := '读取文件失败：' + E.Message;
  end;
end;

procedure TForm1.SetStatus(const Value: string);
begin
  lblStatus.Caption := Value;
end;

procedure TForm1.tmrTimeoutTimer(Sender: TObject);
begin
  tmrTimeout.Enabled := False;
  if Assigned(FReadFileThread) and FReadFileThread.Running then
  begin
    FReadFileThread.Terminate;
    FReadFileThread.WaitFor;
    Status := '读取文件超时';
  end;
end;

end.