Some remarks:
As Francois said, you need to check you received all the data. Your code
don't check if RcvdSize is equal to your record data size.
Why you need to copy the memory? If you are going to use it locally, at
that procedure, just point your different records Data pointers to the
Rcvd buffer.
And why you don't use only one record, with variant part?
TEmployee = record
FirstName, LastName: string[40];
BirthDate: TDate;
case Salaried: Boolean of
True: (AnnualSalary: Currency);
False: (HourlyWage: Currency);
end;
RTT
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
