Thread und TStringlist

[mumu]

ich erstelle einen threads mit beginthread (nicht mit dem VCL Thread Object)

Delphi-Quellcode:

var
 _Param: PParam;

GetMem(_Param, SizeOf(TParam));
...
_thread_handle := BeginThread(nil,
                              0,
                              Addr(ThreadFunction),
                              _Param,
                              0,
                              id);

Delphi-Quellcode:

type
  TParam = record
    stringlist : TStringlist;
    ...
  end;
  PParam = ^TParam;

sobald ich jetzt ne stringlist in den Parametern zur Übergabe an den Thread einfüg, erhalte ich ne exception.

warum ist das so? und wie kann ich sonst mehrere strings an den thread übergeben?

danke schonmal

[x000x]

Moin moin,

Zitat:

Zitat von mumu

Delphi-Quellcode:

var
_Param: PParam;

GetMem(_Param, SizeOf(TParam));
...
_thread_handle := BeginThread(nil,
                              0,
                              Addr(ThreadFunction),
                              _Param,
                              0,
                              id);

... sobald ich jetzt ne stringlist in den Parametern zur Übergabe an den Thread einfüg, erhalte ich ne exception...

wie fügst du denn die Stringliste den _Param hinzu? Der Teil von deinem Post mit den Punkten interessiert hier,
denke mal, da ist der Fehler zu suchen.

[SirThornberry]

du gibst nach dem BeginThread aber nicht zufällig den Record wieder frei? Denn dann wäre er zu beginn des Thread eventuell schon wieder freigegeben. Und legst du eine Instanz der Stringliste an?

[alzaimar]

Du alloziierst Speicher, um einen Zeiger auf ein Objekt zu halten. Das Objekt selbst(die TStringList) wird gar nicht erzeugt. DA ist der Fehler.

Delphi-Quellcode:

var
_Param: PParam;

GetMem(_Param, SizeOf(TParam));
_Param^.Stringlist := TStringList.Create; // <---------------
_thread_handle := BeginThread(nil,
                              0,
                              Addr(ThreadFunction),
                              _Param,
                              0,
                              id);

[mumu]

hmm nee, allein schon, wenn ich gar nix mach, und die stringlist im record nil ist, krieg ich ne exception.

nur wenn ich aus dem record die stringlist rausnehm gehts. auch wenn ich absolut nix mit der mach.

[SirThornberry]

wie sieht denn deine Threadfunktion aus? vielleicht ist ja dort der fehler.

[mumu]

hmm lag doch nicht an der stringlist.

ich hab in meinem record nen string ohne längenangabe gehabt.

kann mir vielleicht jemand sagen, warum man unbedingt beim string die länge angeben muss, damit das hinhaut?

[Ultimator]

Naja, wenn du nicht angibst, welche Länge ein String hat, dann weißt du ja nicht, wieviel Speicher er belegt.
Also gibst du die maximale Zeichenzahl an, und je nachdem wie viele du wählst wird die benötigte Anzahl Bytes zur Speicherung verwendet. :)

[jbg]

Zitat:

Zitat von Ultimator

Naja, wenn du nicht angibst, welche Länge ein String hat, dann weißt du ja nicht, wieviel Speicher er belegt.

Das ist nicht das Problem, denn in diesem Fall wird ein AnsiString benutzt und der ist nur ein Zeiger.

Das eigentliche Problem ist, dass hier GetMem anstatt New (und wahrscheinlich FreeMem statt Dispose) aufgerufen wird. Dadurch wird dem Compiler die Möglichkeit genommen den AnsiString zu verwalten (dieser besitzt einen Referenzzähler den der Compiler verwaltet).

Delphi-Quellcode:

New(Param);