مشكلة في إسناذ procedure to procedure
#1
السلام عليكم ورحمة الله تعالى وبركاته

نص المشكلة : 

عند إنشاء كلاس من نوع TThread, وجعل الـ constructor لها على الشكل :
كود :
procedure TMyClass.create(Idhttp : TIdHttp);
begin
    FIdhttp := Idhttp;
    FHttpClient.OnWorkBegin := HttpWorkBegin;
    FHttpClient.OnWork := HttpWork;
    FHttpClient.OnWorkEnd := HttpWorkEnd;
end;

عند إنشاء object وحد من هذه الكلاس كل شيء يمشي بدون مشاكل

لكن عندا إنشاء 2 او اكثر تحدث المشاكل, وإحتمال كبير من هذه الأسطر :

كود :
    FHttpClient.OnWorkBegin := HttpWorkBegin;
    FHttpClient.OnWork := HttpWork;
    FHttpClient.OnWorkEnd := HttpWorkEnd;

لأني عندا الإنشاء objects امرر لها  نفس [size=small]Idhttp.[/size]

فما هو حل المشكلة ؟

(First chance exception at $00565EAA. Exception class $C0000005 with message 'access violation at 0x00565eaa: read of address 0x000002a0'. Process Prog.exe (11560))
الرد


الردود في هذا الموضوع
مشكلة في إسناذ procedure to procedure - بواسطة MasteranyOne - 25-07-2020, 08:54 PM

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم