ReceiveText serversocket extenso

[ingabraham]

-buenas tardes

tengo un problema con la lectura en un socket, la cadena es muy extensa y no la obtengo completa.

Código Delphi [-]
procedure Tfrmmonitor.Socket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
 var lectura:string;
begin
    lectura :=socket.ReceiveText;
end;

delphi xe

componente : TServerSocket

[jeremiselxi]

Buenas tardes.

Que tan extenso es el string que estas enviando para recibir?

ya que lo que puedes hacer es algo parecido a esto.

Serversocket:

Código Delphi [-]

procedure TForm1.Button3Click(Sender: TObject);
var
cadena,subcadena1, subcadena2:string;

begin
cadena:='1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901  2345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901  234567890123456789012345678901234567890123456789';

if Length(cadena) >255 then
begin

    subcadena1:= copy(cadena,1,253);//253 porque se agregara dos valores para enviarlo al servidor.
    subcadena2:= copy(cadena,254,300);

    ServerSocket1.Socket.Connections[0].SendText('01'+subcadena1);

    ServerSocket1.Socket.Connections[0].SendText('02'+subcadena2);

end;
end;

y del lado del cliente puedes obtener esta información.

Código Delphi [-]
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
cadena1, cadena2: string;
begin

if (copy(Socket.ReceiveText,1,2)='01') then
cadena1:=Socket.ReceiveText;

if (copy(Socket.ReceiveText,1,2)='02') then
cadena2:=Socket.ReceiveText;

memo1.Lines.Add(cadena1);
memo1.Lines.Add(cadena2);
//memo1.Lines.Add(Socket.ReceiveText)
end;

[cesarsoftware]

Hola en lo que yo se, la cadena maxima en un socket es de 65536 bytes.
Puedes usar las funcione sendstream y recvstream (creo que se escriben asi) para recoger cualquier tamaño de cadena superiores a 65536

Un saludo.

[ingabraham]

gracias jeremiselxi,

el problema es que la cadena la envia un programa externo al que no tengo acceso. la cual contiene un xml

