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

Глючит программа   Найти похожие ветки 

← →
TopGun   (2002-09-16 20:21) [0]

Код:

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

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

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

---

← →
777 ©   (2002-09-16 21:09) [1]

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

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

---

← →
TopGun   (2002-09-16 21:15) [2]

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

---

← →
TopGun   (2002-09-16 23:54) [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);// - ОШИБКА !

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

---

← →
777 ©   (2002-09-17 00:36) [4]

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-17 17:12) [5]

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

---

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

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



Память: 0.45 MB
Время: 0.011 c