Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как использовать таймер без формы? 
:(
    Опции темы
BeeMaster
Дата 15.4.2008, 20:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Ну мне надо создать программы но у неё не должно быть вообще формы. Но там есть таймер. Ну вот пример програмки она шлет письма и там idSMTP не находится на форме, но он прописан в коде.

http://slil.ru/25692680

И откуда вытащить тот код?

 smile  smile  smile  smile  smile  smile  smile 
PM MAIL   Вверх
THandle
Дата 15.4.2008, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3618
Регистрация: 31.7.2007
Где: Moscow

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



PM WWW   Вверх
MetalFan
Дата 15.4.2008, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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



создай TTimer динамически


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
BeeMaster
Дата 15.4.2008, 22:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Цитата(MetalFan @ 15.4.2008,  21:27)
создай TTimer динамически

Это как?
PM MAIL   Вверх
MetalFan
Дата 15.4.2008, 23:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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



BeeMaster, рючками)
Код

  lSomeTimer := TTimer.Create(nil);



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
BeeMaster
Дата 18.4.2008, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Дайте полный код! А то у меня не получается использовать таймер =(


 smile 

Это сообщение отредактировал(а) BeeMaster - 18.4.2008, 13:42
PM MAIL   Вверх
MetalFan
Дата 18.4.2008, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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



полный код чего?
это ты дай код, который не работает, и тебе скажут, что в нем не так.


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
BeeMaster
Дата 18.4.2008, 22:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Как этот таймер можно использовать? Покажите пример!
PM MAIL   Вверх
MetalFan
Дата 18.4.2008, 22:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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



Цитата(BeeMaster @  18.4.2008,  22:09 Найти цитируемый пост)
Как этот таймер можно использовать?

какой "этот"? ты с компонентом TTimer не работал?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
BeeMaster
Дата 19.4.2008, 11:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Работал. Но это у меня не работат! Ну дайте пример жалко чтоли! =(
PM MAIL   Вверх
MetalFan
Дата 19.4.2008, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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



Цитата(BeeMaster @  19.4.2008,  11:03 Найти цитируемый пост)
Но это у меня не работат!

показывай код.


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
BeeMaster
Дата 19.4.2008, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
lSomeTimer := TTimer.Create(nil);
end;

end.











Я просто въехать не могу как его использовать!
PM MAIL   Вверх
source777
Дата 19.4.2008, 18:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Цитата(THandle @  15.4.2008,  21:04 Найти цитируемый пост)
SetTimer - http://msdn2.microsoft.com/en-us/library/ms644906.aspx
Насколько я помню SetTimer работает посредством сообщения WM_TIMER, или другими словами не будет он работать в приложении без форм/окон...

Цитата(BeeMaster @  19.4.2008,  18:31 Найти цитируемый пост)
lSomeTimer := TTimer.Create(nil);
А кто за тебя обработчик OnTimer будет регистрировать?


--------------------
Если бы программистам платили за то, чтобы убирать код из программы вместо того, чтобы добавлять его, программы были бы намного лучше © Николас Негропонте
PM MAIL   Вверх
THandle
Дата 19.4.2008, 18:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3618
Регистрация: 31.7.2007
Где: Moscow

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



Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure OnMyTimer(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  tim : TTimer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  tim := TTimer.Create(nil);
  tim.OnTimer := OnMyTimer;
end;

procedure TForm1.OnMyTimer(Sender: TObject);
begin
  ShowMessage('Timer arbaiten!!!!');
end;

end.



ЗЫ: 
BeeMaster, пожалуйста, используй кнопку "Код".
PM WWW   Вверх
THandle
Дата 19.4.2008, 20:43 (ссылка) |    (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3618
Регистрация: 31.7.2007
Где: Moscow

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



Цитата(source777 @  19.4.2008,  19:58 Найти цитируемый пост)
Насколько я помню SetTimer работает посредством сообщения WM_TIMER, или другими словами не будет он работать в приложении без форм/окон...


Код

program Project1;

uses Windows, Messages;

procedure Timer;
begin
  MessageBeep(MB_OK);
end;

var
  Msg : TMsg;
begin
  SetTimer(0, 0, 2000, @Timer);
  while GetMessage(Msg, 0, 0, 0) do
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
end.

PM WWW   Вверх
Google
  Дата 19.1.2019, 09:00 (ссылка)  





  Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0837 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.