Comunicaciones

[Saltimbanki]

Por favor, ya estube trabajando con el puerto serie y el builder 5, pero he perdido todos mis trabajos y lo que mas hecho en falta son los comandos para abrir/cerrar el Com, poner en espera de recepcion de datos, enviar datos, etc. Me quiero comprar un lector de codigos de barras para trabajar lo de las comunicaciones, pero, lo que digo, "se me ha ido de la olla" cuales eran los comandos de comunicaciones.

Otra cosa, como se cual es el puerto usb que va a recivir los datos ??, como lo designo o averiguo ??

Gracias

[Casimiro Noteví]

Al igual que te comenté en este mensaje, te recuerdo que, por favor, pongas títulos descriptivos a tus preguntas, gracias.
No olvides nuestra guía de estilo
Y bienvenido a clubdelphi.

[navbuoy]

Para abrir y cerrar un puerto serie (COM) en Delphi, puedes utilizar la unidad TComPort o el componente TSerialPort. A continuación te muestro cómo hacerlo utilizando la unidad TComPort (que se puede encontrar en bibliotecas como ComPort Library o utilizando Synapse):

1. Usando TComPort
Primero, necesitas instalar la biblioteca ComPort Library si no la tienes. Puedes encontrarla aquí: https://github.com/Wosi/ComPort.

Código de ejemplo:
Abrir el puerto COM:

Código Delphi [-]
procedure TForm1.AbrirPuerto;
begin
  ComPort1.Port := 'COM1';  // Selecciona el puerto, ej. 'COM1'
  ComPort1.BaudRate := br9600;  // Velocidad del puerto
  ComPort1.Parity := pNone;  // Paridad
  ComPort1.DataBits := dbEight;  // Bits de datos
  ComPort1.StopBits := sbOneStopBit;  // Bits de parada
  ComPort1.Open;  // Abre el puerto serie
end;

Cerrar el puerto COM:

Código Delphi [-]
procedure TForm1.CerrarPuerto;
begin
  if ComPort1.Connected then
  begin
    ComPort1.Close;  // Cierra el puerto serie
  end;
end;

Otra opcion seria:
2. Usando TSerialPort (Synaser - Synapse)
Otra opción es utilizar Synapse (synaser.pas) que tiene soporte para puerto serie.

Abrir el puerto COM:

Código Delphi [-]
uses
  synaser;

var
  Serial: TBlockSerial;

procedure TForm1.AbrirPuerto;
begin
  Serial := TBlockSerial.Create;
  Serial.Connect('COM1');   // Selecciona el puerto COM1
  Serial.Config(9600, 8, 'N', 1, False, False);  // Configura la conexión (baudrate, etc.)
end;

Cerrar el Puerto COM:

Código Delphi [-]
procedure TForm1.CerrarPuerto;
begin
  if Serial <> nil then
  begin
    Serial.CloseSocket;  // Cierra el puerto serie
    Serial.Free;  // Libera el objeto
  end;
end;

Detalles:
Port: Selecciona el puerto COM a utilizar.
BaudRate: Velocidad del puerto (como 9600, 115200, etc.).
Parity: Paridad (sin paridad, par, impar).
DataBits: Número de bits de datos (normalmente 8).
StopBits: Número de bits de parada (1 o 2).
Instalación de componentes:
Si utilizas ComPort Library, puedes agregar ComPort a tu formulario desde el componente.
Si utilizas Synapse, solo necesitas incluir synaser.pas en tu proyecto.