Форум: "Основная";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];

Вниз

Создатьь файл   Найти похожие ветки 

← →
cyborg   (2002-06-14 12:58) [0]

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

---

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

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

---

← →
Yuri Btr   (2002-06-14 13:03) [2]

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

---

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

CreateFile
и
SetFilePointer

---

← →
cyborg   (2002-06-14 13:29) [4]

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

---

← →
Slava   (2002-06-14 13:45) [5]

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

---

← →
Song   (2002-06-14 13:57) [6]

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

---

← →
cyborg   (2002-06-14 14:36) [7]

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

---

← →
cyborg   (2002-06-14 14:59) [8]

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

---

← →
mcs   (2002-06-16 21:38) [9]

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

---

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

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

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;


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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.005 c