We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Course Of The Month
8 days, 5 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
need help with "MethodAddress"
Posted on 2000-03-08
hi all:
i wanna get a function's address by MethodAddress, and then call it.
But, in the function, if i access a VCL(eg. form,memo), i always get a "Access violation" error. if dont access VCL, it works fine.
how to resolve it? thanks!
i wanna get a function's address by MethodAddress, and then call it.
But, in the function, if i access a VCL(eg. form,memo), i always get a "Access violation" error. if dont access VCL, it works fine.
how to resolve it? thanks!
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
5
-
4
10 Comments
pls show here your codes for us to understand your situation.
"Access voilation" means you are accessing address was not allocated to your program.
it often happened when you code that in a function:
in method
procedure TForm1.metho1();
begin
//Form1.property1:=somethi
//Form1.method2();
//something like that!!!
end;
...
var F:TForm1;
F:=TForm1.Create(applicati
F.method1;
it means Form1 is not created but want to call it.
"Access voilation" means you are accessing address was not allocated to your program.
it often happened when you code that in a function:
in method
procedure TForm1.metho1();
begin
//Form1.property1:=somethi
//Form1.method2();
//something like that!!!
end;
...
var F:TForm1;
F:=TForm1.Create(applicati
F.method1;
it means Form1 is not created but want to call it.
OK...
Methodaddress returns a pointer to the code for that published method in a class. But to call it you must be in the context of an instance of the class.
You can use a TMethod to hold the pointer to the instance data and the pointer to a methodaddress result.
Here is an example:
unit Unit18;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
published
procedure a;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.a;
begin
ShowMessage('!');
end;
procedure TForm1.Button1Click(Sender
type
t = procedure of object;
var
x : tmethod;
y : t;
begin
x.data := @self;
x.code := self.methodaddress('a');
y := t(x);
y;
end;
end.
Cheers,
Raymond.
Methodaddress returns a pointer to the code for that published method in a class. But to call it you must be in the context of an instance of the class.
You can use a TMethod to hold the pointer to the instance data and the pointer to a methodaddress result.
Here is an example:
unit Unit18;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
published
procedure a;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.a;
begin
ShowMessage('!');
end;
procedure TForm1.Button1Click(Sender
type
t = procedure of object;
var
x : tmethod;
y : t;
begin
x.data := @self;
x.code := self.methodaddress('a');
y := t(x);
y;
end;
end.
Cheers,
Raymond.
Where I Said: "But to call it you must be in the context of an instance of the class." I really meant you need to have the context of an instance, you don't need to be in the instance itself to call it.
Cheers,
Raymond.
Cheers,
Raymond.
i do as this:
type
tform1=class(tform)
....
published
procedure abc;
end;
....
procedure tform1.abc;
begin
//error occur at this sentence
memo1.lines.add('abc');
end;
procedure tform1.buttonclick(...);
var func:procedure;
begin
func:=MethodAddress('abc')
func;
end;
type
tform1=class(tform)
....
published
procedure abc;
end;
....
procedure tform1.abc;
begin
//error occur at this sentence
memo1.lines.add('abc');
end;
procedure tform1.buttonclick(...);
var func:procedure;
begin
func:=MethodAddress('abc')
func;
end;
rwilson :
in your sample code, drag a TMemo to your form, and replace "showmessage" with "memo1.lines.add(...);"
the error will occur.
i means: if you access a VCL in the function, it dont work.
in your sample code, drag a TMemo to your form, and replace "showmessage" with "memo1.lines.add(...);"
the error will occur.
i means: if you access a VCL in the function, it dont work.
Whoops: I didn't need to take the address of self, just cast it to a pointer. The following works:
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
published
procedure a;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.a;
begin
memo1.lines.add('...');
end;
procedure TForm1.Button1Click(Sender
type
t = procedure of object;
var
x : tmethod;
y : t;
begin
x.data := pointer(self);
x.code := self.methodaddress('a');
y := t(x);
y;
end;
Cheers,
Raymond.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
published
procedure a;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.a;
begin
memo1.lines.add('...');
end;
procedure TForm1.Button1Click(Sender
type
t = procedure of object;
var
x : tmethod;
y : t;
begin
x.data := pointer(self);
x.code := self.methodaddress('a');
y := t(x);
y;
end;
Cheers,
Raymond.
rwilson: your code works. but, if i want add parameters to function "a", how to do that?
eg: procedure a(s:string)
eg: procedure a(s:string)
Featured Post
This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
A lot of questions regard threads in Delphi.
One of the more specific questions is how to show progress of the thread.
Updating a progressbar from inside a thread is a mistake.
A solution to this would be to send a synchronized message to the…
Have you ever had your Delphi form/application just hanging while waiting for data to load?
This is the article to read if you want to learn some things about adding threads for data loading in the background.
First, I'll setup a general applica…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers.
Hopes this gives you ideas on visualizing your data in new ways ~
Create a calculated field in a query:
…
Suggested Courses
Course of the Month8 days, 5 hours left to enroll
Earn Certification
CompTIA IT Fundamentals
$49.00$44.10
729 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.