Threads

Her er lidt kode jeg bruger til at checke for ny program version:

type
  TUpdateCheckThread = class(TThread)
  private
    { Private declarations }
        FHttp : string;
    IdHTTP : TIdHTTP;
  protected
    procedure Execute; override;

  public
      Version : string;
    constructor Create(Http : string);
//    destructor Destroy; override;
  end;

// **************************************************************************************************
{ TUpdateCheckThread }

constructor TUpdateCheckThread.Create(Http : string);
begin
    inherited Create(False);
  FHttp:=Http;
    FreeOnTerminate:=true;
  Version:='Error';
end;

procedure TUpdateCheckThread.Execute;
begin
    try
        IdHTTP:=TIdHTTP.Create(nil);
        IdHTTP.ReadTimeout:=15000;
        IdHTTP.AllowCookies:=false;
        Version:=IdHTTP.Get(FHttp);
    finally
        IdHTTP.Free;
    end;
end;

// **************************************************************************************************
{ THKUpdateCheck }

.
.

Oprettes således i mail form:

TUpdateCheckThread.Create(FHttp).OnTerminate:=UpdateCheckThreadDone;
.
.
procedure THKUpdateCheck.UpdateCheckThreadDone(Sender: TObject);
var
    Version : string;
begin
    Version:=(Sender as TUpdateCheckThread).Version;

  if Version<>'Error' then
.
.

end;

Der skal jeg nok lige have lidt mere hjælp...

Jeg er med på at du laver en public string, som du så vil sætte en værdi på.

Men hvordan oprettes threaden?

Hvis du måske kunne lave et eksempel med en thread som bare laver stringen test := 'indhold'?

Kan desværre ikke rigtig finde rundt i det eksempel du har givet

Her er et fungerende eks. der henter siden www.google.dk hver 10. sekund og smider teksten i en Memo.

Smid en TMemo og en TTimer på en form.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Timer: TTimer;
    procedure TimerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure HentSideThreadDone(Sender: TObject);
  end;

    THentSideThread = class(TThread)
  private
    { Private declarations }
    FHttp : string;
    IdHTTP : TIdHTTP;
  protected
    procedure Execute; override;

  public
    Indhold : string;
    constructor Create(Http : string);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TUpdateCheckThread }
constructor THentSideThread.Create(Http : string);
begin
    inherited Create(False);
    FreeOnTerminate:=true;
  FHttp:=Http;
  Indhold:='Error';
end;

procedure THentSideThread.Execute;
begin
    try
      IdHTTP:=TIdHTTP.Create(nil);
    IdHTTP.ReadTimeout:=15000;
    IdHTTP.AllowCookies:=false;
    Indhold:=IdHTTP.Get(FHttp);
  finally
      IdHTTP.Free;
  end;
end;
{ THKUpdateCheck }

procedure TForm1.HentSideThreadDone(Sender: TObject);
begin
  Memo1.Lines.Text:=(Sender as THentSideThread).Indhold;
    Timer.Enabled:=true;
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
    Timer.Enabled:=false;
    THentSideThread.Create('http://www.google.dk').OnTerminate:=HentSideThreadDone;
end;

end.

Husk at sætter Interval på TTimer til 10000

Det er jo perfekt. smid et svat

Og svar