Jump to content
Fórum Script Brasil

Dolfin

Membros
  • Content Count

    10
  • Joined

  • Last visited

Everything posted by Dolfin

  1. O que tá rolando aqui é: eu tenho um componente OpenTextDialog que abre o TXT com endereços IP dos servidores para conexão... Cada thread cria um socket, cada socket conecta em um IP... Isso tá funcionando, porém, a conexão fica aberta e se eu preciso fechar e abri-la novamente, o programa por algum motivo já perdeu a propriedade Host, e tenta abrir a conexão com último host setado(última linha lida do TXT de IPs)... Vou colar o trecho que abre o TXT utilizando o OpenDialog: procedure TForm1.Button1Click(Sender: TObject); begin OpenTextFileDialog1.InitialDir:= ExtractFilePath(Application.Ex
  2. Pessoal, é o seguinte... Eu estou trabalhando com o componente ClientSocket e Threads, e para cada thread, eu crio uma nova instância de um Socket com o seguinte código: procedure Threads.Execute; begin Application.ProcessMessages; ClientSocket:= TClientSocket.Create(Application); //criando o socket ClientSocket.Port:= 81; //setando a porta para conexao ClientSocket.OnConnect:= OnConnect; //setando evento onconnect ClientSocket.OnRead:= OnRead; //setando evento onread ClientSocket.OnDisconnect:= OnDisconnect; //setando evento ondisconnect ClientSocket.Host:= HLine; //lendo o hos
  3. Galera, eu sou novo no Delphi como podem perceber hehe... Eu tentei fazer uma procedure aqui, mas ela só é executada quando tem um ShowMessage dentro dela!! Ela tá declarada assim: procedure SocketsConnect(Sender: TClientSocket); Aí logo abaixo eu chamo ela assim: SocketsConnect(Sockets); E ela tá assim: procedure TForm1.SocketsConnect(Sender: TClientSocket); begin BannerControl:=0; UserAuthControl:=0; PassAuthControl:=0; //ShowMessage('To ae'); if Sockets[i].Socket.ReceiveLength > 0 then begin Texto:= Sockets[i].Socket.ReceiveText; if (BannerControl = 0)
  4. Primeiramente, boa tarde! Estou 'rascunhando' um cliente POP3 aqui no Delphi e para aprendizado to tentando fazer tudo via API do WinSock nativo do Windows. Mas sou iniciante em programação e no Delphi, uma vez ou outra pego para fazer algum programinha, mais por aprendizado mesmo... E me surgiu um problema que creio que para a maioria de vocês vai ser um problema bem bobo, mas já procurei e não consigo encontrar como solucionar... É o seguinte, eu conecto pela porta 110 do servidor POP3, e logo de cara ele me exibe a mensagem: +OK Hello there. <[email protected]> Po
  5. você não precisa fazer isso basta usar o select, e usar o adoquery1.post pra salvar o registro, o insert vai inserir um novo registro e pelo que eu entendi você quer alterar um registro que ta na tela. Tem como exemplificar? ATENÇÃO: Atente para as Regras do Forum
  6. Uhmm... Ok, mas o problema na verdade está na hora da Query... No FormCreate eu dou a seguinte query: ADOQuery1.SQL.Add('select Nome, CPF, Endereço from Clientes'); Assim ele preenche a DBGrid, aí na hora de salvar os dados eu to fazendo assim: ADOQuery1.SQL.Add('insert into Clientes(Endereço) VALUES (:a)'); ADOQuery1.Parameters.ParamByName('a').Value:= DBEdit1.Text; Só que pra isso eu preciso dar um .clear, pra fazer a nova query... Como que eu vou ficar trabalhando com novas queries e deixando as antigas lá??
  7. Estou editando o post, pois minha dúvida não foi esclarecida, então vou escrever de forma mais compacta e objetiva! É o seguinte: tenho um DBGrid, que exibe os dados de uma tabela clientes, através do ADOQUERY(select Nome, CPF, Endereço from Clientes)... Eu gostaria de fazer alterações manualmente no banco de dados, através de DBEdits, então carrego os dados do cliente selecionado na DBGrid em DBEdits, e tenho um botão de salvar que executa a seguinte QUERY(insert into Clientes(Nome) values (:a)) e logo abaixo: ADOQuery1.Parameters.ParamByName('a').Value:= DBEdit1.Text; Supostamente isso dev
  8. Po tá difícil... Eu só consegui descobrir que a imagem só tá vindo um pedaço, não sei porque, já coloquei um while pra ficar lendo a imagem até o tamanho enviado pelo stream seja o mesmo do recebido, mas não adiantou... Engraçado que o código é simples e funciona quando não tem aquele 'if', como já disse no post...Infelizmente acho que o pessoal aqui não sabe qual a conclusão... Agradeço mesmo assim.
  9. Sim foi uma ótima dica, se eu não quisesse desenvolver o meu. Existem centenas de programas de assistência remota por aí, mas eu estou fazendo um que atende a necessidades particulares do meu ambiente de trabalho. E além disso tem a questão do aprendizado, não é porque existem programas prontos que eu vou desistir de fazer um meu. Ainda não consegui fazer funcionar, se alguém souber... A dúvida continua...
  10. Bom, primeiramente quero dizer que apesar desse ser meu primeiro post no fórum, já tirei muitas dúvidas aqui, e espero que possam me ajudar com essa. Estou fazendo um programa de Assistência Remota, com o envio da screenshot do ServerSocket através de stream. Já estou conseguindo emular os clicks do mouse e até teclas apertadas, apesar da função não estar muito boa, porém o problema não é esse. O lance é o seguinte, o meu código para envio do stream atual está assim no servidor: Comando:=Socket.ReceiveText; if Comando='screen' then begin {Aqui começa a função de Bitblt para pegar a i
×
×
  • Create New...