VPF::Трудности с объявлением процедуры с stdcall

GOST800

Дата 2.8.2008, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 25.7.2008

Репутация: нет
Всего: нет

Создаю таймер путем timeSetEvent. Вот код:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MMSystem, ExtCtrls;

type
  TForm1 = class(TForm)
    GroupBox4: TGroupBox;
    txtTimeInterval: TEdit;
    cmbTimeStart: TButton;
    lstTimes: TListBox;
    procedure cmbTimeStartClick(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
   // procedure TimerProc(uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD); stdcall;
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}
var
  timerID: UINT;

function timeGetMinPeriod(): DWORD;
var
  time: TTimeCaps;
begin
  timeGetDevCaps(Addr(time), SizeOf(time));
  timeGetMinPeriod := time.wPeriodMin;
end;

procedure TimerProc(uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD) stdcall;
begin
  Form1.lstTimes.Items.Add(IntToStr(timeGetTime()));
end;

procedure TForm1.cmbTimeStartClick(Sender: TObject);
begin
  if cmbTimeStart.Caption = 'Start' then
  begin
    txtTimeInterval.Enabled := False;
    cmbTimeStart.Caption := 'Stop';
    lstTimes.Clear;
    timerID := timeSetEvent(StrToInt(txtTimeInterval.Text),
                            timeGetMinPeriod(),
                            TimerProc, 0,
                            TIME_CALLBACK_FUNCTION or TIME_PERIODIC)
  end
  else
  begin
    txtTimeInterval.Enabled := True;
    cmbTimeStart.Caption := 'Start';
    timeKillEvent(timerID);
  end;
end;

Суть в том, что в процедуру TimerProc нужно объявить в public, но это ведет к ошибке в синтаксисе, как быть?

CodeMonkey

Дата 2.8.2008, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Скажите, а вы понимаете разницу между методом и обычной процедурой/функцией? А знаете, кто такой Self, и как он передаётся?
Если да, то у вас есть свободный параметр dwUser (предпоследний в timeSetEvent) - используйте его.

Попробуйте также посмотреть: http://delphikingdom.ru/asp/answer.asp?IDAnswer=58782

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

GOST800

Дата 8.8.2008, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 25.7.2008

Репутация: нет
Всего: нет

Спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »