Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.01.25;
Скачать: 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 вся ветка

Текущий архив: 2009.01.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
4-1203283452
Galiaf
2008-02-18 00:24
2009.01.25
Перехват сообщений самодельным окном.


2-1228997565
palpalich
2008-12-11 15:12
2009.01.25
Стеки и очереди в Turbo Pascal 7.0


2-1229332728
Андрей Ал.
2008-12-15 12:18
2009.01.25
Обновление данных


15-1228137159
pavel_guzhanov
2008-12-01 16:12
2009.01.25
как зарегистрировать TurboDelphi 2006?


2-1229154309
zloi
2008-12-13 10:45
2009.01.25
Перемещение TImage по форме