Главная страница
    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.038 c
2-1143722382
diwww
2006-03-30 16:39
2006.04.16
как избавиться от Access violation?


15-1143325381
artemESC
2006-03-26 01:23
2006.04.16
Серверная обработка...


15-1143037767
Харько
2006-03-22 17:29
2006.04.16
Задачка в среду


15-1143208588
Ketmar
2006-03-24 16:56
2006.04.16
промеждупрочим о "падокавскам" языке


6-1136202876
system
2006-01-02 14:54
2006.04.16
Конвертироват KOI-8 R вида =D7=D3=C5 в WIN





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский