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

Вниз

Подскажите почему на ms.ReadBuffer постоянно Access Violation?   Найти похожие ветки 

 
TALLA ©   (2003-07-15 12:26) [0]

Подскажите почему на ms.ReadBuffer постоянно Access Violation?

var buf:array of byte; sizebuf:longint;
...
ms:=TMemoryStream.Create;
try
ms.LoadFromFile(OpenDialog1.FileName);
Image1.Picture.bitmap.LoadFromFile(OpenDialog1.FileName);
sizebuf:=ms.Size;
SetLength(buf,sizebuf);
ms.Position:=0;
ms.ReadBuffer(buf,sizebuf); //write ms to buf
r:=TRegistry.Create(KEY_ALL_ACCESS);
r.RootKey:=HKEY_LOCAL_MACHINE;
try
r.OpenKey(st,true);
r.WriteBinaryData("image",buf,sizebuf);
buf:=nil;
finally
r.Free;
end;
finally
ms.Free;
end;


 
Юрий Федоров ©   (2003-07-15 12:29) [1]

ms.ReadBuffer(buf [0],sizebuf); //write ms to buf
???


 
Skier ©   (2003-07-15 12:30) [2]

ms.ReadBuffer(buf [0],sizebuf);


 
MBo ©   (2003-07-15 12:30) [3]

ms.ReadBuffer(buf [0],sizebuf);


 
MBo ©   (2003-07-15 12:30) [4]

;)


 
Skier ©   (2003-07-15 12:30) [5]

Команда по синхронному плаванию. :)


 
TALLA ©   (2003-07-15 13:02) [6]

Заработало, однако:)
А я неделю голову самостоятельно ломал:)


 
Song ©   (2003-07-15 21:46) [7]

А я неделю голову самостоятельно ломал:)

Бывает..



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
1-100700
GSergei
2003-07-18 14:06
2003.07.31
Дерево каталогов


3-100571
Вован
2003-07-05 17:50
2003.07.31
Как создавать lookup поля в run-time?


14-100967
pet
2003-07-13 18:36
2003.07.31
иконки


1-100825
афвуд
2003-07-16 18:51
2003.07.31
Хочу чтобы TImage был выше всех на форме.


7-100991
Velikan
2003-05-20 02:16
2003.07.31
Как получить доступ к USB?