delphi - function GetFileLastAccessTime gå videre? - Udvikleren.dk

Tags: delphi

Bruger #4832 @ 06.01.04 16:03

Hej

I procedure TForm1.IEfunction GetFileLastAccessTime, forsøger jeg, at gå vider hvis filen findes, men det lykkes ikke.
Gør brug af function GetFileLastAccessTime ved dato angivelse.
Kan du se hvor det går galt?
For en orden skyld, er hele Unit1 her.

Kode


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IEDownload, StdCtrls, UrlMon, wininet, ShellAPI, midaslib, MinUnits,
  ExtCtrls;
type
  TForm1 = class(TForm)
    IEDownload1: TIEDownload;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure IEDownload1Complete(Sender: TBSCB; Stream: TStream; Result: HRESULT);
    procedure IEDownload1Progress(Sender: TBSCB; ulProgress, ulProgressMax, ulStatusCode:
              Cardinal; szStatusText: PWideChar; ElapsedTime, Speed, EstimatedTime: String);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   
implementation

{$R *.dfm}

function GetFileLastAccessTime(sFileName : string ) : TDateTime;
var
  ffd : TWin32FindData;
  dft : DWord;
  lft : TFileTime;
  h   : THandle;
begin
  h := Windows.FindFirstFile(PChar(sFileName), ffd);
  if(INVALID_HANDLE_VALUE <> h)then
  begin
    FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft );
    FileTimeToDosDateTime(lft,LongRec(dft).Hi, LongRec(dft).Lo);
    Result := FileDateToDateTime(dft);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IEDownload1.go('http://www.sunwind.dk/designforum/downloadmap/murpro.zip','c:\\Bookmap\\murpro.zip');
end;


procedure TForm1.IEDownload1Complete(Sender: TBSCB; Stream: TStream;
  Result: HRESULT);
begin
 if (Result = S_OK) then
    Memo1.lines.add('Download complete...')
    else   // Vil ikke gå videre, hvis filen eksisterer!

    if DirectoryExists('c:\\bookmap\\murpro.zip') then begin
    MessageDlg('c:\\bookmap\\murpro.zip var sidst opdateret den ' + TimeToStr(GetFileLastAccessTime( 'c:\\bookmap\\murpro.zip' ) ), mtInformation, [mbOk], 0 )
    end;

end;


procedure TForm1.IEDownload1Progress(Sender: TBSCB; ulProgress,
  ulProgressMax, ulStatusCode: Cardinal; szStatusText: PWideChar;
  ElapsedTime, Speed, EstimatedTime: String);

var
  s: string;
begin
  s := BindstatusText(ulStatusCode);
  if ulStatusCode = BINDSTATUS_DOWNLOADINGDATA then
    s := S + ' (' + InttoStr(ulProgress) + '/' + InttoStr(ulProgressMax) + ')';
  //memo1.lines.add(s);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
end;

end.

Med venlig hilsen Og et godt nytår.
Monie Jacobsen

energy@sunwind.dk

8 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma

Sorter efter stemmer Sorter efter dato

Bruger #105 @ 06.01.04 16:26

275

Hej

I procedure TForm1.IEfunction GetFileLastAccessTime, forsøger jeg, at gå vider hvis filen findes, men det lykkes ikke.
Gør brug af function GetFileLastAccessTime ved dato angivelse.
Kan du se hvor det går galt?
For en orden skyld, er hele Unit1 her.

I procedure TForm1.IEDownload1Complete checker du om en mappe findes i stedet for om filen findes. Prøv at rette det til:

<pre>
procedure TForm1.IEDownload1Complete(Sender: TBSCB; Stream: TStream;
Result: HRESULT);
begin
if (Result = S_OK) then
Memo1.lines.add('Download complete...')
else // Vil ikke gå videre, hvis filen eksisterer!

if FileExists('c:\\bookmap\\murpro.zip') then begin
MessageDlg('c:\\bookmap\\murpro.zip var sidst opdateret den ' + TimeToStr(GetFileLastAccessTime( 'c:\\bookmap\\murpro.zip' ) ), mtInformation, [mbOk], 0 )
end;

end;
</pre>

Bruger #4832 @ 06.01.04 16:58

Hej

I procedure TForm1.IEfunction GetFileLastAccessTime, forsøger jeg, at gå vider hvis filen findes, men det lykkes ikke.
Gør brug af function GetFileLastAccessTime ved dato angivelse.
Kan du se hvor det går galt?
For en orden skyld, er hele Unit1 her.

