topic-44141

Board index All products support Traduzione da Java a Fwh

Posts: 20

Joined: Thu May 14, 2009 07:45 AM

Traduzione da Java a Fwh
Posted: Wed Jan 24, 2024 11:21 AM

Salve,
Dato che non ho familiarità con Java, mi servirebbe una traduzione di questa funzione in fwh e xHarbour

public static String getHeaderBytes(String msg) {
char[] msgLength = new char[4];
msgLength[0] = (char) Integer.parseInt(String.valueOf(msg.length()), 10);
msgLength[1] = (char) Integer.parseInt(String.valueOf(msg.length() >>> 8), 10);
msgLength[2] = (char) Integer.parseInt(String.valueOf(msg.length() >>> 16), 10);
msgLength[3] = (char) Integer.parseInt(String.valueOf(msg.length() >>> 24), 10);

return String.valueOf(msgLength[3]) + String.valueOf(msgLength[2]) + String.valueOf(msgLength[1]) + String.valueOf(msgLength[0]);
}

Grazie dell'aiuto

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Traduzione da Java a Fwh
Posted: Thu Jan 25, 2024 04:53 AM

Using chatgpt:

Code (fw): Select all Collapse

FUNCTION getHeaderBytes(msg)
    LOCAL msgLength := Chr(Val(Str(LEN(msg) % 256)))
    msgLength += Chr(Val(Str(BitRShift(LEN(msg), 8) % 256)))
    msgLength += Chr(Val(Str(BitRShift(LEN(msg), 16) % 256)))
    msgLength += Chr(Val(Str(BitRShift(LEN(msg), 24) % 256)))
    
    RETURN msgLength

FUNCTION BitRShift(n, shift)
    RETURN n / (2 ^ shift)

regards, saludos

Antonio Linares
www.fivetechsoft.com

a.tixi@htech.it

Posts: 20

Joined: Thu May 14, 2009 07:45 AM

Re: Traduzione da Java a Fwh
Posted: Thu Jan 25, 2024 10:38 AM

Grazie !!!

FiveTech Support Forums

Continue the discussion