Найти файл и вывести его размер

@Vegas_I · Регистрация: 28.02.2013

Author24 — интернет-сервис помощи студентам

Не работает пример с книжки Флёнова "Библия Делфи". Нужно, чтобы программа нашла указанный в Edit1 файл и, по нажатию кнопки, вывела его размер в Edit2.

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
begin
  if FindFirst(Edit1.Text, faAnyFile, SearchRec)=0 then
     Edit2.Text:=IntToStr(SearchRec.Size)+'байт';
  FindClose(SearchRec);
end;
 
end.

@northener · 18.07.2013, 02:25

Значит файла с таким именем нет.

@Vegas_I · 18.07.2013, 02:36 **[ТС]**

Я создавал файл.
Ещё вот другая программа. Запоминает расположение окна с последнего запуска и при последующем запускает его в том же положении. И она тоже не работает, хотя код правильный.

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  WindowsSize = record
  Left, Top, Width, Height: Integer;
end;
  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
ws: WindowsSize;
f: TFileStream;
Str: String;
 
begin
 
  ws.Left:=Left;
  ws.Top:=Top;
  ws.Width:=Width;
  ws.Height:=Height;
 
  f:=TFileStream.Create('size.dat', fmCreate);
  f.Write(ws, sizeof(ws));
  f.Free;
 
end;
 
procedure TForm1.FormShow(Sender: TObject);
var
  ws:WindowsSize;
  fs:TFileStream;
begin
   if FileExists('size.dat') then
    begin
     fs:=TFileStream.Create('size.dat', fmOpenRead);
     fs.Read(ws, sizeof(ws));
     fs.Free;
 
     Left:=ws.Left;
     Top:=ws.Top;
     Width:=ws.Width;
     Height:=ws.Height;
    end;
end;
 
end.

Я думаю, может в настройках делфи где проблема. В объектном инспекторе или так где...

18.07.2013, 02:47

Во всём виноват Дельфи, а может всё-таки нет?

Delphi

type  
  WindowsSize = record
    Left, Top, Width, Height : Integer;
  end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  ws:WindowsSize;
  fs:TFileStream;
begin
  if FileExists('size.dat') then
  begin
    fs := TFileStream.Create('size.dat', fmOpenRead);
    fs.Read(ws, SizeOf(ws));
    fs.Free;
 
    Left   := ws.Left;
    Top    := ws.Top;
    Width  := ws.Width;
    Height := ws.Height;
  end;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  ws : WindowsSize;
  f  : TFileStream;
begin
  ws.Left   := Left;
  ws.Top    := Top;
  ws.Width  := Width;
  ws.Height := Height;
 
  f := TFileStream.Create('size.dat', fmCreate);
  f.Write(ws, SizeOf(ws));
  f.Free;
end;

@northener · 18.07.2013, 02:55

Сообщение от Vegas_I

Я создавал файл.

Где (в каком каталоге) создавал? Где (в каком каталоге) ищешь?

@Vegas_I · 18.07.2013, 03:01 **[ТС]**

В папке с программой и создавал. В ней и ищу (никаких путей не указывал, только имя и разрешение).
Вообще, обе программы запускаются без ошибок, но то, что нужно, не выполняют.

18.07.2013, 03:08

Сообщение от Vegas_I

но то, что нужно, не выполняют

Неужели? Приведённый мною код работает. Запоминает состояние формы и восстанавливает.

@northener · 18.07.2013, 03:27

Сообщение от Vegas_I

В папке с программой и создавал. В ней и ищу (никаких путей не указывал, только имя и разрешение).

Проверь где именно ищешь:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
begin
  ShowMessage(GetCurrentDir);
  if FindFirst(Edit1.Text, faAnyFile, SearchRec)=0 then
     Edit2.Text:=IntToStr(SearchRec.Size)+'байт';
  FindClose(SearchRec);
end;

~~Dr_Quake~~ · 18.07.2013, 03:31

Да ещё один ламер наверняка с XE, только думает что он нуб, а на деле тут думать не надо - тупо в папку с программой заглянуть и в свойства проекта чтобы посмотреть где реально рабочая папка будет и куда реально рабочий exe пойдёт.

Проверь это в 0 приближении:
Подключение к базе данных

@northener · 18.07.2013, 03:59

Сообщение от Dr_Quake

наверняка с XE

Да наверняка. Я и забыл что в ХЕ с путями черт ногу сломит пока не привыкнет.

@Vegas_I · 18.07.2013, 11:54 **[ТС]**

Сообщение от northener

Проверь где именно ищешь:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
begin
  ShowMessage(GetCurrentDir);
  if FindFirst(Edit1.Text, faAnyFile, SearchRec)=0 then
     Edit2.Text:=IntToStr(SearchRec.Size)+'байт';
  FindClose(SearchRec);
end;

Всё, с этим разобрался. Когда указываешь имя файла, то и разрешение вводить тоже нужно. Тогда работает. Сори, ступил)

Добавлено через 2 минуты
angstrom, я заменил formshow на formcreate. Ничего не меняется. вот что у меня сейчас:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  WindowsSize = record
   Left, Top, Width, Height: integer;
   end;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
var
  ws:WindowsSize;
  fs:TFileStream;
begin
  if FileExists('size.dat') then
  begin
    fs := TFileStream.Create('size.dat', fmOpenRead);
    fs.Read(ws, SizeOf(ws));
    fs.Free;
 
    Left   := ws.Left;
    Top    := ws.Top;
    Width  := ws.Width;
    Height := ws.Height;
  end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  ws: WindowsSize;
  f: TFileStream;
  Str: String;