'NEURALÙÌ'#1#0
'<?xml version="1.0" encoding="utf-8"?><infoplate><DateHour>2015-07-07T14:16:56.703</DateHour><Plate>FPN753</Plate><Confidence>98,30993</Confidence><Country>Colombia</Country><CountryID>202</CountryID><ProcTime>67</ProcTime><CamID>0</CamID><ImageLeft>597</ImageLeft><ImageTop>472</ImageTop><ImageWidth>133</ImageWidth><ImageHeight>51</ImageHeight><Path>c:\tmp\imgs\874A8E0A-C8A6-4D6A-9360-ADB09A3FCD69\20150707\1416568547946-000000-93143-FPN753.jpg</Path><DirectionVector>0</DirectionVector><imgSize>87985</imgSize><img>/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAQABQADASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDzsKc08IalWPipVTA960AriMjtTghqyEp3lUAVtmacEOKsCPFO8ugkrhTio3i4+UYq5swKTZmpC5nFccUmyrzwAnioTHg4qgINoxTdg9Kn2UmypArMmTxUZUire0VGy80NgVyKaRUxGKYRQMjxSU8imkUAPTpT6ZH6VIR6UWAY/SsW7++/1rcbpWHd/wCsb60hmXL9+mVJKPnphpAA61bgqnVuCmBaB5r2225tIG/vRIf0FeICvbLA7tMtGPOYE/8AQRWn2bgWKaelOP5001AEbdajann71MNBQ2iloxQAUn4Ud6WgBjjNR9KnqNloAYOtIetL0pDUgRPSDk0r56Ui1QEgHapRTFqVaACmmnUlSBE/Sse/XEuB0xWy1ZuoL91vwoAx3HNZt/bkgSIPmU8j1FarjmoioPB6UFGAjA4IqUU2aI28xQ8rng460CgklFLTAT2pwosA8UopopRQA4U6mCnUAOFOFNFOFACinp1plOBqgJqWmjkU6pAKRhxTsUVQGdOhVye1LCe1TXCkqTUEfFAFoU7FNWn4oAZijFOpKkBhFJTzTaAG4puKfSUANpKfikxQFiFqcnK4oYURikBq6jdfaPD1nDcwERRyMgk3cHIBA9j8g/I1zLadMJdqjcvY5xXT6grTeAZ1Kj/R7mOTPfqw/wDZxXFJcTIuEldR6BjQ79CTXu5FtLUWsbZduX9hVKI5bFVN5JyxJJ6kmpY5AGoWgEbJ85UDvgVJ9jkKZ2HJqQbXdfciu6twPs0WRnCDrVXKPP8A7LIP4G/AZpphcHBUj6ivRDa2zjm3jOevy9aabG2brEPwJp3iI882MvXvSgt2rvX0e0fnYQfrUTaBaMuBgfVafujOJBYUvmEV1beF4Wzg9uxIqvJ4UbblWb/voGlyruBzwmPrUi3POC2PrWnL4YukAKgkHuVPH5Zqk+h30bAmIMowThuf1o5QsaVohWBd3B9KsYqJGMcYDRSggf3aX7TCPvNt/wB4YoAkwa6Hw3H5TSXR/wCWaE8+vb9cfnXOCaNiArqxPoa6vTB5ejlSBmRgOPbk/qF/OkHQkopMUuKkA7UYp2KB1oASilpaAExS4paKACilpaAG0opRSgc1Q7iYoxT8UYqRDKKk20Yqh3G0o6YpdtKBQFxtLinAUUEjcYpKfTcUFXG0U6igkbmm06igBvek6CnUdqAGUlOxSfzoKuN6UUtJ0oC43vSd6fSUBcZQacabQFxMCilxRQFyMjmjtTsZOBzSYwaBWEoxS0lA7iY4pKdSUBcbimkU+kxQFxlIaeRzSUBcjIpCDTyKTj1oC5HR2p1JQFxtFLijtQFxKKKKAuFFFFAXAUh60UGgkDSZpM0maCrlMQnHSpFiq2sJxmpBBxWhmVRF7UvlVc8nil8qkIp+V7Uvl8Vb8o0eUc0AUzF7Unl1cKZppj5oAqbBUbxgjpVwx81GY6kCgyAVEwrQkjBHvVZ0IHQdaAKpFMK1YZeKiI4oArstREVZZaiYUARkUwinkUwigByfexUpFQrw1TkHGaCiJ+lYl3kyufetxulYl3/rH+tIDLl+/UZqSX/WGozQAlW7eqlW7frQBZUV7RpR3aJp59baP/0EV4wK9j0A7/DunH/p3WtPsXAvnpTTTqaelQURt1ph6U9qZQA2ilooASil70UAJ3oIpeaKAIWGBTD0zU7LmoXGBQBE3WhRSGnJ1qQJFqUdKYtSDpVAIaaeBTyKafSkBE3IqreJutzntzVs9ahmXdGwHPBpAYTpg1ARzVyUEcGq5FBRn3tt58Rxwy8r9ay1OfqOCPSt9hmse9h8mbeOFb2oJIxTxUYp4oAcDSikFKDQA6lptLVAPFPFMFPFIBacOlIKUUXAkTpUtQp96pqQC0UUUARSKCvNUPuykdq0mGRiqE67ZM9sc/WmBMjZqXtVZDzVgdKVwCjtS0cgcVQDaSlpKkBtJTqSgBppKdim4oGNNIn3qUikTHmLn1oA2YIzceFdZiVkDCAuAepwQePwBrg/LNdzpUck7Xduqlt8Drge6kf1rjMcCmthWuQbWpBkNU5FQn79DYcpdtf9ag9TXdxDbGi4xhRXD2SFp4gOu6u5z2x0qQHinCmilFAD88Uo6U3t1pwoAfS02loC47ilwM59aKWgoZ5SE8op/CmNaQuNpTA9jU3OaWgkotpVqeibT7cVbgjEMQQEnHen0uKbdwFxS0UUgFopcUUAIKWlFFABijFKKOtABS4oAp4XigBMcU4LTgtSIKoCPaaXaam20u2gCHaaNtTbaTbQBFto21NtNG2gCDFBFSlaaVoER4pDTiOaQ0DG4op1NoAaRQaDRQA04pKWkoAKO1FHagBtJinnpTcUAN6UhpxpKAG4opaMcUANpPrTqSgBlFOo4oAZS07FJigBhFGD3p2KCKAGUlPxSEc0AMxSYp9NoAYQcUmKfikxQBGfxpKfSUAR0dqdikxQAlFLSUAJRRRQAhpppxptACUhooNAGoIfan+VV7yPanCHtg1ZmUPKOOlBjPpWgYajMZzQBT8o+lBj9queWMc00pUhYomP65pjIff0qyy801hxQBUK1GQassOtRFeTQBWZeahdQeKssKicc0AUZFIJGOKgYVfcAjmqsicUAVmqJutSt16VGw5oAhamGrZhVV+bnPYGqsgCn5elADc4q+FD6esij7p2k/yzWbya1dLjN1bXcC/eWPzAPUigZSfpWJd/6x/qa23PGaxLv/Wv/vUhmXL'...

