Tråde + synchronize

hvis labelsene skal opdateres bliver du nødt til at køre
label.refresh;
eller
label.repaint;
eller
label.update

kan ikke huske hvad for een det er

Form1 blocker jo stadigvæk til min tråd er færdig, kan man ik fjerne det ?

oh, well, det virker, selvom form1 blocker "delvis" dvs. den lagger på en underlig måde :)

Hvis du keder dig, må du da gerne paste en fix, ellers er det sku ligemeget ;)

Du skal gøre sådan her

unit Unit2;

interface

uses
  Classes, SysUtils;

type
  MinThread = class(TThread)
  LabCaption: String;
  procedure SetLabelPaaHovedForm;
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

uses Unit1;

procedure MinThread.Execute;
begin
  LabCaption:= 'Start';
  Synchronize(SetLabelPaaHovedForm);
  //Din Kode ind her
  sleep(1000);
  LabCaption:= 'Slut';
  Synchronize(SetLabelPaaHovedForm);
end;

procedure MinThread.SetLabelPaaHovedForm;
begin
  Form1.Label1.Caption:= LabCaption;
end;

end.

Så jeg skal kun synchronize de linjer der har med form1 at gøre ?

Nej du skal synchronize den procedure som skriver til form1

Hvis du ligger din mail adr. kan jeg sende dig eksemplet

mora@ready.dk :)

Har lavet det sådan her nu.
- Det virker ihvertfald :)


unit Unit3;

interface

uses
  Classes, SysUtils;

type
  CRCThread = class(TThread)
  private
    { Private declarations }
    procedure doCRC();
    procedure getfilename();
    procedure abad();
    procedure amissing();
    procedure updateform();
    procedure done();
  protected
    procedure Execute; override;
  end;

implementation
uses Unit1, CRC;

{ CRCThread }

var
filename, path, crc1, crc2, str:string;
good,bad,missing,pathdelim : integer;

procedure CRCThread.abad();
begin
  Form1.Richedit1.Lines.Add(str+' BAD');
  Form1.Memo3.Lines[0]:=filename+'.BAD';
  Form1.Memo3.Lines.SaveToFile(path+filename+'.BAD');
end;

procedure CRCThread.amissing();
begin
  Form1.Richedit1.Lines.Add(str+' MISSING');
  Form1.Memo3.Lines[0]:=filename+'.MISSING';
  Form1.Memo3.Lines.SaveToFile(path+filename+'.MISSING');
end;

procedure CRCThread.updateform();
begin
//Update status on Form1
Form1.total.Caption:='Checked : '+IntToStr((missing+good+bad));
Form1.bad.Caption:='BAD : '+IntToStr(bad);
Form1.good.Caption:='GOOD : '+IntToStr(good);
Form1.missing.Caption:='MISSING : '+IntToStr(missing);
Form1.total.Update;
Form1.bad.Update;
Form1.missing.Update;
Form1.good.Update;
Form1.RichEdit1.Update;
Form1.RichEdit2.Update;
Form1.Update;
end;

procedure CRCThread.doCRC();
begin
filename:=copy(str,0,pos(' ',str)-1);
crc1:=Lowercase(copy(str,pos(' ',str)+1,length(str)));
if fileexists(path+filename) then
begin
  crc2:=Lowercase(CRC.GetCRC32(path+filename));
  if crc1<>crc2 then
  begin
  inc(bad);
  Synchronize(abad);
  end
  else
  if fileexists(path+filename+'.BAD') then
  DeleteFile(path+filename+'.BAD');
  if fileexists(path+filename+'.MISSING') then
  DeleteFile(path+filename+'.MISSING');
  inc(good);
end
else
begin
  inc(missing);
  Synchronize(amissing);
end;
Synchronize(updateform);
end;


procedure CRCThread.getfilename;
begin
filename:=Form1.filename;
Form1.RichEdit2.Lines.LoadFromFile(filename);
end;

procedure CRCThread.done();
begin
Form1.Statusbar1.simpletext:='Done';
end;

procedure CRCThread.Execute;
var
i:integer;
begin
good:=0;
missing:=0;
bad:=0;
Synchronize(getfilename);
pathdelim := LastDelimiter('\\',filename);
path:=copy(filename,0,pathdelim);
filename:=copy(filename,pathdelim+1,length(filename));
for I:=0 to Form1.RichEdit2.lines.count-1 do
begin
  str:=Form1.RichEdit2.Lines[i];
  if ((pos(';',str)=0) and (str<>'')) then
  doCRC;
end;
Synchronize(done);
Terminate;
end;

end.