Forum Post: RE: http socket classes

  • Thread starter Thread starter Stefan Drissen
  • Start date Start date
Status
Not open for further replies.
S

Stefan Drissen

Guest
The hexToInt made me cringe, have a newer one: FUNCTION HexToInt RETURNS INTEGER ( i_chex AS CHARACTER ): DEF VAR iresult AS INT NO-UNDO. DEF VAR chex AS CHAR NO-UNDO. DEF VAR rhex AS RAW NO-UNDO. DEF VAR ii AS INT NO-UNDO. chex = TRIM( i_chex ). IF LENGTH( chex ) MODULO 2 = 1 THEN chex = "0":u + chex. rhex = HEX-DECODE( chex ). DO ii = 1 TO LENGTH( rhex ). ASSIGN iresult = iresult * 256 iresult = iresult + GET-BYTE( rhex, ii ) . END. RETURN iresult. END FUNCTION. MESSAGE HexToInt( "1180C" ) VIEW-AS ALERT-BOX.

Continue reading...
 
Status
Not open for further replies.
Back
Top