float与byte数组的相互转换,d lang V1

最新推荐文章于 2024-08-22 23:06:05 发布

iteye_15593

最新推荐文章于 2024-08-22 23:06:05 发布

阅读量348

点赞数

分类专栏：收集备忘文章标签： VB VB.NET .net

本文链接：https://blog.csdn.net/iteye_15593/article/details/81956053

版权

收集备忘专栏收录该内容

6 篇文章 0 订阅

订阅专栏

import tango.io.Stdout;

void ConvertFloatToBytes(float Value,inout  byte[] Bytes)
{
	uint ByteVal1, ByteVal2, ByteVal3, ByteVal4; 
	asm
	{
		mov EAX, Value;
		and EAX, 0xFF000000;
		shr EAX, 24;
		mov ByteVal1, EAX;
		mov EAX, Value;
		and EAX, 0x00FF0000;
		shr EAX, 16;
		mov ByteVal2, EAX;
		mov EAX, Value;
		and EAX, 0x0000FF00;
		shr EAX, 8;
		mov ByteVal3, EAX;
		mov EAX, Value;
		and EAX, 0x000000FF;
		mov ByteVal4, EAX;
	}
	Bytes[0] = cast(byte)ByteVal1;
	Bytes[1] = cast(byte)ByteVal2;
	Bytes[2] = cast(byte)ByteVal3;
	Bytes[3] = cast(byte)ByteVal4;
}

float  ConvertBytesToFloat(byte Bytes[4])
{
	float retfloat = 0.0;
	uint ByteVal1, ByteVal2, ByteVal3, ByteVal4;
	ByteVal1 = cast(uint)Bytes[0];
	ByteVal2 = cast(uint)Bytes[1];
	ByteVal3 = cast(uint)Bytes[2];
	ByteVal4 = cast(uint)Bytes[3];
	asm
	{
		mov EAX, ByteVal1;
		shl EAX, 24;
		mov retfloat, EAX;
		mov EAX, ByteVal2;
		shl EAX, 16;
		or EAX, retfloat;
		mov retfloat, EAX;
		mov EAX, ByteVal3;
		shl EAX, 8;
		or EAX, retfloat;
		mov retfloat, EAX;
		mov EAX, ByteVal4;
		or EAX, retfloat;
		mov retfloat, EAX;
	}
	return retfloat;
}

void main () {
	byte[] bb;
	bb.length=4;
	ConvertFloatToBytes(3.5,bb);

	for(int i=0;i<bb.length;i++)
	{
		Stdout(bb[i]).newline;
	}
	//结果和VB.net转换后顺序相反

	Stdout(ConvertBytesToFloat([64,96,0,0])).newline;
}