[Delphi]SetTimer , Ajuda.

[Niguem1 0]

Tô criando uma aplicação em modo console , e estou precisando de usar timers , usar o TTimer do delphi seria facil , mas aumenta muito o tamanho do executável (de cerca 50 kb para cerca de 400 kb o.O) , emfim , quero saber como usar a função SetTimer da maneira correta , pois pesquisei muito e não tive resultado :( intão fis assim : (fis sem saber nada fui meio q chutando) '-'

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Compila blz , mas simplismente num acontece nada :( , como eu uso o SetTimer de maneira correta ?

[[H]unTerz 0]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Niguem1 0]

[Error] Project1.dpr(93): Undeclared identifier: 'TWMTimer'

[Error] Project1.dpr(93): Unknown directive: 'message'

 

:(

[Inoxybel 51]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Releia.

[[H]unTerz 0]

SysUtils e Messages na Uses

[Niguem1 0]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Releia.

 

Sinceramente não intendi '-'

[Inoxybel 51]

Eu juraria que você iria entender que o problema não estaria nas variáveis pois estão sendo declaradas :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Me enganei.

 

Adicione SysUtils e Messages nas uses (post acima).

[Niguem1 0]

Eu juraria que você iria entender que o problema não estaria nas variáveis pois estão sendo declaradas :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Me enganei.

 

Adicione SysUtils e Messages nas uses (post acima).

 

Eu já tinha pensado em ser alguma coisa faltando na 'uses' , mas num sabia o que , e nem tinha certeza , com SysUtils e Messages em 'uses' o erro :

 

[Error] Project1.dpr(93): Undeclared identifier: 'TWMTimer'

 

foi corrigido , mas o erro :

 

[Error] Project1.dpr(93): Unknown directive: 'message'

 

continua :/

[[H]unTerz 0]

porra, eu não li, é em modo console.

tira esse

 

message WM_TIMER;

[Niguem1 0]

Agora dá erro no end final "/

 

[Error] Project1.dpr(180): ';' expected but '.' found

 

Esse erro acontece quando algo foi iniciado e não terminado certo ?

 

E esse erro é relacionado ao SetTimer , pois se eu tiro ele compila normalmente.

 

Tô fasendo assim :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

E agora ? já tô arrancando os cabêlos da kbça :(

[gaabscps 8]

procedure Timer(Timer: Integer; Intervalo: Integer; Ativado: Boolean);

procedure TimerMensagem(var Msg: TWMTimer);

 

procedure TimerMensagem(var Msg: TWMTimer);

begin

Write('Teste');

end;

 

procedure Timer(Timer: Integer; Intervalo: Integer; Ativado: Boolean);

begin

if Ativado then SetTimer(0, Timer, Intervalo, nil) else KillTimer(0, Timer);

end;

 

Pra que tantas procedures??

[Niguem1 0]

Pra que tantas procedures??

 

removi as procedures em negrito : sem erro , mas num acontece nada '-'

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

OBS : já tentei trocar :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

por :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

mas das duas formas nada acontece , como se não tivesse nem um timer.

[gaabscps 8]

O Ativado é o que? Uma var do tipo boolean? Ela ficou true em algum momento?

Quando o TimerMensagem é chamado?

 

 

Poste aqui todo seu pas.

[[H]unTerz 0]

porque não faz um loop ao invés de fazer um "timer".

use while, ou repeat.

[Niguem1 0]

unTerz;6464197']porque não faz um loop ao invés de fazer um "timer".

use while, ou repeat.

 

Vlw mano , resolveu meu problema :lol:, usei o 'repeat' pois o 'for' não resolveria meu problema , vlw pela ajuda.

[AceStryker 32]

Antes que fechem, você pode usar um CreateThread que facilita muito mais, ou também pode usar o SetTimer sem a mensagem e com uma função CALLBACK