[cesarsoftware]

¿Conoces el tamaño de la cadena en origen?
Si no puedes usar esta función e ir incrementado el buffer recibido

Código Delphi [-]
    if ioctlsocket(nSocket, FIONREAD , &InBuffer) = SOCKET_ERROR then
    begin
      case WSAGetLastError of
        WSANOTINITIALISED: ErrorString := 'A successful WSAStartup call must occur before using this function.';
        WSAENETDOWN: ErrorString := 'The network subsystem has failed.';
        WSAEINPROGRESS: ErrorString := 'A blocking Windows Sockets 1.1 call is in progress, or the service provider is still processing a callback function.';
        WSAENOTSOCK: ErrorString := 'The descriptor s is not a socket.';
        WSAEFAULT: ErrorString := 'The argp parameter is not a valid part of the user address space.';
      end;
      Break;
    end;
    if InBuffer > 65536 then // 64k es el maximo rendimiento y el tamaño del array
      InBuffer := 65536;     // el resto quedara para la siguiente lectura
    // para detectar desconexion, no se puede comprobar si hay algo en buffer
    rxLen := recv(nSocket, RxBuffer, InBuffer, 0);
    if (rxLen = SOCKET_ERROR) or (rxLen = 0) then
    begin
      case WSAGetLastError of
        WSANOTINITIALISED: ErrorString := 'A successful WSAStartup call must occur before using this function.';
        WSAENETDOWN: ErrorString := 'The network subsystem has failed.';
        WSAEFAULT: ErrorString := 'The buf parameter is not completely contained in a valid part of the user address space.';
        WSAENOTCONN: ErrorString := 'The socket is not connected.';
        WSAEINTR: ErrorString := 'The (blocking) call was canceled through WSACancelBlockingCall.';
        WSAEINPROGRESS: ErrorString := 'A blocking Windows Sockets 1.1 call is in progress, or the service provider is still processing a callback function.';
        WSAENETRESET: ErrorString := 'The connection has been broken due to the keep-alive activity detecting a failure while the operation was in progress.';
        WSAENOTSOCK: ErrorString := 'The descriptor is not a socket.';
        WSAEOPNOTSUPP: ErrorString := 'MSG_OOB was specified, but the socket is not stream-style such as type SOCK_STREAM, OOB data is not supported in the communication domain associated with this socket, or the socket is unidirectional and supports only send operations.';
        WSAESHUTDOWN: ErrorString := 'The socket has been shut down; it is not possible to receive on a socket after shutdown has been invoked with how set to SD_RECEIVE or SD_BOTH.';
        WSAEWOULDBLOCK: ErrorString := 'The socket is marked as nonblocking and the receive operation would block.';
        WSAEMSGSIZE: ErrorString := 'The message was too large to fit into the specified buffer and was truncated.';
        WSAEINVAL: ErrorString := 'The socket has not been bound with bind, or an unknown flag was specified, or MSG_OOB was specified for a socket with SO_OOBINLINE enabled or (for byte stream sockets only) len was zero or negative.';
        WSAECONNABORTED: ErrorString := 'The virtual circuit was terminated due to a time-out or other failure. The application should close the socket as it is no longer usable.';
        WSAETIMEDOUT: ErrorString := 'The connection has been dropped because of a network failure or because the peer system failed to respond.';
        WSAECONNRESET: ErrorString := 'The virtual circuit was reset by the remote side executing a hard or abortive close. The application should close the socket as it is no longer usable.';// On a UPD-datagram socket this error would indicate that a previous send operation resulted in an ICMP "Port Unreachable" message.';
      else
        ErrorString := 'Error Desconocido';
        if RxLen = 0 then
          ErrorString := 'Desconectado';
      end;
      Break;
    end
    else
    begin
      if RxLen > 0 then
      begin
        ErrorString := '';
        Synchronize(recibido);
      end;
    end;

Un saludo.