Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.30;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.012 c
3-97950
Bishop
2002-09-07 14:36
2002.09.30
FibDataSet


14-98335
Aga
2002-09-05 16:41
2002.09.30
ярлыки


3-98010
Alex_Sun
2002-09-04 18:06
2002.09.30
ADOQuery.Sort


1-98069
3asys
2002-09-19 13:03
2002.09.30
Организация последовательности операций


1-98091
REA
2002-09-19 17:08
2002.09.30
Недержание свойств