مشكل در لينك كردن event در dll

[golbafan]

سلام
اگر مشكلم رو حل كنيد ممنون ميشم

من يك dll نوشتم و در اون از يك unit استفاده كردم

در اون يونيت دارم:


procedure VLFindContours1Contours(Sender: TObject; Contours: TVLContours);
procedure loaddll;
.
.
.

var

procedure loaddll;
begin
VLFindContours1:= TVLFindContours.Create(nil);

//اينجا ارور داره
VLFindContours1.OnContours:=VLFindContours1Contour s(VLFindContours1,Contours);

end;



وقتي ميخوام اونت كامپوننت رو لينك بدم به پروسه مربوطه برنامه كامپايل نميشه و ارور زيرو ميده



[DCC Error] MainUnit.pas(301): E2010 Incompatible types: 'TVLContoursEvent' and 'procedure, untyped pointer or untyped parameter'

ولي در موقعي كه فرم داشته باشم ميتونم اونت كامپوننت رو به اين پروسه وصل كنم

با تشكر

[SAASTN]

موقعی که یه رویداد رو ست می کنید نباید پارامتر هاش رو مقدار دهی کنید، چون اون رویداد الان که نمی خواد اجرا بشه.

VLFindContours1.OnContours:=VLFindContours1Contour s;

[vcldeveloper]

Eventها در دلفی به صورت object method تعریف میشند؛ پس باید event-handlerایی که به اونها اختصاص داده میشه، متدی از یک شی باشند. در مثال شما، VLFindContours1Contours متعلق به هیچ شی ایی نیست.

اگر اصرار دارید که Event-handler شما متدی از یک شی نباشه، باید خودتان از روی آن، یک ساختار متد بسازید، و به Event مربوطه اختصاص بدید. مثلا کد زیر، یک Procedure معمولی رو به عنوان Event-handler مربوط به OnClick یک Button استفاده میکنه:


procedure OnClickEventHandler(Sender: TObject);
begin
ShowMessage('This is a sample');
end;


var
EventHandler : TNotifyEvent;
begin
TMethod(EventHandler).Code := @OnClickEventHandler;
TMethod(EventHandler).Data := nil;
Button2.OnClick := EventHandler;
end;

[golbafan]

موقعی که یه رویداد رو ست می کنید نباید پارامتر هاش رو مقدار دهی کنید، چون اون رویداد الان که نمی خواد اجرا بشه.

VLFindContours1.OnContours:=VLFindContours1Contour s;

اينجوري هم عمل كردم و نشد

[SAASTN]

اينجوري هم عمل كردم و نشد
عذر می خوام، من به خط اول کدتون که پیاده سازی VLFindContours1Contours رو نشون می داد توجه نکردم.

[golbafan]

من در نهايت اين كار رو با استفاده از يك فرم انجام دادم
مرسي

[nilidelphi]

VLFindContours1.OnContours:=VLFindContours1Contour s(Sender: TObject; Contours: TVLContours);




اینم یه امتحان بکن.

[golbafan]

VLFindContours1.OnContours:=VLFindContours1Contour s(Sender: TObject; Contours: TVLContours);




اینم یه امتحان بکن.

براي كار من جواب نداد

مرسي

[vcldeveloper]

اینم یه امتحان بکن.


براي كار من جواب نداد
برای هیچ کاری جواب نخواهد داد، چون انتصاب یک رویداد به اون شکل کلا از نظر Syntax دلفی اشتباه هست، و کد اصلا کامپایل نمیشه، چه برسه که حالا بخواد برای کاری جواب بده یا نده!

[esmit61]

سلام
چطوري اين همه ستاره داري؟

تعجب میکنم از لحن صحبت کردن شما! قصد دفاع از کسی ندارم، ولی این روش حرف زدن اصلاً، صحیح نیست.
کجای حرف ایشون اشتباه بود که به ستاره های ایشون گیر دادید؟
بله. از نظر syntax کاملاً اشتباه هست. شما اگر بلد بودید پس چرا سوال می پرسید؟

[golbafan]

تعجب میکنم از لحن صحبت کردن شما! قصد دفاع از کسی ندارم، ولی این روش حرف زدن اصلاً، صحیح نیست.
کجای حرف ایشون اشتباه بود که به ستاره های ایشون گیر دادید؟
بله. از نظر syntax کاملاً اشتباه هست. شما اگر بلد بودید پس چرا سوال می پرسید؟

سلام
منظورم جواب درست ایشون نبود. ضمن شوخی با علی آقا (البته گیر ندادم ...)