डेल्फी इनलाइन असेंबलर

Question

का उपयोग करके कक्षा उदाहरण बनाएं, मैं क्या करना चाहता हूं, असेंबली का उपयोग करके, क्लास इंस्टेंस बनाएं, इसके तरीकों में से एक को कॉल करें और फिर इंस्टेंस को मुक्त करें।

मुझे पता है कि मुझे कुछ बहुत महत्वपूर्ण और शायद बहुत आसान याद आ रही है, लेकिन मुझे नहीं पता कि क्या।

program Project2; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

type 
    TSomeClass = class(TObject) 
    private 
    FCreateDateTime: string; 
    public 
    constructor Create; 
    procedure SayYeah; 
    end; 

constructor TSomeClass.Create; 
begin 
    FCreateDateTime := DateTimeToStr(Now); 
end; 

procedure TSomeClass.SayYeah; 
begin 
    Writeln('yeah @ ' + FCreateDateTime); 
end; 

procedure Doit; 
asm 
    CALL TSomeClass.Create; // <= Access Violation 
    CALL TSomeClass.SayYeah; 
    CALL TSomeClass.Free; 
end; 

begin 
    try 
    Doit; 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
    Readln; 
end. 

FYI करें: मैं समझता हूँ कि कैसे मैं इसे करने का एक और तरीका है निम्न स्तर पर इस लक्ष्य को हासिल कर सकते हैं, चाहते हैं।

अद्यतन:, बल्कि PUSH से

EBX का उपयोग कर दोष खोजने के लिए अरनॉड के लिए धन्यवाद:

Update2:

एंड्रियास Rejbrand के लिए धन्यवाद, मैं अपराधी को खोजने के प्रबंधित किया है/पीओपी ईएक्स

var 
    TSomeClass_TypeInfo: Pointer; 

procedure Doit; 
asm 
    MOV DL, $01; 
    MOV EAX, TSomeClass_TypeInfo; 
    CALL TSomeClass.Create; 
    PUSH EAX; 
    CALL TSomeClass.SayYeah; // call method 
    POP EAX; 
    MOV DL, $01; 
    CALL TSomeClass.Free; // pointer to instance(Self) is expected in EAX 
end; 

begin 
    TSomeClass_TypeInfo := TSomeClass; 
    try 
    Doit; 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
    Readln; 
end. 

Answer 1

आप इसके बारे में एक में पढ़ सकते हैं डेल्फी असेंबली प्रोग्रामिंग के लिए उत्कृष्ट गाइड, मूल रूप से here मिला। दुर्भाग्यवश, साइट डाउन है, लेकिन आप एक संग्रहीत संस्करण here पा सकते हैं। विशेष रूप से page 5 पर देखें।

Answer 2

आपका एएसएम कोड सही नहीं है।

आप ebx रजिस्टर अधिभारित कर रहे हैं, जिसे संरक्षित किया जाना चाहिए। और वैश्विक परिवर्तनीय चाल समझ में नहीं आता है।

एक बेहतर कोडिंग होना चाहिए:

procedure Doit(ClassType: pointer); 
asm // eax=TList 
    mov dl,true // hidden boolean 2nd parameter 
    call TObject.Create 
    push eax 
    call TList.Pack 
    pop eax 
    call TObject.Free 
end; 

DoIt(TList); 

लेकिन यह एक try...finally साथ उदाहरण रक्षा नहीं करता। :)

बारे mov dl,true पैरामीटर, this official page from the EMB wiki देखें:

निर्माणकर्ता और विनाशकर्ता अन्य तरीकों के रूप में ही बुला परंपराओं का उपयोग, सिवाय इसके कि एक अतिरिक्त बूलियन ध्वज पैरामीटर में भेजा जाता है निर्माता के संदर्भ से संकेत मिलता है या विनाशक कॉल।

एक निर्माता कॉल का झंडा पैरामीटर में झूठी का मान दर्शाता है कि निर्माता एक उदाहरण वस्तु के माध्यम से लागू किया गया था या विरासत में मिला कीवर्ड का उपयोग। इस मामले में, कन्स्ट्रक्टर सामान्य विधि की तरह व्यवहार करता है। कन्स्ट्रक्टर कॉल के ध्वज पैरामीटर में सही का मान इंगित करता है कि निर्माता को कक्षा संदर्भ के माध्यम से बुलाया गया था। इस मामले में, कन्स्ट्रक्टर स्वयं द्वारा दी गई कक्षा का उदाहरण बनाता है, और ईएक्स में नव निर्मित ऑब्जेक्ट का संदर्भ देता है।

एक विनाशक कॉल के ध्वज पैरामीटर में झूठा का मूल्य इंगित करता है कि विरासत को विरासत वाले कीवर्ड का उपयोग करके बुलाया गया था। इस मामले में, विनाशक एक सामान्य विधि की तरह व्यवहार करता है। एक विनाशक कॉल के ध्वज पैरामीटर में True का मान इंगित करता है कि विनाशक को एक आवृत्ति ऑब्जेक्ट के माध्यम से बुलाया गया था।इस मामले में, विनाशक लौटने से पहले स्वयं द्वारा दिए गए उदाहरण को हटा देता है।

ध्वज पैरामीटर व्यवहार करता है जैसे कि यह अन्य सभी पैरामीटर से पहले घोषित किया गया था। रजिस्टर सम्मेलन के तहत, यह डीएल रजिस्टर में पारित किया जाता है। पास्कल सम्मेलन के तहत, इसे अन्य सभी पैरामीटर से पहले धक्का दिया जाता है। Cdecl, stdcall, और safecall सम्मेलनों के तहत, यह स्वयं पैरामीटर से ठीक पहले धक्का दिया गया है।

के बाद से डीएल रजिस्टर इंगित करता है कि निर्माता या नाशक कॉल स्टैक में सबसे बाहरी है, तो आप ऐसा बाहर निकलने BeforeDestruction या AfterConstruction ठीक से कहा जा सकता है कि इससे पहले कि डीएल का मूल्य पुनर्स्थापित करना होगा।

तो एक वैकल्पिक मान्य कोडिंग, eax के बाद से हमारे वस्तु नहीं है nil तो हम सीधे नाशक कॉल कर सकते हैं, हो सकता है:

procedure Doit(ClassType: pointer); 
asm // eax=TList 
    mov dl,true 
    call TObject.Create 
    push eax 
    call TList.Pack 
    pop eax 
    mov dl,true 
    call TList.Destroy 
end; 

सभी मामले में, वस्तु asm से पहुंच उपलब्ध कराना नहीं है इस तरह से किया जाना है। आपके पास सीधे प्रकार की जानकारी तक पहुंच नहीं है, इसलिए इसके साथ काम करना बहुत मुश्किल हो सकता है। मौजूदा class उदाहरण के साथ, आप जो भी चाहें asm विधियों के साथ कर सकते हैं; लेकिन उदाहरण बनाने के लिए, और वर्ग प्रकारों के साथ खेलें, asm निश्चित रूप से प्राकृतिक तरीका नहीं है!