совет по работе с ServerSocket и ClientSocket

[MoBLer]

Здравствуйте , прошу у вас совета(вопрос). Есть сервер и клиент, когда клиент подключается к серверу, он клиенту отправляет изображение и клиент его показывает. А если сразу 2 или 3 клиента подключаются изображение все получат учитывая скорость передачи? Если нет то как организовать передачу файла всем клиентам.

[mss]

Это вообще не будет работать в условиях нахождения клиента и сервера на разных хостах, и уж тем более по разные стороны маршрутизатора.

[MoBLer]

Почему? Тогда как надо пересылать файлы? Если можно с примером

[mss]

Почему?

Потому что внутренний буфер передачи сокета имеет сравнительно малый и фиксированный размер, по умолчанию равный 8192 байт. Этот буфер безусловно используется в случае когда приемник отправляемого инф.сообщения находится на другом сетевом хосте, отличном от хоста-передатчика.
В этих условиях бесполезно и бессмысленно пытаться выполнить SendBuf(), в расчете за один вызов этого метода отправить данные размером более размера буфера.
Различных решений минимум три:
1. "Дробить" сообщение на "куски" размерами, не превышающими размер буфера передачи, и отправлять последовательно кусок за куском, контролируя результат отправки каждого куска (SendBuf - это функциональный метод)
2. Воспользоваться методом SendStream, неявно реализующим п.1
3. Отказаться от неблок.режима в пользу блокирующего (со всеми вытекающими его преимуществами и недостатками) - в этом случае буферизацию всего отправляемого инф.сообщения берет на себя ОС.

[MoBLer]

1. "Дробить" сообщение на "куски" размерами, не превышающими размер буфера передачи, и отправлять последовательно кусок за куском, контролируя результат отправки каждого куска (SendBuf - это функциональный метод)

Алгоритм понятен.

2. Воспользоваться методом SendStream, неявно реализующим п.1

Вот нашел

{Посылка файла через сокет}
procedure SendFileBySocket(filename: string);
          var srcfile: TFileStream;
begin
  {Открываем файл filename}
  srcfile := TFileStream.Create(filename, fmOpenRead);
  {Посылаем его первому подключенному клиенту}
  ServerSocket1.Socket.Connections[0].SendStream(srcfile);
  {Закрываем файл}
  srcfile.Free;
end;

{Прием файла через сокет}
procedure TForm1.ClientSocket1Read(Sender: TObject;
          Socket: TCustomWinSocket);
var
  l: Integer;
  buf: PChar;
  src: TFileStream;
begin
  {Записываем в l размер полученного блока}
  l := Socket.ReceiveLength;
  {Заказываем память для буфера}
  GetMem(buf,l+1);
  {Записываем в буфер полученный блок}
  Socket.ReceiveBuf(buf,l);
  {Открываем временный файл для записи}
  src := TFileStream.Create('myfile.tmp',fmOpenReadWrite);
  {Ставим позицию в конец файла}
  src.Seek(0,soFromEnd);
  {Записываем буфер в файл}
  src.WriteBuffer(buf,l);
  {Закрываем файл}
  src.Free;
  {Освобождаем память}
  FreeMem(buf);
end;

Будит ли этот пример работать через интернет?

3. Отказаться от неблок.режима в пользу блокирующего (со всеми вытекающими его преимуществами и недостатками) - в этом случае буферизацию всего отправляемого инф.сообщения берет на себя ОС.

Тут тоже вроде понял. но только какие компоненты ипользовать?(это так, для общего развития)