12 respuestas en este tema

[enecumene]

Pues eso, por primera vez estoy trabajando con hilos (TThread), llevo lo siguiente:

delphi

unit DDownloader;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, zkemkeeper_TLB, XPMan, ComCtrls, StdCtrls;
 
type
  TFMain = class(TForm)
    Label1: TLabel;
    lbNetAddress: TLabel;
    Label4: TLabel;
    lbStatus: TLabel;
    Label6: TLabel;
    lbDevStatus: TLabel;
    Label8: TLabel;
    lbTotalDatos: TLabel;
    Label2: TLabel;
    lbPercent: TLabel;
    Label3: TLabel;
    lbModel: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    pbProgreso: TProgressBar;
    sbInfo: TStatusBar;
    XPManifest1: TXPManifest;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  TDataDown = class(TThread)
  private
    { Private declarations }
    DevID: Integer;
    ZK: TCZKEM;
    strFirmWare: WideString;
    Connected: Boolean;
    FPercent: WideString;
  protected
    procedure Execute; override;
    procedure MostrarProgreso; override;
  public
    { Public declarations }
    IPAddress: WideString;
  end;
 
var
  FMain: TFMain;
 
implementation
 
{$R *.dfm}
 
procedure TDataDown.Execute;
var
  i: Integer;
  dwEnrollNumber,dwModel: widestring;
  dwYear,dwMonth,dwDay,dwHour,dwMinute,dwSecond: Integer;
  dwVerifyMode,dwInOutMode,dwWorkCode: integer;
  s: string;
  f: TFileStream;
  Data: TStringList;
  Connect: Boolean;
  ErrorCode: Integer;
  Fecha: TDateTime;
