Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.18;
Скачать: CL | DM;

Вниз

Нужна помощь мастеров!!!   Найти похожие ветки 

 
Locked   (2002-04-25 07:11) [0]

Как в реестр записать файл, а потом его считать?
Что я делаю неправильно:

function WriteFile(Name: string; FileName: string): boolean;
var
S: TFileStream;
Size: integer;
begin
try
S:=TFileStream.Create(FileName, fmOpenRead);
Reg.WriteBinaryData(Name, S, S.Size);
Result:= true;
except
Result:= false;
end;
end;

function ReadFile(Name: string; FileName: string): boolean;
var
D: TFileStream;
Size: integer;
P: Pointer;
begin
try
Size:= Reg.GetDataSize(Name);
D:=TFileStream.Create(FileName, fmCreate);
Reg.ReadBinaryData(Name, D, Size);
D.Free;
Result:= true;
except
Result:= false;
end;
end;

пишет вроде нормально , а вот на
Reg.ReadBinaryData(Name, D, Size) вылетает


 
cdaDmitriy ©   (2002-04-25 11:18) [1]

-- пишет вроде нормально , а вот на


А как ты проверял ???


 
Coalycat ©   (2002-04-25 19:57) [2]

лучше воспользоваться Tregistry


 
Cobalt ©   (2002-04-26 20:09) [3]

Попробуй следующий код:

function WriteFile(Name: string; FileName: string): boolean;
var
S: TFileStream;
Buf:array of byte;
Size: integer;
begin
try
S:=TFileStream.Create(FileName, fmOpenRead);
SetLength(Buf, S.Size);
S.ReadBuffer(Buf, S.Size);
Reg.WriteBinaryData(Name, Buf, S.Size);
Result:= true;
except
Result:= false;
end;
end;


Ну и соответственно читать тоже нужно в буфер

Вся фишка в том, что TFileStream - это указатель на таблицу виртуальных методов класса + поля класса (приблизительно). А сами даные TFileStream в "себе" не хранит, он только предоставляет доступ к ним через свои функции. Более подробно можно узнать в Хелпе по TFileStream и прочим потокам.



Страницы: 1 вся ветка

Текущий архив: 2002.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
4-58364
anod
2002-05-19 23:11
2002.07.18
Вывести рисунок на форму


3-57967
Фантом
2002-06-25 13:33
2002.07.18
Поиск в сетке по части слова


3-57978
Weare
2002-06-26 11:48
2002.07.18
Проблемы с доступом...


14-58304
Skywalker
2002-06-21 15:19
2002.07.18
Как добавить *.pas в проект CPP Builder???


1-58107
Yuri Btr
2002-07-05 11:21
2002.07.18
Play Sound