مشکل این کد چیه؟ [بایگانی]

1485159

دوشنبه 05 بهمن 1388, 23:51 عصر

مشکل این کد چیه؟

procedure a;
begin
//........
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.OnResize:=@a;
end;
البته پروسیجر a قراره توی یک dll باشه...

tdkhakpur

سه شنبه 06 بهمن 1388, 00:12 صبح

پروسه تان را به شکل زیر تعریف کنید

procedure TForm1.a(Sender: TObject);
begin
//........
end;

و در انتها

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.OnResize:= a;
end;

1485159

سه شنبه 06 بهمن 1388, 00:34 صبح

پروسه تان را به شکل زیر تعریف کنی
ممنون ولی من نوشتم که " a توی یک dll قرار داره..."

vcldeveloper

سه شنبه 06 بهمن 1388, 03:51 صبح

مشکل این کد چیه؟
Eventها در دلفی Method Pointer هستند، نه Function Pointer؛ یعنی کدی به یک Event اختصاص میدید باید متدی از یک شی باشه، نه یک تابع معمولی.

alinikaein

سه شنبه 06 بهمن 1388, 10:36 صبح

Eventها در دلفی Method Pointer هستند، نه Function Pointer؛ یعنی کدی به یک Event اختصاص میدید باید متدی از یک شی باشه، نه یک تابع معمولی.

a = procedure of object;

1485159

سه شنبه 06 بهمن 1388, 11:07 صبح

a = procedure of object;
اینو چیکار کنم؟

1485159

سه شنبه 06 بهمن 1388, 17:42 عصر

کسی نمخواد یه نمونه سورس بزاره؟

1485159

سه شنبه 06 بهمن 1388, 22:09 عصر

کسی راهنماییی نمیکنه؟

AliReza Vafakhah

چهارشنبه 07 بهمن 1388, 01:13 صبح

کسی راهنماییی نمیکنه؟

خوب شما با استفاده از کدی که tdkhakpur پست زدن در Procedure a توابع درون DLL رو فراخونی کنید

procedure TForm1.a(Sender: TObject);
begin
Call DLL Function
end;

1485159

چهارشنبه 07 بهمن 1388, 09:53 صبح

خوب شما با استفاده از کدی که tdkhakpur پست زدن در Procedure a توابع درون DLL رو فراخونی کنی
نه! Procedure a قراره توی یه dll باشه!

AliReza Vafakhah

چهارشنبه 07 بهمن 1388, 12:56 عصر

خوب شما با استفاده از کدی که tdkhakpur پست زدن در Procedure a توابع درون DLL رو فراخونی کنی
نه! Procedure a قراره توی یه dll باشه!

خوب دوست عزیز چه فرقی می کنه تابع DLL رو داخل Procedure a فراخونی کن !

مشکلی نداره

مثلا :

نحوه استفاده از dll در برنامه تون

implementation

uses ...

function A(P:Integer): Integer;external 'DllName.Dll';

و بعد هم فراخونی تابع

function A(P:Integer): Integer
begin
//
end;