![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите!!! Как в реестр записать файл, а потом его считать?
Locked © (2002-04-25 07:13:00)Что я делаю неправильно:
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) вылетает
locked (2002-04-25 08:34:00) [1]:-)))
Anatoly Podgoretsky (2002-04-25 08:31:00) [2]Пользователи будут тебе за это очень благодарны
locked (2002-04-25 08:28:00) [3]а я всё таки сделал это :-)
я записал туду файл
Anatoly Podgoretsky (2002-04-25 08:25:00) [4]Не помойка!
А для ответа недостаточно данных
gek (2002-04-25 08:22:00) [5]Да записывай в обычный файл, какая разница то ?
locked (2002-04-25 08:16:00) [6]Ну допустим мне надо что то туда записывать и считывать из TMemoryStream. Как это сделать
gek (2002-04-25 08:11:00) [7]Блин, ну зачем туда файл то записывать, реестр то не для этого служит
locked (2002-04-25 08:11:00) [8]а что делать?
Anatoly Podgoretsky (2002-04-25 07:59:00) [9]Реестр это не помойка.