Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: Diego1981 - Gennaio 20, 2014, 03:54:42 pm

Titolo: Lazarus e domotica
Inserito da: Diego1981 - Gennaio 20, 2014, 03:54:42 pm
Ciao Ragazzi
mi sto avventurando nella domotica casalinga  ;D, forse domotica è una parola grossa ma spero di fare fare qualcosa alla mia casetta ma prima di iniziare volevo avere qualche consiglio
Ho acquistato delle schede su internet che utilizzano il protocollo 485 (già qui spero di avere fatto una scelta decente) però volevo sapere una cosa...queste schede (con i vari relè, output/inputi digitali analogici) sono sotto il bus 485 e sono tutti slave mentre quella principale (master) è collegata in usb al pc. Supponendo che riesca con lazarus a creare un programma sul pc che le controlli, che ti po di architettura (spero sia il termine giusto) dovrei usare per avere lo stesso programma da utilizzare su altri pc nella stessa wlan per gestire le schede?
in sostanda il pc collegato direttamente alla scheda master sarebbe un server mentre gli altri pc nella wlan sarebbero dei client.
spero di avere esposto la situazione in modo decente, approposito per darvi un'idea delle schede questo è il sito http://www.smarthardware.eu/
intanto grazie a tutti come sempre
Diego
Titolo: Re:Lazarus e domotica
Inserito da: xinyiman - Gennaio 20, 2014, 04:29:14 pm
Non ho capito nulla
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Gennaio 20, 2014, 04:46:21 pm
Come temevo  :-X
provo a scomporre il mio problema

1 ho un pc che si collega fisicamente ad una scheda di I/O via usb
2 da quel pc , attraverso un'applicazione lazarus fatta da me, controllo quella scheda di I/O e tutte le funzioni che questa può eseguire
3 il pc è collegato anche alla mia LAN

??domanda??

che tipo di applicazione devo creare da installare su altro pc nella LAN per andare ad agire sul pc fisicamente collegato alla scheda di I/O???
grazie e scusa la cattiva descrizione ehehehe  :-X
diego


Titolo: Re:Lazarus e domotica
Inserito da: xinyiman - Gennaio 20, 2014, 04:49:34 pm
Devi impostare un socket server sul pc che controlla la scheda e poi un socket client (che può essere anche una sessione telnet) per accedere a tali controlli. Ti suggerisco di usar indy e vedere l'esempio: echo.
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Gennaio 20, 2014, 04:52:43 pm
penso che mi farò sentire presto ehehehe
cmq grazie mille delle dritte
diego
Titolo: Re:Lazarus e domotica
Inserito da: xinyiman - Gennaio 20, 2014, 04:57:39 pm
Figurati, tra l'altro l'esempio che ti ho suggerito permette di creare un server multithread. Quindi puoi collegarti ad esso da più computer contemporaneamente.
Titolo: Re:Lazarus e domotica
Inserito da: cliff - Gennaio 20, 2014, 05:09:15 pm
Allora, dividi il problema in 2. Per prima cosa devi creare sul pc "master" un sw che comunica con le schede e gestisci gli I/O collegati alla 485. Questo sw avra' dei comandi, tipo "alza tapparella 1", accendi luce X, ecc.
A questo punto aggiungi un socket server su una porta da te definita, che interpreta i comandi ricevuti e li traduce in comandi domotici. Devi sviluppare sui pc client un sw che invia i comandi domotici al sw master, e che magari riceva da questo lo stato delle utenze controllate.

