Funkcja oddzwaniania między Delphi DLL a Delphi EXE

Question

Piszę DLL Delphi. W Delphi DLL chciałbym zaimplementować funkcję zwrotną, ta funkcja zwrotna powinna oddzwonić do programu wywołującego Delphi. Głównym celem funkcji wywołania zwrotnego jest to, że w bibliotece DLL wystąpi pewna długa operacja, ale raport o postępach (za pośrednictwem paska postępu) i anulowanie operacji powinny wystąpić w programie wywołującym Delphi.

Chciałbym uzyskać pomoc dotyczącą prawidłowego wdrażania funkcji wywołania zwrotnego w bibliotece DLL. Mogę kontynuować aż do przypisania funkcji wywołania zwrotnego z EXE, ale nie wiem jak zainicjować połączenie z samej biblioteki DLL.

to część definicji (używany przez EXE oraz DLL): Plik

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:

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; 

poprzez PTDLLParameters przekazywanych DLL, co wynika z EXE Delphi :

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

ładuje DLL

..... 
    ..... 

nazywając DLL

CompressionCreateLibrary(DLLParameters); 
    .... 

pewnych operacji

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

plik DLL:

Funkcja ta powinna być wywoływana z pewnej części DLL czyniąc postęp z powrotem do EXE dotyczące rzeczywistego działania:

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

Myślę, że ta część powinna być ok:

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

begin 

    DLLParametersID.CallbackFunction:= @DLLCallback; 

end; 

Proszę mi pomóc jak wdrożyć część zwrotnej właściwie w DLL. Doceniony zostanie przykładowy kod. Podczas inicjalizacji debugowania działa dobrze, ale wywołanie zwrotne nie powiedzie się. Z góry dziękuję.

Answer 1

Twoja instrukcja przypisania jest cofana. W funkcji DLL, DLLParametersID przechowuje informacje o oddzwonienie, ale potem można zastąpić go z zmiennej globalnej:

DLLParametersID.CallbackFunction:= @DLLCallback; 

Zmienne te do przypisaćDLLCallback.