Datenaustausch zwischen Server und Clients

[flomei]

Zitat von Chakotay1308:

C (Client) macht Screenshot => C sendet Screenshot an S (Server) => S empfängt Bild von C => S zeigt Bild an

Richtig?
Dazu müsstest du folgende Infos haben:

• Wie mache ich einen Screenshot?
• Wie sende ich Daten über's LAN (siehe dazu hier in der DP; siehe Indy's bzw. FastNet [ServerSocket / ClientSocker])?
• Wie zeige ich das Bild an?

Als Hinweis: du musst gleichzeitg zu dem Bild auch einen String senden, welcher Client das ist!

Chris

Jo. Das erste ist richtig. Screenshot mach man doch so, oder?

Code:

procedure ScreenCapture(Bmp: TBitmap);
var
  DeskWnd: HWnd;
  DeskDC: HDC;
  DeskCv: TCanvas;
  R: TRect;
  W, H: Integer;
begin
  if Bmp = nil then Exit;
  DeskWnd := GetDesktopWindow;
  DeskDC := GetWindowDC(DeskWnd);
  DeskCv := TCanvas.Create;
  DeskCv.Handle := DeskDC;
  W := Screen.Width;
  H := Screen.Height;
  R := Bounds(0, 0, W, H);
  try
    Bmp.HandleType := bmDIB;
    Bmp.PixelFormat := pf24Bit;
    Bmp.Width := W;
    Bmp.Height := H;
    Bmp.Canvas.CopyMode := cmSrcCopy;
    Bmp.Canvas.CopyRect(R, DeskCv, R);
  finally
    DeskCv.Free;
    ReleaseDC(DeskWnd, DeskDC);
  end;
end;

Bin ja der absolute Delphi-Newbie, aber kann der Server an der IP nicht irgendwie erkennen, welcher Rechner das gesendet hat und das dementsprechend in irgendeinem Rahmen darstellen???