Передача скриншота

[rust-02]

Мне нужно сделать скриншот экрана и отправить его на сервер не сохраняя на компе. скриншот делаю так:

bmp:=Tbitmap.Create;
jpgimg:=TJPEGImage.Create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:= GetDC(0);
bitblt(bmp.Canvas.Handle,0,0,Screen.Width,Screen.Height,DC,0,0, SRCCopy);
releaseDC(0,DC);
jpgimg.Assign(bmp);
jpgImg.CompressionQuality:=100;
 asd:=TMemoryStream.Create;
 jpgimg.SaveToStream(asd);

только вот не знаю как отправить на сервер.
Подскажите если можете

[Пепел Феникса]

Socket.SendStream(asd);
а вообще конкретнее через что отправить надо то.

[SERG1980]

в одной из прог передавал так (использовал Indy10)

На стороне сервера.....

procedure TSrvForm.SpyTCPServerExecute(AContext: TIdContext);
 var command:string;
begin
 command:= AContext.Connection.IOHandler.ReadLn;
 if Pos('Give_Screen',command)<>0 then SendScreen(AContext);
end;

Procedure SendScreen(SSConnection:TIdContext);
var dc:HDC;
    ScreenCanvas:TCanvas;
    ScreenStream:TMemoryStream;
    ScreenRect:TRect;
    ScreenBM:TBitMap;
    SendJPEG:TJPEGImage;
begin
 ScreenRect:=Screen.DesktopRect;
 ScreenCanvas:=TCanvas.Create;
 ScreenCanvas.Handle:=GetDC(0);
 ScreenBM:=TBitMap.Create;
 SendJPEG:=TJPEGImage.Create;
 ScreenBM.Width:=Screen.Width;
 ScreenBM.Height:=Screen.Height;
 ScreenBM.Canvas.CopyRect(ScreenRect,ScreenCanvas,ScreenRect);
 ReleaseDC(0,ScreenCanvas.Handle);
 ScreenStream:=TMemoryStream.Create;
 SendJPEG.Assign(ScreenBM);
 //SendJPEG.CompressionQuality:=50;  //степень сжатия от 1 до 100
 //SendJPEG.Compress;
 SendJPEG.SaveToStream(ScreenStream);
 //ScreenBM.SaveToStream(ScreenStream);
 ScreenStream.Position:=0;
 try
  SSConnection.Connection.IOHandler.Write(ScreenStream,ScreenStream.Size,true);
 finally
  SSConnection.Connection.Disconnect;
 end;
 SendJPEG.Free;
 ScreenStream.Clear;
 ScreenStream.Free;
 ScreenBM.Free;
end;

на стороне клиента....

procedure TAdminForm.SpyTimerTimer(Sender: TObject);
var ScreenStream:TMemoryStream;
    BM:TBitMap;
    JP:TJPEGImage;
begin
 ScreenStream:=TMemoryStream.Create;
 //BM:=TBitMap.Create;
 JP:=TJPEGImage.Create;
 AdminForm.SpyTCPClient.Host:=AdminForm.IPListBox.Items[AdminForm.IPListBox.SelectedItemIndex].Caption;
 try
  AdminForm.SpyTCPClient.Connect;
  try
   Adminform.SpyTCPClient.IOHandler.WriteLn('Give_Screen:');
   Adminform.SpyTCPClient.IOHandler.ReadStream(ScreenStream);
   ScreenStream.Position:=0;
   JP.LoadFromStream(ScreenStream);
   AdminForm.Image1.Picture.Bitmap.Assign(JP)
  finally
  AdminForm.SpyTCPClient.Disconnect;
  end;
 except
  on E: EIdException do
  begin
   AdminForm.SpyTimer.Enabled:=false;
   MessageBox(0,PChar(E.Message),'Ошибка соединения',MB_ICONERROR+MB_OK+MB_SYSTEMMODAL);
  end;
 end;
 ScreenStream.Clear;
 ScreenStream.Free;
 JP.Free;
end;