Текущий архив: 2003.04.24;
Скачать: CL | DM;
Вниз
Как разбить файл? Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