Bye
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Gennaio 20, 2014, 06:52:07 pm
grazie anche a te cliff
di sicuro mi sentirete presto visto che con i socket non ho molta dimestichezza
diego
Titolo: Re:Lazarus e domotica
Inserito da: xinyiman - Gennaio 21, 2014, 11:16:22 am
A breve sui socket scriverò un articoletto
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Gennaio 22, 2014, 12:43:34 pm
aspetto con ansia ;D
grazie
diego
Titolo: Re:Lazarus e domotica
Inserito da: xinyiman - Febbraio 19, 2014, 11:57:34 am
Articoletto scritto. Lo trovi negli how to
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Marzo 17, 2014, 05:47:42 pm
Ciao Ragazzi
finalmente ho le mie schede ma ora arrivano le domande e soprattutto le richiesta di aiuto  :o
- la scheda che comunica con il PC lo fa attraverso una porta USB che altro non è che una seriale virtuale (COM3)...come faccio a comunicare con quella porta con lazarus?
I driver della sceha USB sono installati.
Il loro programmino di test (scritto in delphi) funziona.

(per il seguito che deve venire eseguito con protocollo rs485 aspetto a chiedere ehehehe)

ciao e grazie a tutti come sempre
diego
Titolo: Re:Lazarus e domotica
Inserito da: xinyiman - Marzo 18, 2014, 04:21:06 pm
Diego, per l'usb hai già provato questo?

http://wiki.freepascal.org/Hardware_Access#USB
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Marzo 18, 2014, 08:07:06 pm
grazie, vado a dare un'occhiata
leggendo anche sul forum in inglese ho letto che c'è anche una unit serial da provare
grazie
Titolo: Re:Lazarus e domotica
Inserito da: xinyiman - Marzo 20, 2014, 12:53:59 pm
Tienici aggiornati. Inoltre dove prendi i pezzi per la domotica?! E' un argomento che mi interessa.
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Marzo 21, 2014, 07:53:58 am
Il link delle schede di controllo in rs 485 lo trovi qui: http://www.smarthardware.eu
cosa vorresti sapere poi?
Approposito, se a qualcuno può interessare, ho trovato le librerie synaser di synapse per la gestione della seriale

ciao
Titolo: Re:Lazarus e domotica
Inserito da: xinyiman - Marzo 21, 2014, 01:03:06 pm
E con quella libreria come ti trovi?!
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Marzo 21, 2014, 01:51:25 pm
per ora non lo so ancor, sono fermo alla conersione esadecimale binario
appena provo ti faccio sapere
 ;D ;D ;D ;D ;)
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Marzo 21, 2014, 06:10:06 pm
Help
consiglio sulla conversione da hex a bin?
Hextobin mi sta rendendo la vita impossibile, ho trovato questo esempio sul sito embaradero ma mi da questo errore(sottolineato alla riga del comando hextobin):

unit1.pas(98,38) Error: Incompatible type for arg no. 2: Got "WideChar", expected "PChar"


procedure TForm1.Button4Click(Sender: TObject);
var
  LStr1, LStr2: WideString;
begin

  { Store the text in the memo to a String variable. }
  LStr1 := Edit2.Text;
  { Set the length of the String to hold the conversion. }
  SetLength(LStr2, Length(LStr1) div 4);
  { Call the hexadecimal to binary conversion procedure. }
  HexToBin(PWideChar(LStr1), LStr2[1], Length(LStr1) div SizeOf(Char));
  { Output the results to Memo1. }
  Memo2.Lines.Text := LStr2;
end;   

accetto ogni alternativa  ;)
grazie
Titolo: Re:Lazarus e domotica
Inserito da: xinyiman - Marzo 21, 2014, 06:33:47 pm
Prova a sostituire

HexToBin(PWideChar(LStr1), LStr2[1], Length(LStr1) div SizeOf(Char));

con

HexToBin(PChar(LStr1), LStr2[1], Length(LStr1) div SizeOf(Char));
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Marzo 21, 2014, 07:56:16 pm
niente!! azz
errore sempre sulla variabile widestring LStr2[1]

unit1.pas(98,34) Error: Incompatible type for arg no. 2: Got "WideChar", expected "PChar"

mi sa che devo inventarmi qualche conversione alla vecchia  ;D

grazie
Titolo: Re:Lazarus e domotica
Inserito da: xinyiman - Marzo 21, 2014, 08:18:54 pm
Scusami errore mio, prova con