I procedure TForm1.IEDownload1Complete checker du om en mappe findes i stedet for om filen findes. Prøv at rette det til:

<pre>
procedure TForm1.IEDownload1Complete(Sender: TBSCB; Stream: TStream;
Result: HRESULT);
begin
if (Result = S_OK) then
Memo1.lines.add('Download complete...')
else // Vil ikke gå videre, hvis filen eksisterer!

if FileExists('c:\\bookmap\\murpro.zip') then begin
MessageDlg('c:\\bookmap\\murpro.zip var sidst opdateret den ' + TimeToStr(GetFileLastAccessTime( 'c:\\bookmap\\murpro.zip' ) ), mtInformation, [mbOk], 0 )
end;

end;
</pre>

Hej Lasse M

Jeg havde sigeret mig blind.

Men får stadig ikke vist koden nedenfor - hvis "murpro.zip" findes
så skulle denne gerne vises!

Kode


MessageDlg('c:\\BookMap\\murpro.zip var sidst opdateret den ' + TimeToStr(GetFileLastAccessTime( 'c:\\BookMap\\murpro.zip' ) ), mtInformation, [mbOk], 0 )

Med venlig hilsen
Monie Jacobsen

energy@sunwind.dk

Bruger #4832 @ 06.01.04 17:11

Hej

I procedure TForm1.IEfunction GetFileLastAccessTime, forsøger jeg, at gå vider hvis filen findes, men det lykkes ikke.
Gør brug af function GetFileLastAccessTime ved dato angivelse.
Kan du se hvor det går galt?
For en orden skyld, er hele Unit1 her.

I procedure TForm1.IEDownload1Complete checker du om en mappe findes i stedet for om filen findes. Prøv at rette det til:

<pre>
procedure TForm1.IEDownload1Complete(Sender: TBSCB; Stream: TStream;
Result: HRESULT);
begin
if (Result = S_OK) then
Memo1.lines.add('Download complete...')
else // Vil ikke gå videre, hvis filen eksisterer!

if FileExists('c:\\bookmap\\murpro.zip') then begin
MessageDlg('c:\\bookmap\\murpro.zip var sidst opdateret den ' + TimeToStr(GetFileLastAccessTime( 'c:\\bookmap\\murpro.zip' ) ), mtInformation, [mbOk], 0 )
end;

end;
</pre>

Hej Lasse M

Jeg havde sigeret mig blind.

Men får stadig ikke vist koden nedenfor - hvis "murpro.zip" findes
så skulle denne gerne vises!

Kode
MessageDlg('c:\\BookMap\\murpro.zip var sidst opdateret den ' + TimeToStr(GetFileLastAccessTime( 'c:\\BookMap\\murpro.zip' ) ), mtInformation, [mbOk], 0 )
Med venlig hilsen
Monie Jacobsen

energy@sunwind.dk

Hej jeg glemte denne fejlmeddelse:
[Warning] Unit1.pas(53): Return value of function 'GetFileLastAccessTime' might be undefined

Hvad er der galt her?
Har det noget, at gører med, at det andet ikke fungerer?

Med venlig hilsen
Monie Jacobsen
energy@sunwind.dk

Bruger #4832 @ 06.01.04 17:25

Hej

I procedure TForm1.IEfunction GetFileLastAccessTime, forsøger jeg, at gå vider hvis filen findes, men det lykkes ikke.
Gør brug af function GetFileLastAccessTime ved dato angivelse.
Kan du se hvor det går galt?
For en orden skyld, er hele Unit1 her.

I procedure TForm1.IEDownload1Complete checker du om en mappe findes i stedet for om filen findes. Prøv at rette det til:

<pre>
procedure TForm1.IEDownload1Complete(Sender: TBSCB; Stream: TStream;
Result: HRESULT);
begin
if (Result = S_OK) then
Memo1.lines.add('Download complete...')
else // Vil ikke gå videre, hvis filen eksisterer!

if FileExists('c:\\bookmap\\murpro.zip') then begin
MessageDlg('c:\\bookmap\\murpro.zip var sidst opdateret den ' + TimeToStr(GetFileLastAccessTime( 'c:\\bookmap\\murpro.zip' ) ), mtInformation, [mbOk], 0 )
end;

end;
</pre>

