Create nrDataprocessor without visual component

[Arne]

Hello,
I usually drag&drop TnrComm and TnrDataProcessor objects onto my form and create enough data-packets via the object inspector.
Now I need to do this in a TTHread class that has no form.
So I do:

Code Select Expand


nrComm := TnrComm.Create(nil);
nrDataProcessor := TnrDataProcessor.Create(nil);
nrComm.DataProcessor := nrDataProcessor;


Now I want to create enough space for the data-packets.
How shall I do this. I'm a bit puzzled with TCollection, TCollectionItem and so on.

Code Select Expand


nrDataPacket := TnrDataPacket.Create(???);


What I usually do when I can use drag&drop for the TnrDataProcessor is something like:

Code Select Expand


nrDataProcessor.DataPackets[0].Caption       := 'Login';
nrDataProcessor.DataPackets[0].PacketBegin   := #$3A + #$00;
nrDataProcessor.DataPackets[0].PacketLength  := 5;
nrDataProcessor.DataPackets[0].Active        := True;


bye, Arne

[Roman Novgorodov]

Hello

Hmmm .... you can try something like following:

Code Select Expand

  with nrDataProcessor1.DataPackets.Add do begin
      PacketBegin := 'Zzzz';
      PacketLength := 22;
      Active := true;
  end;



Roman Novgorodov
DeepSoftware llc