Serial Port

[JoseFco]

Hola Egostar.

=egostar;268598]Pues que bien que ya estes recibiendo la información, ahora como decimos por aca, a coser y cantar.

Salud OS

jajajajaja me falta un camino largo todavia por recorrer.
Tengo que jugar mas con esos hex y poderlos manipular.El otro paso es poder contarlos, o compararlos y si es= continuar el programa de lo contrario habrir una ventana donde me diga que no establece comunicacion ( algo asi)
estoy estudiando un componente de ese mismo comport "timer".Yo en asm para micros es tarea facil el compara una data y si es = hacer algo y sino es = hacer lo otro, pero en Delphi estoy ciego y a tientas como dicen en tu tierra." Bien norteado" jajajaja pero un dia con otro las cosas saldran.

Un millon de gracias carnal de verdad que tu ayuda a sido super importante.
Sin ella estaria mas perdido que un raton en una ferreteria.

Un Saludo.

[[egostar]]

Empezado por JoseFco

jajajajaja me falta un camino largo todavia por recorrer.
Tengo que jugar mas con esos hex y poderlos manipular.El otro paso es poder contarlos, o compararlos y si es= continuar el programa de lo contrario habrir una ventana donde me diga que no establece comunicacion ( algo asi)
estoy estudiando un componente de ese mismo comport "timer".Yo en asm para micros es tarea facil el compara una data y si es = hacer algo y sino es = hacer lo otro, pero en Delphi estoy ciego y a tientas como dicen en tu tierra." Bien norteado" jajajaja pero un dia con otro las cosas saldran.

Pues como te digo, ya tienes la parte digamos dificil, comparar las cadenas no tiene tanto problema, incluso sin cambiar a hexadecimal porque puedes comparar directamente la frase Hi-LOGIC.

Código Delphi [-]
 
If PalabraMagica = 'Hi-LOGIC' then
   ShowMessage('Ya estamos conectados')
else ShowMessage('Ya nos la pellizcamos');

Salud OS

[JoseFco]

En ese caso si funcionaria sin pasarlo a hex, pero en algunos casos el micro retornara hex 00 01 02 el ascii en esos casos es ;. iguales en los tres casos.
Por ejemplo rodando el original y con el espia en el serial port si el micro me manda un 01 el programa SwowMessage ( Communication Failure:Reception Error!
Dentro del micro son 8 bits hex, ascii, decimal, binarios, como los quieras llamar pero en un final son 8 bit que estaran 1 o 0, pero ya dentro del Delphi es otra la historia y es la que me cuesta trabajo entender.( recuerda que en esto estoy a gatas todavia)

Una Saludo.

PD: haciendo pruebas lo mismo funciona en 56000 que en 57600 almenos en datas cortas, no se que pasaria en datas largas.pero es 56000 eso esta confirmado por la configuracion del puerto en el micro.

[[egostar]]

Para efectos de los caracteres de control lo que yo hago es lo siguiente:

Código Delphi [-]
 
Const
    Nulo = #0; 
    SOH = #1;
    // Estas son laas señales que yo utilizo con mas frecuencia.
    STX = #2;
    EXT = #3;
    EOT = #4;
    ENQ = #5;
    ACK = #6;
    NAK = #21;

En realidad la forma en que se reciben los datos de cualquier dispositivo serial son valores de la tabla ASCII, pero los programas son los que "muestran" la informacìón como mas les place, Hexadecimal, Decimal o Binario, pero al final son caracteres.

Salud OS

[ayazgz]

Me baje el cport-3.10.zip e hice todo lo que dice... pero a la hora de compilar me da errores por un tubo... uso delphi 5 y necesito recibir y mandar caracteres por puerto serie, no se que mas intentar... solo me falta eso para acabar mi programa...

GRACIAS!!!!!

[JoseFco]

Hola Egostar.
Este codigo copila bien, no me da error alguno pero no corre del todo bien, me manda los hex 02 00 pero el micro no manda los 8 hex.

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CPort, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    ComPort1: TComPort;
    procedure Button1Click(Sender: TObject);
    procedure ComPortRxChar(Sender: TObject; Count: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure AddHexString(S : String; Lines : TStrings );
var AddS, HexS, CopyS : String;
    i : Integer;
const SLen = 8;
begin
  while Length(S) > 0 do
    begin
      AddS := Copy(S,1,SLen);
      HexS := '';
      Delete(S,1,SLen);
      for i := 1 to SLen do
        begin
          CopyS := Copy(AddS,i,1);
          if CopyS <> '' then
            HexS := HexS + ' ' + Format('%2.2x',[Byte(CopyS[1])]) //
          else
            HexS := HexS + '   ';
        end;
       while Length(AddS) < SLen do
         AddS := AddS + ' ';
       for i := 1 to SLen do
         case AddS[i] of
           #0..#31 : AddS[i] := '.';
           #127    : AddS[i] := '.';
         end;
       Lines.Add(HexS+' : '+AddS);
    end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 Comport1.Connected:=true;
  Comport1.WriteStr(#2#0);
end;
 procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
 ComPort1.ReadStr(Str, Count);
   If Str= 'Hi-LOGIC' then
   ShowMessage('Ya estamos conectados')
else ShowMessage('Ya nos la pellizcamos');
end;
end.

Un Saludo.

[[FGarcia]]

PepePancho no te va a funcionar asi porque el RxChar es un caracter a la vez por eso debes de agruparlo en alguna variable y al terminar de capturar debes de efectuar la comparacion.

Código Delphi [-]
var Cadena: string;
ComPort.ReadStr(Str,Count);
Cadena := Cadena + Str;

algo asi. Lo estoy haciendo de memoria.