Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.01;
Скачать: CL | DM;

Вниз

указатели   Найти похожие ветки 

 
непонимающий   (2006-09-08 11:41) [0]

Возникла проблемка, код:
type
 TInf_soob = packed record
   zag: TZag_inf_soob;
   inf_kadr: array of Byte;
  MD5: integer;
 end;
 PInf_soob=^TInf_soob;
......................................................................
s:=OpenDialog1.FileName;
AssignFile(F,s);
Reset(F,1);
.........................
seek(F,i2);
GetMem(glav,i4);  
BlockRead(F,glav^.inf_kadr,i5);     {???????????????}
glav^.MD5:=0;
glav_nach.priznak_konca:=1;
SetEvent(event_otpr);
...................................

проблема возникает вот на этой строке {???????????????}: из файла просто не считывает в glav^.inf_kadr информацию, может кто-нибудь подскажет как это исправить...


 
Reindeer Moss Eater ©   (2006-09-08 11:43) [1]

из файла просто не считывает в glav^.inf_kadr информацию, может кто-нибудь подскажет как это исправить...

Надо указывать правильный буфер для считывания, а не то что у тебя


 
Reindeer Moss Eater ©   (2006-09-08 11:45) [2]

Твоя пакет рекорд TInf_soob это непрерывный кусок памяти.
Но элементы массива inf_kadr лежат за пределами этого куска.


 
непонимающий   (2006-09-08 11:47) [3]

т.е под inf_kadr нужно отдельно выделять память???


 
Сергей М. ©   (2006-09-08 11:50) [4]


> т.е под inf_kadr нужно отдельно выделять память???
>


Угу... Аж i5 байт ..


 
непонимающий   (2006-09-08 12:15) [5]

спасибо, сейчас попробуем...


 
Loginov Dmitry ©   (2006-09-08 15:38) [6]

Вместо

GetMem(glav,i4);

используй

New(glav)

Не забывай про очистку памяти:

Dispose(glav);

Размер массиву inf_kadr устанавливай вручную следующим образом:

SetLength(inf_kadr, N)



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

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

Наверх




Память: 0.47 MB
Время: 0.03 c
1-1155876271
mefodiy
2006-08-18 08:44
2006.10.01
Автоматическое открытие ComboBox


2-1157719417
arhis
2006-09-08 16:43
2006.10.01
Автоматическое закрыте формы


3-1154322875
yaral
2006-07-31 09:14
2006.10.01
LoadFromStream FIB Plus


1-1155760157
иван8511
2006-08-17 00:29
2006.10.01
Как протестировать архив winrar из программы


1-1155793236
DelphiLexx
2006-08-17 09:40
2006.10.01
Быстро определить последние размещенный контрол