Hej Lasse M

Jeg havde sigeret mig blind.

Men får stadig ikke vist koden nedenfor - hvis "murpro.zip" findes
så skulle denne gerne vises!

Kode
MessageDlg('c:\\BookMap\\murpro.zip var sidst opdateret den ' + TimeToStr(GetFileLastAccessTime( 'c:\\BookMap\\murpro.zip' ) ), mtInformation, [mbOk], 0 )
Med venlig hilsen
Monie Jacobsen

energy@sunwind.dk

Hej jeg glemte denne fejlmeddelse:
[Warning] Unit1.pas(53): Return value of function 'GetFileLastAccessTime' might be undefined

Hvad er der galt her?
Har det noget, at gører med, at det andet ikke fungerer?

Med venlig hilsen
Monie Jacobsen
energy@sunwind.dk

Har lige fået det til, at virke!

Men får stadig fejmeddlingen:

[Warning] Unit1.pas(53): Return value of function 'GetFileLastAccessTime' might be undefined

Hvad er der galt her?
Og hvordan undgås denne fejl?

Med venlig hilsen
Monie Jacobsen
energy@sunwind.dk

Bruger #105 @ 06.01.04 19:25

275

Har lige fået det til, at virke!

Men får stadig fejmeddlingen:

[Warning] Unit1.pas(53): Return value of function 'GetFileLastAccessTime' might be undefined

Hvad er der galt her?
Og hvordan undgås denne fejl?

En warning er ikke det samme som en fejl, men nærmere en potentiel fejlkilde. I det her tilfælde får du den fordi Result kun bliver tildelt en værdi hvis "INVALID_HANDLE_VALUE <> h" er opfyldt. Du kan få den væk ved enten et tildele Result en værdi i starten af funktionen eller ved at give Result en værdi hvis "INVALID_HANDLE_VALUE = h".

Bruger #4832 @ 06.01.04 22:05

Har lige fået det til, at virke!

Men får stadig fejmeddlingen:

[Warning] Unit1.pas(53): Return value of function 'GetFileLastAccessTime' might be undefined

Hvad er der galt her?
Og hvordan undgås denne fejl?

En warning er ikke det samme som en fejl, men nærmere en potentiel fejlkilde. I det her tilfælde får du den fordi Result kun bliver tildelt en værdi hvis "INVALID_HANDLE_VALUE <> h" er opfyldt. Du kan få den væk ved enten et tildele Result en værdi i starten af funktionen eller ved at give Result en værdi hvis "INVALID_HANDLE_VALUE = h".

Du kan vel ikke indsætte et eksempel, så jeg kan se hvor og hvordan du havde tænkt!

Med venlig hilsen
Monie Jacobsen
energy@sunwind.dk

Bruger #105 @ 06.01.04 22:28

275

Du kan vel ikke indsætte et eksempel, så jeg kan se hvor og hvordan du havde tænkt!

<pre>
function GetFileLastAccessTime(sFileName : string ) : TDateTime;
var
ffd : TWin32FindData;
dft : DWord;
lft : TFileTime;
h : THandle;
begin
h := Windows.FindFirstFile(PChar(sFileName), ffd);
if(INVALID_HANDLE_VALUE <> h)then
begin
FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft );
FileTimeToDosDateTime(lft,LongRec(dft).Hi, LongRec(dft).Lo);
Result := FileDateToDateTime(dft);
end
else
Result := Now;
end;
</pre>

Bruger #4832 @ 07.01.04 07:38

Du kan vel ikke indsætte et eksempel, så jeg kan se hvor og hvordan du havde tænkt!

<pre>
function GetFileLastAccessTime(sFileName : string ) : TDateTime;
var
ffd : TWin32FindData;
dft : DWord;
lft : TFileTime;
h : THandle;
begin
h := Windows.FindFirstFile(PChar(sFileName), ffd);
if(INVALID_HANDLE_VALUE <> h)then
begin
FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft );
FileTimeToDosDateTime(lft,LongRec(dft).Hi, LongRec(dft).Lo);
Result := FileDateToDateTime(dft);
end
else
Result := Now;
end;
</pre>

Tak Lasse M

Det virkede.
Jeg var lidt tvivlende hvor du vil indsætte denne Result := Now;
Mange tak.

Med venlig hilsen
Monie Jacobsen

energy@sunwind.dk

function GetFileLastAccessTime gå videre?

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler