Rodrigo Bizz

Pessoal, preciso melhorar um select que faz o seguinte: Ele mostra a quantidade de questões cadastradas no site da seguinte forma: Atualização de Questões: 03/12 - Noções de Infor... (23 questões) 19/10 - Administração G... (5 questões) 12/07 - Redes de Comput... (16 questões) 12/07 - Direito Previde... (7 questões) 12/07 - Administração F... (4 questões) 12/07 - Segurança da In... (11 questões) 12/07 - Direito Interna... (7 questões) 12/07 - Administração G... (2 questões) 12/07 - Arquitetura de ... (70 questões) 12/07 - Direito Interna... (39 questões) 12/07 - Sistemas Operac... (22 questões) 12/07 - Direitos Humano... (99 questões) 12/07 - Administração P... (3 questões) pegar a última questão e verificar a disciplina dela... pegar a próxima questão e verificar a disciplina dela... se for igual junta(soma/conta) com a primeira... e vai indo até dar 13 disciplinas. O que ocorre é que esta verificando todas as questões.(nesse primeiro select abaixo) Na hora que der 13 disciplinas diferentes tem que parar. Resumindo: tenho que pegar as últimas questões incluidas para 13 disciplinas. Como estava inicialmente: SELECT count(questoes.id_questao) as totalQuestao, disciplinas.nome as nomeDisciplina, disciplinas.id_disciplina as idDisciplina, questoes.data_cadastro as dataCadastroQuestao FROM disciplinas INNER JOIN questoes_disciplina questoes_disciplina ON questoes_disciplina.id_disciplina = disciplinas.id_disciplina INNER JOIN questoes ON questoes.id_questao = questoes_disciplina.id_questao GROUP BY disciplinas.id_disciplina, DATE(questoes.data_cadastro) ORDER BY DATE(questoes.data_cadastro) desc LIMIT 13; tempo: 1,67 segundos Como ficou a melhoria(gambiarra): SELECT count(questoes.id_questao) as totalQuestao, disciplinas.nome as nomeDisciplina, disciplinas.id_disciplina as idDisciplina, questoes.data_cadastro as dataCadastroQuestao, questoes_disciplina.id_questao as asd FROM disciplinas INNER JOIN questoes_disciplina questoes_disciplina ON questoes_disciplina.id_disciplina = disciplinas.id_disciplina INNER JOIN questoes ON questoes.id_questao = questoes_disciplina.id_questao WHERE questoes_disciplina.id_questao <= (SELECT MAX(questoes_disciplina.id_questao) FROM questoes_disciplina) and questoes_disciplina.id_questao >= ((SELECT MAX(questoes_disciplina.id_questao) FROM questoes_disciplina) - 5000) GROUP BY disciplinas.id_disciplina, DATE(questoes.data_cadastro) ORDER BY DATE(questoes.data_cadastro) DESC LIMIT 13; tempo: 0,047 segundos Preciso melhorar definitivamente esse select, fazer um indice ou sei la oque. alguém poderia me ajudar?

Para quem precisar ai esta a resposta: Da pra fazer um monte de coisa com esse exemplo ai. http://forums.devshed.com/delphi-programmi...ton-515924.html

Esse link tem um codigo que faz o mouse se mover para uma posicao X e clicar na mesma. Porem não me ajuda pois caso tiver varias janelas abertas ou um form oculto já não vou conseguir clicar no local desejado e tem o problema de resolução da tela do usuario. Em relacao aos outros links não tem nada util. Fiz uma pesquisa e tem os comandos: WebBrowser1.OleObject.Document.all.Item('nomeDocampo', 0).value := edit1.text; // preencher o campo do site WebBrowser1.OleObject.Document.all.Item('nomeDobotao', 0).click; // simula o clique no botao //onde: nomeDocampo é o nome do campo html e nomeDobotao é o nome do botao da pagina html Mais não consegui testar isso ai não. =/

Boa tarde pessoal, Quero fazer o seguinte: 1- Tenho um 'Edit1', 'WebBrowser1' e um 'Button1' 2- Vou abrir o site www.gmail.com no meu WebBrowser1 ---> WebBrowser1.Navigate('www.gmail.com'); 3- Apos abrir o site completamente, digito alguma coisa no meu Edit1 4- Clico no meu Button1 para fazer o seguinte: 1- Pegar oque foi digitado no Edit1 e jogar la no campo de "Nome de usuário" do site do Gmail 2- Simular o clique no botao "Login" do site do Gmail. Alguma dica? Grato!

Galera, depois de ficar o dia inteiro tentando todas as dicas de voces ... voltei ao inicio e descobri porque estava perdendo a qualidade(ficava deformada, parecia um zoom na imagem). O problema era nessa parte: RectOrigem := Rect(248, 183, 498, 199); RectDestino := Rect(0, 0, 250, 16); não sei explicar muito bem... mais fiz o seguinte... Como coloquei "0,0" na primeira parte ali do RectDestino as outras duas coordenadas seguintes eu diminu em relacao ao RectOrigem.. 498-248=250 e 199-183=16 Dessa forma não deformou nada. Pra mim ficou do jeito que precisava assim. Valeu.

Paulo.. o exemplo não me ajudo, nem com a dica do Micheus. Acho meio complicado esse negocio de manipulacao de imagem ai. Seguinte.. Com o codigo abaixo a imagem fica com a qualidade que eu quero(qualidade de .bmp). Porem desse modo ele tira um screenshot do webBrowser todo. A ideia do codigo que esta comentado é pegar esse screenshot inicial e fazer uma nova imagem iniciando e terminando em tal posicao. Porem nessa hora a imagem perde qualidade, parece que foi dado um zoom na imagem. To perdido... Help-me. procedure TForm1.Button3Click(Sender: TObject); begin imgSalvaImagem('C:\Users\Pc\Desktop\imagem.bmp'); end; procedure TForm1.imgSalvaImagem(sArq: String); var viewObject : IViewObject; r : TRect; bitmapdst, bitmap : TImage; RectOrigem, RectDestino: TRect; begin if webBrowser1.Document <> nil then begin webBrowser1.Document.QueryInterface(IViewObject, viewObject); if Assigned(viewObject) then try bitmap := TImage.Create(Self); bitmapdst := TImage.Create(Self); bitmap.Height := webBrowser1.Height; bitmap.Width := webBrowser1.Width; r := Rect(0, 0, bitmap.width, bitmap.height); viewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Application.Handle, bitmap.Canvas.Handle, @r, nil, nil, 0); // RectOrigem := Rect(243, 182, 452, 388); // RectDestino := Rect(0, 0, 351, 287); // Bitmapdst.Width := 144; // Bitmapdst.Height := 13; // Bitmapdst.Canvas.CopyRect(RectDestino, bitmap.Canvas, RectOrigem); finally viewObject._Release; end; //Bitmapdst.Picture.Bitmap.SaveToFile(sArq); //imagem recortada bitmap.Picture.Bitmap.SaveToFile(sArq); //print original end; end;

Ola Paulo, Eu consegui rolar aqui, porém, a imagem perde muita qualidade, parece ate que foi dado um zoom nela. Estou mandando salvar como .bmp É assim mesmo?? Tem como melhorar a qualidade?? Fico no aguardo.