TI-Anderson

neste caso estou tirando print da tela toda, do desktop ! eu tiro a print com o client e envio pro serve e ele exibe pra min no meu image. já esta fazendo isso, porem eu quero enviar o meu click do serve para o client em determinada regiao,... EX: quero clica em uma uma pasta para abrir ela e ele esta clicando na pasta de baixo, como se tivesse desalinhado na resolucao... ou enviando o click com alguma diferenca... ~ SERVIDOR : procedure TfrmOperador.Image1DblClick(Sender: TObject); begin If (recConfig.MOUSE = True) Then Begin // SServer.Socket.Connections[0].SendText('<|MouseDC|>'); sserver.Socket.Connections[0].SendText('<|MouseDC|>'+intToStr(posx)+'<|>'+intToStr(posy)+'<<|'); End; end; no meu client esta do seguinte modo o click e o duplo click, no caso é apenas um procedure... ~ CLIENT procedure TForm1.CSRead(Sender: TObject; Socket: TCustomWinSocket); var sMSG: String; iPosicao, iPosicao2, iPosicao3: Integer; Pt: TPoint; PosX, PosY: String; begin sMSG := Socket.ReceiveText; // COMANDO PARA ENVIAR / RECEBER A FOTO iPosicao := Pos('<IMAGEM>', sMSG); If (iPosicao > 0) Then Begin ImagemStream:=TMemoryStream.Create; CapturaTela(ExtractFilePath(Application.ExeName)+'Tela.JPEG', StrToInt(Copy(sMSG, 09, 02))); ImagemStream.Position:=0; Socket.SendText(inttostr(ImagemStream.Size) + '<|TAMANHO_FOTO|>'); Sleep(100); Socket.SendStream(ImagemStream); end; iPosicao := Pos('<CLICK>', sMSG); If (iPosicao > 0) Then Begin iPosicao2 := Pos('><', sMSG); iPosicao3 := Pos('>[', sMSG); PosX := Copy(sMSG, iPosicao2+2, iPosicao3-iPosicao2-2); PosY := Copy(sMSG, iPosicao3+2, Length(sMSG)-1); PosY := StringReplace(PosY, ']', '', []); Pt := ClientToScreen(Pt); Pt.x := Round(StrToInt(PosX) * (65535 / Screen.Width)); Pt.y := Round(StrToInt(PosY) * (65535 / Screen.Height)); {Move o mouse} Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0); {Simula o pressionamento do botãoesquerdo do mouse} Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0); { Simula soltando o botãoesquerdo do mouse } Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0); End; iPosicao := Pos('<|MouseDC|>', sMSG); If (iPosicao > 0) Then Begin mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); Sleep(10); mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); Sleep(10); mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); Sleep(10); mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); End; end;

Boa noite pessoal, venho aqui trazer para vocês os mestres da programação minha pequena duvida kkkk, então primeiramente quero deixa claro que sou novato em delphi, codo em outras linguagens então ai vai a pergunta... Eu tenho um soft de conexão reversa, ate ai simples. O que ele faz é o seguinte, ele tira print do client e envia pro serve, porem o meu click não esta muito bem alinhado vamos supor eu clico em uma determinada região e ele clica bem abaixo... como eu faco pra saber essa diferença de acordo com a resolução de cada pc (ou seja a resolução pode mudar...) vo enviar a função do click. **OBS: Tenho um scrolbox aqui com um image que já redimensiona perfeitamente na hora de exibir a imagem para min... PEÇO EXPLICAÇÕES COM O MAXIMO DE DETALHES POSSÍVEIS OBG ! e desculpem-me a ignorância de não saber mt bem delphi ainda.... procedure TfrmOperador.Image1Click(Sender: TObject); var posx, posy: String; begin posx:=inttostr(Mouse.CursorPos.x); posy:= inttostr(Mouse.CursorPos.y); SServer.Socket.Connections[0].SendText('<CLICK>'+'<'+Posx+'>'+'['+PosY+']'); end;

Então Joao otavio, neste caso voce teria que programar no celular tb, no caso de um android por exemplo... voce teria que ter grande experiencia com javame e desenvolver a comunicao entre eles, dando o php o direito de se comunicar com o java e fazer isso ...(não é facil, mais parece mt interresante).

Minha duvida é a seguinte: Desenvolve um software juntamente com um amigo de classe, o software em si nada mais é que um analisador de texturas de solós, e isto foi feito em pascal. Logo começamos a passar-lo para PHP por questão obvias que é principalmente faze-lo para clientes que estão a longa distancia. Emfim, a duvida é, consigo algo para abri-lo como se fosse "virtualmente" ? como se o software estivesse do lado do servidor e o cliente conseguisse abrir o software(o desenvolvido em pascal mesmo) ? -No lado servidor(localhost), eu consegui tranquilamente com as "manhas" do php($server), porém quando "hospedo" ele em outra maquina o software ele não abre.-