unit Unit1;   
  
interface   
  
uses   
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   
  ScktComp, ExtCtrls, StdCtrls;   
  
type   
  TForm1 = class(TForm)   
    Image1: TImage;   
    Image2: TImage;   
    ClientSocket1: TClientSocket;   
    ServerSocket1: TServerSocket;   
    Button1: TButton;   
    procedure Image1Click(Sender: TObject);   
    procedure FormCreate(Sender: TObject);   
    procedure ClientSocket1Connect(Sender: TObject;   
      Socket: TCustomWinSocket);   
    procedure ServerSocket1ClientRead(Sender: TObject;   
      Socket: TCustomWinSocket);   
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);   
  private   
    { Private declarations }   
    Reciving: boolean;   
    DataSize: integer;   
    Data: TMemoryStream;   
  public   
    { Public declarations }   
  end;   
  
var   
  Form1: TForm1;   
  
implementation   
  
{$R *.DFM}   
  
procedure TForm1.Image1Click(Sender: TObject);   
begin   
  // Это процедура для открытия сокета на ПРИЁМ (RECEIVING).   
  // Button1.Click is this procedure as well.   
  ClientSocket1.Active:= true;   
end;   
  
procedure TForm1.FormCreate(Sender: TObject);   
begin   
  // Открытие ОТПРАВЛЯЮЩЕГО (SENDING) сокета.   
  ServerSocket1.Active:= true;   
end;   
  
procedure TForm1.ClientSocket1Connect(Sender: TObject;   
  Socket: TCustomWinSocket);   
begin   
  // Посылаем команду для начала передачи файла.   
  Socket.SendText('send');   
end;   
  
procedure TForm1.ClientSocket1Read(Sender: TObject;   
  Socket: TCustomWinSocket);   
var   
  s, sl: string;   
begin   
  s:= Socket.ReceiveText;   
  // Если мы не в режиме приёма:   
  if not Reciving then   
  begin   
    // Теперь нам необходимо получить длину потока данных.   
    SetLength(sl, StrLen(PChar(s))+1); // +1 for the null terminator   
    StrLCopy(@sl[1], PChar(s), Length(sl)-1);   
    DataSize:= StrToInt(sl);   
    Data:= TMemoryStream.Create;   
    // Удаляем информацию о размере из данных.   
    Delete(s, 1, Length(sl));   
    Reciving:= true;   
  end;   
  // Сохраняем данные в файл, до тех пор, пока не получим все данные.   
  try   
    Data.Write(s[1], length(s));   
    if Data.Size = DataSize then   
    begin   
      Data.Position:= 0;   
      Image2.Picture.Bitmap.LoadFromStream(Data);   
      Data.Free;   
      Reciving:= false;   
      Socket.Close;   
    end;   
  except   
    Data.Free;   
  end;   
end;   
  
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;   
  Socket: TCustomWinSocket);   
var   
  ms: TMemoryStream;   
begin   
  // Клиент получает команду на передачу файла.   
  if Socket.ReceiveText = 'send' then   
  begin   
    ms:= TMemoryStream.Create;   
    try   
      // Получаем данные на передачу.   
      Image1.Picture.Bitmap.SaveToStream(ms);   
      ms.Position:= 0;   
      // Добавляем длину данных, чтобы клиент знал, сколько данных будет  
      // передано. Добавляем #0 , чтобы можно было определить, где  
      // заканчивается информация о размере.   
      Socket.SendText(IntToStr(ms.Size) + #0);   
      // Посылаем его.   
      Socket.SendStream(ms);   
    except   
      // Итак, осталось освободить поток, если что-то не так.   
      ms.Free;   
    end;   
  end;   
end;   
  
end.