Und nochmal ne Frage zu Streams...

[janjan]

@Sharky:

Danke für den Vorschlag, sowas in die Richtung hab ich mir auch gedacht, aber das ist alles irgendwie hingebastelt, ich suche eine 'richtige' Lösung für das Problem.

@Luckie:
Das sieht schonmal gut aus, aber so ganz verstehe ich das noch nicht. In Delphi gibts es ja ein entsprechendes Objekt namens TCriticalObject, aber irgenwie gibts da wenig Infos zu.

Bei mir im Quelltext sieht es z.Z. so aus:

Delphi-Quellcode:

var
  DateiStream:  TFileStream;
  MemoryStream: TMemoryStream;
  CS: TCriticalSection;
  {...}
CS:= TCriticalSection.Create;

...

Delphi-Quellcode:

procedure TForm1.SpeicherTimerTimer(Sender: TObject);
begin
  MemoryStream.SaveToStream(DateiStream);
  MemoryStream.Clear;
end;

Und dann gibts da noch ein paar Routinen die die Daten in den MemoryStream schreiben:

Delphi-Quellcode:

// Paket1 wurde empfangen
procedure TForm1.Paket1StringPacket(Sender: TObject; Data: String);
begin
  Paket1:= data;
  MemoryStream.WriteBuffer(data[1],Length(data));
  {...}
end;

// Paket2 wurde empfangen
procedure TForm1.Paket2StringPacket(Sender: TObject; Data: String);
begin
  Paket2:=data;
  MemoryStream.WriteBuffer(data[1],Length(data));
  {...}
end;

Die PaketEmpfangsRoutinen werden von TApdDataPacket-Komponenten aus der Async Sammlung aufgerufen. das passiert immer dann, wenn die Paketkomponente am Com-Port ein vorher eingestelltes Paket entdeckt.


So wie ich das jetzt verstanden habe muss ich das CS.Acquire und das CS.Release einmal in die Paket-Routinen und einmal in das TimerEreignis einbauen, stimmt das so?