begin
 ws.Left:=Left;
 ws.Top:=Top;
 ws.Width:=Width;
 ws.Height:=Height;
 
 f:=TFileStream.Create('size.dat', fmCreate);
 f.Write(ws, sizeof(ws));
 f.Free;
end;
 
end.

18.07.2013, 11:56

Я проверял на Дельфи 7 по WinXP, всё отрабатывает.

@Vegas_I · 18.07.2013, 12:02 **[ТС]**

Сообщение от angstrom

Я проверял на Дельфи 7 по WinXP, всё отрабатывает.

У меня на 7-ка винда

18.07.2013, 12:15

Проверил на Win7, работает.

@Vegas_I · 18.07.2013, 12:17 **[ТС]**

Ну а что тогда?

18.07.2013, 12:30

Создай минимальный проект, только с этим кодом и проверь.

Добавлено через 1 минуту
Файл size.dat создаётся?

@northener · 18.07.2013, 13:15

Сообщение от Vegas_I

Ну а что тогда?

Пришла пора познакомиться с отладчиком и научиться его использовать. Клавиши F5, F9, F7 и F8 позволят найти причину неработоспособности программы гораздо быстрее чем любой форум.

@Vegas_I · 18.07.2013, 15:34 **[ТС]**

Сообщение от angstrom

Создай минимальный проект, только с этим кодом и проверь.

Добавлено через 1 минуту
Файл size.dat создаётся?

Нет. Не создаётся

18.07.2013, 16:24

Вероятно не хватает прав для этого.

@Vegas_I · 18.07.2013, 17:40 **[ТС]**

Сообщение от angstrom

Вероятно не хватает прав для этого.

А поподробнее? Как установить эти права?

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,250
	18.07.2013, 03:59	10
	Сообщение от Dr_Quake наверняка с XE Да наверняка. Я и забыл что в ХЕ с путями черт ногу сломит пока не привыкнет. 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,250
	18.07.2013, 02:25	2
	Значит файла с таким именем нет. 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,250
	18.07.2013, 02:55	5
	Сообщение от Vegas_I Я создавал файл. Где (в каком каталоге) создавал? Где (в каком каталоге) ищешь? 0

@Vegas_I 1 / 1 / 0 Регистрация: 28.02.2013 Сообщений: 103
	18.07.2013, 03:01 [ТС]	6
	В папке с программой и создавал. В ней и ищу (никаких путей не указывал, только имя и разрешение). Вообще, обе программы запускаются без ошибок, но то, что нужно, не выполняют. 0

angstrom
	18.07.2013, 03:08	7
	Сообщение от Vegas_I но то, что нужно, не выполняют Неужели? Приведённый мною код работает. Запоминает состояние формы и восстанавливает.

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,250
	18.07.2013, 03:27	8
	Сообщение от Vegas_I В папке с программой и создавал. В ней и ищу (никаких путей не указывал, только имя и разрешение). Проверь где именно ищешь: Код procedure TForm1.Button1Click(Sender: TObject); var SearchRec: TSearchRec; begin ShowMessage(GetCurrentDir); if FindFirst(Edit1.Text, faAnyFile, SearchRec)=0 then Edit2.Text:=IntToStr(SearchRec.Size)+'байт'; FindClose(SearchRec); end; 0

~~Dr_Quake~~ Заблокирован
	18.07.2013, 03:31	9
	Да ещё один ламер наверняка с XE, только думает что он нуб, а на деле тут думать не надо - тупо в папку с программой заглянуть и в свойства проекта чтобы посмотреть где реально рабочая папка будет и куда реально рабочий exe пойдёт. Проверь это в 0 приближении: Подключение к базе данных 0

angstrom
	18.07.2013, 11:56	12
	Я проверял на Дельфи 7 по WinXP, всё отрабатывает.

@Vegas_I 1 / 1 / 0 Регистрация: 28.02.2013 Сообщений: 103
	18.07.2013, 12:02 [ТС]	13
	Сообщение от angstrom Я проверял на Дельфи 7 по WinXP, всё отрабатывает. У меня на 7-ка винда 0

angstrom
	18.07.2013, 12:15	14
	Проверил на Win7, работает.

@Vegas_I 1 / 1 / 0 Регистрация: 28.02.2013 Сообщений: 103
	18.07.2013, 12:17 [ТС]	15
	Ну а что тогда? 0

angstrom
	18.07.2013, 12:30	16
	Создай минимальный проект, только с этим кодом и проверь. Добавлено через 1 минуту Файл size.dat создаётся?

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,250
	18.07.2013, 13:15	17
	Сообщение от Vegas_I Ну а что тогда? Пришла пора познакомиться с отладчиком и научиться его использовать. Клавиши F5, F9, F7 и F8 позволят найти причину неработоспособности программы гораздо быстрее чем любой форум. 0

@Vegas_I 1 / 1 / 0 Регистрация: 28.02.2013 Сообщений: 103
	18.07.2013, 15:34 [ТС]	18
	Сообщение от angstrom Создай минимальный проект, только с этим кодом и проверь. Добавлено через 1 минуту Файл size.dat создаётся? Нет. Не создаётся 0

angstrom
	18.07.2013, 16:24	19
	Вероятно не хватает прав для этого.

@Vegas_I 1 / 1 / 0 Регистрация: 28.02.2013 Сообщений: 103
	18.07.2013, 17:40 [ТС]	20
	Сообщение от angstrom Вероятно не хватает прав для этого. А поподробнее? Как установить эти права? 0