.................... (100分)

B

bluely

Unregistered / Unconfirmed
GUEST, unregistred user!
......................
 
var
i:Single;
pt:pByte;
begin
pt:=PByte(@i);
pt^:=$9a;
PByte(DWord(pt)+1)^:=$99;
PByte(DWord(pt)+2)^:=$19;
PByte(DWord(pt)+3)^:=$3e;
//如法炮制
end;

>tm when;
>when = *localtime(&time);
什么意思?
是不是:
type
Plocaltime:^localtime
//指针类型
var
when:tm;
begin
when:=Plocaltime(@time)^;
end;
 
可能是我贴错了,其实我想实现的是把C中的time_t格式转换成delphi的Tdatetime格式。
 
faint,time_t似是unix/linux下定义的类型.在delphi下要重新定义。等我去翻书,找到定义后再来
 
问题总结为c中的time_t格式应该如何转换成delphi的日期格式...........谁出手解决????
 
我也急需这个问题,我需要向unix发送tcp数据包,但是对方的结构中有time_t类型,怎么办呀?[:(]
 
delphi中tdatetime就是double,是距1899-12-30 12:00 的天数。而C中time_t是longint,
是距1970-1-1 8:00的秒数。(这是我推出来的,不知对不对?,反正一个是流逝的天数,一
个是流逝的秒数。)转换方法:
function DatetimeToCTime(t:TDatetime):Longint;
begin
result := ceil(946656000+(t-36526)*24*3600))
//(t-36526)*24*3600 肯定是整数
end;
 
可以over了。
 
顶部