Estrutura de repetição...coisa simples...

Delphi

27/08/2003

Estou precisando de uma estrutura de repetição q naum seja o Timer1, o programa tem q enviar arquivos e depois esperar um pouco e depois tentar enviar de novo se for criado mais arquivos naquele meio tempo...


Rodrigo_koga

Rodrigo_koga

Curtidas 0

Respostas

Rodrigo Bergmann

Rodrigo Bergmann

27/08/2003

E por que não pode ser um Timer?


GOSTEI 0
Kotho

Kotho

27/08/2003

Qual o motivo de nao poder ser o Timer????


GOSTEI 0
Rodrigo_koga

Rodrigo_koga

27/08/2003

Por a estrutura acaba tentando conectar o socket novamente e ele manda mensagem de erro


GOSTEI 0
Bacalhau

Bacalhau

27/08/2003

Usa 2 timers. O primeiro liga o socket e envia. O segundo faz liga/desliga o timer1 (timer1.enabled := not timer1.enabled).

Desculpa não enviar pormenores mas não tenho o Delphi aqui. Mas a solução é um controlar o outro. Se não conseguires manda um mali para virtual.viegas@netc.pt para eu ver isso melhor

bacalhau


GOSTEI 0
Rodrigo_koga

Rodrigo_koga

27/08/2003

Valeu cara, mas eu consegui resolver eu tava ´comendo bronha´, pois aplicacao com o Timer naum funcionava pois eu naum estava desativando ele e depois o ativando de novo.
Mas muito obrigado pela ajuda...


GOSTEI 0
Robotizar

Robotizar

27/08/2003

eu fiz um código q age que nem um timer...só que mais eficiente pq é um theard
faça assim salve este codigo como uma unit nova 

unit RRutil;
//Criado por Matheus JN....robotizar2003@hotimal.Com

interface

uses Windows, Classes, Sysutils;

type
  RRtimer = class(TThread)
    _Intervalo: Integer;
    procedure execute; override;
    constructor Criar(Intervalo: Integer);
    procedure Execut;Virtual; Abstract;
  private
  public
  end;

implementation

constructor RRTimer.Criar(Intervalo: Integer);
begin
  Create(false); //use o comando resume para iniciar
  freeonterminate := true;
  _Intervalo := Intervalo;
end;

procedure RRtimer.execute;
begin
  while not terminated do
    begin
      synchronize(execut);
      Sleep(_Intervalo);
    end;
end;

end.

e depois no seu formulário use assim
ai vai um exemplo
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,RRutil;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  Ttempo = class(RRtimer)
  procedure Execut; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Ttempo.Criar(1000);
end;

PRocedure Ttempo.execut;
var
X,y: integer;
begin
randomize;
X:= random(Form1.ClientHeight);
Y:= random(form1.ClientWidth);
form1.Canvas.Pixels[x,y]:= CLred;
end;

end.


obs: RR de Robotizar ehehheheheheheh
testa ai q funciona
espero q tenha respondido a sua pergunta


GOSTEI 0
POSTAR