Скачать: CL | DM;

Помогите!!! Как в реестр записать файл, а потом его считать?   Найти похожие ветки 

← →
Locked   (2002-04-25 07:13) [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) вылетает

---

← →
Anatoly Podgoretsky ©   (2002-04-25 07:59) [1]

Реестр это не помойка.

---

← →
gek ©   (2002-04-25 08:11) [2]

Блин, ну зачем туда файл то записывать, реестр то не для этого служит

---

← →
locked   (2002-04-25 08:11) [3]

а что делать?

---

← →
locked   (2002-04-25 08:16) [4]

Ну допустим мне надо что то туда записывать и считывать из TMemoryStream. Как это сделать

---

← →
gek ©   (2002-04-25 08:22) [5]

Да записывай в обычный файл, какая разница то ?

---

← →
Anatoly Podgoretsky ©   (2002-04-25 08:25) [6]

Не помойка!
А для ответа недостаточно данных

---

← →
locked   (2002-04-25 08:28) [7]

а я всё таки сделал это :-)
я записал туду файл

---

← →
Anatoly Podgoretsky ©   (2002-04-25 08:31) [8]

Пользователи будут тебе за это очень благодарны

---

← →
locked   (2002-04-25 08:34) [9]

:-)))

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c