|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
20.10.2007, 20:28 | #11 |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 266
|
У меня снова проблема
Я записываю данные: var fs1: TMemoryStream; fs:TFileStream; b: TBitmap; begin fs1:= TMemoryStream.Create; fs := TFileStream.Create('c:\123.abc', fmCreate); Form1.Image1.Picture.Bitmap.SaveToS tream(fs1); fs.CopyFrom(fs1,0); fs1.FreeInstance; fs.FreeInstance; ShowMessage('The picture was saved'); Потом считываю: var fs1: TMemoryStream; fs2:TFileStream; b: TBitmap; begin fs2 := TFileStream.Create('c:\123.abc', fmOpenRead); fs1:= TMemoryStream.Create; fs2.Seek(0, soFromBeginning); fs1.CopyFrom(fs2,0); Image1.Picture.Bitmap.LoadFromStrea m(fs1); fs1.FreeInstance; fs2.FreeInstance; ShowMessage('The picture was opened'); Но загруженная картинка в Image не отображается. Подскажите, пожайлуста! |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Чтение изображения из базы данных, Вместо изображения - "System.Byte[]" | ruelCrow | Общие вопросы .NET | 3 | 10.07.2008 23:29 |
Проблема с record,string,TFileStream | AngelOfDeath | Общие вопросы Delphi | 6 | 31.05.2008 11:24 |
Передача функции TServerSocket и TFileStream | dns-s | Работа с сетью в Delphi | 2 | 26.03.2008 21:15 |
проблемы с TFileStream | andrey4623 | Общие вопросы Delphi | 9 | 01.11.2007 20:44 |
TFilestream | UnD)eaD)Snake | Win Api | 1 | 27.09.2007 21:22 |