Hi Bruce,
in this application I am using C6 9046 and NetTalk 4.57 9049
This is part of the code:
! data
peticiones queue,pre(Pet)
IP cstring (NET:IPStringSize+1)
OnSocket NET:SocketType
SockID long
okfull byte
detalle string(524288) ! contiene los detalles de la peticion:
! tipo y los datos de consulta o actualizaciĆ³n
end
! in Process
of NET:SimpleWholeDataPacket
!-------------------------------------
! We received a whole packet
up:ip = self.packet.Fromip
up:onsocket = self.packet.OnSocket
up:SockID = self.packet.SockID
clear(pet:detalle)
if (self.WholePacketQueue.WholeBinDataLen) > MaxStringSize
pet:detalle = self.WholePacketQueue.WholeBinData [1 : MaxStringSize - 11 - self.WholePacketQueue.WholeBinDataLen]
else
pet:detalle = self.WholePacketQueue.WholeBinData [1 : self.WholePacketQueue.WholeBinDataLen]
end
.....
! en error trap
PARENT.ErrorTrap(errorStr,functionName)
! [Priority 7500]
struerrenv = errorstr
cerrenv += 1
Actualizalog(clip(errorstr),0,'NetTalk')
....
Thank you
regards