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

Вниз

Воспроизведение картинки из TMemoryStream a   Найти похожие ветки 

 
neodiX ©   (2002-05-23 18:15) [0]

После сохранения картинки в Stream, не могу отабразить ее в Image. Я делаю так:

procedure TForm1.Button1Click(Sender: TObject);
var bmp:tbitmap;
DC:HDC;
jpg:Tjpegimage;
ms:Tmemorystream;
begin
bmp:=Tbitmap.Create;
jpg:=tjpegimage.Create;
ms:=Tmemorystream.Create;
DC:=getDC(0);
bmp.Width:=screen.width;
bmp.Height:=screen.Height;
bitblt(bmp.Canvas.Handle,0,0,screen.Width,screen.Height,DC,0,0,srcCOPY);
jpg.Assign(bmp);
jpg.CompressionQuality:=70;
jpg.Compress;
jpg.SaveToStream(ms);
image1.Picture.Bitmap.LoadFromStream(ms);
end;

но ничего не получается. Если в место Bitmap указать Graphic у компонента image1 выдает ошибку "Access violation...". Masters в чем проблема? Вообще то есть еще вопрос: у компонента Tclientsocket есть метод SendStream, a у ТServerSocket нет метода ReadStream, так как серверу обработать/считать поток?<br>Заранее сенкс за ответы.


 
MBo ©   (2002-05-23 18:23) [1]

image1.Picture.LoadFromStream(ms);


 
neodiX ©   (2002-05-23 18:45) [2]

>MBo
Oшибка!!!
у метода Picture нет процедуры LoadFromStream(ms);


 
neodiX ©   (2002-05-23 19:10) [3]

так в чем же проблема???


 
neodiX ©   (2002-05-23 20:31) [4]

Eto nado tak napisat, vot DURAK(eto ja pro sebia). Ispravliajus:
U klassa TPicture net metoda LoadFromStream(ms).
Za takoe ubivat nado :) No vsio ze mozet kto znaet v ciom delo?


 
cyborg ©   (2002-05-23 20:58) [5]

А я делал месяца 3 назад, но уже всё забыл :-)


 
MBo ©   (2002-05-23 21:15) [6]

jpg.loadfromStream(ms);
image1.Picture.assign(jpg);


 
Набережных С.   (2002-05-23 22:11) [7]

Смотри:

procedure TForm2.Button2Click(Sender: TObject);
var bmp:tbitmap;
DC:HDC;
jpg:Tjpegimage;
ms:Tmemorystream;
begin
bmp:=Tbitmap.Create;
jpg:=tjpegimage.Create;
Image1.Picture.Assign(jpg); // Здесь
ms:=Tmemorystream.Create;
DC:=getDC(0);
bmp.Width:=screen.width;
bmp.Height:=screen.Height;
bitblt(bmp.Canvas.Handle,0,0,screen.Width,screen.Height,DC,0,0,srcCOPY);
jpg.Assign(bmp);
bmp.Free; // Здесь
jpg.CompressionQuality:=70;
jpg.Compress;
jpg.SaveToStream(ms);
jpg.Free; // Здесь
ms.Position:=0; // Здесь
image1.Picture.Graphic.LoadFromStream(ms);// Здесь
end;



Страницы: 1 вся ветка

Текущий архив: 2002.06.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.011 c
1-17864
начинающий програмер
2002-05-24 16:48
2002.06.06
Архивация при перемещении


1-17876
AlexeyBl
2002-05-26 14:22
2002.06.06
Нужен TeeChart 5.02 !


3-17802
Eraser
2002-05-16 09:53
2002.06.06
Хочу как в Access


1-17912
vladish
2002-05-27 15:22
2002.06.06
блокировка панелей, выпадающих меню, стола W95/98


14-18108
Феликс
2002-04-27 00:04
2002.06.06
Избранное