Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.29;
Скачать: CL | DM;

Вниз

Как вставить в 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;
Скачать: CL | DM;

Наверх




Память: 0.51 MB
Время: 0.016 c
1-94885
neon45
2003-05-15 22:57
2003.05.29
Как сделать, чтобы запускалась только одна копия КОНСОЛЬНОГО прил


3-94664
vvvvv
2003-05-12 14:31
2003.05.29
Как через ADO подключится к запароленной базе Access?


8-94977
shu_3d
2003-02-14 13:37
2003.05.29
Работа с CDAudio


1-94863
Salvator
2003-05-19 10:28
2003.05.29
Работа с Word через Delphi


4-95160
Tropin
2003-04-02 14:20
2003.05.29
Блокировка ввода символов