| Class TFmEscuchar (unit Escuchar) |
TForm
| Constructors |
| Functions |
procedure AbrirPuerto1Click(Sender: TObject);
procedure AbrirPuerto2Click(Sender: TObject);
procedure Acercade1Click(Sender: TObject);
procedure AsciiHexadecimal1Click(Sender: TObject);
procedure BloqueTlgClick(Sender: TObject);
procedure BorrarPantalla1Click(Sender: TObject);
procedure CaracteresAscii1Click(Sender: TObject);
procedure CarcteresdeControl1Click(Sender: TObject);
procedure Cerrar1Click(Sender: TObject);
procedure CerrarPuerto1Click(Sender: TObject);
procedure CerrarPuerto2Click(Sender: TObject);
procedure ConfigurarPuerto1Click(Sender: TObject);
procedure ConfigurarPuerto2Click(Sender: TObject);
procedure Cortar1Click(Sender: TObject);
procedure CtrlASCIIHexadecimal1Click(Sender: TObject);
procedure EditCaracter1Change(Sender: TObject);
procedure EditTiempoChange(Sender: TObject);
procedure Espaol1Click(Sender: TObject);
procedure FechayHora1Click(Sender: TObject);
procedure FicheroTexto1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Hexadecimal1Click(Sender: TObject);
procedure MjwKeyPress(Sender: TObject; var Key: Char);
procedure ModoTerminal1Click(Sender: TObject);
procedure Nuevo1Click(Sender: TObject);
procedure Polling1Click(Sender: TObject);
procedure Port1ReceiveData(Sender: TObject; DataPtr: Pointer;
DataSize: Integer);
procedure Port2ReceiveData(Sender: TObject; DataPtr: Pointer;
DataSize: Integer);
procedure Salir1Click(Sender: TObject);
procedure SEDelayChange(Sender: TObject);
procedure SEFrecuenciaChange(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure TimerDelayTimer(Sender: TObject);
procedure TimerTrocearTimer(Sender: TObject);
procedure TlgTest1Click(Sender: TObject);
procedure TLGTipo1Click(Sender: TObject);
procedure TLGTipo2Click(Sender: TObject);
procedure ClosePort1;
procedure ClosePort2;
procedure ConfiguraEnvio;
procedure EnviaFichero(FileText : String);
procedure EnviaPolling;
procedure OpenPort1;
procedure OpenPort2;
procedure Pack1;
procedure Pack2;
procedure Pack3;
procedure Pack4;
procedure Pack5;
procedure Pack6;
function RandG(Mean, StdDev: Extended): Extended;
procedure WriteInMjWinCrt(DataPtr: Pointer; DataSize: Integer);| Properties |
| Events |
| Variables |
AbrirPuerto1 : TMenuItem;
AbrirPuerto2 : TMenuItem;
Acercade1 : TMenuItem;
Archivo1 : TMenuItem;
AsciiHexadecimal1 : TMenuItem;
Ayuda1 : TMenuItem;
BitBtn1 : TBitBtn;
BloqueTlg : TMenuItem;
BorrarPantalla1 : TMenuItem;
CaracteresAscii1 : TMenuItem;
CarcteresdeControl1 : TMenuItem;
Cerrar1 : TMenuItem;
CerrarPuerto1 : TMenuItem;
CerrarPuerto2 : TMenuItem;
Configurar1 : TMenuItem;
ConfigurarPuerto1 : TMenuItem;
ConfigurarPuerto2 : TMenuItem;
Cortar1 : TMenuItem;
CtrlASCIIHexadecimal1 : TMenuItem;
EditCaracter1 : TEdit;
EditCaracter11 : TEdit;
EditCaracter12 : TEdit;
EditCaracter13 : TEdit;
EditCaracter14 : TEdit;
EditCaracter2 : TEdit;
EditCaracter3 : TEdit;
EditCaracter4 : TEdit;
EditFichero : TEdit;
EditLng : TEdit;
EditTlg : TEdit;
Enviar1 : TMenuItem;
Espaol1 : TMenuItem;
FechayHora1 : TMenuItem;
FicheroTexto1 : TMenuItem;
GBPuerto1 : TGroupBox;
GBPuerto2 : TGroupBox;
GBSend : TGroupBox;
Hexadecimal1 : TMenuItem;
Idioma1 : TMenuItem;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
MainMenu1 : TMainMenu;
Mjw : TMJWcrt;
ModoTerminal1 : TMenuItem;
N1 : TMenuItem;
N3 : TMenuItem;
Nuevo1 : TMenuItem;
OpenDialog1 : TOpenDialog;
Polling1 : TMenuItem;
Port1 : TCommPortDriver;
Port2 : TCommPortDriver;
Puertos1 : TMenuItem;
RBPuerto1 : TRadioButton;
RBPuerto2 : TRadioButton;
Salir1 : TMenuItem;
ScrollBox1 : TScrollBox;
SEDelay : TSpinEdit;
SEFrecuencia : TSpinEdit;
Timer1 : TTimer;
TimerDelay : TTimer;
TimerTrocear : TTimer;
TlgTest1 : TMenuItem;
TLGTipo1 : TMenuItem;
TLGTipo2 : TMenuItem;
Ver1 : TMenuItem;
Activo : Boolean;
Bloque : Boolean;
C : String;
C1 : Integer;
C11 : Integer;
C12 : Integer;
C13 : Integer;
C14 : Integer;
C2 : Integer;
C3 : Integer;
C4 : Integer;
Car : Char;
ContinuaTlg : Boolean;
Ctrl : Boolean;
Enviar : Boolean;
Fic : Boolean;
Hexa : Boolean;
Ind : Integer;
Lng : Integer;
nPollingActual : Integer;
nPollingMax : Integer;
OutFile : TextFile;
Paquete : String;
PuertoReceive : String;
PuertoUltimo : String;
strFic : String;
Temp : String;
Tlg : String;
Valor : Integer;| Constructors |
| Functions |
procedure AbrirPuerto1Click(Sender: TObject);Text File
procedure AbrirPuerto2Click(Sender: TObject);#Open Port 1 #Abrir el puerto 1
procedure Acercade1Click(Sender: TObject);# Small help to show the characters of ASCII control # Pequeña ayuda para mostrar los caracteres de control ASCII
procedure AsciiHexadecimal1Click(Sender: TObject);# To configure the Show in manner 100% Hexadecimal # Configurar el Show en modo 100% Hexadecimal
procedure BloqueTlgClick(Sender: TObject);# Last Port, to control the Lag between characters # Ultimo Puerto, para controlar el Retraso entre caracteres} {# We activate the control of lag between characters # Activamos el control de retraso entre caracteres
procedure BorrarPantalla1Click(Sender: TObject);# To configure the Show in ASCII merged manner and Hexadecimal # Configurar el Show en modo combinado ASCII y Hexadecimal
procedure CaracteresAscii1Click(Sender: TObject);# Operation of the Port in Terminal Manner, sending the written characters for the port selected # Funcionamiento del Puerto en Modo Terminal, enviando los caracteres escritos por el puerto seleccionado
procedure CarcteresdeControl1Click(Sender: TObject);# Proceeding of closing the file # Procedimiento de cerrar el fichero
procedure Cerrar1Click(Sender: TObject);# Function - IOresult - returns 0 if the file function is correct # Funcion -IOresult- devuelve 0 si la función de archivo es correcta
procedure CerrarPuerto1Click(Sender: TObject);#Open Port 2 #Abrir el puerto 2
procedure CerrarPuerto2Click(Sender: TObject);#Close Port 1 #Cerrar el puerto 1
procedure ConfigurarPuerto1Click(Sender: TObject);#To Get the values of the characters to dial in each port #Coger los valores de los carácteres a escuchar en cada puerto
procedure ConfigurarPuerto2Click(Sender: TObject);#To update the configuration of the port #Actualizar la configuración del puerto
procedure Cortar1Click(Sender: TObject);# To define I send dated as of and hour # Definir envio de Fecha y hora
procedure CtrlASCIIHexadecimal1Click(Sender: TObject);# To configure the time of I send of cables # Configurar el tiempo de envio de telegramas
procedure EditCaracter1Change(Sender: TObject);#Close Port 2 #Cerrar el Puerto 2
procedure EditTiempoChange(Sender: TObject);# To cut I send it of Tlg # Cortar el envio de Tlg
procedure Espaol1Click(Sender: TObject);# To jump of line each data block received # Saltar de linea cada bloque de datos recibido
procedure FechayHora1Click(Sender: TObject);# Jump from 1 line in the file # Salto de 1 linea en el fichero
procedure FicheroTexto1Click(Sender: TObject);# To Send Tlg format that we define as Type 1 according to our necessities # Enviar Tlg formato que definamos como Tipo 1 según nuestras necesidades
procedure FormActivate(Sender: TObject);# Algoritmo de Marsaglia-Bray
procedure FormClose(Sender: TObject; var Action: TCloseAction);#Close the Form and exit #Cerrar el formulario y salir
procedure Hexadecimal1Click(Sender: TObject);# To configure and to activate the Timer # Configurar y activar el Timer
procedure MjwKeyPress(Sender: TObject; var Key: Char);# To alternate the Terminal Manner Menu to Monitor Manner and conversely # Alternar el Menú de Modo Terminal a Modo Monitor y viceversa
procedure ModoTerminal1Click(Sender: TObject);
procedure Nuevo1Click(Sender: TObject);#To update the configuration of the port #Actualizar la configuración del puerto
procedure Polling1Click(Sender: TObject);Show Caracter ASCII
procedure Port1ReceiveData(Sender: TObject; DataPtr: Pointer;
DataSize: Integer);# Conditions of beginning in RunTime # Condiciones de inicio en RunTime
procedure Port2ReceiveData(Sender: TObject; DataPtr: Pointer;
DataSize: Integer);# Reading proceeding of the port 1 and data processing # Procedimiento de lectura del puerto 2 y procesamiento de datos
procedure Salir1Click(Sender: TObject);
procedure SEDelayChange(Sender: TObject);# I send of Polling to a number of given stations # Envio de Polling a un número de estaciones determinado
procedure SEFrecuenciaChange(Sender: TObject);# To configure the menus of the program in English # Configurar los menus del programa en Ingles
procedure Timer1Timer(Sender: TObject);# Show About window # Mostrar ventana de Acerca de
procedure TimerDelayTimer(Sender: TObject);# Lag in the acceptance of characters by the port. Some Communications of industrial type, or where there are Nets and distributing of ports, delay the continuity of the communication # Retraso en la recepción de caracteres por el puerto. Algunas comunicaciones de tipo industrial, o donde hay Redes y repartidores de puertos, retrasan la continuidad de la comunicación
procedure TimerTrocearTimer(Sender: TObject);# To activate I send it of the file # Activar el envio del fichero
procedure TlgTest1Click(Sender: TObject);# To configure the Show in merged manner Characters of Ctrl, ASCII and Hexadecimal # Configurar el Show en modo combinado Caracteres de Ctrl, ASCII y Hexadecimal
procedure TLGTipo1Click(Sender: TObject);# Clear screen # Borrar el visor
procedure TLGTipo2Click(Sender: TObject);# To Send Tlg format that we define as Type 1 according to our necessities # Enviar Tlg formato que definamos como Tipo 1 según nuestras necesidades
procedure ClosePort1;#Open Port 1 #Abrir el puerto 1
procedure ClosePort2;#Open Port2 #Abrir el puerto 2
procedure ConfiguraEnvio;# Configuration of time frequency of I send of the Tlg. 1" := 1000 # Configuración de frecuencia de tiempo de envio del Tlg. 1" := 1000
procedure EnviaFichero(FileText : String);# To send a text file # Enviar un fichero de texto
procedure EnviaPolling;# To Send Tlg format that we define as Type 2 according to our necessities # Enviar Tlg formato que definamos como Tipo 2 según nuestras necesidades
procedure OpenPort1;#Close Port 2 #Cerrar el puerto 2
procedure OpenPort2;#Close Port 1 #Cerrar el Puerto 1
procedure Pack1;# Help screen showing the gambling of characters Ascii # Pantalla de ayuda mostrando el juego de caracteres Ascii
procedure Pack2;# Package dated as of and Hour # Paquete de Fecha y Hora
procedure Pack3;# Package of Tlg Type 1 of example # Paquete de TLG Tipo 1 de ejemplo
procedure Pack4;# Package of Tlg Type 2 of example # Paquete de TLG Tipo 2 de ejemplo
procedure Pack5;# Package of TLG Test, send the gambling of 255 ASCII Characters # Paquete de TLG Test, envia el juego de los 255 Caracteres ASCII
procedure Pack6;# To send a Text File # Enviar un Fichero de Texto
function RandG(Mean, StdDev: Extended): Extended;# To Send Tlg format that we define as Type 2 according to our necessities # Enviar Tlg formato que definamos como Tipo 2 según nuestras necesidades
procedure WriteInMjWinCrt(DataPtr: Pointer; DataSize: Integer);# Reading proceeding of the port 2 and data processing # Procedimiento de lectura del puerto 2 y procesamiento de datos
| Properties |
| Events |
| Variables |
AbrirPuerto1 : TMenuItem;
AbrirPuerto2 : TMenuItem;
Acercade1 : TMenuItem;
Archivo1 : TMenuItem;
AsciiHexadecimal1 : TMenuItem;
Ayuda1 : TMenuItem;
BitBtn1 : TBitBtn;
BloqueTlg : TMenuItem;
BorrarPantalla1 : TMenuItem;
CaracteresAscii1 : TMenuItem;
CarcteresdeControl1 : TMenuItem;
Cerrar1 : TMenuItem;
CerrarPuerto1 : TMenuItem;
CerrarPuerto2 : TMenuItem;
Configurar1 : TMenuItem;
ConfigurarPuerto1 : TMenuItem;
ConfigurarPuerto2 : TMenuItem;
Cortar1 : TMenuItem;
CtrlASCIIHexadecimal1 : TMenuItem;
EditCaracter1 : TEdit;
EditCaracter11 : TEdit;
EditCaracter12 : TEdit;
EditCaracter13 : TEdit;
EditCaracter14 : TEdit;
EditCaracter2 : TEdit;
EditCaracter3 : TEdit;
EditCaracter4 : TEdit;
EditFichero : TEdit;
EditLng : TEdit;
EditTlg : TEdit;
Enviar1 : TMenuItem;
Espaol1 : TMenuItem;
FechayHora1 : TMenuItem;
FicheroTexto1 : TMenuItem;
GBPuerto1 : TGroupBox;
GBPuerto2 : TGroupBox;
GBSend : TGroupBox;
Hexadecimal1 : TMenuItem;
Idioma1 : TMenuItem;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
MainMenu1 : TMainMenu;
Mjw : TMJWcrt;
ModoTerminal1 : TMenuItem;
N1 : TMenuItem;
N3 : TMenuItem;
Nuevo1 : TMenuItem;
OpenDialog1 : TOpenDialog;
Polling1 : TMenuItem;
Port1 : TCommPortDriver;
Port2 : TCommPortDriver;
Puertos1 : TMenuItem;
RBPuerto1 : TRadioButton;
RBPuerto2 : TRadioButton;
Salir1 : TMenuItem;
ScrollBox1 : TScrollBox;
SEDelay : TSpinEdit;
SEFrecuencia : TSpinEdit;
Timer1 : TTimer;
TimerDelay : TTimer;
TimerTrocear : TTimer;
TlgTest1 : TMenuItem;
TLGTipo1 : TMenuItem;
TLGTipo2 : TMenuItem;
Ver1 : TMenuItem;
Activo : Boolean;
Bloque : Boolean;
C : String;
C1 : Integer;
C11 : Integer;
C12 : Integer;
C13 : Integer;
C14 : Integer;
C2 : Integer;
C3 : Integer;
C4 : Integer;
Car : Char;
ContinuaTlg : Boolean;
Ctrl : Boolean;
Enviar : Boolean;
Fic : Boolean;
Hexa : Boolean;
Ind : Integer;
Lng : Integer;
nPollingActual : Integer;
nPollingMax : Integer;
OutFile : TextFile;
Paquete : String;
PuertoReceive : String;
PuertoUltimo : String;
strFic : String;
Temp : String;
Tlg : String;
Valor : Integer;