GetFileTime和FileTimeToSystemTime的问题 (60分)

ili · 2003-05-31

代码:

var<br>&nbsp; FileHandle : Integer;<br>&nbsp; CreationTime, LastAccessTime, LastWriteTime: PFileTime;<br>&nbsp; CTime: PSystemTime;<br>begin<br>&nbsp; FileHandle := FileOpen(Setting.FileName, fmOpenWrite or fmShareDenyNone);<br>&nbsp; GetFileTime(FileHandle, CreationTime, LastAccessTime, LastWriteTime);<br>&nbsp; FileTimeToSystemTime(LastWriteTime, CTime); &nbsp;// 463行<br>&nbsp; ...<br>end;

Setting.FileName是我指定的文件，string类型； 现在出现错误：[red][Error] Main.pas(463): Incompatible types: '_FILETIME' and 'PFileTime'[/red] 怎么回事？我查遍了delphi的sdk帮助和msdn，觉得都没错啊~~ 帮忙！

Avenir · 2003-05-31

function FileTimeToSystemTime(const lpFileTime: TFileTime; var lpSystemTime: TSystemTime): BOOL; stdcall; {$EXTERNALSYM FileTimeToSystemTime} 是TSystemTime Delphi里的变参传递时就是指针，所以很多在API里是指针的参数，在Delphi封装后就不用指针了，要注意奥

ili · 2003-05-31

不太明白你的意思~，因为function GetFileTime(hFile: THandle;   lpCreationTime, lpLastAccessTime, lpLastWriteTime: PFileTime): BOOL; stdcall; {$EXTERNALSYM GetFileTime}，这个函数需要指针类型啊。如果我把类型改为不用指针类型，结果仍错，如下：

代码:

var<br>&nbsp; FileHandle : Integer;<br>&nbsp; CreationTime, LastAccessTime, LastWriteTime: FileTime; &nbsp;//这里改了<br>&nbsp; CTime: SystemTime; &nbsp;//这里改了<br>begin<br>&nbsp; FileHandle := FileOpen(Setting.FileName, fmOpenWrite or fmShareDenyNone);<br>&nbsp; GetFileTime(FileHandle, CreationTime, LastAccessTime, LastWriteTime); &nbsp;//462行<br>&nbsp; FileTimeToSystemTime(LastWriteTime, CTime);<br>&nbsp; ...<br>end;

[red][Error] Main.pas(462): Incompatible types: '_FILETIME' and 'PFileTime' [Error] Main.pas(462): Incompatible types: '_FILETIME' and 'PFileTime' [Error] Main.pas(462): Incompatible types: '_FILETIME' and 'PFileTime'[/red] 如果改为如下，编译通过，但运行错误：

代码:

var<br>&nbsp; FileHandle : Integer;<br>&nbsp; CreationTime, LastAccessTime, LastWriteTime: PFileTime;<br>&nbsp; LastWriteTime2: TFileTime; &nbsp;//加了个变量<br>&nbsp; CTime: TSystemTime;<br>begin<br>&nbsp; FileHandle := FileOpen(Setting.FileName, fmOpenWrite or fmShareDenyNone);<br>&nbsp; GetFileTime(FileHandle, CreationTime, LastAccessTime, LastWriteTime);<br>&nbsp; LastWriteTime2 := LastWriteTime^; &nbsp;//运行时错误就在这儿，错误是[red]EAccessViolation[/red]<br>&nbsp; FileTimeToSystemTime(LastWriteTime2, CTime);<br>&nbsp; ...<br>end;

怎么回事？

realLearning · 2003-05-31

procedure TForm1.Button1Click(Sender: TObject); var  FileHandle : Integer;  CreationTime, LastAccessTime, LastWriteTime: PFileTime;  //这里改了  CTime: TSystemTime;  //这里改了  FileName : string; begin  FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);  GetMem(CreationTime,SizeOf(PFileTime));//没有给指针分配内存  GetMem(LastAccessTime,SizeOf(PFileTime));  GetMem(LastWriteTime,SizeOf(PFileTime));  GetFileTime(FileHandle, CreationTime, LastAccessTime, LastWriteTime);  //462行  FileTimeToSystemTime(LastWriteTime^, CTime);  ShowMessage(IntToSTr(CTime.wYear));  FreeMem(CreationTime);  FreeMem(LastAccessTime);  FreeMem(LastWriteTime); end;

ili · 2003-05-31

非常感谢realLearning。 [brown]但还有个问题，就是这样显示出来的时间（不管是三个里的哪个），总是1601-1-1 1:25:54，不管我把Setting.FileName设为哪个文件~ 怎么回事？[/brown] [red]不好意思，刚才有个参数搞错了~：p[/red]

小笨苯 · 2003-05-31

给你两个转换函数。 function FileTimeToDateTime(FileTime: TFileTime): TDateTime; var   SysTime      : TSystemTime; begin   if not FileTimeToSystemTime(FileTime, SysTime) then     raise EConvertError.CreateFmt('FileTimeToSystemTime failed. ' +       'Error code %d', [GetLastError]);   with SysTime do     Result := EncodeDate(wYear, wMonth, wDay) +       EncodeTime(wHour, wMinute, wSecond, wMilliseconds); end; function DateTimeToFileTime(DateTime: TDateTime): TFileTime; var   SysTime      : TSystemTime; begin   with SysTime do   begin     DecodeDate(DateTime, wYear, wMonth, wDay);     DecodeTime(DateTime, wHour, wMinute, wSecond, wMilliseconds);     wDayOfWeek := DayOfWeek(DateTime);   end;   if not SystemTimeToFileTime(SysTime, Result) then     raise EConvertError.CreateFmt('SystemTimeToFileTime failed. ' +       'Error code %d', [GetLastError]); end;

ili · 2003-05-31

多人接受答案了。

GetFileTime和FileTimeToSystemTime的问题 (60分)

ili

Unregistered / Unconfirmed

Avenir

Unregistered / Unconfirmed

ili

Unregistered / Unconfirmed

realLearning

Unregistered / Unconfirmed

ili

Unregistered / Unconfirmed

小笨苯

Unregistered / Unconfirmed

ili

Unregistered / Unconfirmed

Similar threads