Отправить поток в сеть

Баламут

Well-Known Member
27.07.2005
76
0
#1
Привет всем. Возникла такая проблема...
Пытаюсь отправить в сеть поток. Код следующий:

bmp := TBitmap.Create;
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;
DC := GetDC(0);
BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, DC, 0, 0, SRCCopy);
Data := TMemoryStream.Create;
Data.Position := 0;
bmp.SaveToStream(Data);
Data.Position := 0;
Socket.SendStream(Data);

При отправке вылетает ошибка: Read of address 00000000.
Почему?!!
 

Баламут

Well-Known Member
27.07.2005
76
0
#5
Версия 6.0. Самое обидное, что если заменить TMemoryStream на TFileStream, то все отлично работает... ;)