Valeur de passage pour synchroniser le fil

Synchroniser ne prend qu'une procédure sans paramétrage, car je suis sûr que vous avez bien compris. Cela signifie que vous devez utiliser des propriétés que vous obtenez du fil principal afin de faire certaines choses avec elle. Par exemple, mon objet de thread est nommé moniteur: xxx

Alternativement, vous passez des messages sur le fil principal, mais ceci est un moyen rapide de la pincée pour le faire.

Regardez les différentes déclarations de tthread.synchroniser () code>. Vous essayez d'appeler la version qui prend un tthreadmethod code> comme entrée. tthreadmethod code> est le paramètre moins: xxx pré>

c'est pourquoi en passant juste t.proc code> fonctionne mais qui passe t.proc (' foo ') code> ne le fait pas. p>

avec celui-ci, vous êtes complètement fort> abusant tthread.synchroniser () code>. Vous n'avez pas besoin de créer un objet tthread code> afin d'utiliser la version statique de synchroniser () code>. Et si vous créez un objet tthread code>, faites-le faire quelque chose, comme ceci: p> xxx pré>

Cependant, car vous utilisez XE4, Synchroniser () Code> prend également en charge également les procédures anonymes, ce qui éliminerait complètement votre classe tsendthread code> dans cet exemple, par exemple: p> xxx pré>

Mise à jour forte>: donnée de nouvelles informations sur ce que vous voulez vraiment faire avec votre fil, vous devez y aller comme ceci à la place: p>

type
  TSendThread = class(TThread)
  private
    fURL, fMethod, fParam: string;
    procedure GetValues;
  protected
    procedure Execute; override;
  end;

procedure TSendThread.GetValues;
begin
  fURL := ...;
  fMethod := ...;
  fParam := ...;
end;

procedure TSendThread.Execute;
begin
  Synchronize(GetValues);
  // use fURL, fMethod, and fParam as needed...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  t : TSendThread;
begin
  t := TSendThread.Create(False);
  ...
end;