Array of Bytes in TThreadlist oder TStringlist speichern

[Jackie1983]

hi,

möchte gerne die daten die ankommen in einen Thread abarbeiten. Dazu werde diese in einer Stringlist gespeichert. Nur wenn ich das erste element lösche meine ich das alle objekte in der stringliste gelöscht wurden, weil ich beim zweiten mal eine zugriffsverletzung bekomme.

Delphi-Quellcode:

var
  l : TStringList;
...
var
  len : integer;
  bytes : TBytes;
begin
  len := Socket.ReceiveLength;
  SetLength(bytes,len);
  Socket.ReceiveBuf(bytes[0],length(bytes));
  l.add('',bytes);
end;

vielleicht kann mir da jemand auf die sprünge helfen....

[thkerkmann]

Hi

speicher die Daten doch in einem String.
So wie Du das machst geht das nicht. Dein array of bytes ist ja nur lokal zu deiner Methode.
Beispiel:

Delphi-Quellcode:

var
  s: string;
  len: integer;
begin
  len := Socket.ReceiveLength;
  SetLength(s, len);
  Socket.ReceiveBuf(pChar(s)^,len);
  l.add(s);
end;

So werden die Daten in einen String der Stringliste übernommen.

Gruss

[Jackie1983]

danke für den tipp.
Hast du / jemand vielleicht noch eine idee wie ich die daten dann wieder
aus dem string löschen kann.

Delphi-Quellcode:

  while s <> '' do
  begin
    Move(PChar(s)^,MeinRecord,sizeof(TMeinRecord));
    Delete(s,0,Sizeof(TMeinRecord));
    ...

[Jackie1983]

:roll: habe es mit einem copy gemacht......

thx

[alzaimar]

Ich find das so nicht sauber, um nicht zu sagen grauenhaft.
:wall:


Definiere eine Klasse, die Deine Meßdaten aufnimmt, instantiiere ein Objekt in deiner Socket.Routine, übergib ihm die Bytes und speichere das Objekt in einer TThreadliste.

[Jackie1983]

habe es auch so gemacht. Habe die sourcen hier nur verkürzt.
Habe eine Threadklasse, der werden die daten übergeben, und dort werden die daten auch bearbeitet.