Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.10.2007, 20:28   #11
andrey4623
Форумчанин
 
Аватар для andrey4623
 
Регистрация: 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 не отображается.
Подскажите, пожайлуста!
andrey4623 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Чтение изображения из базы данных, Вместо изображения - "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