Кто-нибудь может привести пример использования сокетов для отправки файла?

Question

Мне нужно создать две программы:

1. Сервер
2. Клиент

Сервер отправляет запрос клиенту, затем клиент получаетзапросить и сделать снимок экрана с помощью этой функции:

function GetScreenShot(PixelFormat:TPixelFormat;Width,Height:Integer): TBitmap;
var
  Desktop: HDC;
begin
  Result  := TBitmap.Create;
  Desktop := GetDC(GetDesktopWindow);
  try
    try
      Result.PixelFormat := PixelFormat;
      Result.Width := Width;
      Result.Height := Height;
      BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, Desktop, 0, 0, SRCCOPY);
      Result.Modified := True;
    finally
      ReleaseDC(0, Desktop);
    end;
  except
    Result.Free;
    Result := nil;
  end;
end;

После этого клиент отправляет растровое изображение на сервер.

Может кто-нибудь мне помочь?

---

_{Отредактировано, чтобы добавить:}

У меня есть несколько примеров:

• Это работает
• Этотоже работает
• C ++ и Delphi

Answer 1

вы пробовали этот пример http://delphi.about.com/od/internetintranet/l/aa012004a.htm?