TApdDatapacket dynamische Größe

[Uwe Raabe]

Ohne das jetzt ausprobiert zu haben:

Datapacket1:

Delphi-Quellcode:

Enabled := true;
StartCond := scString;
StartString := 'ABC';
EndCond := ecPacketSize;
PacketSize := <1 oder 4, je nachdem ob StartString mitgezählt wird>

DataPacket2:

Delphi-Quellcode:

Enabled := false;
StartCond := scAnyData;
EndCond := exPacketSize;
PacketSize := 0;

DataPachet1 OnPacket-Event:

Delphi-Quellcode:

DataPacket2.PacketSize := <was auch immer in dem Byte steht>
DataPacket2.Enabled := true;
DataPacket1.Enabled := false;

DataPachet2 OnPacket-Event:

Delphi-Quellcode:

<das Packet verarbeiten>
DataPacket2.Enabled := false;
DataPacket1.Enabled := true;