Скачать: CL | DM;

Как узнать адрес процедуры в потоке из модуля этой же программы?   Найти похожие ветки 

← →
San1712   (2008-03-27 05:41) [0]

Как узнать адрес процедуры в потоке, из другого модуля этой же программы ? Пробовал следующие варианты при которых компилятор выдаёт сообщение Undeclared identifier: "Execute".
interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls,Unit8;{Unit8 это модуль потока}
type
 TForm6 = class(TForm)
   Panel1: TPanel;
   Label1: TLabel;
   ListBox1: TListBox;
   Edit1: TEdit;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
  pr:b;
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form6: TForm6;

implementation
uses Unit1;
......
var Addr:Pointer;
begin
Addr := @b.Execute;
______________________________
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls;
type
 TForm6 = class(TForm)
   Panel1: TPanel;
   Label1: TLabel;
   ListBox1: TListBox;
   Edit1: TEdit;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
  pr:b;
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form6: TForm6;

implementation
uses Unit1,Unit8;
.........
var Addr:Pointer;
begin
Addr := @b.Execute;

---

← →
Loginov Dmitry ©   (2008-03-27 07:45) [1]

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,Unit8;{Unit8 это модуль потока}
type
TOpenedThread = class(b);

TForm6 = class(TForm)

...........................
Addr := @TOpenedThread.Execute;

---

← →
icWasya ©   (2008-03-27 09:21) [2]

Нельзя приводить адрес метода к простому указателю.

---

← →
Сергей М. ©   (2008-03-27 09:40) [3]

> San1712


И зачем это понадобилось ?

---

← →
DrPass ©   (2008-03-27 21:35) [4]

> Как узнать адрес процедуры в потоке, из другого модуля этой
> же программы ?


TThread.Execute, небось, еще и объявлен как protected

Это не говоря уже о
> Нельзя приводить адрес метода к простому указателю.


...и о самом главном,
> зачем это понадобилось ?

---

← →
vl_chel ©   (2008-03-28 09:34) [5]

Удалено модератором
Примечание: мат

---

← →
evvcom ©   (2008-03-29 17:07) [6]

> icWasya ©   (27.03.08 09:21) [2]

Если потом умело использовать, то можно :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c