Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Загрузка данных из файла в поток

Pavel © (2010-02-28 20:53:00)
Возможно ли с поощью функции LoadFromFile загрузить не весь файл в поток, а только половину?

Anatoly Podgoretsky (2010-03-01 12:53:00) [1]
> Игорь Шевченко (01.03.2010 12:38:16) [16]

Наоборот надо докупать, метр это слишком круто.

Игорь Шевченко (2010-03-01 12:38:00) [2]

> я ща фтп по улице тяну, можно мне крепить его не через метр,
> а через полтора? а то стяжек не хватает

нельзя

Anatoly Podgoretsky (2010-03-01 09:31:00) [3]
> Германн (01.03.2010 00:16:10) [10]

Возьми с полки пирожок, их там два, возьми средний.

KilkennyCat (2010-03-01 04:02:00) [4]

> не возражаю

я ща фтп по улице тяну, можно мне крепить его не через метр, а через полтора? а то стяжек не хватает.

Игорь Шевченко (2010-03-01 03:18:00) [5]

> Необходимо, прочитать первую половину файла, ее обработать,
> а затем прочитать вторую половину файла.

не возражаю

Германн (2010-03-01 01:00:00) [6]

> Плохиш © (01.03.10 00:45) [11]

Может это не поиск "тормозов", а учебная задача?

Плохиш (2010-03-01 00:45:00) [7]

> Pavel (28.02.10 21:55) [9]
>
> Необходимо, прочитать первую половину файла, ее обработать,
> а затем прочитать вторую половину файла.

Не там ищешь тормоза, ищи в своём коде.

Германн (2010-03-01 00:16:00) [8]

> Необходимо, прочитать первую половину файла

Определение термина "половина файла" в студию.

Pavel (2010-02-28 21:55:00) [9]
Необходимо, прочитать первую половину файла, ее обработать, а затем прочитать вторую половину файла.

Pavel (2010-02-28 21:50:00) [10]
Если не слжно скиньте примерчик, спасибо.

Baks (2010-02-28 21:44:00) [11]
TStringStream

property Size: Longint;

Description

Read Size to determine how many bytes are used to store the value of DataString. Set Size to truncate the textor to increase the length of DataString. If Size is set to a value greater than the current length of the text, the content of the new bytes is undefined.

Медвежонок Пятачок (2010-02-28 21:42:00) [12]
ну и грузи половину.

Pavel (2010-02-28 21:40:00) [13]
Есть файл "Text.txt", есть поток "st1: TStringStream". В поток st1 нужно загрузить не весь файл "Text.txt", а только половину.

Baks (2010-02-28 21:39:00) [14]
Используй процыдуры BlockRead (для чтения) и BlockWrite (для записи).

var
FromF: file;
NumRead: Integer;
Buf: array[1..2048] of Char;
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
try
while not eof(FromF) do
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
finally
CloseFile(FromF);
end;
end;

Так можно прочитать нужное кол-во данных.

Anatoly Podgoretsky (2010-02-28 21:32:00) [15]
Про какой поток речь?

Игорь Шевченко (2010-02-28 21:07:00) [16]
Кроме LoadFromFile существует еще масса интересных функций. А у LoadFromFile есть исходный текст.

Медвежонок Пятачок (2010-02-28 21:07:00) [17]
если есть поток, то при чем здесь лоадфромфайл?
это единственный что ли его паблик метод?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »