Forum > Spanish

Enviar, recibir datos de un servidor

<< < (2/2)

mav:
Hola buenas noches, ya lo conseguí:   :) :)

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---   // añadido un uses : sysutils   var  //recvbuf: array[0..DEFAULT_BUFLEN] of byte; cambié el array a char ,el mismo tamaño   recvbuf: array[0..DEFAULT_BUFLEN] of Char;    // unas variables mas  i, j, k : string ;  suma1, suma2 : integer;  HH,MM,SS,MS  : WORD ;        .................................  // y por último este code:         i:= Copy( recvbuf , 1, iResult);        WriteLn(i);         j:= Copy( i, 1, 2);        k:= Copy( i, 3, 4);         DecodeTime(Time,HH,MM,SS,MS);  //por esto el sysutils         suma1             := StrToInt(j) xor HH ;         suma2             := StrToInt(k) xor MM ;         recvbuf           := IntToStr( suma1 + suma2) ;                                           //..y funcionando Saludos y gracias

Navigation

[0] Message Index

[*] Previous page