|
#1
|
|||
|
|||
TMemoryStream
Привет.
Может ли кто подсказать как разрешить данную ситуацию в Delphi2010? В 2007 всё верно Код:
Re: TRichEdit; a:string; b: string; Stream:= TMemoryStream.Create; a:='12345'; re.Lines.Add(a); Re.Lines.Savetostream(stream); b:='67890'; Stream.Write(PChar(b)^, Length(b)*SizeOf(Char)); Stream.Position := 0; Stream.SaveToFile('Путь к файлу'); ТО есть 6х7х8х9х0х Переменная a записывается корректно. Первоначально в Stream записывались данные полученные из запрос к БД с помощью (qryBlobAccess.FieldByName(FieldName) as TBlobField).SaveToStream(Stream) но с таким же некорректным результатом/ В чем может быть проблема? Что-то с кодировкой? Как можно обойти эту проблему? Последний раз редактировалось Admin, 21.08.2010 в 23:23. |