VPF::не работает SendText - Форум программистов

BSOD

Дата 16.1.2006, 18:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 405
Регистрация: 1.11.2004
Где: Гомель

Репутация: нет
Всего: 3

Код


procedure Tizd.sendscreen;
  var
    dc     : HDC;
  begin
    dc:=getDC(0);
    try
      bitblt(bm.canvas.Handle,0,0,screen.Width,screen.Height,dc,0,0,SRCCOPY);
    except
    end;
    bmp.Assign(bm);
    bmp.Compress;
    bmp.SaveToStream(stre);
    try
      with Form1 do
        begin
          stre.Position:=0;
          ServerSocket1.Socket.SendText('Size: '+inttostr(stre.Size)+#0);  // здесь не работает =(
          ServerSocket1.socket.SendStream(stre);                                      //
        end;
    finally
      ReleaseDC(dc,0);
    end;
end;

при попытке отправить текст при помощи ServerSocket, вылетает error 10057...
почему и что делать?

Это сообщение отредактировал(а) BSOD - 16.1.2006, 19:25

--------------------

как корабль назовешь - то на нем и напишешь

Snowy

Дата 16.1.2006, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Это не SendText не работает - это у тебя коннект отвалился.
А почему он это сделал - из этого кода не видно.

_hunter

Дата 16.1.2006, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98

это ошибка WSAECONNRESET,Connection reset by peer
разбирайся с другой стороной

--------------------

Tempora mutantur, et nos mutamur in illis...

BSOD

Дата 16.1.2006, 19:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 405
Регистрация: 1.11.2004
Где: Гомель

Репутация: нет
Всего: 3

Упс. Извиняюсь. Абшибся... error 10057....

--------------------

как корабль назовешь - то на нем и напишешь

_hunter

Дата 16.1.2006, 20:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98

Socket is not connected
ситуация аналогичная

--------------------

Tempora mutantur, et nos mutamur in illis...

BSOD

Дата 16.1.2006, 20:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 405
Регистрация: 1.11.2004
Где: Гомель

Репутация: нет
Всего: 3

Дык а если посмотреть свойство Socket.connected, то оно true.....
Добавлено @ 20:08
И вот еще: на другой стороне стало выскакивать "error 10061"...

с другой стороны:

Код


procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  s: string;
begin
  s:=Socket.ReceiveText;
  if receiving then
    begin
      stre.Write(s[1],sizeof(s));
      if stre.Size=DS then
        begin
          receiving:=false;
          img.LoadFromStream(stre);
          bm.Assign(img);
          Form2.Image1.Picture.Bitmap:=bm;
        end;
      exit;
    end;
  if pos('Size: ',s)<>0 then
    begin
      delete(s,1,6);
      DS:=strtoint(copy(s,1,pos(#0,s)-1));
      receiving:=true;
      delete(s,1,pos(#0,s));
      stre.Write(s[1],sizeof(s))
    end;
end;

Это сообщение отредактировал(а) BSOD - 16.1.2006, 20:12

--------------------

как корабль назовешь - то на нем и напишешь

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »