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

Вниз

Как разбить файл?   Найти похожие ветки 

← →
KDenis   (2003-04-13 18:47) [0]

Разбиваю файл следующим образом:
const
file1 = 400896; //Error.exe
file2 = 37986; //pict.bmp
file3 = 1486; //texts1.txt

...

var
Fi,dest:file;
buf:array of byte;

...

assignFile(fi,path+"files.dat");
reset(fi,1);
assignFile(dest,InstPath+"\error.exe");
reWrite(dest,1);
setLength(buf,file1);
BlockRead(fi,buf,file1);
//I/O Error 998
BlockWrite(dest,buf,file1);
closeFile(dest);

...

closeFile(fi);

---

← →
kDenis   (2003-04-13 20:58) [1]

Я уже что-то нашел! Кому интерестно - идите сюда:
http://blackman.wp-club.net/myfaq/display.php?http://blackman.wp-club.net/myfaq/00102002.phpфакерразбить%20файл

(Это все один адрес)

---

← →
Palladin   (2003-04-13 21:44) [2]

глупостями не страдай...

BlockRead(fi,buf[Low(Buf)],file1);

---

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

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

Наверх

Память: 0.44 MB
Время: 0.007 c