TServerSocket, TClientSocket, передача изображения

[vitalatron]

Здравствуйте.
Многопользовательский графический редактор. При подключении клиента к серверу картинка на сервере должна передаться подключенному клиенту. Вместо этого программа вылетает без всяческих объяснений.

на приёме:

var buf: array [0..2000000] of char;
    len,i:integer;
    s,strm,strnf,strnt:string;
    cmd:char;
    data: TMemoryStream;
begin
  len:=Socket.ReceiveLength;
  Socket.ReceiveBuf(buf,len);
  cmd:=buf[0];
  case cmd of
...
try
  Data:=TMemoryStream.Create;
  Data.Write(buf[1], len);
  if Data.Size = len then
    begin
      Data.Position:= 0;
      Bmp.LoadFromStream(Data);
      Data.Free;
    end;
except
  Data.Free;
end;

на передаче:

var buf: array [0..2000000] of char;
    len,i:integer;
    s,strm,strnf,strnt:string;
    cmd:char;
    ms: TMemoryStream;
begin
  len:=Socket.ReceiveLength;
  Socket.ReceiveBuf(buf,len);
  cmd:=buf[0];
...
      ms:= TMemoryStream.Create;
      try
        USRS[0].Bmp.SaveToStream(ms);
        ms.Position:=0;
        buf[0]:='i';
        Socket.SendBuf(buf,1);
        Socket.SendStream(ms); //если закомментировать эту строку то ошибки не возникает
      except
        ms.Free;
      end;

Пробовал уже и топорно - взял код отсюда http://programmersforum.ru/showthread.php?t=16584 , из 4го поста, программа должна сохранять изображение в файл, передавать клиенту, клиент файл принимать, сохранять, открывает и выводить на экран, но опять таки программы завершаются крэшем - что клиент что сервер.
Помогите пожалуйста.

[SERG1980]

Используйте компоненты Indi будет проще намного

[vitalatron]

Придётся разбираться, как работать с Indi, потом и всю программу под него переделывать. Тяжко..

Не могли бы вы указать ссылку на простой пример работы Indi, на подобии того, который привёл Beermonza здесь и здесь?

[SERG1980]

я вам могу исходник свой дать по инди, как раз картинки передаю, только укажите версию инди(9 или 10). И лучше по сети передавать jpeg а не bmp а то это для сети напряжно.
Пример: передввал с сетевого компа его скрин к себе с частотой в 1 сек., загруженность сети с бмп было 15% а с жпег 1-2%

[vitalatron]

Не хотелось бы иметь потери качества.
А как посмотреть версию инди? Никогда с ними не работал.

[SERG1980]

У вас какая версия delphi?
ну и вот вам теория

[vitalatron]

Версия delphi 2007

[SERG1980]

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

Версия delphi 2007

вот и у меня 2007, тогда думаю нормально будет. Вот набросал вам пример передачи картинки от сервера к клиенту

[kangreon]

Вот пример на TClientSocket и TServerSocket

[Beermonza]

vitalatron, размер картинок какой? ...если примерно более 6К, то будет приходить кусками, ...у вас Data:=TMemoryStream.Create; стоит не понятно где, ...каждый раз обнуляя поток, а нужно создать при коннекте, и записывать в конец потока все что приходит подряд, пока размер потока не достигнет присланных заранее параметров, до отправки картинки.

// поток в конец
Data.Position := Data.Size;
// передаем буфер в поток
Data.WriteBuffer(buf, len);

buf - типа TByteArray. Сначала нужна команда "прими параметры граф. файла", клиент получив перейдет в режим приема пакетов, будет принимать в поток проверяя размер. Как размер будет нужным, перейти в режим обычный, а поток отправить для открытия картинки, установив позицию в 0 предварительно.