Cuantos ComPortRxChar?

[JoseFco]

Lo de los espacios lo decia por lo primero que estabamos haciando ayer, que mandaba ascii y estaba mirando salir "20" .Pero lo que tenemos ahora no manda nada, el programa se tranca justo a partir que le mando a hacer esto.

Código Delphi [-]
 ComPort.WriteStr(Char(strtoint('$'+Copy(LineaMemo,1,2))));

Ya aqui no manda nada y se tranca.

Un Saludo.

[JoseFco]

Regresando al anterior procedimiento.

Código Delphi [-]
 5: begin // Comando para escribir el chip(06 04 00 00 10 00)
         ComPort.WriteStr(#6#4#0#0#16#0);
            sleep(100);
            ComPort.WriteStr(Memo1.Text[1]);
               Contador := 2;
      end;
     end;
     end
         else if Str = #2 then begin
         end
           else if Str = #83 then begin
               if contador <= 4096 then begin
                ComPort.WriteStr(Memo1.Text[Contador]);
                Inc(Contador);
     end;
     end;
     end;

Este copila sin problema y rueda bien.Manda los 4096 bytes y recibe los 53h 83d.
Pero manda caracteres ascii, un ejemplo de lo que esta mandando:
Los dos primeros bytes de data en el memo son:

00 12 y lo que sale por el serial port es: 20 30 30 20 31 32 20=espacio 30=0 30=0 aqui "00" otro 20=espacio 31=1 32=2 aqui el "12".

Asi esta la cosa.

Un Saludo.

[[egostar]]

Y si intentas con esto amigo Jose

Código Delphi [-]
       5: begin // Comando para escribir el chip(06 04 00 00 10 00)
          ComPort.WriteStr(#6#4#0#0#16#0);
          sleep(100);
          ComPort.Write(Buffer[1],1);
          Contador := 2;
       end;
   end;

   else if Str = #83 then begin
            if contador <= 4096 then begin
               ComPort.Write(Buffer[Contador],1);
               Inc(Contador);
         end;
     end;
     end;

Salud OS

[JoseFco]

Mira esto egostar.

Código Delphi [-]
implementation
{$R *.dfm}
type
 TBuffer = array[$0000..$FFFF] of Byte;
function Insertar(Str: String; var Buffer: TBuffer): String;
var
  i,j,k: Integer;
begin

Estoy cambiando para lo ultimo que mandastes y me da el siguiente error.
Undeclare identifier:'Buffer"

jajajajajajaja esta declarado o no?

Un Saludo.

[[egostar]]

Empezado por JoseFco

Estoy cambiando para lo ultimo que mandastes y me da el siguiente error.
Undeclare identifier:'Buffer"

jajajajajajaja esta declarado o no?

Un Saludo.

Si esta declarado pero como una variable local, sacala de este procedimiento y colocala como variable general.

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  i,j: Integer;
  Str: String;
  Buffer: TBuffer; //Sacala de aquí y ponla como general
begin
.....
end;

Salud OS

[JoseFco]

Asi esta el codigo:

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CPort, StdCtrls, ComCtrls;
type
  TForm1 = class(TForm)
    ComPort: TComPort;
    Button1: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ProgressBar1: TProgressBar;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure ComPortRxChar(Sender: TObject; Count: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Cuantos, CuentaB : Integer;
  Contador  : Integer;
  LineaMemo  :  String;
  Count :   Integer;
  Buffer: TBuffer;
implementation
{$R *.dfm}
type
 TBuffer = array[$0000..$FFFF] of Byte;
function Insertar(Str: String; var Buffer: TBuffer): String;
var
  i,j,k: Integer;
begin
  Result:= EmptyStr;
  Str:= Trim(Str);
  if Copy(Str,1,1) = ':' then
    if TryStrToInt('$' + Copy(Str,2,2),i) then
      if Length(Str) = ((2*i) + 11) then
        if TryStrToInt('$' + Copy(Str,4,4),j) then
          if TryStrToInt('$' + Copy(Str,8,2),k) then
            if k = 0 then
            begin
              Str:= Copy(Str,10,2*i);
              for k:= j to (j + i - 1) do
              begin
                Buffer[k]:= StrToInt('$' + Copy(Str,1,2));
                Delete(Str,1,2);
              end;
            end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if not ComPort.Connected then
ComPort.Open;
comport.WriteStr(#2#0);
end;
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
Str: String;
begin
 ComPort.ReadStr(Str, Count);
 if length(Str)>= 8 then
 ShowMessage('OK')
 else if Str = #1 then  begin
   case Cuantos of
   1: begin     //poner el chip en prog..
ComPort.WriteStr(#2#2);
   Cuantos := 2;
 end;
   2: begin //comando para borrar.
     ComPort.WriteStr(#2#3);
       Cuantos := 3;
   end;
    3: begin //Modo Borrar
    showmessage('Chip Borrado.. OK!')
 end;
    4: begin //poner el chip en prog..
         ComPort.WriteStr(#2#2);
          Cuantos := 5;
      end;
    5: begin // Comando para escribir el chip(06 04 00 00 10 00)
         ComPort.WriteStr(#6#4#0#0#16#0);
            sleep(100);
             ComPort.Write(Buffer[1],1);
               Contador := 2;
      end;
     end;
     end
         else if Str = #2 then begin
         end
           else if Str = #83 then begin
               if contador <= 4096 then begin
                 ComPort.Write(Buffer[Contador],1);
                Inc(Contador);
     end;
     end;
     end;
 //Aqui comienza el procedimiento para borrar el chip
procedure TForm1.Button1Click(Sender: TObject);
begin
 if not ComPort.Connected then
  ComPort.Open;
 comport.WriteStr(#4#1#0#1);
   Cuantos := 1;
    end;
 //Aqui comienza el procedimiento para escribir el chip
procedure TForm1.Button2Click(Sender: TObject);
begin
 if not ComPort.Connected then
  ComPort.Open;
 comport.WriteStr(#4#1#0#1);
  Cuantos := 4;
end;
procedure TForm1.Button3Click(Sender: TObject);
  var
  i,j: Integer;
  Str: String;
begin
 if OpenDialog1.Execute then
Label1.caption:=OpenDialog1.FileName;
  Memo1.Clear;
  with TStringList.Create do
  try
    LoadFromFile(Label1.Caption);
    FillChar(Buffer,Sizeof(Buffer),#0);
    for i:= 0 to Count - 1 do
      Insertar(Strings[i],Buffer);
     j:= StrToInt(Label2.caption);
     Str:= EmptyStr;
       for i:= 0 to j -1 do
      begin
   Str:= Str + #32 + IntToHex(Buffer[i],2);
      if ((i+1) mod 16 = 0) then
    begin
        Memo1.Lines.Add(Str);
        Str:= EmptyStr;
      end;
    end;
     if Str <> EmptyStr then
      Memo1.Lines.Add(Str);
  finally
    Free;
  end;
end;
end.

Ya la declare general y me dice que esta indefinida?

jajajajajajaja

[JoseFco]

La quite del general y la declare en donde estaba y donde comienza el procedimiento de escribir el chip.
Esta trabajando y programando.Pero el buffer esta lleno de 00 es todo lo que manda.

Como la vez?

Un Saludo.

[JoseFco]

Empezado por egostar

Y si intentas con esto amigo Jose


Código Delphi [-]
5: begin // Comando para escribir el chip(06 04 00 00 10 00)
ComPort.WriteStr(#6#4#0#0#16#0);
sleep(100);
ComPort.Write(Buffer[1],1);
Contador := 2;
end;
end;

else if Str = #83 then begin
if contador <= 4096 then begin
ComPort.Write(Buffer[Contador],1);
Inc(Contador);
end;
end;
end;





Salud OS

Esta ultima con algunas modificaciones esta trabajando bien.

Gracias y un Saludo.