unit2.pas

来自「本目录内所有代码仅作指导用户编程之用,用户如果要作为 商业用途,建议使用正版软」· PAS 代码 · 共 70 行

unit Unit2;

interface

uses
  Classes,Unit_dll;

type
  TBlockReadth = class(TThread)
  private
    { Private declarations }
    dr:data_record;
    procedure ProcessData;
  protected
    procedure Execute; override;
  end;

var
  brth: TBlockReadth;

implementation

uses unit1;

{ Important: Methods and properties of objects in VCL or CLX can only be used
  in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TReadth.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TReadth }

procedure TBlockReadth.Execute;
var
    p:PChar;
    bAnswer:Boolean;
begin
    GetMem(p,512);

    if form1.ckAnswer.Checked then
        bAnswer:=true
    else
        bAnswer:=false;

    while (not Terminated) do
    begin
      if (do_read_proc(dr,p,bAnswer)>=0) then
        begin
          if dr.m_data_len > 0 then
            Synchronize(ProcessData)
          else if (dr.m_data_type = 1) or (dr.m_data_type = 2) then
              Synchronize(form1.PollUserTable);
        end;
    end;
    FreeMem(p,512);
end;

procedure TBlockReadth.ProcessData;
begin
  form1.ProcessData(dr);
end;

end.