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

Тема в разделе "Delphi - Сети", создана пользователем Баламут, 6 дек 2005.

  1. Баламут

    Баламут Well-Known Member

    Регистрация:
    27 июл 2005
    Сообщения:
    76
    Симпатии:
    0
    Привет всем. Возникла такая проблема...
    Пытаюсь отправить в сеть поток. Код следующий:

    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.
    Почему?!!
     
  2. Barmutik

    Barmutik Гость

    Socket - это что такое ?
     
  3. Баламут

    Баламут Well-Known Member

    Регистрация:
    27 июл 2005
    Сообщения:
    76
    Симпатии:
    0
    procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
    Socket: TCustomWinSocket);

    Т.е.
    Socket: TCustomWinSocket;
     
  4. Barmutik

    Barmutik Гость

    Хммм.. а что за версия Дельфи ?
     
  5. Баламут

    Баламут Well-Known Member

    Регистрация:
    27 июл 2005
    Сообщения:
    76
    Симпатии:
    0
    Версия 6.0. Самое обидное, что если заменить TMemoryStream на TFileStream, то все отлично работает... ;)
     
Загрузка...

Поделиться этой страницей