2

我试图在新线程中使用 openDialog 但它做出了如此奇怪的行为..

如果我将 if opendialog.execute then 放在 create 构造函数中，如下所示：

constructor TChatMemberThread.Create(Name: string);
begin
  inherited Create(True);
  FName := Name;
  FreeOnTerminate := True;
  Opendialog := TOpenDialog.create(nil);
  if opendialog.execute then
    for 0 to opendialog.filescount do
      somecodeishere
    end;
end;

opendialog 正常打开，但是当我把它放在线程的执行生产者中时，它根本没有打开！

我是线程的初学者，所以有人可以为我解释发生了什么吗？

提前致谢 。

[编辑]

unit Unit1;

interface

uses
  Classes,Dialogs,ComCtrls,SysUtils,DCPcrypt2, DCPmd5;

type
  TOpenThread = class(TThread)
  private
    { Private declarations }
    OpenDlG : TOpenDialog;
    LI : TListItem;
    Procedure Openit;
    Function MD5it(Const filename : string ):String;
  protected
    procedure Execute; override;
  Public
    Constructor Create;
    Destructor Destroy;Override;
  end;

implementation
uses Main;

{ TOpenThread }

Constructor TOpenThread.Create;
begin
 inherited Create(True);
 opendlg := Topendialog.Create(nil);
 opendlg.Filter := 'All Files | *.*';
 openDlg.Options := [OfAllowMultiSelect];
 openDlg.InitialDir := GetCurrentDir;
end;

Destructor TOpenThread.Destroy;
begin
  OpenDlg.Free;
  inherited;
end;

Function TOpenThread.MD5it(Const filename : string ):String;
var
hash : TDCP_MD5 ;
Digest: array[0..15] of byte;
Source: TFileStream;
i: integer;
s: string;
begin
  Source:= nil;
    try
      Source:= TFileStream.Create(filename,fmOpenRead);  // open the file specified by Edit1
    except
      MessageDlg('Unable to open file',mtError,[mbOK],0);
    end;
    if Source <> nil then
    begin
      Hash:= TDCP_MD5.Create(nil);         // create the hash
      Hash.Init;                                   // initialize it
      Hash.UpdateStream(Source,Source.Size);       // hash the stream contents
      Hash.Final(Digest);                          // produce the digest
      Source.Free;
      s:= '';
      for i:= 0 to 15 do
        s:= s + IntToHex(Digest[i],2);
    Result := s;
    end;
    Hash.Free;
end;

Procedure TOpenThread.Openit;
var
I: Integer;
begin
 if opendlg.Execute then
 begin
   for I := 0 to openDlg.Files.Count - 1 do begin
      LI := Form1.LV1.Items.Add;
      LI.Caption := ExtractFileName(openDlg.Files[i]);
      LI.SubItems.Add(MD5it(openDlg.Files[i]));
      LI.SubItems.add(openDlg.Files[i]);
   end;
  //SB.Panels[0].Text := ' '+IntToStr(LV1.Items.Count)+' File(s)';
  OpenDlg.Free;
end;end;

procedure TOpenThread.Execute;
begin
  { Place thread code here }
  Synchronize(OpenIt);
end;

end.
4

2 回答 2

7

当您在构造函数中调用它时它会起作用，因为构造函数在调用线程（即主线程）的上下文中运行，而 Execute() 在工作线程的上下文中运行。VCL 不是线程安全的，尤其是 UI 组件很少在主线程之外正常工作。如果要在线程中显示打开的对话框，则可以TThread.Execute()使用以下方法：

1)在主线程的上下文中调用TThread.Synchronize()访问。TOpenDialog

GetOpenFileName()2）改为直接调用Win32 API函数。如果使用得当，API 对话框可以安全地在线程中使用。

于 2011-07-17T01:41:44.647 回答
0

我刚刚在 Delphi XE2 中遇到了类似的情况，但我想它也可能在 2009 年发生。

Delphi 被提升为使用新的 Windows Vista 打开/保存对话框，这是基于 COM 的组件，而不是旧的平面 C 样式 API。 https://msdn.microsoft.com/library/windows/desktop/bb776913.aspx

PromptForFileName我正在添加一个调试日志记录功能，如果尚未设置转储文件名，它会调用它。该功能从未做过任何事情。

我追踪到 Delphi RTL/VCL 内部结构并function TCustomFileSaveDialog.CreateFileDialog在Dialogs.pas.

上述函数正在调用 Microsoft COM API，但随后 - 糟糕！- 只是抑制了所有可能返回的错误。我在 Delphi 调试器中使用 CPU Window 并看到EAX寄存器有$800401f0错误，这代表“COM 尚未初始化”的情况。 https://msdn.microsoft.com/en-us/library/cc704587.aspx

我确信上述函数在程序的其他地方工作得很好，所以我想它——对我来说出乎意料——在一个单独的线程中执行。情况就是这样。在您的情况下，您已经知道您有多线程问题，我认为您可以尝试直接解决方案，而不是解决方法Synchronize

uses ActiveX, Windows;
constructor TChatMemberThread.Create(Name: string);
var COM_Init_Here: Boolean;
begin
  inherited Create(True);
  FName := Name;
  FreeOnTerminate := True;
  COM_Init_Here := S_OK = CoInitialize(nil); // ***
  try                                        // ***        
    Opendialog := TOpenDialog.create(nil);
    if opendialog.execute then
      for 0 to opendialog.filescount do
        somecodeishere
      end;
  finally                                    // ***
    if COM_Init_Here then CoUnInitialize();  // ***
  end;                                       // ***
end;
于 2018-01-29T10:12:28.173 回答