Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
ВнизКак вставить в image картинку из потока ? Найти похожие ветки
← →
Ghost (2003-05-19 13:12) [0]Делаю так
MyStream.Position := 0;
form1.Image1.picture.Bitmap.LoadFromStream(MyStream);
в итоге в image1 ничего не происходит !
если сохранить даные из потока на диске то всё нормально.
проблема с image
← →
Skier (2003-05-19 13:20) [1]>Ghost (19.05.03 13:12)
А как ты "грузишь" в MyStream ?
← →
Ghost (2003-05-19 13:23) [2]MyStream := TMemoryStream.Create;
MyStream.CopyFrom(Strm, NMStrmServ1.BytesTotal); // Извлекаем файл из потока
я передаю поток по сети ! что поток работает и данные передаються можно узнать , потому что можно сохранить поток в файл , а вот поместить картинку в image не сохраняя на диске не могу
← →
Skier (2003-05-19 13:27) [3]>Ghost (19.05.03 13:23)
1) Что есть Strm ?
2) Попробуй сохранить MyStream в файл.
Он случаем не пустой будет ?
← →
Spartak (2003-05-19 13:32) [4]я же 2 раза сказал что всё нормально ! !!!!!!!!
при сохранении на диск !
а в image не хочет
а Strm эти и есть MyStream только после получения по сети !
надо было написать так : MyStream.CopyFrom(MyStream, NMStrmServ1.BytesTotal);
← →
MBo (2003-05-19 13:35) [5]вот так работает:
procedure TForm1.Button1Click(Sender: TObject);
var ms:tmemorystream;
begin
ms:=tmemorystream.Create;
ms.LoadFromFile("e:\4.bmp");
ms.Position:=0;
image1.Picture.Bitmap.LoadFromStream(ms);
end;
← →
Skier (2003-05-19 13:38) [6]>Spartak © (19.05.03 13:32)
Теперь осталось выяснить : Какой формат у файла из MyStream ?
← →
Spartak (2003-05-19 13:39) [7]> Skier
JPG !
← →
Spartak (2003-05-19 13:41) [8]> MBo
Мне как раз и не нужно сохранять на диске ! мне нужно отобразить картинку в image из потока
← →
Skier (2003-05-19 13:41) [9]>Spartak © (19.05.03 13:39)
form1.Image1.picture. Bitmap.LoadFromStream(MyStream);
Не наводит на мысль ?
← →
MBo (2003-05-19 13:43) [10]В потоке, значит, жопег лежит, а загрузить битмап хочешь?
Ну-ну...
← →
Юрий Зотов (2003-05-19 13:44) [11]Оригинально. Грузим JPG в битмап и хотим, чтоб показывало.
Это что, шутка такая?
← →
Spartak (2003-05-19 13:47) [12]Точно ! блин ...
Можно тогда кусочек кода как загружать в image jpg которая находиться в потоке а не на диске
файл можно грузануть так image1.picture.loadpromfile а аот поток ?
← →
Skier (2003-05-19 13:49) [13]>Spartak © (19.05.03 13:47)
TJPEGImage
← →
Spartak (2003-05-19 13:52) [14]пожайлусто кодом ! я не разу не работал с TJPEGImage
← →
MBo (2003-05-19 13:59) [15]F1
← →
Spartak (2003-05-19 14:08) [16]да ... очень трудно 1 строчку показать :(
← →
Spartak (2003-05-19 14:16) [17]Всего то ! :)
JPEG := TJPEGImage.Create;
JPEG.LoadFromStream(MyStream);
form1.Image2.Picture.Assign(JPEG);
спасибо всем !
← →
Skier (2003-05-19 14:25) [18]>Spartak © (19.05.03 14:16)
Про JPEG.Free не забыл ? :)
← →
Spartak (2003-05-19 14:52) [19]нет не забыл :)
← →
Skier (2003-05-19 14:53) [20]>Spartak © (19.05.03 14:52)
А про try-finally-end ? :))
← →
Spartak (2003-05-19 15:17) [21]тоже не забыл ! это в первую очередь ( вернее в последнюю перед тем как дать пользоваться программой ! а когда тестирую не включаю
для того чтобы видеть что глючит )
Спасибо за советы
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.007 c