ClientSocket e ServerSocket

[kakamit]

1ª Como faço parta tirar um screenshot da tela de quem está com o server e aparecer para mim que está no client?

2ª Como enviar uma mensagem aparti da ClientSocket para o ServerSocket? :huh:

3ª Como fazer para pegar o ip via serversocket e aparecer para mim em um memo que estou com o client?

Editado Dezembro 18, 2009 por kakamit

[Jhonas]

1ª Como faço parta tirar um screenshot da tela de quem está com o server e aparecer para mim que está no client?

alguns exemplos:

Capturar a tela em um TBitmap

function CaptureScreenRect( ARect: TRect ): TBitmap;
var ScreenDC: HDC;
begin
  Result := TBitmap.Create;
  with Result, ARect do
  begin
    Width := Right - Left;
    Height := Bottom - Top;
    ScreenDC := GetDC( 0 );
    try
      BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC, Left, Top, SRCCOPY );
    finally
      ReleaseDC( 0, ScreenDC );
    end;
  end;
end;


// Exemplo: como usar

Image1.picture.Assign(CaptureScreenRect(Rect(0,0,Width,Height)));

Capturar tela

procedure TForm1.Button1Click(Sender: TObject);
var
BackgroundCanvas : TCanvas;
Background : TBitmap; {bitmap holding the background }
DC : hDC;
begin
// get the background bitmap
Background:= TBitmap.Create;
Background.Width:= Width;
Background.Height:= Height;
DC:= GetDC (0);
BackgroundCanvas:= TCanvas.Create;
BackgroundCanvas.Handle:= DC;
// stretch the bitmap to the display size (it could be much smaller (preview))
Background.Canvas.CopyRect(Rect (0, 0, Width, Height), BackgroundCanvas, Rect (0, 0, Screen.Width, Screen.Height));
BackgroundCanvas.Free;
image1.Picture.Bitmap:= Background;
end;

Converter Bitmap para JPeg
Inclua na seção uses: Graphics, JPeg 

O procedimento abaixo converte um arquivo de imagem Bitmap
para JPeg. O arquivo JPeg terá o mesmo nome do arquivo Bitmap, 
mas com a extensão jpg.

procedure ConverterBmpParaJPeg(Arquivo: string);
var
  Bmp: TBitmap;
  JPeg: TJPegImage;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.LoadFromFile(Arquivo);
    JPeg := TJPegImage.Create;
    try
      JPeg.CompressionQuality := 100; { Qualidade: 100% }
      JPeg.Assign(Bmp);
      JPeg.SaveToFile(ChangeFileExt(Arquivo, '.jpg'));
    finally
      JPeg.Free;
    end;
  finally
    Bmp.Free;
  end;
end;

Exemplo de uso:

ConverterBmpParaJPeg('c:\diretorio\arquivo.bmp');

convert a BMP image to a JPG (JPEG) image: 
~~~~~~~~~~~~~~~~~~~~~~~~~


function BMPtoJPG
   (var BMPpic, JPGpic: string):boolean;
var Bitmap: TBitmap;
    JpegImg: TJpegImage;
begin
  Result:=False;
  Bitmap := TBitmap.Create;
  try
   Bitmap.LoadFromFile(BMPpic);
   JpegImg := TJpegImage.Create;
   try
    JpegImg.Assign(Bitmap);
    JpegImg.SaveToFile(JPGpic);
    Result:=True;
   finally
    JpegImg.Free
   end;
  finally
   Bitmap.Free
  end;
end;

{
como usar:

BMPtoJPG('mybitmap.bmp','myjpeg.jpg')
}

Exemplo no forum

http://scriptbrasil.com.br/forum/index.php...st&p=398657

2ª Como enviar uma mensagem aparti da ClientSocket para o ServerSocket?

Faça uma persquisa no forum

http://scriptbrasil.com.br/forum/index.php...te=ClientSocket

http://scriptbrasil.com.br/forum/index.php...te=ServerSocket

abraço