عن المسالك Thread ودلفي 2010 و XE5

[أبو محمد اللحياني]

كان هذا الكود يعمل في delphi 2012

كود :

procedure FastThread (const proc: TProc; bWait: boolean = false); function Thread(const proc: TProc): THandle; function run(const proc: TProc): integer; stdcall; begin proc; Result := 0; end; begin try CreateThread(nil, 0, @run, PPointer(@proc)^, 0, Result); except end; end; var hThrd: THandle; begin hThrd := CreateEvent(nil, true, false, nil); Try Thread( procedure begin proc; SetEvent(hThrd); end); if bWait then WaitForSingleObject(hThrd, INFINITE); finally CloseHandle(hThrd); end; end;

والآن لا يعمل في delphi XE5

كان مريّح كثير

[محمد عبد العزيز]

والآن لا يعمل في delphi xe5

أوضح ما المشكل ؟ رسالة الخطأ ؟

[أبو محمد اللحياني]

الخطأ هنا :

كود :

CreateThread(nil, 0, @run, PPointer(@proc)^, 0, Result);

رسالة الخطأ :

كود :

Types of actual and formal var parameters must br identical

أنا حاولت ولكن لا خبرة لي بدهاليز المؤشرات والمسالك

وحاولت استخدام بدل CreateThread ::: beginThread ولكن البرامترات تختلف ووتخطيط الإجراء يتغير بالكامل

[SMP3]

غير هذا السطر :

كود :

function Thread(const proc: TProc): THandle;

الى :

كود :

function Thread(const proc: TProc): [color=Red]DWORD[/color];

[أبو محمد اللحياني]

ما شاء الله بهذه البساطة

جزاكم الله خيراً وبارك فيكم