Главная страница
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
8-98225
Ден
2002-03-21 20:30
2002.09.30
Как проиграть в своей проге два аудио файла одновременно


3-97953
RDA
2002-09-08 13:46
2002.09.30
FIBPlus и Мастер - Деталь


4-98399
Rebenok Kirill
2002-08-12 17:29
2002.09.30
Работа с текстом в чужих окнах


3-98017
IgorP
2002-09-08 17:35
2002.09.30
Компонент TSQLStoredProc не работает с MS SQL и Oracle


1-98196
Ученик
2002-09-17 16:43
2002.09.30
Продолжаем приколы (особенности) Delphi 7