Olá pessoal,estou tentando criar uma conexão remota para efetuar Printscreen. já tenho um código todo feito que achei na net, porem ele funciona somente compilando no delphi 7, ele compila de boa no delphi2010,sem dar nenhum erro... mas não transferi o arquivo jpeg ao executar e enviar o sendtext. alguém pode mim da um help para funcionar corretamente no delphi 2010?? :wacko: Siga abaixo código Site com a fonte: http://www.forum-invaders.com.br/vb/showth...ados-via-socket Código que transferi o arquivo procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); var s: string; begin s:=Socket.ReceiveText; if not Receiving then begin if pos(#0,s) > 0 then stSize:=strtoint(copy(s,1,pos(#0,s)-1)) else exit; Stream:=TMemoryStream.Create; Receiving:=True; delete(s,1,pos(#0,s)); end; try Stream.Write(s[1],length(s)); if Stream.Size = stSize then begin Stream.Position:=0; Receiving:=False; jpg:=TJPEGImage.Create; jpg.LoadFromStream(Stream); Image1.Picture.Assign(jpg); Stream.Free; end; except Stream.Free; end; end;