begin
  Connect := ZK.Connect_Net(IPAddress,4370);
  DevID := 1;
  ZK.GetFirmwareVersion(DevID, strFirmWare);
  ZK.GetProductCode(DevID,dwModel);
  FMain.lbModel.Caption := dwModel;
  FMain.sbInfo.Panels[1].Text  := 'Firm Version: '+strFirmWare;
  if Connect then Begin
    Connected := True;
    FMain.lbDevStatus.Caption :=  'Activo';
    Data  := TStringList.Create;
    f := TFileStream.Create(ExtractFilePath(Application.ExeName)+ FormatDateTime('yy-mm-dd',Now)+'.D1', fmOpenWrite or fmCreate);
    try
    Data.Clear;
    FMain.lbStatus.Caption  :=  'Trabajando...';
    if ZK.ReadAllGLogData(DevId) then
    while ZK.SSR_GetGeneralLogData(DevId,dwEnrollNumber,dwVerifyMode,dwInOutMode,
                                  dwYear,dwMonth,dwDay,dwHour,dwMinute,dwSecond,dwWorkCode) do
    begin
      ShortDateFormat := 'yyyy/mm/dd';
      ShortTimeFormat := 'hh:mm';
      TimeSeparator := ':';
      DateSeparator := '/';
      Fecha := StrToDateTime(IntToStr(dwYear)+'/'+IntToStr(dwMonth)+'/'+IntToStr(dwDay)+' '+IntToStr(dwHour)+':'+IntToStr(dwMinute));
      s := format('%.*d',[7,StrToInt(dwEnrollNumber)])+'>'+FormatDateTime('yyyy/mm/dd', Fecha)+':'+FormatDateTime('hh:mm', Fecha) + Char(#13) + Char(#10);
      Data.Add(s);
    end;
 
  if (Data.Count > 0) then
    begin
 
    FMain.lbTotalDatos.Caption  :=  IntToStr(Data.Count);
    FMain.pbProgreso.Max  :=  Data.Count;
 
    for I := 0 to Data.Count - 1 do begin
      if Terminated then Exit;
      FPercent := FloatToStr((Data.IndexOf(Data.Strings[i]) * 100) / Data.Count)+'%';
      f.WriteBuffer(Data.Strings[i][1], Length(Data.Strings[i]));
      Synchronize(MostrarProgreso);
    end;
  end else ShowMessage('No Hay datos que descargar!.');
      
    finally
      Data.Free;
      f.Free;
      Connected :=  False;
    end;
  End else begin
    Connected :=  False;
    ZK.GetLastError(ErrorCode);
    FMain.lbDevStatus.Caption := 'Inactivo';
    FMain.lbStatus.Caption  := 'Esperando...';
    FMain.lbTotalDatos.Caption  :=  '0';
    ShowMessage('Ha Ocurrido un Problema!. Error No.: '+IntToStr(Errorcode));
  end;
  FMain.lbTotalDatos.Caption  :=  '0';
  FMain.lbStatus.Caption := 'Esperando...';
  FMain.lbDevStatus.Caption :=  'Inactivo';
  ZK.Disconnect;
end;
 
procedure TDataDown.MostrarProgreso;
begin
  FMain.lbPercent.Caption := FPercent;
end;
 
end.

Como verán TDataDown es el hilo que estoy creando y ella tiene dos métodos, Execute y MostrarProgreso, pues bien, al querer compilar el proyecto me da el siguiente error:

delphi

[Error] DDownloader.pas(45): Method 'MostrarProgreso' not found in base class

Donde estoy fallando???

Saludos.

[seoane]

El problema es que estas usando "override" en un método que no esta declarado en la clase "padre", simplemente elimina la directiva override de la declaración de MostrarProgreso

Es decir, lo correcto sería:

delphi

TDataDown = class(TThread)
  private
    { Private declarations }
    DevID: Integer;
    ZK: TCZKEM;
    strFirmWare: WideString;
    Connected: Boolean;
    FPercent: WideString;
  protected
    procedure Execute; override;
    procedure MostrarProgreso; // Eliminamos el override
  public
    { Public declarations }
    IPAddress: WideString;
  end;

[enecumene]

Gracias seoane, en efecto ese era el problema, gracias , ahora me falta ejecutar esa clase desde un button, hice lo siguiente:

delphi

procedure TFMain.Button3Click(Sender: TObject);
begin
  TDataDown.Create(False);
end;

pero me causa el siguiente error:

delphi

---------------------------
Debugger Exception Notification
---------------------------
Project PDownloader.exe raised exception class EAccessViolation with message 'Access violation at address 004618BA in module 'PDownloader.exe'. Read of address 000002F0'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

Cual es la forma correcta de llamar esa clase??

Saludos.

[seoane]

El problema no es del thread, yo mas bien creo que el problemas esta en que no creas en ningún sitio el objeto "ZK: TCZKEM", por eso al usarlo en la primera linea del execute te da un error.

[enecumene]

El problema no es del thread, yo mas bien creo que el problemas esta en que no creas en ningún sitio el objeto "ZK: TCZKEM", por eso al usarlo en la primera linea del execute te da un error.

Ah caray, que wey soy, en efecto se me ha olvidado crear "ZK" en algún lado , de nuevo, muchas gracias .

PD. Aún no doy por terminado el tema

Saludos.

[seoane]

Pues ya que esta revisando el código recuerda que desde el thread no puedes acceder a los componentes visuales sin usar el synchronize, asi que todos esos "FMain...." fuera del execute 

[enecumene]

mmm, lo que pasa es que esos componentes visuales pertenecen a la Clase TFMain, de todos modos así como está me acaba de funcionar perfectamente.

Saludos.

[seoane]

mmm, lo que pasa es que esos componentes visuales pertenecen a la Clase TFMain, de todos así como está me acaba de funcionar perfectamente.

Saludos.

Que funcione bien, ahora, no quiere decir que este bien. El cualquier momento puede haber una "colision" entre el hilo principal donde están esos componentes y el thread. Tienes que meter todo eso dentro de un metodo del thread y usar synchronize.

[enecumene]

Que funcione bien, ahora, no quiere decir que este bien. El cualquier momento puede haber una "colision" entre el hilo principal donde están esos componentes y el thread. Tienes que meter todo eso dentro de un metodo del thread y usar synchronize.

No acabo de entender esa última parte, me podrías un simple ejemplo si es posible?.

Saludos.

[Rolphy Reyes]

Saludos.

Amigo si tienes las JEDI instaladas, puedes usar el componente TJvThread más algunos que este necesita para sincronización y demás.

[enecumene]

Saludos.

Amigo si tienes las JEDI instaladas, puedes usar el componente TJvThread más algunos que este necesita para sincronización y demás.

Gracias amigo Rolphy, ya las conocía, pues las tengo instaladas, pero en este caso trato de evitar el uso de componentes de terceros .

Saludos.

[Kipow]

Proba ejecutar 2 veces tu codigo y seguro falla, el synchronize te ayuda a evitar eso por eso toda utilizacion de la VCL debe de ser llamada dentro de un procedimiento con synchronize para evitar la colision ya que las vcl no son theadsafe. Me imagino que la idea de hacerlo con threads es para realizar descargas simultaneas?

[enecumene]

Proba ejecutar 2 veces tu codigo y seguro falla, el synchronize te ayuda a evitar eso por eso toda utilizacion de la VCL debe de ser llamada dentro de un procedimiento con synchronize para evitar la colision ya que las vcl no son theadsafe. Me imagino que la idea de hacerlo con threads es para realizar descargas simultaneas?

Hola Kipow, no es simultáneas ya que se realiza una sola vez, la idea de hacerlo con hilos es que al realizar descargas de muchos datos (2,000 a 4,000 registros) la aplicación queda congelada y da la impresión que está fallando, ahora con Hilos he resuelto ese problema, Pero de todos modos gracias por el TIP lo tomaré en cuenta en caso de que haya descargas simultáneas.

Saludos.