Hallo,
ich habe mich in letzter Zeit mit Threads beschäftigt und bekomme diese auch ohne Probleme zum laufen.
Das aber nur wenn meine Funktion keine Parameter erwartet. ich weiß nicht wie ich das lösen soll.

Mein Code:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Function Test (a: Integer): Integer;
begin
  ShowMessage(IntToStr(a));
  Result := a;
end;



procedure TForm1.FormCreate(Sender: TObject);
var ID: Cardinal;
    Handle: THandle;
begin
  Handle := BeginThread(nil, 0, @Test(20), nil, 0, ID); //geht nicht
  Handle := BeginThread(nil, 0, (@Test(20)), nil, 0, ID); //geht auch nicht
end;

end.

Ich komm einfach nicht drauf

Hast du dir mal angeschaut, was die einzelnen Parameter für BeginThread bedeuten?

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  PInteger = ^Integer;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Function Test (a: PInteger): Integer;
begin
  ShowMessage(IntToStr(a^));
  Result := a;
end;



procedure TForm1.FormCreate(Sender: TObject);
var ID: Cardinal;
    Handle: THandle;
    I: Integer;
begin
  I := 20;
  Handle := BeginThread(nil, 0, @Test, @I, 0, ID);
end;

end.

So sollte es laufen.

Ohh nein. Bitte keine Zeiger

Naja, danke

Zitat von implementation:

So sollte es laufen.

Vom Prinzip her schon, aber das @I als Parameter zu übergeben kann/wird in die Hose gehen.

uhm...ist bei BeginThread nicht der vierte Wert der Parameter?

markieren

Delphi-Quellcode:

....
var
 a: Integer ;
......

a := 20 ;

Handle := BeginThread(nil, 0, @Test,@a, 0, ID);

Edit:
implementation war wohl schneller

aber was wäre denn wenn ich mehr als ein Parameter angeben muss?
Der 5 Wert verlangt ja keinen Pointer, sondern einen Cardinalwert

Einen Integer könnte man auch ohne Pointer (also einfach nur gecastet) übergeben

Bei mehr ist halt ein Pointer auf einen Record oder ein Datenobjekt nötig.


Wenn du sowas nicht willst, dann verwende TThread und übergib die Daten als Property oder im .Create als Parameter.

@ Neutral General:
Wieso bitte? Was soll das Problem sein? Genau das ist es doch, was BeginThread erwartet: ein Zeiger auf den Parameter.

@Xerogon:
Dann bastelst du dir ein Record, das alle Werte enthält und übergibst es.

@himitsu:
Theoretisch möglich, aber bei andern Typen wirds damit schwieriger.
// Edit: bezog sich auf den Cast.

Naja, irgendwann muss ich mich eh mal mit Zeiger beschäftigen
Ich hasse das, keine Ahnung warum.

@implementation: Das Problem ist, dass "I" nach dem Aufruf von TForm1.FormCreate nichtmehr gültig ist und von da an im Thread nicht mehr zu gebrauchen ist.

@Xerogon: Hab Pointer früher auch gehasst. Aber wenn man mal den Bogen raus hat, sind Pointer was tolles. Ich arbeite gerne mit Pointern