Текущий архив: 2006.10.29;
Скачать: CL | DM;
Вниз
Как прочетать весь файл использую TFileStream Найти похожие ветки
← →
Kolan © (2006-10-12 15:11) [0]Здравствуйте,
Никак не разберусь. Есть такой тип массива:TByteArray = array of Byte;
Как использую TFileStream скопировать файл в массив этого типа?
← →
MBo © (2006-10-12 15:17) [1]SetLength(A, Stream.Size)
Stream.Read(A[0], Stream.Size)
← →
Плохиш © (2006-10-12 15:21) [2]
var
fs: TFileStream;
ba: TByteArray;
begin
fs = TFileStream.Create(<FileName>);
SetLenght(ba, fs.Size);
fs.Read(ba[Low(ba)], fs.Size);
fs.Free;
end;
← →
novill © (2006-10-12 15:29) [3]> [1] MBo © (12.10.06 15:17)
А если файл больше 255 байт что делать?procedure SetLength(var S; NewLength: Integer);
Description
S is a string or dynamic-array variable.
NewLength is the new number of characters or elements in S.
For a short-string variable, SetLength simply sets the length-indicator character (the character at S[0]) to the given value. In this case, NewLength must be a value between 0 and 255.
← →
umbra © (2006-10-12 15:38) [4]2 novill © (12.10.06 15:29) [3]
а где здесь говорили о коротких строках?
← →
MBo © (2006-10-12 15:39) [5]>novill © (12.10.06 15:29) [3]
>А если файл больше 255 байт что делать?
Все то же самое и делать.
Внимательно прочитай, к чему именно относится последний абзац справки
← →
novill © (2006-10-12 15:40) [6]Хмм, похоже, только я.
)))
Туплю...
← →
Kolan © (2006-10-12 15:43) [7]
> SetLength(A, Stream.Size)
> Stream.Read(A[0], Stream.Size)
>
Черт забыл на кнопку "добавить" нажать, благодарю разобрался.
Не нашелStream.Sizeвот и думал сидел :)
← →
Kolan © (2006-10-12 16:04) [8]А загрузить?...
Stream.WriteBuffer(Data, SizeOf(Data))
Так?
← →
Kolan © (2006-10-12 16:15) [9]А се дошло...
Stream.WriteBuffer(Data[0], Length(Data) * SizeOf(Data[0]));
Страницы: 1 вся ветка
Текущий архив: 2006.10.29;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.073 c