HexToBin(PWideChar(LStr1), PChar(LStr2[1]), Length(LStr1) div SizeOf(Char));
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Marzo 21, 2014, 08:51:00 pm
figurati...grazie a te dell'aiuto

nuovo errore sempre alla variabile LStr2:
unit1.pas(94,30) Error: Illegal type conversion: "WideChar" to "PWideChar"

Titolo: Re:Lazarus e domotica
Inserito da: xinyiman - Marzo 21, 2014, 08:56:15 pm
Vado per tentativi, prova con:

procedure TForm1.Button4Click(Sender: TObject);
var
  LStr1, LStr2: PChar;
begin

  { Store the text in the memo to a String variable. }
  LStr1 := PChar(Edit2.Text);
  { Set the length of the String to hold the conversion. }
  SetLength(LStr2, Length(LStr1) div 4);
  { Call the hexadecimal to binary conversion procedure. }
  HexToBin(LStr1, LStr2[1], Length(LStr1) div SizeOf(Char));
  { Output the results to Memo1. }
  Memo2.Lines.Text := string(LStr2);
end;   
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Marzo 22, 2014, 09:42:06 am
ci sono ancora problemi
volevo risolvero con una conversione da hex a dec e da dec a bin ma mi trovo comunque con i problemi inerenti alla numero di bit
in sostanza con un integer posso al massimo avere 32bit mentre io devo poter scrivere stringhe da 40 bytes (in binario)
consigli?


Il devertimento continua  ;D ;D ;D

ciao
Titolo: Re:Lazarus e domotica
Inserito da: nomorelogic - Marzo 22, 2014, 10:25:17 am
vedi se questo ti può aiutare
http://sourceforge.net/projects/bigint/?source=navbar (http://sourceforge.net/projects/bigint/?source=navbar)
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Marzo 22, 2014, 10:46:49 am
ciao nomore
come lo uso nel progetto? ho aggiunto il file nella cartella del progetto e la unit nella clausola uses ma nel compilare mi dice che:'UnitBigNum.pas(64,1) Fatal: Syntax error, "IMPLEMENTATION" expected but "EXPORTS" found'

grazie

Titolo: Re:Lazarus e domotica
Inserito da: nomorelogic - Marzo 22, 2014, 11:21:19 am
onestamente non l'ho mai provata
però ho notato che c'è anche una demo (calculator), puoi vedere li
se non riesci facci sapere
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Marzo 25, 2014, 03:06:39 pm
Sono BLOCCATO
ho usato uno sniffer seriale per vedere cosa manda alla periferica il software di test incluso nelle schede, lo sniffer mi torna le strighe in esa decimale, quindi anche io dovrei mandare le stringhe in formato esadecimale.
problema!!
con la libreria synaser mi connetto alla seriale ma quando mando la stringa
"seriale.SendString(Edit3.Text)" lo sniffer mi mostra carattere decimali (che onestamente non ho ancora verificato se siano la conversione della stringa esadecimale che ho spedito)

suggerimenti???

grazie come sempre
diego
Titolo: Re:Lazarus e domotica
Inserito da: xinyiman - Marzo 26, 2014, 06:14:47 pm
Hai provato questa unit: http://alexuser.narod.ru/pascal/dec2hex/dec2hex.htm
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Marzo 27, 2014, 01:13:19 pm
ciao xiny
grazie della dritta, comunque a forza di "sniffare" la seriale sono riuscito a capire ed anche a fare accendere e spegnere i relè della scheda di output

giusto se servisse a qualcuno
la stringa viene inserita in esadecimale e sempre in esadecimale (non in binario come pensavo) deve essere mandata alle schede via rs 485 quindi mi sono mosso cosi:

