Загрузить изображение на сервер с помощью сокетов

Posted by Chas under Delphi

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

Aliens_wolfs

procedure TForm1.btn2Click(Sender: TObject);

var

Size: integer;

begin

//Так отправлять

Size:= img1.Picture.Bitmap.Width * img1.Picture.Bitmap.Height;

ClientSocket1.Socket.SendBuf(Pointer(img1.Picture.Bitmap)^, size);

end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

  Socket: TCustomWinSocket);

var

Size: integer;

begin

//Так принимать сразу загружать картинку

Socket.ReceiveBuf(Pointer(img1.Picture.Bitmap)^, Size);

edt1.Text := IntToStr(Size);

end;

очистка канвы

img1.canvas.fillrect(img1.canvas.cliprect);

тема на форуме

Похожие статьи

• В TMemoryStream используя LoadFromStream загрузить картинку с сайта
• WinSock в Asm пример
• Поочередная смена изображений в TImage