| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создатьь файл

cyborg ©   (2002-06-14 12:58:00) 

Как можно быстро создать пустой файл заданного размера 100 кб., 5 мб.?

---

Игорь Шевченко   (2002-06-17 11:15:00) [1]

Можно подробнее:

procedure TForm1.Button4Click(Sender: TObject);
var F : THANDLE;
begin
F := CreateFile("Test.dat", GENERIC_WRITE, 0, nil,
CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
if F = INVALID_HANDLE_VALUE then
RaiseLastWin32Error();
SetFilePointer(F, 5000000, nil, 0);
SetEndOfFile(F);
CloseHandle(F);
end;


Создает файл мгновенно, любого размера.

---

mcs   (2002-06-16 21:38:00) [2]

Игорь Шевченко : Можно подробнее?

---

cyborg   (2002-06-14 14:59:00) [3]

Slava © спасибо, то что нужно.

---

cyborg   (2002-06-14 14:36:00) [4]

Song, зато весело :-)

---

Song   (2002-06-14 13:57:00) [5]

Не ребят... :)) Так нельзя, ему же надо пустой!

---

Slava   (2002-06-14 13:45:00) [6]

procedure CreateBigFile;
var
F: TFileStream;
begin
F := TFileStream.Create("c:\1.1", fmCreate);
F.Size := 5000000;
F.Free;
end;

---

cyborg   (2002-06-14 13:29:00) [7]

Я не так выразился :-), пустотй файл в смысле не пустой,а обнулённый например, как создать файл-то я знаю, а вот как быстро его сделать с каким-то определённым размером?

---

Игорь Шевченко   (2002-06-14 13:04:00) [8]

CreateFile
и
SetFilePointer

---

Yuri Btr   (2002-06-14 13:03:00) [9]

CreateFile
и заполни его какими нибудь символами

---

Виктор Щербаков   (2002-06-14 13:01:00) [10]

Пустой файл размером 5Мб. Оригинально!!!

---

Наверх