Binær tekst koverteret til single

jeg ved ikke om jeg har forstået dig rigtigt

showmessage(chr(65));

Stoney

Chr konvertere en byte til en char

Det jeg har brug for er at kunne konvertere 4 bogstaver som repræsentere data typen single til single.

Eksemple:

En single repræsenteres ved hjælp af 4 byte det vil derfor kræve fire bogstaver. Disse fire bogstaver har jeg i en string. Disse 4 bogstaver skal jeg have konverteret til en single.


Jeg har derfor i først omgang konverteret dem til en array of byte vhja ord(). Disse fire byte vil jeg så konvertere til en single men jeg ved ikke helt hvordan.

Prøv:


function char2single(a : singlechars) : single;

var
  res : single;

begin
    move(a, res, 4);
    char2single := res;
end;

Tak, Arne - det ser ud til at virke men talene er ikke helt hvad jeg forvendter.

Det skyldes måske at jeg skal flytte rundt på mine bytes før kald af char2single?

Min dokumentation siger at at det er:

presicion 32 - det vil sige single
byte order network - åbenbart en standard

Network order - så skal du lige vende bytes om.

0 og 3 skal byttes
1 og 2 skal byttes

Super du er en ven ;-)

Hvis du laver et svar får du point.

Talene er dog stadig ikke helt hvad jeg forvendter de er meget stor eller meget små. Jeg forvendter tal som kommer i par; første skal ligge  ml. 375 og 1575 og det næste kan være en del større men ikke negativ.

Q5YAN0Nujd5DlpubRIErYUOXKuNExNmIQ5eNyENhr7BDmAraRJ0Ew0OY

Jeg roder videre med det.

svar

Der der ligner da næsten noget base64 !?

I det tilfælde er min dokumentation forkert :-( - Jeg prøver, tak

Jeg har fundet noget kode på en base64 decoder jeg lige vil prøve

endnu en gang tak