traduco la stringa esadecimale in decimale e da decimale la traduco in char(a coppie),  unisco i char in una stringa e la invio .......
risultato
la stringa viene inviata nel formato esadecimale e quindi il comando viene eseguito.
mi manca solo capire perchè devo inviare una stringa di char per ottenere una striga esadecimale (giusto per avere una spiegazione)
spero di essere stato chiaro
ciao e grazie
diego
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Aprile 02, 2014, 01:15:56 pm
ciao ragazzi
sto procedendo con l'imparare un po' su queste schede e ora ho una nuova questione....
visto che per continuare a verificare lo stato di ingressi ed uscite devo far si che il programma continui a comunicare con la seriale......come faccio nel bel mezzo ad infilarci un comando inviato dal mio software se questo è sempre impegnato ad inviare e ricevere? credo sia una problematica normale per la comunicazione seriale ma non so  ;D
ciao e grazie a tutti come sempre
Diego
Titolo: Re:Lazarus e domotica
Inserito da: nomorelogic - Aprile 02, 2014, 03:29:30 pm
immagino che ci sarà una interrogazione ad intervalli di tempo, spero non si tratti di una interrogazione in un loop infinito ;)

innanzitutto hai bisogno di un semaforo che indichi se stai comunicando o no.

poi devi prevedere una coda:
- quando devi inviare un comando alla seriale in realtà lo inserisci nella coda
- una volta inserito il comando lanci subito l'elaborazione della coda: se il semaforo è rosso esci e non fai nulla

nel timer dell'interrogazione:
- appena terminata l'interrogazione, metti il semaforo a verde e lanci l'elaborazione della coda
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Aprile 02, 2014, 04:03:39 pm
Ciao Nomore
la mia paura era quella di dovere usare un multithread ma come lo hai messo giù tu mi semplifica molto la vita ed ovviamente non ci avevo pensato.
Fortuna che c'è il forum
Grazie
Diego
Titolo: Re:Lazarus e domotica
Inserito da: nomorelogic - Aprile 02, 2014, 04:27:05 pm
in questo caso i thread non sarebbero una buona soluzione in quanto la rs485 di sicuro non è (multi)thread safe ;)
un semaforo ti mette di sicuro al riparo

ciao
nomorelogic
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Aprile 02, 2014, 06:21:17 pm
anche se stavo pensando che il ciclo è praticamente infinito :'(
e quindi come gestisto il semaforo? auz
sono tornato nella confusione
Titolo: Re:Lazarus e domotica
Inserito da: nomorelogic - Aprile 02, 2014, 08:08:03 pm
con un TTimer? ;)
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Aprile 03, 2014, 08:08:55 pm
ciao nomore
grazie della pazienza,inannazitutto (con me ce ne vuole tanta) ;D

provo a descriverti la procedura (magari è sbagliata anche quella):

1 una volta connesso alla seriale invio comando di status degli I/O
2 ricevo risposta dalla seriale
3 elaboro la stringa ricevuta (ma nello stesso tempo devo già richiedere lo status degli input per non perdere eventuali segnali in ingresso)

domanda

non capisco come sia possibile ,per esempio, premere un bottone su di una form se "dietro" lo stesso programma continua ad interrogare (inviare e ricevere) dati dalla seriale e quindi il programma è sempre impegnato nel ciclo "infinito" di comunicazione
(credo sia un po' come fare elaborare dati da una parte e volere continuare ad inserirne dall'altra)spero di essermi spiegato ;D

forse non riesco a capire bene come interpretare il tuo suggerimento del semaforo con il ttimer

grazie 
Titolo: Re:Lazarus e domotica
Inserito da: nomorelogic - Aprile 04, 2014, 03:33:55 pm
il discorso del ciclo infinito alla fine non è che sia questo gran problema, basta mettere uno sleep per ottenere un'attesa.

per quanto riguarda il "bottone sulla form", come dicevo sul post precedente, non devi mandare il comando direttamente ma lo devi mettere in coda.

poi il famoso loop infinito lo puoi fare tipo

Codice: [Seleziona]
var esci_dal_ciclo: boolean;
      s: string;
