Суббота, 05.10.2024, 00:22 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
Функции для склейки файлов
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
 
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz