Lazarus e domotica

[Diego1981]

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

[xinyiman]

E con quella libreria come ti trovi?!

[Diego1981]

per ora non lo so ancor, sono fermo alla conersione esadecimale binario
appena provo ti faccio sapere
 

[Diego1981]

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

[xinyiman]

Prova a sostituire

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

con

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

[Diego1981]

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 

grazie

[xinyiman]

Scusami errore mio, prova con


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

[Diego1981]

figurati...grazie a te dell'aiuto

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

[xinyiman]

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;   

[Diego1981]

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 

ciao

[nomorelogic]

vedi se questo ti può aiutare
http://sourceforge.net/projects/bigint/?source=navbar

[Diego1981]

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

[nomorelogic]

onestamente non l'ho mai provata
però ho notato che c'è anche una demo (calculator), puoi vedere li
se non riesci facci sapere

[Diego1981]

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

[xinyiman]

Hai provato questa unit: http://alexuser.narod.ru/pascal/dec2hex/dec2hex.htm