Передать Канву

[Pedro]

Здраствуйте! Обьясните пожалуйста как
1. передать содержимое канвы или Image через idtcpserver/client?
2. Как с помощью них же передавать потоки(TStream), idtcpclient.writestream() что то не получается?
Заранее благодарен

[Квэнди]

что не получается ?

[BOBAH13]

Содержимое канвы это есть матрица цветов.

var
  i: Integer; // счетчик
  buf: Pointer; // буфер, матрица цветов, ее и шлете
  size: Integer; // размер буфера
  linesize: Integer; // размер в линии канвы

...

  linesize := TCanvas.Brush.Bitmap.Width;
  case TCanvas.Brush.Bitmap.PixelFormat of
    pf15bit, pf16bit: linesize := linesize * 2;
    pf24bit: linesize := linesize * 3;
    pf32bit: linesize := linesize * 4;
  end;
  size := linesize * TCanvas.Brush.Bitmap.Height;
  GetMem(buf, size);

  for i:= 0 to TCanvas.Brush.Bitmap.Height - 1 do
    move(TCanvas.Brush.Bitmap.ScanLine[i]^,
    Pointer(Integer(buf) + linesize * i)^, linesize);

  // тело отправки
  // WinSock.Send(s, buf^, size, 0);

  FreeMem(buf, size);

Вроде не ошибся Конечно, если там формат с использованием палитры, то лучше уже записать Bitmap в поток и отпарвить

[Pedro]

лучше уже записать Bitmap в поток и отпарвить

Скажите как это сделать???
Я делаю так:

image1.picture.bitmap.savetostream(str)///записываю содержимое Image в поток(TMemoryStream)
Athread.connections.writestream(str,true,false,sizeof(str))///ну вроде посылаю поток

Клиент:

IdTcpClient.readstream(st,sizeof(st))/// st - TMemoryStream

Сервер продолжает работать, а клиент тупо виснет. Что я делаю неправильно???

[BOBAH13]

Один раз в жизни пробывал это Read/Writestream, мне они уж больно не понравились. Лучше уже функциями winsock'a. Ну вот, блокирующие сокеты:

uses WinSock;

function SendStream(s: TSocket; str: TStream): Boolean;
var
  r: Integer;
  buf: array[0..1023] of BYTE;
begin
  while (str.Position < str.Size) do
  begin
    r := str.Read(buf, SizeOf(buf));
    r := send(s, buf, r, 0);
    if (r = SOCKET_ERROR) then Break;
  end;
  Result := str.Position = str.Size;
end;

Вроде верно, написал... Начинает отправлять с позиции потока

[Pedro]

Извините за тупой вопрос... А как принимать поток?

[BOBAH13]

Берете литературу по WinSock + MSDN и по аналогии с проверкой получаемого результата recv делаете

[Pedro]

Спасибо! Буду пробывать.