Q
qdlover
Unregistered / Unconfirmed
GUEST, unregistred user!
字符数组
ModalNumber : array[0..39] of char;
SerialNumber : array [0..19] of char;
ControlNum : array[0..7]of char;
转化成字符串变量
pSerialNumber:widestring;
pModalNumber:widestring;
pControlNum:widestring;
在程序里面用
pserialnumber=SerialNumber 没问题
可是写成asp组件就有问题了
总是显示乱码,因为他用的是olevariant类型的变量,这种变量难道需要特别的转化吗?
定义
type DRIVER_INFO_OK = record
ModalNumber : array[0..39] of char;
SerialNumber : array [0..19] of char;
ControlNum : array[0..7]of char;
DriveType : dword;
Cylinders : dword;
Heads : dword;
Sectors : dword;
end;
var
pSerialNumber:string;
pModalNumber:string;
pControlNum:string;
pHardDriveComputerID:int64;
程序赋值
pSerialNumber:=x.SerialNumber;
pModalNumber:=x.ModalNumber;
pControlNum:=x.ControlNum;
pHardDriveComputerID:=getHardDriveComputerID;
组件属性
function Tserver.Get_ControlNum: WideString;
begin
Get_ControlNum:=StringToOleStr(pControlNum);
end;
function Tserver.Get_HardDriveComputerID: WideString;
begin
Get_HardDriveComputerID:=inttostr(pHardDriveComputerID);
end;
function Tserver.Get_ModalNumber: WideString;
begin
Get_ModalNumber:=StringToOleStr(pModalNumber);
end;
function Tserver.Get_SerialNumber: WideString;
begin
Get_SerialNumber:=StringToOleStr(pSerialNumber);
end;
乱码亚
而且每次的乱码都不一样亚
本来应该是这个样子
3CW03R10
ST315320A
3.12
可是现在全是乱码,我不敢copy到这里面来,否则页面就乱套了
好像是字符串没有用0正常结束吧?
ModalNumber : array[0..39] of char;
SerialNumber : array [0..19] of char;
ControlNum : array[0..7]of char;
转化成字符串变量
pSerialNumber:widestring;
pModalNumber:widestring;
pControlNum:widestring;
在程序里面用
pserialnumber=SerialNumber 没问题
可是写成asp组件就有问题了
总是显示乱码,因为他用的是olevariant类型的变量,这种变量难道需要特别的转化吗?
定义
type DRIVER_INFO_OK = record
ModalNumber : array[0..39] of char;
SerialNumber : array [0..19] of char;
ControlNum : array[0..7]of char;
DriveType : dword;
Cylinders : dword;
Heads : dword;
Sectors : dword;
end;
var
pSerialNumber:string;
pModalNumber:string;
pControlNum:string;
pHardDriveComputerID:int64;
程序赋值
pSerialNumber:=x.SerialNumber;
pModalNumber:=x.ModalNumber;
pControlNum:=x.ControlNum;
pHardDriveComputerID:=getHardDriveComputerID;
组件属性
function Tserver.Get_ControlNum: WideString;
begin
Get_ControlNum:=StringToOleStr(pControlNum);
end;
function Tserver.Get_HardDriveComputerID: WideString;
begin
Get_HardDriveComputerID:=inttostr(pHardDriveComputerID);
end;
function Tserver.Get_ModalNumber: WideString;
begin
Get_ModalNumber:=StringToOleStr(pModalNumber);
end;
function Tserver.Get_SerialNumber: WideString;
begin
Get_SerialNumber:=StringToOleStr(pSerialNumber);
end;
乱码亚
而且每次的乱码都不一样亚
本来应该是这个样子
3CW03R10
ST315320A
3.12
可是现在全是乱码,我不敢copy到这里面来,否则页面就乱套了
好像是字符串没有用0正常结束吧?