Скачать: CL | DM;

Ошибка с Stream   Найти похожие ветки 

← →
Morg   (2003-09-20 11:51) [0]

Правильно ли я отсылаю 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 11:56) [1]

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;

---

← →
Verg ©   (2003-09-20 12:02) [2]

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


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

---

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

Скачать: CL | DM;



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