Ошибка с 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;

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

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

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