Многострочный текст

[adaptive person]

Я пишу на delphi программу которая позволяет передавать файлы любого размера по локальной сети. Алгоритм устроен так: программа-сервер делит HEX код файла на части и отправляет каждую часть программе-клиенту которая в свою очередь делает с его помощью файл. Это пока задумка, и у меня возникла проблема . Как пронумеровать части я уже придумал, а как поделить hex код на части (предварительно его превратив в текст) у меня не получилось . Скажите, как его поделить на части ?

[Serge_Bliznykov]

Вы изначально неверно походите.
Вам нужно оперировать не строчками, а байтовым потоком (или массивом байт).
А уж что это по сути представляет - текст на русском, текст на корейском, картинка в формате jpeg или кусок видео - это АБСОЛЮТНО неважно - это всё равно набор байт!
А делить очень просто: пока остаток в файле больше, чем размер буфера - читаем количество байт, равное размеру буфера.

вот, посмотрите, из старого доброго TurboPascal, из встроенной справки пример использования функции BlockRead/ BlockWrite (понятно, что Вам нужно другое, но общий подход/алгоритм Вы легко поймёте из данного примера!):

program CopyFile;
{ Simple, fast file copy program with NO error-checking }
var
  FromF, ToF: file;
  NumRead, NumWritten: Word;
  Buf: array[1..2048] of Byte;
begin
  Assign(FromF, ParamStr(1)); { Open input file }
  Reset(FromF, 1);  { Record size = 1 }
  Assign(ToF, ParamStr(2)); { Open output file }
  Rewrite(ToF, 1);  { Record size = 1 }
  Writeln('Copying ', FileSize(FromF), ' bytes...');
  repeat
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToF, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  Close(FromF);
  Close(ToF);
end.

[adaptive person]

Сообщение от Serge_Bliznykov

Вы изначально неверно походите.
Вам нужно оперировать не строчками, а байтовым потоком (или массивом байт).
А уж что это по сути представляет - текст на русском, текст на корейском, картинка в формате jpeg или кусок видео - это АБСОЛЮТНО неважно - это всё равно набор байт!
А делить очень просто: пока остаток в файле больше, чем размер буфера - читаем количество байт, равное размеру буфера.

вот, посмотрите, из старого доброго TurboPascal, из встроенной справки пример использования функции BlockRead/ BlockWrite (понятно, что Вам нужно другое, но общий подход/алгоритм Вы легко поймёте из данного примера!):

program CopyFile;
{ Simple, fast file copy program with NO error-checking }
var
  FromF, ToF: file;
  NumRead, NumWritten: Word;
  Buf: array[1..2048] of Byte;
begin
  Assign(FromF, ParamStr(1)); { Open input file }
  Reset(FromF, 1);  { Record size = 1 }
  Assign(ToF, ParamStr(2)); { Open output file }
  Rewrite(ToF, 1);  { Record size = 1 }
  Writeln('Copying ', FileSize(FromF), ' bytes...');
  repeat
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToF, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  Close(FromF);
  Close(ToF);
end.

Спасибо большое ! Просто я не имел объемного представления об этом.

[Slym]

Сообщение от adaptive person

позволяет передавать файлы любого размера по локальной сети.

с таким подходом это маловероятно...
как ты засунешь в мемо 2гиговый файл? а сколько будет по времени его хексить? зачем удвоение трафика?

а тупо без хекса передать сложно?

[adaptive person]

Сообщение от Slym

с таким подходом это маловероятно...
как ты засунешь в мемо 2гиговый файл? а сколько будет по времени его хексить? зачем удвоение трафика?

а тупо без хекса передать сложно?

Тогда ставятся некоторые ограничения по размеру файла.