Multithreading 如何在delphi中直接在线程外部终止线程？

我想通过单击按钮终止线程。如果线程在没有用户中断的情况下正常工作，则可以，但有时用户需要中止线程，这就是用户如何中止线程的问题

以下是我测试的代码：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, mmsystem, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  end;

type
  hangth = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure play;
  end;

var
  Form1: TForm1;
  played: boolean;
  szalhang: hangth;

implementation

{$R *.dfm}

procedure hangth.play;
begin
  played := true;
  szalhang.Terminate;
end;

procedure hangth.Execute;
begin
  played := false;
  SndPlaySound(pchar('hang.wav'), SND_SYNC);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  played := true;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
  if played = true then begin
    szalhang := hangth.Create(true);
    szalhang.Resume;
  end else begin
    szalhang.Terminate();
    // here i want to terminate thread, but it doesn't want to be killed.
  end;
end;

end.

---

调用

TThread.Terminate（）

时，它会将

TThread.Terminated

属性设置为true，而不执行其他操作。

TThread.Execute（）

code负责定期查看

TThread.Terminated

属性，并在该属性为真时优雅地退出。但是，在这种情况下，这是不可能的，因为

SndPlaySound（）

正在阻塞线程，并且在

SND\u SYNC

模式下运行时，无法中断

SndPlaySound（）

。您唯一的选择是使用Win32 API

TerminateThread（）

函数对线程执行暴力终止

由于您显然需要对音频播放进行更多控制，并检测音频何时播放完毕，因此

SndPlaySound（）

不是满足您需要的最佳解决方案。你有一个<代码> tFrase>代码>，你可以考虑使用Delphi的代码> TMIIApPARTION/COD>组件，例如：

unit Unit1;

interface

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

type
  MPlayerState = (mpsClosed, mpsOpened, mpsPlaying);

  TForm1 = class(TForm)
    Image1: TImage;
    MediaPlayer1: TMediaPlayer;
    procedure MediaPlayer1Notify(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
    State: MPlayerState;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm56.FormCreate(Sender: TObject);
begin
  State := mpsClosed;
  MediaPlayer1.FileName := 'C:\full path to\hang.wav';
end;

procedure TForm56.MediaPlayer1Notify(Sender: TObject);
begin
  case MediaPlayer1.Mode of
    mpStopped, mpPlaying:
      State := mpsOpened;
  end;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
  if State = mpsClosed then
  begin
    MediaPlayer1.Notify := False;
    MediaPlayer1.Wait := True;
    MediaPlayer1.Open;
    State := mpsOpened;
  end;

  if State = mpsOpened then
  begin
    MediaPlayer1.Notify := True;
    MediaPlayer1.Wait := False;
    MediaPlayer1.Play;
    if MediaPlayer1.Error = 0 then
      State := mpsPlaying
  end else
  begin
    MediaPlayer1.Notify := False;
    MediaPlayer1.Wait := True;
    MediaPlayer1.Stop;
    State := mpsOpened;

    MediaPlayer1.Notify := False;
    MediaPlayer1.Wait := True;
    MediaPlayer1.Close;
    State := mpsClosed;
  end;
end;

end.

---

但我们仍然不知道问题是什么。“在线程外部直接终止线程”是什么意思？我想通过单击按钮终止线程。如果线程在没有用户中断的情况下正常工作，则可以，但有时用户需要中止线程，这就是用户如何中止线程的问题。好的，这是一个好的开始。但是你能修复上面的代码以便编译吗？你们说它有效，但我们都看到了它无效的证据。代码被重新附加。它现在可以编译了。它没有编译，我做了修复让它编译，并为你清理了它。现在你能更清楚一点它是怎么不起作用的吗？它做了什么/没有做什么你没有预料到的？