| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Глючит программа [D5]

TopGun ©   (2002-09-16 20:21:00) 

Код:

var srcfile: TFileStream;
Buf:PChar;
BufSize:integer;
begin
BufSize:=4056;
srcfile := TFileStream.Create(filename,fmOpenRead);
GetMem(Buf,BufSize+1);
srcfile.WriteBuffer(buf,BufSize);// - ОШИБКА !

В Filename хранится имя файла (правильное).

Почему возникает ошибка ?

---

TopGun   (2002-09-17 17:12:00) [1]

Ой я баран....

---

777   (2002-09-17 00:36:00) [2]

var srcfile: TFileStream;
Buf:PChar;
BufSize:integer;
begin
BufSize:=4056;
srcfile := TFileStream.Create(FileName,fmOpenRead);
GetMem(Buf,BufSize+1);
srcfile.Position:=0;
srcfile.Read(buf^,bufsize);

---

TopGun   (2002-09-16 23:54:00) [3]

В пример вкралась ошибка !

Не srcfile.WriteBuffer(buf,BufSize), а srcfile.ReadBuffer(buf,BufSize)

То есть текст программы таков:

var srcfile: TFileStream;
Buf:PChar;
BufSize:integer;
begin
BufSize:=4056;
srcfile := TFileStream.Create(filename,fmOpenRead);
GetMem(Buf,BufSize+1);
srcfile.ReadBuffer(buf,BufSize);// - ОШИБКА !

Почему ошибка ?

---

TopGun   (2002-09-16 21:15:00) [4]

К сожалению, хелпа у меня нету

---

777   (2002-09-16 21:09:00) [5]

> srcfile := TFileStream.Create(filename,fmOpenReadWrite);

вообще в хелпе полезно посмотреть fmOpen...

---

Наверх