Chức năng gọi lại giữa Delphi DLL và Delphi EXE

Question

Tôi đang viết một DLL Delphi. Trong Delphi DLL tôi muốn thực hiện một chức năng gọi lại, chức năng gọi lại này nên gọi lại cho chương trình Delphi người gọi. Mục đích chính của chức năng gọi lại là hoạt động lâu dài nhất định sẽ xảy ra trong DLL, nhưng báo cáo tiến độ (thông qua thanh tiến trình) và hủy bỏ hoạt động sẽ xảy ra trong chương trình Delphi người gọi.

Tôi muốn nhận được một số hỗ trợ cách triển khai đúng chức năng gọi lại trong DLL. Tôi có thể tiến hành cho đến khi gán chức năng gọi lại được truyền từ EXE nhưng tôi làm nit biết cách bắt đầu cuộc gọi từ chính DLL đó.

Đây là phần định nghĩa (được sử dụng bởi EXE và DLL):

uses Windows; 

Type 
    PTCallBackStruct = ^TCallBackStruct; 
    TCallBackStruct = packed record 
    Handle: THandle; 
    Caller: Pointer;   
    FileSize: LongInt; 
end; 

type 

TFunctionPointerType = function(ZCallbackRec: PTCallBackStruct): Longbool; 
    stdcall; 

type 
    PTDLLParamaters = ^TDLLParamaters; 
    TDLLParamaters = packed record 
    Handle: THandle; 
    Caller: Pointer; 
    CallbackFunction: TFunctionPointerType; 
end; 

var 
    DLLCallback: TFunctionPointerType; 

EXE file:

uses ....  

type 

    function DLL_Callback(ZCallBackRec: PTCallBackStruct): LongBool; stdcall; 
    forward; 

    implementation 

    function DLL_Callback(ZCallBackRec: PTCallBackStruct): LongBool; stdcall; 
    begin 
     // progress reporting this function should be called back from 
     //the DLL. The Handle and Self parameter should help with identifying 
     // which object initiated the callback 
    end; 

qua PTDLLParameters truyền cho các DLL như sau từ exe Delphi :

// init callback 
DLLParameters := AllocMem(SizeOf(TDLLParamaters)); 
with DLLParameters^ do 
    begin 
    Handle := Application.Handle; 
    Caller := Self; 
    CallbackFunction:= DLL_Callback; 
    end; 

tải DLL

..... 
    ..... 

gọi DLL

CompressionCreateLibrary(DLLParameters); 
    .... 

nhất định hoạt động

 Free DLL 
    .... 
    ..... 
    FreeMem(DLLParameters); 

tập tin DLL:

Chức năng này nên được gọi là từ một phần nhất định của DLL làm cho tiến trình trở lại EXE liên quan đến hoạt động thực tế:

function CallCallBackFromDLL(Size: integer): Integer; 
    begin 
     // 
     .... 
     set up callbackstruct 
     .... 
     // calling back 
     DLLCallback(CallbackStruct); 
     end; 

Tôi nghĩ rằng phần này nên được ok:

// main init call assigning the callback function to the DLL 
function CompressionCreateLibrary(DLLParametersID: PTDLLParamaters): Integer; 

begin 

    DLLParametersID.CallbackFunction:= @DLLCallback; 

end; 

Xin hãy giúp tôi hiểu làm thế nào để thực hiện một phần callback đúng trong DLL. Một số mã ví dụ sẽ được đánh giá cao. Trong khi gỡ lỗi khởi tạo hoạt động tốt, nhưng làm cho một cuộc gọi lại không thành công. Cảm ơn bạn trước.

Answer 1

Tuyên bố gán của bạn bị lạc hậu. Trong hàm DLL, DLLParametersID giữ thông tin về các cuộc gọi lại, nhưng sau đó bạn ghi đè lên nó với biến toàn cục của bạn:

DLLParametersID.CallbackFunction:= @DLLCallback; 

Swap những để gánDLLCallback.