|
Функции для склейки файлов
|
|
| 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
|
| |
| |
