manu
12-02-2007, 00:37:26
Hola a todos.
Tengo el siguiente problema.
Para controlar una emisora, que se puede conectar al puerto serie.
Utilizo el componente Comport.
No tengo problemas de enviarle las ordenes con la sentecia:
ComPort1.WriteStr(Cadena+#10#13);
la emisora responde con una serie de lineas.
Necesito:
Que las lineas que responda se almacen en un fichero, para despues analizarlas, y segun lo que tenga que se presente los datos en la pantalla del PC.
O
Analizar cada una de las lineas que me responde y ejecutarlas segun se vayan leyendo.
Lo he intentado con el codigo:
//-------------------------------------
rocedure TForm1.ComPort1RxChar(sender: TObject; Count: integer);
Var
linea :String;
begin
comport1.ReadStr(linea,count);
memo1.Text:=memo1.Text+linea;
writeln (FS,Memo1.text);
end;
//--------------------------------------
Despues leo el archivo y se ejecutan las rutinas.
Esto no me funciona.
Alguna idea?:confused:
Gracias:o
Tengo el siguiente problema.
Para controlar una emisora, que se puede conectar al puerto serie.
Utilizo el componente Comport.
No tengo problemas de enviarle las ordenes con la sentecia:
ComPort1.WriteStr(Cadena+#10#13);
la emisora responde con una serie de lineas.
Necesito:
Que las lineas que responda se almacen en un fichero, para despues analizarlas, y segun lo que tenga que se presente los datos en la pantalla del PC.
O
Analizar cada una de las lineas que me responde y ejecutarlas segun se vayan leyendo.
Lo he intentado con el codigo:
//-------------------------------------
rocedure TForm1.ComPort1RxChar(sender: TObject; Count: integer);
Var
linea :String;
begin
comport1.ReadStr(linea,count);
memo1.Text:=memo1.Text+linea;
writeln (FS,Memo1.text);
end;
//--------------------------------------
Despues leo el archivo y se ejecutan las rutinas.
Esto no me funciona.
Alguna idea?:confused:
Gracias:o