begin
   esci_dal_ciclo := false;
   repeat

      while coda.count > 0 then         
            // preleva comando da prima posizione coda
            s := coda[0];
            // elimina il primo elemento nella coda
            coda.delete(0);
            // invia comando
            send_command_rs485(s);
            // legge risultato
            s := get_rs485_result;
            // fa qualcosa col risultato
            process_rs485_result(s);
      end;

      // legge status
      send_command_rs485('get_status');
      s := get_rs485_result;
      process_rs485_result(s);

      // se è il caso aspetta
      if coda.count = 0 then
         sleep(300);

   until esci_dal_ciclo;
end;

In questo modo se l'utente non invia comandi, il loop esegue sempre una interrogazione dello stato.
Se ci sono comandi, questi vengono eseguiti e poi si riparte con l'interrogazione.
Nel pezzo di codice sopra i comandi utente vengono eseguiti tutti quanti prima di riprendere ad interrogare lo stato, se non dovesse andar bene puoi fare 1 comando e poi interroghi.

Poi nella form ci puoi mettere 2 pulsanti:
1) un bottone che imposta esci_dal_ciclo = true (per uscire dal repeat/until e chiudere il programma)
2) un bottone che mette il comando che vuole l'utente nella coda


Con questo modo non ti serve neanche il semaforo; non so se il pezzo di codice è adatto a quello che vuoi fare tu ma intanto può essere un inizio.

Ciao
nomorelogic
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Aprile 04, 2014, 05:52:10 pm
ciao Nomore
grazie delle dritte ma vorrei sottoporti ilseguente codice (che poi è quasi il tuo)...
Una form e due pulsanti: il primo fa partire e il secondo dovrebbe fermare ma è in possibile in quanto il ciclo continua...è li che non capisco
ho inserito 1000 righe allo show in una stringlist
lancio il via (button1)
ma ne durante l'eliminazione delle 1000 righe ne durante il ciclo di sleep riesco a preme l'altro bottone.
in buona sostanza fino a che il ciclo di repeat non finisce non posso intervenire e nemmeno durante il ciclo di sleep

Codice: [Seleziona]
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure ciclo;
  private
    { private declarations }
    ferma: Boolean;
    coda: TStringList;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to 100 do
      coda.Add('comando'+IntToStr(i));
  ciclo;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ferma:= True;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  coda.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  coda:= TStringList.Create;
end;

procedure TForm1.ciclo;
var
  s: String;
begin
  ferma:= False;
   repeat
      while coda.count > 0 do
        begin
          // preleva comando da prima posizione coda
          s := coda[0];
          // elimina il primo elemento nella coda
          coda.delete(0);
          // fa qualcosa col risultato
          Label1.Caption:= s;
        end;
      if coda.count = 0 then
         sleep(300);
   until ferma;
end;

end.

Titolo: Re:Lazarus e domotica
Inserito da: nomorelogic - Aprile 04, 2014, 05:58:06 pm
metti in mezzo al loop:
Application.ProcessMessages;

in questo modo il loop sarà un po' più lento ma la form e soprattutto i bottoni dovrebbero rispondere
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Aprile 04, 2014, 06:21:11 pm
stavo per dirti la stessa cosa
ahah ;D
gli ingressi vengono letti e visualizzati gli stati sulla form
anche i bottoni funzionano
il loop rallenta
grazie
Titolo: Re:Lazarus e domotica
Inserito da: Stilgar - Aprile 06, 2014, 07:59:13 pm
xinyiman, il mio spacciatore di schede arduino è http://www.robot-italy.com/.
Preso tutto on line e pagamento in contrassengo.
All'epoca era l'unico che mi permetteva di pagare quando vedevo il pacchetto.
"Non fidarsi si fa peccato, ma non si sbaglia mai" (cit)

