Im server muss du sowas haben:
Delphi-Quellcode:
function GetScreenShot: TBitmap;
var
Desktop: HDC;
begin
Result := TBitmap.Create;
Desktop := GetDC(0);
try
try
Result.PixelFormat := pf32bit;
Result.Width := Screen.Width;
Result.Height := Screen.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;
(Am besten noch eine JPEG kompression hinzufügen)
Und dann einfach einer verbindung Client Server wo du ein record vom Server zum client schicks ... und das wärs fast schon
