Вверх ↑
Ответов: 62
Рейтинг: -1
#1: 2021-09-16 20:26:37 ЛС | профиль | цитата
Netspirit, нашел в исходнике компонента EnCrypt\DeCrypt такую вещь

Src := NewReadFileStream(ReadString(_Data, _data_SrcFileName, ''));
if Src.Handle = INVALID_HANDLE_VALUE then
begin
Err := ERROR_OPEN_SRC_FILE;
goto finish;
end;

Fn := ReadString(_Data, _data_DstFileName, '');
Dst := NewFileStream(Fn, ofOpenWrite or ofCreateAlways or ofShareDenyWrite);
if Dst.Handle = INVALID_HANDLE_VALUE then
begin
Fn := '';
Err := ERROR_OPEN_DST_FILE;
goto finish;
end;

Count := Src.Size;

если вместо Src.Size я пишу допустим 1000, то он кодирует то нормально, но если это файл размером 52 кб, то после кодирования он становится 1 кб, что дописать в этом коде? сейчас он получается кодирует указанный мной размер, а остальную часть файла обрезает
карма: 0

0
Редактировалось 1 раз(а), последний 2021-09-16 21:32:44