Stilgar
Titolo: Re:Lazarus e domotica
Inserito da: xinyiman - Aprile 06, 2014, 09:52:59 pm
xinyiman, il mio spacciatore di schede arduino è http://www.robot-italy.com/.
Preso tutto on line e pagamento in contrassengo.
All'epoca era l'unico che mi permetteva di pagare quando vedevo il pacchetto.
"Non fidarsi si fa peccato, ma non si sbaglia mai" (cit)

Stilgar
Interessante grazie :)
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Aprile 10, 2014, 06:49:06 pm
ho visto diverse cosette interessanti su quel sito e secondo me si possono applicare anche alla domotica fai da te  ;D
Titolo: Re:Lazarus e domotica
Inserito da: Legolas - Aprile 10, 2014, 07:31:29 pm
Uhm... non ricordo se l'ho scritto qui o altrove, ma: al contrario degli altri modelli che utilizzano processori AVR, Arduino Due ha un processore ARM e, volendo, si potrebbe utilizzare Free Pascal per programmarlo (buttando un po' di sangue per adattare la rtl ad Arduino ;D ).


Titolo: Re:Lazarus e domotica
Inserito da: nomorelogic - Aprile 11, 2014, 09:24:36 am
conosci qualcuno che ha già adattato fpc ad un qualche tipo di hardware? :D
Titolo: Re:Lazarus e domotica
Inserito da: Legolas - Aprile 11, 2014, 12:09:49 pm
conosci qualcuno che ha già adattato fpc ad un qualche tipo di hardware? :D
;D
Titolo: Re:Lazarus e domotica
Inserito da: Stilgar - Aprile 12, 2014, 03:08:06 pm
http://wiki.lazarus.freepascal.org/AVR
Titolo: Re:Lazarus e domotica
Inserito da: Stilgar - Aprile 12, 2014, 03:11:31 pm
Legolas.
Basta avere poca roba per arduino già pronta.
Poi si tratta (sempre che non stia facendo i conti senza l'oste) di adattare le classi esistenti (librerie per la gestione dei singoli integrati/schede) in struttura/classi pascal.
Avento la parte di io pronta, il resto è in discesa.
Una delle classi che bisogna sicuramente tradurre è "Serial" altrimenti ti perdi un bel pezzo di codice per il debug ;)

Stilgar
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Aprile 28, 2014, 06:55:18 pm
Ciao Ragazzi
sto proseguendo pian piano
sto cercando di temporizzare alcuni output con dei timer
a run time creo dei timer e all'evento ontimer li dovrei spegnere
la domanda è questa
se genero per esempio 5 timer, come faccio a sapere quale dei 5 invoca l'evento ontimer?
capendo quale dei 5 lo invoca posso poi spegnere l'output

grazie come sempre
Diego
Titolo: Re:Lazarus e domotica
Inserito da: cliff - Aprile 28, 2014, 09:38:05 pm
Il timer ha un parametro opzionale, chiamato "Tag", Se ci memorizzi dentro un numero quando lo crei poi dall'evento puoi recuperarlo

i := TTimer (sender).Tag;
case i of
  1 : ;  // sono il primo timer

....

Bye
Titolo: Re:Lazarus e domotica
Inserito da: Diego1981 - Aprile 29, 2014, 08:02:14 am
Ciao Cliff
grazie della dritta, verifico e ti faccio sapere
Titolo: Re:Lazarus e domotica
Inserito da: nomorelogic - Aprile 29, 2014, 08:25:25 am
la domanda è questa
se genero per esempio 5 timer, come faccio a sapere quale dei 5 invoca l'evento ontimer?
capendo quale dei 5 lo invoca posso poi spegnere l'output

L'evento OnTimer ha un parametro Sender che sarebbe l'oggetto che ha sollevato l'evento.

Quindi prova con:
TTimer(Sender).Enabled := FALSE;
Titolo: Re:Lazarus e domotica
Inserito da: Stilgar - Settembre 17, 2016, 08:18:51 am
Ciao. Come è  finita?