Функции для склейки файлов
|
|
Born | Дата: Вторник, 29.07.2014, 03:03 | Сообщение # 1 |
Частый гость
Зарегистрирован: 01.10.2012
Группа: Пользователи
Сообщений: 49
Статус: Offline
| Всем привет. Ребят кто подскажет,какие функции нужны для написания джойнера?
|
|
| |
d4rkzy | Дата: Вторник, 29.07.2014, 13:07 | Сообщение # 2 |
Постоянный
Зарегистрирован: 15.11.2013
Группа: Пользователи
Сообщений: 135
Статус: Offline
| Born, Одна лишь функция: function mozg(hands : integer) Tstream;
Будут вопросы обращайся =)
|
|
| |
Anton93 | Дата: Вторник, 29.07.2014, 13:37 | Сообщение # 3 |
Продвинутый
Зарегистрирован: 06.01.2010
Группа: Модераторы
Сообщений: 320
Статус: Offline
| Born, в основном для работы с файлом. перечислять не буду, так как все за висит от того как ты будешь реализовывать, и одни и те же функции могут быть разными. к примеру, чтение файла можно реализовать на встроенных функциях delphi, а можно через WinAPI. поэтому реализация будет выглядеть по разному. пиши вопрос более конкретно
ICQ: 41896
|
|
| |
Slash | Дата: Вторник, 29.07.2014, 20:50 | Сообщение # 4 |
Постоянный
Зарегистрирован: 20.12.2012
Группа: Пользователи
Сообщений: 161
Статус: Offline
| На форуме есть примеры файловых вирусов, простейший Джойнер работает по примерно такому-же методу.
|
|
| |
Born | Дата: Четверг, 31.07.2014, 22:44 | Сообщение # 5 |
Частый гость
Зарегистрирован: 01.10.2012
Группа: Пользователи
Сообщений: 49
Статус: Offline
| d4rkzy, А ты не умничай. Добавлено (31.07.2014, 22:44) --------------------------------------------- Procedure BlockRead(Var F : File; Var Buf; Count : Word [; Var Result : Word]); Procedure BlockWrite(Var F : File; Var Buf; Count : Word [; Var Result : Word]); Эти процедуры использовать?
|
|
| |
d4rkzy | Дата: Пятница, 01.08.2014, 19:03 | Сообщение # 6 |
Постоянный
Зарегистрирован: 15.11.2013
Группа: Пользователи
Сообщений: 135
Статус: Offline
| Цитата Born ( ) d4rkzy, А ты не умничай. А ты вопросы дебильные не спрашивай)
Используй что хочешь, хоть file.exe+filexe joined.exe батником. Главное что бы уникальней было.
|
|
| |
Anton93 | Дата: Понедельник, 04.08.2014, 20:33 | Сообщение # 7 |
Продвинутый
Зарегистрирован: 06.01.2010
Группа: Модераторы
Сообщений: 320
Статус: Offline
| Born, вот тебе пример функции, на функциях, которые ты предложил
Код function FileToString(nf:string):string; var FromF: File; NumRead: Integer; buf: Array[1..2560] of Char; tmp: string; begin tmp:=''; AssignFile(FromF, nf); Reset(FromF, 1); while not eof(FromF) do begin
filemode:=0; BlockRead(FromF, buf, 2560, numread); filemode:=2; tmp:=tmp+copy(buf, 1, numread);
end; closefile(FromF); result:=tmp; end;
для джойнера может пригодиться
ICQ: 41896
|
|
| |