Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];

Вниз

Воспроизведение картинки из 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c