Der Thread ist der einzige zusätzliche Thread neben dem Hauptprogramm.

"Test" wird im Hauptformular aufgerufen (bzw soll aufgerufen werden) und sieht so aus :

markieren

Delphi-Quellcode:

procedure TAdvNavForm.Test;
begin
  ShowMessage('TestThreadAufruf');
end;

Hab das probiert, bei mir läufts.
Das Meldungsfenster kommt.

Bei Dir nicht?
Zeig mal die ganze Unit.

zusammenfalten · markieren

Delphi-Quellcode:

unit UThreadCheckForNew;

interface

uses
  Classes,comctrls,sysutils,dialogs;

type
  TCheckForNewInPostkorbThread = class(TThread)
  private
   fNodeToCheck:string;
   procedure CheckForNew;
   procedure MarkNode;
    { Private-Deklarationen }
  public
   Liste:TStringList;
  protected
    procedure Execute; override;
  end;

implementation

uses navform;

{ TCheckForNewInPostkorbThread }

procedure TCheckForNewInPostkorbThread.checkfornew;
 var
  node:string;
  search:TDVSearch; // eigene Komponente die hier aber nichts zur Sache tut
  i : integer;
  res:integer;
begin
  search:=TDVSearch.Create(nil);
  for i:=0 to Liste.Count-1 do
   begin
    node:=trim(Liste.Strings[i]);
    res:=search.SRVSearch;
    if res <> 0 then
     begin
      factive:=false;
      MessageDlg('Es ist ein Fehler aufgetreten',mtError,[mbok],0);
      break;
     end;
    if search.Items.Count > 0 then
     begin
      fNodeToCheck:=node;
      Synchronize(markNode);
     end;
   end;
  search.Free;
end;

procedure TCheckForNewInPostkorbThread.Execute;
begin
  CheckForNew;
  Liste.Free;
end;


procedure TCheckForNewInPostkorbThread.MarkNode;
begin
 AdvNavForm.Test;
end;

end.

Der Fehler liegt wo anders...

Das kann nicht funktionieren weil...

markieren

Delphi-Quellcode:

procedure TCheckForNewInPostkorbThread.Execute;
begin
  CheckForNew;
  Liste.Free;
  // ... Du da raus fliegst
end;

So geht's:

markieren

Delphi-Quellcode:

procedure TCheckForNewInPostkorbThread.Execute;
begin
  While not Terminated do begin
     CheckForNew;
     Sleep(1000); // Verschnaufpause, damit der Thread nicht mit 100% CPU läuft.
     // Da fliegst Du nicht mehr raus
  end;

  Liste.Free;
end;

Das ich nach einem Durchlauf rausfliege ist momentan schon in Ordnung nur müsste die Methode "markNode" doch trotzdem einmal durchlaufen werden, oder?

Wenn "search.Items.Count>0" True ergibt schon.

Versuch mal ob's dann funkt: (search.Items.Count>0) or True
Dann weißt Du ob's generell funkt oder nicht.

Es ist größer 0. Wie gesagt, ich komme ja ohne Probleme bis ...

markieren

Delphi-Quellcode:

    if search.Items.Count > 0 then
     begin
      fNodeToCheck:=node;
        // ...hier !!
      Synchronize(markNode);
     end;

Nur danach ist dann Schluss. In "MarkNode" geht er nicht rein und in Synchronize auch nicht.

Wo hast Du die StringList her?

Die wird in dem Thread niergends erstellt.

Zeig auch mal die Unit navform.

Komplett ist die zu groß, aber hier mal die relevanten Teile:

zusammenfalten · markieren

Delphi-Quellcode:

unit NavForm;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, SHDocVw, ComCtrls, ImgList, ExtCtrls, MyFunct, uBase,
  uGroup, uDocumentType,vgbConstants,uconst, uRepository,vgbfunctions,usearch,
  main, uthreadcheckfornew;

type
  TAdvNavForm = class(TForm)
    // ...
    procedure FormCreate(Sender: TObject);
    procedure Test;
  private
   chkfrnw : TCheckForNewInPostkorbThread;
  end;

var
  AdvNavForm: TAdvNavForm;

implementation

uses logoform,global, DateUtils, UInfo;

{$R *.DFM}


procedure TAdvNavForm.FormCreate(Sender: TObject);
// ...
  chkfrnw:=TCheckForNewInPostkorbThread.Create(true);
  chkfrnw.Liste:=TStringList.Create;
  chkfrnw.Liste.Assign(vgbAvailablePostkoerbe); // vgbAvailablePostkoerbe ist eine bestehende Stringlist
// ...
  chkfrnw.Resume;
end;

procedure TAdvNavForm.Test;
begin
  ShowMessage('TestThreadAufruf');
end;

end.

Das sollte man nicht machen:

markieren

Delphi-Quellcode:

chkfrnw.Liste:=TStringList.Create;
chkfrnw.Liste.Assign(vgbAvailablePostkoerbe);

Besser wäre es, die StringListe als Parameter in der Create Methode des Threads zu übergeben, da sie sonst ein Teil des VCL Threads ist und aber ohne Synchronize in Deinem Thread verwendet wird.
Außerdem startet der Thread bevor/während/nachdem die Liste erstellt wird, dies ist eine potentielle Fehlerquelle.

PS: Wenn Du die StringListe aus dem Thread heraus vom VCL Thread Updaten mußt, nur über Synchronize.