Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];

Вниз

From TMemoryStream to PByte   Найти похожие ветки 

 
Fl@sh ©   (2006-03-29 16:38) [0]

var
 ms: TMemoryStream;
 Buffer: PByte;
 MemSize: Integer;
begin

 ms := TMemoryStream.Create;

 try
   ms.LoadFromFile("ms.stream");

   MemSize := ms.Size;
   Inc(MemSize);
   buffer := AllocMem(MemSize);
   ms.Write(Buffer^, MemSize);
   ms.Clear;

   ms.Read(Buffer^, MemSize);

   cds.LoadFromStream(ms);

 finally
   ms.Free;
   FreeMem(Buffer, MemSize);
 end;

Неработает!
Исправте, в чем я неправ.


 
Reindeer Moss Eater ©   (2006-03-29 17:06) [1]

Перепутал местами Read и Write


 
Reindeer Moss Eater ©   (2006-03-29 17:11) [2]

И это еще зачем?

Inc(MemSize);


 
Fl@sh ©   (2006-03-29 18:55) [3]


> Reindeer Moss Eater ©   (29.03.06 17:11) [2]
>
> И это еще зачем?


Сначало это додавало окончание нуля для Pchar
Спасибо, буду пробовать.



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

Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.039 c
2-1144123769
Rubey
2006-04-04 08:09
2006.04.16
Неопубликованные свойства


11-1124641394
hunn
2005-08-21 20:23
2006.04.16
изменения в ListView


8-1131366861
HEXO4YXA
2005-11-07 15:34
2006.04.16
ActiveX в AVI :)


15-1143299806
Карелин Артем
2006-03-25 18:16
2006.04.16
Мама родная! Ну нет у меня такой сети!


6-1136699997
ezorcist
2006-01-08 08:59
2006.04.16
Запретить показывать ошибку





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский