Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-02-2008
JoseFco JoseFco is offline
Baneado
 
Registrado: dic 2007
Posts: 1.861
Poder: 0
JoseFco cantidad desconocida en este momento
Serial Port

Hola Amigos.

Tengo el siguiente codigo.


Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr('0200');
Comport1.Connected:=False;
end;
end.


Me explico. Yo quiero mandar dos hex 02 y 00 al puerto serial.Pero al correr este programita me da en el monitor que tengo de serial port eso mismo pero en ascii 30 32 30 30 y yo quiero que me de solo hex 02 00 .

La pregunta. Que estoy haciendo mal?

Gracias y un Saludo.
Responder Con Cita
  #2  
Antiguo 23-02-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
Cita:
Empezado por JoseFco Ver Mensaje
Hola Amigos.

Tengo el siguiente codigo.


Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr('0200');
Comport1.Connected:=False;
end;
end.


Me explico. Yo quiero mandar dos hex 02 y 00 al puerto serial.Pero al correr este programita me da en el monitor que tengo de serial port eso mismo pero en ascii 30 32 30 30 y yo quiero que me de solo hex 02 00 .

La pregunta. Que estoy haciendo mal?

Gracias y un Saludo.
Y si mandas esto

Código Delphi [-]
Comport1.WriteStr(#2#0);

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #3  
Antiguo 23-02-2008
JoseFco JoseFco is offline
Baneado
 
Registrado: dic 2007
Posts: 1.861
Poder: 0
JoseFco cantidad desconocida en este momento
Un Saludo Egostar.

No pues el monitor dice que eso es exactamente lo que le hacia falta al codigo.

Un millon de gracias Carnal.
Responder Con Cita
  #4  
Antiguo 23-02-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
Cita:
Empezado por JoseFco Ver Mensaje
Un Saludo Egostar.

No pues el monitor dice que eso es exactamente lo que le hacia falta al codigo.

Un millon de gracias Carnal.
Ah pues que bien que te sirvio, la cuestion es que en realidad estabas mandando 4 caracteres 0 2 0 0, pero cuando envias caracteres de control como son 00 (NULL), 02 (STX), 03 (ETX), 05 (ENQ), 06 (ACK), 21 (NAK), que son las mas comunes, es necesario enviarlos como te indique.

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #5  
Antiguo 23-02-2008
canvilem canvilem is offline
Registrado
 
Registrado: feb 2008
Posts: 1
Poder: 0
canvilem Va por buen camino
WriteStr

No utilices WriteStr porque lo que envías es un String. Seguro que tienes otra función para enviar tus Hex.
Responder Con Cita
  #6  
Antiguo 24-02-2008
JoseFco JoseFco is offline
Baneado
 
Registrado: dic 2007
Posts: 1.861
Poder: 0
JoseFco cantidad desconocida en este momento
Hola Canvilem.

La verdad estoy estudiando el comportamiento de un programita que me gustaria emular.Solo puedo leer la parte que corresponde a un micro que lo acompaña.La parte de la aplicacion esta escrita dice que en GUI para windows.Yo quiero hacer algo parecido pero en Delphi y es donde entra la tareita que me he puesto para comenzar con mi primer programita Delphi.(jajajaja nada facil pero esos retos me encantan).Para esto tengo algunas herramientas y todo el tiempo del mundo,(no me apura).La herramienta mas importante para esta primera etapa es esta.Serial con este programita puedo ver el protocolo entre el (target y su esclavo)Los hex esos 02 00 son los que manda el pc al micro OnCreate y espera que el micro le mande 48 69 2D 4C 4F 47 49 43 la aplicacion los compara y si son igual a lo que espera termina de habrir la aplicacion de lo contrario te daria un error " no establecio la comunicacion" algo asi.

Tengo que seguir estudiando el tema y espero, ir superando las etapas una por una.

Un Saludo.
Responder Con Cita
  #7  
Antiguo 24-02-2008
JoseFco JoseFco is offline
Baneado
 
Registrado: dic 2007
Posts: 1.861
Poder: 0
JoseFco cantidad desconocida en este momento
Hola Amigos.

Estoy tratando de recivir por el serial port una data y llevarla a un edit.Pero no lo logro.
Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CPort, StdCtrls;
type
  TForm1 = class(TForm)
    ComPort1: TComPort;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure ComPort1ReceiveCallBack(Data: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr(#2#0);
end;
 procedure TForm1.ComPort1ReceiveCallBack(Data: String);
begin
Edit1.Text:=(Data);
end;
 
end.

Que esta mal aqui?

Un Saludo.
Responder Con Cita
  #8  
Antiguo 24-02-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
Cita:
Empezado por JoseFco Ver Mensaje
Hola Amigos.

Estoy tratando de recivir por el serial port una data y llevarla a un edit.Pero no lo logro.

Que esta mal aqui?

Un Saludo.
Bueno, tal vez no está mal, pero lo que creo que te falta es identificar en que momento recibes toda la cadena (desde principio a fin) desconozco ese componente que usas y no se su formato yo uso dos uno que se llama WSC (de pago) y el APro (Libre) y eso que requieres lo hace sin dificultades.

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #9  
Antiguo 24-02-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
Leyendo un hilo en ASM donde muestras una página con el ejemplo de un code delphi vi esto que me parecio particularmente curioso

Código Delphi [-]
Temperatura:=Ord(Data[1]);

Te recomiendo que hagas un trace de tu codigo y ver que es lo que tiene el String Data.

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #10  
Antiguo 24-02-2008
JoseFco JoseFco is offline
Baneado
 
Registrado: dic 2007
Posts: 1.861
Poder: 0
JoseFco cantidad desconocida en este momento
Hola Egostar.

Creo entender la naturaleza del problema y a mi modo de entender.Es un problema de tiempo de ejecucion.Debo darle un tiempo entre el 02 y el 00 que mando al micro.
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr(#2#0);
end;

En la aplicacion original se maneja un timer (12 mhz).
Existe alguna forma de frenar el tiempo de ejecucion de una aplicacion Delphi sin importar la velocidad del PC?
Se puede crear un edit donde se pueda crear el tiempo de ejecucion de una aplicacion?

Rodando este programita puedo ver que el micro no responde, esto lo veo en el monitor de serial port que utilizo.Y creo que al no tener un tiempo de retardo entre el 02 y el 00 el micro interpreta 0200 y el tiene que comparar primero 02 ejecutar una rutina luego 00 y determina que hacer en ese caso.( mandar 8 hex de retorno al serial port)

Un Saludo.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Port Fordward Y Conexion A Firebird mjjj Firebird e Interbase 4 28-12-2007 15:32:35
Serial Port desde Delphi MaMu API de Windows 2 19-06-2007 01:14:53
Función PORT. para puerto LPT en XP vicruffo Varios 2 09-03-2007 23:21:09
Busco ordenador o portátil Arcioneo Varios 2 18-07-2006 13:49:32
Como se usa el Componente Serial Port en C# (VS2005)? z-7 .NET 0 16-12-2005 05:02:05


La franja horaria es GMT +2. Ahora son las 02:23:15.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi