27 respuestas en este tema

[agag4]

Ahora el problema que tengo es la forma de cachar los caracteres que me manda la bascula, buscando, encontre esta forma :

delphi

procedure TMainForm.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
   I : Word;
   C : String;
begin
   Memo1.Lines.Add('RECIBIDO :');
   for I := 1 to Count do
   begin
      C := C + ApdComPort1.GetChar; // Aqui puede tomar estos valores para sus nesecidades
      Memo1.Lines.Add(C); // Habilitar esto para mostrar byte por byte
    end;
    Memo1.Lines.Add(C); // Habilitar esto para mostrar como cadena
    edPeso.Text := C ;
    Memo1.Lines.Add('')
end;

El resultado lo muestro en un TEdit, y lo que me muestra es lo siguiente:

delphi

kg||00||

El resultado tambien lo muestro en un TMemo, y lo que me muestra es lo siguiente:

delphi

kg
kg
 
kg
0
kg
00
kg
00
kg
00||

[FGarcia]

Prueba superada, lo que hice fue tomar el demo de los apro el TermDemo.dpr, le puse un boton para mandar pedir el peso de la siguiente manera:

delphi

ApdComPort1.PutString('W'+#13);

Y ya me regreso el peso, cosa que no me explico porque no me regreso el peso en el hyperteminal, ahora tengo otra duda, para que continuamente me ponga el peso en pantalla necesitaria poner un timer ??, he visto en muchas cajas de tiendas de autoservicio que en cuanto pone el peso se lo manda y mueves el articulo y se mueve el peso en la pantalla algo "Automatico" por asi decirlo, es cuestion de hacer pruebas, gracias compañeros....

Segun se, el teclado de la PC no envia un CR (ASCII 13) - Carriage Return o Retorno de Carro- sino un LF (ASCII 10) -Line Feed o Alimenta Linea o Nueva Linea - asi que la bascula al recibir algo no esperado te envia un caracter que te dice que "no entiende", eso es lo que visualizaste en el Hyperteminal. No tengo el manual de la bascula pero revisa si tiene opcion de Transmision Continua, asi la bascula estara enviando constantemente el dato de peso y tu aplicacion abrira el puerto cuando necesite leer o lo visualizara constantemente.

[FGarcia]

Mi mensaje anterior llego despues de que publicaste.

Los datos que envia la bascula ya estan en una cadena fija por ejemplo: xxxxx.xx kg<CR>

Usa el componente de los apro que te permite capturar el paquete completo y le colocas como fin de cadena el caracter de control <CR>

Edito: TApddataPacket es el componentes para paquetes.

delphi

procedure TdmSerial.SeriePackStringPacket(Sender: TObject; Data: AnsiString);
var
  tmpStr:string;
begin
  tmpStr := Copy(Data,2,7);
end;

[agag4]

Ya encontre la forma de tomar los caracteres, gracias a una respuesta de egostar en un hilo

http://www.delphiacc...hp?topic=1364.0

solo que hice una pequeña mexicanada en el evento ApdComPort1TriggerData, como veo que la bascula me pasa en el peso 2 letras al final ( kg ), cada vez que llega al final del ultimo caracter en el evento busco esas 2 letras:

delphi

  if TriggerHandle = CRTrig then begin//cuando es fin de paquete se realizarán las operaciones
 
    if FoundStr('KG',UpperCase(C)) then 
      edPeso.Text    := FormatFloat('###,##0.000',StrToFloat(LimpiaCampoFloat(C)));
      
    C := '';
  end;
 

[luk2009]

var
  CRTrig: Word;
  Linea: String;

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
  I : Word;
begin
  for I := 1 to Count do
      Linea := Linea + ApdComPort1.GetChar; //Se leen los caracteres recibidos
end;

procedure TForm1.ApdComPort1TriggerData(CP: TObject; TriggerHandle: Word);
begin
  if TriggerHandle = CRTrig then begin //cuando es fin de paquete se realizarán las operaciones
    Edit2.Text := Linea;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  CRTrig := ApdComPort1.AddDataTrigger(#13, False); //Asignamos el caracter CR como el fin del paquete
end;

lo saque de este HILO

La idea es que si quieres utilizar el datatrigger, puedes colocar el final del paquete como se indica en el evento onshow. Por otro lado para el caso tuyo, creo que como es una cadena con informacion fija, talvez el datapacket te funcione mejor y con menos codigo. Te buscare un ejemplo del datapacket de algo que me dijo egostar que es el que realmente sabe de todo esto.

Lee el hilo que te puede dar algunas ideas.

[egostar]

Hola agag4

Si puedes colocar como es que te llegan las cadenas te puedo ayudar con la solución, es igual que uses un datapacket que los eventos del apdComPort.

Por lo que veo ya tienes una solución, pero me parece que podemos refinarla

Salud OS

[seoane]

Mi consejo es usar un thread y las apis de windows para acceder al puerto, el resultado es perfecto 

PD: Tengo el código justo aquí, pero no puedo publicarlo ... como odio ser un programador a sueldo  ... bueno lo de cobrar tampoco esta tan mal 

[agag4]

me llegan 2 renglones de cadenas, en el renglon 1 me llega con el peso + KG + Enter y en el renglon 2 me llegan 2 ceros, ejemplo:
12.400 kg #13
00