Hi,
Please look at the code below.
.
.
.
try
try
Query.Open;
OnDataSent := DataWasSent;
// DataWasSent sets SentOk to True
while not Query.EOF do
begin
Rec:= PrepareRec(true);
Hi Wilfried,
I've changed the code to this:
in tha main function:
.
Rec := PrepareRec(true);
Rec.AllDist := Rec.AllDist - Dist;
Rec.count := RecCount;
Send(@Rec, SizeOf(TRec));
Query.Next;
repeat
Hello Ionut,
Change it like this:
in the main function:
.
Rec := PrepareRec(true);
Rec.AllDist := Rec.AllDist - Dist;
Rec.count := RecCount;
Send(@Rec, SizeOf(TRec));
Query.Next;
.
in OnDataSent: