| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка с Stream [D6, Win2k, WinXP]

Morg ©   (2003-09-20 11:51:00) 

Правильно ли я отсылаю Stream, почему выдает ошибку ?
Abstract Error.

procedure TForm1.Button1Click(Sender: TObject);
var
JpegIm: TJpegImage;
str: TStream;
begin
JpegIm := TJpegImage.Create;
str := TStream.Create;
JpegIm.LoadFromFile("C:\pic.jpg");
JpegIm.SaveToStream(str);
ServerSocket1.Socket.Connections[0].SendStream(str);
JpegIm.Destroy;
str.Free;
end;

---

Verg   (2003-09-20 12:02:00) [1]

> // нн дя.. А почему 0? Почему не 1 или 2?


А, догадался - "кто первый встал, того и тапки"

---

Verg   (2003-09-20 11:56:00) [2]

TStream - абстрактный класс, т.е. это прототип.
Нужно использовать его наследников (TFileStream, TMemoryStream и т.д).
> procedure TForm1.Button1Click(Sender: TObject);
> var
> JpegIm: TJpegImage;
> str: TStream;
> begin
> // JpegIm := TJpegImage.Create;
> str := TFileStream.Create("C:\pic.jpg", fmOPENREAD);
> //JpegIm.LoadFromFile("C:\pic.jpg");
> // JpegIm.SaveToStream(str);
// к чему эти все перекидавания через JpegIm?
> ServerSocket1.Socket.Connections[0].SendStream(str);
// нн дя.. А почему 0? Почему не 1 или 2?
> // JpegIm.Destroy;
> str.Free;
> end;

---

Наверх