Làm thế nào để hiển thị thời gian đã trôi qua trong khi một truy vấn SQL dài được thực hiện?

Question

tôi cần phải hiển thị một cửa sổ popup trước khi thực hiện truy vấn, hiển thị thời gian trôi qua trong khi truy vấn sql đang được thực hiện, và đóng cửa sổ đó khi truy vấn kết thúc.

Thật sự tôi làm điều gì đó như thế này

var 
    frm : tFrmPopupElapsed; 
    // this form has a TTimer and a TLabel to show the elapsed time 
    // but the label is not updated, I tried using update and refresh 
    // but nothing happens 
begin 
    frm := tFrmPopupElapsed.Create(nil); 
    try 
    frm.Init; // this procedure enables the timer 
    frm.Show(); 
    ExecuteMyVeryLongQuery(); 
    finally 
    frm.Close; 
    end; 
end; 

Làm thế nào các nhãn có thể được cập nhật để hiển thị thời gian trôi qua trong khi truy vấn thực hiện? Sử dụng bộ hẹn giờ? Hoặc một sợi?

Answer 1

Bạn cần chạy truy vấn không đồng bộ, cho phép bạn cập nhật Biểu mẫu trong thời gian chờ đợi.
Cách đơn giản nhất để làm điều đó mà không nhận được bàn tay của bạn bẩn với đề là sử dụng Andreas Hausladen của AsynCalls library.
Bạn cũng có thể cung cấp cho một cái nhìn tại các OmniThread Library bởi Primož Gabrijelcic.

Answer 2

Câu hỏi này phức tạp hơn nhiều so với dự kiến ​​ban đầu; mà làm cho nó một câu hỏi hay.

Ban đầu tôi nghĩ Application.processmessages là đúng cách, tuy nhiên nó là một mỏ tiềm năng trừ khi bạn cẩn thận (nhờ @skamradt để chỉ ra điều này). Nó cũng không giúp đỡ với một cuộc gọi chặn duy nhất.

Chủ đề nền là cần thiết như sau: (cảm ơn @mghie vì đã chỉ ra các lỗi mà hiện đã được giải quyết). Vẫn có thể có vấn đề với đối tượng cơ sở dữ liệu được gọi trong các luồng khác nhau - do đó, luồng nền có thể cần phải có kết nối cơ sở dữ liệu riêng cho thao tác này (nếu có thể thực hiện được).

Trong ví dụ dưới đây tôi đã không được hiển thị cụ thể là mã cho việc tạo ra và phá hủy các cửa sổ tiến bộ vì nó sẽ làm cho đoạn code thậm chí lâu hơn, và dễ dàng để làm.

Vì vậy, chúng tôi cần hai đối tượng để thực hiện việc này:

Đầu tiên là chuỗi nền để xử lý truy vấn.

unit BackgroundProcess; 

{$mode objfpc}{$H+} 

interface 

uses 
    Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, windows; 

const 
    WM_MY_BACKGROUNDNOTIFY = WM_USER + 555; { change this } 
    NOTIFY_BEGIN = 22; 
    NOTIFY_END = 33; 

type 
    TBackgroundQueryThread = class(TThread) 
    private 
    hwndnotify : HWND; 
    protected 
    procedure Execute; override; 
    public 
    constructor Create(owner: TForm); 
    end; 


implementation 

constructor TBackgroundQueryThread.Create(owner: TForm) ; 
begin 
    inherited Create(False); 
    hwndnotify := owner.Handle; 
    FreeOnTerminate := true; 
    resume; 
end; 

procedure TBackgroundQueryThread.Execute; 
begin 
    PostMessage(hwndnotify, WM_MY_BACKGROUNDNOTIFY, NOTIFY_BEGIN, 0); 
    Sleep(2000); (* Query goes here. *) 
    PostMessage(hwndnotify, WM_MY_BACKGROUNDNOTIFY, NOTIFY_END, 0); 
end; 

end.   

Các hình thức mà gọi truy vấn:

unit mainform; 

interface 

uses 
    Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 
    StdCtrls, ExtCtrls, windows, BackgroundProcess; 

type 
    TForm1 = class(TForm) 
    private 
    frm : tFrmPopupElapsed; 
    { private declarations } 
    procedure OnMyBackgrounNotify(var Msg: TMessage); message WM_MY_BACKGROUNDNOTIFY; 
    public 
    { public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 


procedure TForm1.OnMyBackgrounNotify(var Msg: TMessage); 
begin 
    if (msg.WParam = NOTIFY_BEGIN) THEN 
    BEGIN 
    if (frm = nil) THEN 
    BEGIN 
     frm := tFrmPopupElapsed.Create(nil); 
     frm.Init; // this procedure enables the timer 
     frm.Show(); 
    END; 
    END; 

    if (msg.WParam = NOTIFY_END) THEN 
    BEGIN 
    if (frm <> nil) THEN 
    BEGIN 
     frm.Close; 
    END; 
    END; 

end; 

end. 

Answer 3

Bạn sẽ cần phải chạy truy vấn trong một thread nền nếu bạn muốn giao diện người dùng được đáp ứng trong thời gian thực hiện truy vấn. Nếu truy vấn hỗ trợ hủy, bạn cũng có thể thêm nút hủy. Tuy nhiên, tôi tin rằng chỉ các truy vấn ADO mới hỗ trợ điều này.