leer desde los puerto seriales.

[G.A.R.S]

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.