Serial Port

[JoseFco]

Hola Egostar.

Si el ComPort Library version 3.10 de Dejan Crnila es el que uso y lo encontre en un hilo de aqui del foro.
Yo entro a Google y aqui en en el foro a ver hilos y referencias sobre el comport.Tomo algunos codigos y trato de rodarlos, pero ya te digo me da errores algunas veces tres y tratando de repararlos cuando vengo a ver tengo 10 jajajajajajaja.Algun dia lo entendere mejor o al menos me dejara jugar con el.

Un Saludo.

[[egostar]]

Pues ya he visto tu componente, pero no veo por ningun lado el evento

Código Delphi [-]
procedure TForm1.ComPort1ReceiveCallBack(Data: String);
begin
  Edit1.Text:=(Data);
end;

Sin embargo, hice un programita y si funciona.

Salud OS

PD: Lo hice con Turbo Delphi, espero puedas abrir el fuente.

[JoseFco]

Hola Egostar.

Si el problema es que tengo dos ComPort en mi PC y esa fue la conficion.Estaba con un comport usando procedimientos de que no tenia.

Código Delphi [-]
 
 procedure TForm1.ComPortRxChar(Sender: TObject; Count:Integer);
 var
   Str: String;
 begin
   
   ComPort.ReadStr(Str, Count);
   Memo.Text := Memo.Text + Str;
 end;

Es que existen dos comport con el mismo nombre y diferentes componentes( yo en mi pc los llamo diferentes el otro es "PuertoCom" en mi pc.Pero si miro Google encuentras codigos y hay que tener cuidado al menos yo que estoy comenzando en esto y puedo cometer el error de usar un componente que no existe en un comport aunque se llame comport.

Deja correr ese programita que me mandaste a ver que hace y estudiar el codigo.


PD: En ese linck que mirastes ayer del hilo asm ese es otro comport y no el comport de Dejan Crnila por ejemplo.

Un Saludo.

[JoseFco]

Bueno ya estoy recibiendo los 8 hex de retorno del micro y una de las cosas que necesitaba era poder combertir a hex.Con este codigo ya esta superado.

Código Delphi [-]
procedure AddHexString(S : String; Lines : TStrings );
var AddS, HexS, CopyS : String;
    i : Integer;
const SLen = 8;
begin
  while Length(S) > 0 do
    begin
      AddS := Copy(S,1,SLen);
      HexS := '';
      Delete(S,1,SLen);
      for i := 1 to SLen do
        begin
          CopyS := Copy(AddS,i,1);
          if CopyS <> '' then
            HexS := HexS + ' ' + Format('%2.2x',[Byte(CopyS[1])]) //
          else
            HexS := HexS + '   ';
        end;
       while Length(AddS) < SLen do
         AddS := AddS + ' ';
       for i := 1 to SLen do
         case AddS[i] of
           #0..#31 : AddS[i] := '.';
           #127    : AddS[i] := '.';
         end;
       Lines.Add(HexS+' : '+AddS);
    end;
end;

Un Saludo.

[JoseFco]

Esta parte del codigo la cambie.

Código Delphi [-]
 procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
 ComPort.ReadStr(Str, Count);
 AddHexString(Str,Memo.Lines);
end;

Para que lo recibido fuera combertido a hex.

Un Saludo.

[[egostar]]

Pues que bien que ya estes recibiendo la información, ahora como decimos por aca, a coser y cantar.

Salud OS

[JoseFco]

Hola Egostar.

=egostar;268598]Pues que bien que ya estes recibiendo la información, ahora como decimos por aca, a coser y cantar.

Salud OS

jajajajaja me falta un camino largo todavia por recorrer.
Tengo que jugar mas con esos hex y poderlos manipular.El otro paso es poder contarlos, o compararlos y si es= continuar el programa de lo contrario habrir una ventana donde me diga que no establece comunicacion ( algo asi)
estoy estudiando un componente de ese mismo comport "timer".Yo en asm para micros es tarea facil el compara una data y si es = hacer algo y sino es = hacer lo otro, pero en Delphi estoy ciego y a tientas como dicen en tu tierra." Bien norteado" jajajaja pero un dia con otro las cosas saldran.

Un millon de gracias carnal de verdad que tu ayuda a sido super importante.
Sin ella estaria mas perdido que un raton en una ferreteria.

Un Saludo.