|
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
|
| |
|
|
