Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.016 c
14-95044
Scorpx
2003-05-09 08:42
2003.05.29
Изготовление форума.


3-94662
Kapitan
2003-05-12 12:57
2003.05.29
TDbf и codepage


6-94986
Puzzle
2003-03-26 18:43
2003.05.29
Indy idFTP - как определить, что соединение разорвано?


3-94743
Minotavr
2003-05-08 19:16
2003.05.29
Firebird default character


1-94953
Disa
2003-05-18 09:14
2003.05.29
TImage





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский