leer desde los puerto seriales.
 

Buenas.

Necesito poder leer una informacion desde una balanza conectada a mi PC por el puerto Comm1 existe un codigo ejecutado en VB 5 que lo realiza pero tiene algunos errores y quisiera integrarlo en Delphi de una vez.
Ya Ubique varios Link en esta pagina y en torry.net http://www.swissdelphicenter.ch/torr...ode.php?id=841 pero este especificamente que es bastante completo no me compila, me da el siguiente error al compilarlo: "Types of actual and formal var parameters must be identical", especificamente en la function de readtxt que es la que me interesa.

Les agradeceria mucho su ayuda.

Gilberto Ramos.

...prueba este...
 

Gracias, ya lo baje solo que....
 

Buenas.

Disculpa el abuso solo que no soy muy experto en la materia, ya baje el componente e instale solo que no se como se utiliza y es un SOS, no me podrias indicar como usarlo, el sistema simplemente debe abrir el puerto, capturar lo que este en ese momento en el puerto comm1 y luego escribirlo en un .txt o directamente en un campo edit.

Gilberto Ramos

...asi puedes empezar...
 

Como Instalar Este Componente En Delphi 2005 ?
 

Hello Colegas, Una Pregunta , Como Puedo Instalar
Este Componente ( Txcomm ) En Delphi 2005 ?
Ya Baje El Componente Completo Pero No Se Como Instalarlo.

Te Agradezco Tu Ayuda.:d

Como Instalar Este Componente En Delphi 2005 ?
 

Hello Colegas, Una Pregunta , Como Puedo Instalar
Este Componente ( Txcomm ) En Delphi 2005 ?
Ya Baje El Componente Completo Pero No Se Como Instalarlo.

Te Agradezco Tu Ayuda.:d

...si se puede...
 

ok, pero di como colega coopera, no seas malo !!!
 

colega dime como instalar el componente no me dejes en suspenso
el problema es que estoy acostumbrado a delphi 7, y en delphi 2005 no
se como hacer la instalacion, cuales son los pasos a seguir.
anda dime.!!!!


saludos

El que se pregunta como hacerlo empieza su camino a ser maestro en la materia
y el que asume que todo lo sabe sin saberlo empieza su camino a la mitomania
, el que asume que todo lo sabe y en realidad lo sabe , empieza su camino a ya no aprender mas y quedarse en el mismo lugar.

...asi...
 

Ayuda.
 

Disculpen el fastidio solo que de verdad no entiendo muy bien el componente, sera posible que me pases un fracmento de tu codigo, seguramente para ustedes mi requerimiento es sencillo.

• Abrir el puerto.
• Leer el puerto.
• Escribir el resultado a un .txt
• Cerra el puerto.

este es el codigo de VB 5 que se utilizo, deseo es colocarlo en Delphi.

Private Sub Form_Load()
com1.InBufferCount = 0
com1.CommPort = 1
On Error Resume Next
If Err = 8005 Then
MsgBox "Puerto ya esta en uso", vbCritical, "Balanza"
End If
com1.Settings = "9600,N,8,1"
On Error Resume Next
Select Case Err
Case 8007
MsgBox "Error, Rata de transmisión no válida!", vbCritical, "Balanza"
Case 8008
MsgBox "Error, Tamaño de la información no válido!", vbCritical, "Balanza"
Case 8009
MsgBox "Error, valores por defecto no válidos!", vbCritical, "Balanza"
End Select
'**********************************
If com1.PortOpen = False Then
com1.PortOpen = True
End If
On Error Resume Next
If Err = 8018 Then
MsgBox "Error, El Puerto esta Cerrado", vbCritical, "Balanza"
End If
com1.Output = "AT" + Chr$(13)
Do
DoEvents
Loop Until com1.InBufferCount >= 2
Instring = com1.Input
Label1.Caption = Instring
com1.PortOpen = False
com1.InputLen = 8
com1.InBufferCount = 0
End Sub

Para el amigo que esta consultando como se instala es sencillo, descomprimes el archivo en un carpeta lo copias en en la carpeta de tus librerias seleccionas por component > install component, lo ubicas y compilas.

G.A.R.S.

...a ver esto...
 

Código Delphi [-]
    ....
if XComm1.OpenDevice then;  // Abres el puerto
begin    
    if XComm1.SendString(Comando) then // Envio la cadena comando
    begin
      Cadena := '';
      I := 0;
      while (I < 5) do // hago el ciclo para contar 4 despues de ETX
      begin
        XComm1.ReadByte(Caracter) then
        begin
          if (Caracter = 18) then // Este valor me indica que tengo que esperar
          begin                         
            Sleep(400); // Detengo la ejecución del programa por 400 msg
            Application.ProcessMessages;
          end else
          begin
              Cadena := Cadena + Char(Caracter); // hago la cadena 
              
              // ETX es una constante     

              If Caracter = ETX then I := 1; // despues de este caracter 
              if I > 0 then I := I + 1;          // empiezo el contador
          end;
        end;
      end;
    end else
    begin
      Codigo := 66;
      Cadena := 'Error de Comunicación 66';
    end;
    XComm1.CloseDevice;
    .....