Передача потока. TServer\ClientSocket

[NikLik]

Передача текста (клиент->сервер) проходит отлично.
Пытаюсь перебросить картинку(TMemoryStream).
Перебрасываю с TServerSocket на TClientSocket.
Так отправляю:

procedure tform1.screenshot;
var
  fs:tmemorystream;
begin
if boolean(serversocket1.Socket.ActiveConnections) then begin
fs:=tmemorystream.Create;
fs.Position:=0;
image1.Picture.Bitmap.SaveToStream(fs);
fs.Position:=0;
serversocket1.Socket.Connections[0].SendStream(fs);
fs.Destroy;
end;
end;

Так пытаюсь принять:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var iblen:integer;
buf:pchar;
fs:tmemorystream;
begin
fs:=tmemorystream.Create;
iblen:=socket.ReceiveLength;
getmem(buf,iblen+1);
fs.Position:=0;
socket.ReceiveBuf(buf,iblen);//на этой строке вылазит ошибка
fs.WriteBuffer(buf,iblen);
fs.Position:=0;
image1.Picture.Bitmap.LoadFromStream(fs);
end;

На отмеченной строке вылазит ошибка "Windows socket error: Программа на вашем хост-компьютере разорвала установленное подключение (10053), on API 'recv'".
Программа-сервер просто вылетает.
Как с этим бороться?

[alexBlack]

Поток не нужно уничтожать. Он будет уничтожен сокетом после отправки.

serversocket1.Socket.Connections[0].SendStream(fs);
//fs.Destroy;

//По-моему уже был такой вопрос.

[NikLik]

Проблема не решена. Та же самая ошибка

[alexBlack]

По-моему проблема с getMem и pChar.
Лучше pointer и вот так:

L := socket.ReceiveBuf(buf^, L);
fs.WriteBuffer(buf^, L);

На всякий случай весь проект:

// Client 
    Client : TClientSocket;
    procedure OnRead(Sender: TObject; Socket: TCustomWinSocket);

procedure TForm1.FormCreate(Sender: TObject);
begin
   Client := TClientSocket.Create(nil);
   Client.Address := '127.0.0.1';
   Client.Port    := 8020;
   Client.Active  := true;
   Client.OnRead  := OnRead;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   Client.Free;
end;

procedure TForm1.OnRead(Sender: TObject; Socket: TCustomWinSocket);
var fs:TMemoryStream;
    L:integer;
    buf : pointer;
begin
   fs := TMemoryStream.Create;
   try
      L := socket.ReceiveLength;
      fs.SetSize(L);
      getmem(buf, L);

      fs.Position := 0;
      L := socket.ReceiveBuf(buf^, L);
      fs.WriteBuffer(buf^, L);
      fs.Position:=0;
      image1.Picture.Bitmap.LoadFromStream(fs);

   finally
     fs.free;
     freeMem(buf);
   end;
end;

// Server
    Server : TServerSocket;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Server := TServerSocket.Create(nil);
   Server.Port := 8020;
   Server.Active := true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   Server.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var fs:tmemorystream;
begin
   if Server.Socket.ActiveConnections > 0 then begin
      fs := tmemorystream.Create;
      fs.Position:=0;
      image1.Picture.Bitmap.SaveToStream(fs);
      fs.Position:=0;
      Server.Socket.Connections[0].SendStream(fs);
   end
end;

[NikLik]

Спасибо, проблема решена.
Но теперь появилась другая проблема-- ошибка Bitmap image is not valid.
Есть варианты решения?

[alexBlack]

Сообщение от NikLik

Спасибо, проблема решена.
Но теперь появилась другая проблема-- ошибка Bitmap image is not valid.
Есть варианты решения?

Пока делал тестовый проект такая ошибка тоже была когда забыл одну из галочек.
fs.WriteBuffer(buf^, L);
Проверьте еще раз. Код, который я привел, рабочий.
---------------------------
Есть еще один момент. Я использовал для теста BitMap 406 байт. Если поток большой, сервер запросто может разбить его на несколько пакетов. Проверьте количество вызовов OnRead (закоментируйте преобразование в BitMap и повесьте счетчик.). По-хорошему нужно бы сначала принять размер потока, потом все части и только когда поток принят полностью, преобразовывать его в BitMap.

[NikLik]

Кажется, я понял где "ошибка".
Ваш код полностью рабочий, но я не учёл 1 момент--картинка, похоже, передаётся не целиком, а по частям.(первый раз работаю с сокетами)Что мне и непонятно--видел несколько исходников, в которых это никак не предусматривалось--и всё работало.
Пересылка идёт по 8,2 кб.
Как с этим бороться?

[Pedro]

А тебе именно TServer\ClientSocket надо? Я передавал картинку через Indy компоненты, там это проще.

[NikLik]

Всем ещё раз спасибо, разобрался.
Выкладываю то, что получилось-- небольшая тулза(клиент-сервер)(считай--бэкдор), способная выполнять простейшие команды+ давать скриншот.

[frizz]

Сообщение от NikLik

Всем ещё раз спасибо, разобрался.
Выкладываю то, что получилось-- небольшая тулза(клиент-сервер)(считай--бэкдор), способная выполнять простейшие команды+ давать скриншот.

благодарю)))