Hallo Anton,
TMeldung habe ich nach cncDataTypes verschoben.
Die TInMessageQueue hat einen generischen Type TMeldung.
Delphi-Quellcode:
saetze_holen := saetze_holen + 1;
LongInt_NCByte(saetze_holen,toSend[1],toSend[2],BufByte);{Satz-Nr ablegen}
//New(SendDataRecord2);
//SendDataRecord2^.Data := toSend;
//SendDataRecord2^.ThreadID := GetCurrentThreadID;
//SendDataRecord2^.DataLength := Length(toSend);
//fOutMessageQueue.Enqueue(SendDataRecord2^.Data);
// oder
fOutMessageQueue.Enqueue(toSend);
//PostThreadMessage(Threadinfo.ThreadId,TTH_MESSAGE,TTH_SEND,Integer(SendDataRecord));
Grüße
Klaus
Wenn toSend als Parameter verwendet werden kann, spart das die