Arlon

Putz cara, juro que não falei por mau. Mas é que as pessoas às vezes postam coisas que muitas vezes achamos em diversos sites (eu mesmo assumo que já fiz isso aqui). Mas, fazer o que né, quem não gosta de uma dica mastigadinha?? Até eu adoro, principalmente quando estou com pressa. Pode fechar o tópico?

Veja se isso aqui te ajuda: Posição do mouse Para obter os valores das coordenadas do mouse de qualquer parte da tela, basta que se utiliza a função da API do Windows GetCursorPos. Esta função é interessante pois oferece ao programador os valores (x,y) de qualquer ponto da tela e não somente da aplicação. Para implementação, esta função pode ser utilizada da seguinte maneira: procedure TForm1.Timer1Timer(Sender: TObject); var pt: TPoint; begin GetCursorPos(pt); // Pega a posição atual do mouse; //Mostra os valores das coordenadas do mouse label1.caption := IntToStr(pt.x) + ',' + IntToStr(pt.y); Outros comandos sobre o mouse //Comando para posicionar o mouse SetMousePos(x,y): //Comando para fazer ações com o mouse mouse_event(Comando,0,0,0,0); //Coamndos dos botões MOUSEEVENTF_LEFTDOWN //-->preciona o botão esquerdo MOUSEEVENTF_LEFTUP //--> larga o botão esquerdo MOUSEEVENTF_RIGHTDOWN //-->preciona o botão direito MOUSEEVENTF_RIGHTUP //--> larga o botão direito MOUSEEVENTF_MIDDLEDOWN //--> preciona o botão do meio MOUSEEVENTF_MIDDLEUP //--> larga o botão do meio MOUSEEVENTF_WHEEL {--> Activa o WHELL (Não verificada se funciona)} {Fazendo movimentos com o mouse} procedure genmouse; begin setmousepos(20,50); mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); end; {para fazer dois cliques utiliza-se duas vezes aos comandos de um clique, ou seja: primeiro clique} mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); //Segundo clique} mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

No seu caso eu faria um relatório com o QuickRep e depois exportaria ele pra .doc exportar relatório para .doc: Form1.QuickRep1.ExportToFilter(TQRAsciiExportFilter.Create('C:\Cobrancas.doc')); quando eu utilizo esse código, eu o coloco depois da chamada do relatório e após uma mensagem peguntando se ele deseja salvar o relatório (nesse caso já salva em .doc): If APPLICATION.MESSAGEBOX('Deseja salvar a cobrança?', 'Salvar', MB_ICONQUESTION + MB_YESNO)=ID_YES Then begin assim, o código completo ficaria: If APPLICATION.MESSAGEBOX('Deseja salvar a cobrança?', 'Salvar', MB_ICONQUESTION + MB_YESNO)=ID_YES Then begin Form1.QuickRep1.ExportToFilter(TQRAsciiExportFilter.Create('C:\Cobrancas.doc')); Só uma coisinha: quando você exporta o relatório pro Word ele sai todo bagunçado, então você deve salvar e alterar no QuickRep até que a formatação no Word fique certa. E ó, não acostuma com as paradas mastigadinhas assim não hein, códigos como esses você encontra mole, mole em sites como o www.delphi.eti.br, é só cadastrar-se e usurfruir das dicas e artigos.

Sei lá que maluquice é essa então. Mas deixa pra lá, eu estou usando aquela função mesmo. Depois eu dou uma olhada com mais calma e vejo se eu estou errando alguma coisa.

Aí Capablanca, eu usei o código que você passou... MoveFile('C:\origem\teste.doc','C:\destino\teste.doc'); ...e deu o seguinte erro: [Error] PrincipalForm.pas(353): Incompatible types: 'String' and 'PChar' como fazer a conversão?

He he.. esse modificação no código que o s3c passou funciona mesmo!! Aí Capablanca, apesar de nem ter usado esse que você me passou (que eu também nem conhecia ), valeu tua ajuda tb. uow... como eu estou feliz agora!!!!

Eu coloquei o seguinte: function TFormPrincipal.ProcessArquivo(const Origem, Destino: string; Operacao, Modo: Integer): Boolean; Const Aborted : Boolean = False; var shfo : TSHFileOpStruct; begin FillChar(shfo,SizeOf(shfo),$0); with shfo do begin if Operacao > 2 then begin operacao := 2; end; if Modo > 5 then begin modo := 1; end; case operacao of 1: wFunc := FO_MOVE; 2: wFunc := FO_COPY; end; pFrom := Pchar('C:\Pedidos\Pendentes\'+'OS - '+DM.QrRelatPedidosOS.Value+'.doc'); pTo := Pchar('C:\Pedidos\Enviados\'+'OS - '+DM.QrRelatPedidosOS.Value+'.doc'); case Modo of 1: fFlags := FOF_SILENT; 2: fFlags := FOF_ALLOWUNDO or FOF_FILESONLY; 3: fFlags := FOF_RENAMEONCOLLISION; 4: fFlags := FOF_NOCONFIRMATION; 5: fFlags := FOF_SIMPLEPROGRESS; end; end; Result := (SHFileOperation(shfo)= 0) and (not Aborted); end; procedure TFormPrincipal.BtnMoverClick(Sender: TObject); begin ProcessArquivo('C:\Pedidos\Pendentes\'+'OS - '+DM.QrRelatPedidosOS.Value+'.doc', 'C:\Pedidos\Enviados\'+'OS - '+DM.QrRelatPedidosOS.Value+'.doc', 1, 5); end; end. Por acaso aqueles números de 1 a 5 são mensagens (ou coisas do tipo) que aparecerão quando eu for mover ou copiar o arquivo? e o windows me rrtornou uma mensagem dizendo que não pode mover o arquivo porque ele já pode ter sido excluido ou movido, mas o estranho é que o arquivo tá la na origem. Valeu Corposemalma, vou continuar tentando.

Function ProcessArquivo(const Origem, Destino : string; Operacao, Modo:Integer) : Boolean; // Requer a unit ShellApi na clausula uses da unit Const Aborted : Boolean = False; var shfo : TSHFileOpStruct; begin FillChar(shfo,SizeOf(shfo),$0); with shfo do begin if Operacao > 2 then begin operacao := 2; end; if Modo > 5 then begin modo := 1; end; case operacao of 1: wFunc := FO_MOVE; 2: wFunc := FO_COPY; end; pFrom := Pchar(Origem); pTo := Pchar(Destino); case Modo of 1: fFlags := FOF_SILENT; 2: fFlags := FOF_ALLOWUNDO or FOF_FILESONLY; 3: fFlags := FOF_RENAMEONCOLLISION; 4: fFlags := FOF_NOCONFIRMATION; 5: fFlags := FOF_SIMPLEPROGRESS; end; end; Result := (SHFileOperation(shfo)= 0) and (not Aborted); end; O código acima é usado para copiar ou mover arquivos (bem, era isso que tava dizendo lá onde eu o peguei --> www.delphi.eti.br). Minha situação é a seguinte: eu tenho uma pasta chamada Pedidos e duas subpastas (Pendentes e Enviados). Gero um relatório e salvo em .doc no caminho ('C:\Pedidos\Pendentes\Ordem de serviço.doc'), daí após isso eu envio o arquivo .doc por email através da própria aplicação. Após enviar eu quero mover esse arquivo para ('C:\Pedidos\Enviados\Ordem de serviço.doc'). Pra criar a função é só ir no Public Declarations e escrever "Function ProcessArquivo(const Origem, Destino : string; Operacao, Modo:Integer) : Boolean;" (certo??) e dar Ctrl + Shift + C e depois colar o código acima. Mas aí como eu faria pra "executar", ou seja, chamar essa função?? Ou se alguém tiver, pode mandar pra mim um código que ao invés de ser uma função eu possa colocar num botão. Valeu mesmo galera.

É, realmente, se tem 5 páginas, 2 frames e tá tudo em html, acho que R$ 300,00 tá de bom tamanho. Conheço um cara profissional que por um site com 2 frames, umas 6, 7, às vezes 8 páginas e tudo em html e cobra em média R$ 400,00

Aí hencher, manda pra mim também, ou então manda o link de onde você pegou-o. arlon@click21.com.br Por enquanto vou deixar o tópico aberto, posta aí onde você o encontrou, é um componente bastante interessante.

Lista de sites com componentes e pacotes da ZeosLib: http://sourceforge.net/projects/zeoslib - Tem 5 pacotes de Zeos. www.zeoslib.org - Site com uma lista de 9 outros sites em que você poderá fazer o download. www.zeoslib.net/ - Site do fabricante. Tem a opção de visualizá-lo em português. Tem atualizações e links de muitos componentes Zeos, no link "Produtos" você encontrará os principais componentes/pacotes. www.marms.com/zeos/eng/ - Entre no link "Produtos" e veja os principais componentes/pacotes.

http://sourceforge.net/projects/zeoslib - tem 5 pacotes de Zeos. www.zeoslib.org - Site com uma lista de 9 outros sites em que você pode fazer o download. www.zeoslib.net/ - Site do fabricante. Tem a opçao de visualizá-lo em português. Tem atualizações e links de muitos componentes Zeos, no link "Produtos" você encontra os principais componentes/pacotes. www.marms.com/zeos/eng/ - Entre no link "Produtos" e veja os principais componentes/pacotes.

Por acaso você tá usando o camando post em um BitBtn e na propriedade Kind você colocou OK, Cancel, All (e por aí vai)?? Caso tenha feito isso, recorte o código do botão, delete o botão e coloque outro (colando neste o código que foi recortado do outro). Isso porque quando você escolhe alguma coisa na propriedade Kind o programa executa o código e após isso fecha o formulário. Veja se não é por isso que está fechando.

Outra coisa, na consulta não se deve colocar a extensão da tabela, somente o nome dela (pelo menos é assim que eu faço), o certo não seria: Query1.SQL.Text := 'Select * From dbCadAt Where...'

Você deve usar um programa que gere setups como por exemplo o Install Shield ou o Inno Setup. Com esses programas você gera um disco de instalação e "monta" como seu programa será instalado. Caso seu sistema utilize banco de dados será necessário instalar o BDE na máquina em que for instalar o seu sistema. O programa que eu uso é o Install Shield Express for Borland Delphi 4 (que também pode ser usado nas outras versões do Delphi, e não tenho certeza se ele é free. O BDE eu sei que é e você pode achá-lo em Super Downloads), um roteiro completo de como utilizar essa versão do Install Shield pode ser achado em qualquer site em português da nossa seção de links. Bem, se persistir alguma dúvida é só postar aí.

Olha eu me intrometendo também!! O certo não seria: Query1.Sql.Clear; Agora, quanto ao erro eu nem sei o que dizer... Por acaso esse erro aqui foi sanado?

Vá a uma loja de componentes eletrônicos, lá eles tem um livro chamado Data Book que informa além de transistores os circuitos integrados compatíveis entre sí. Existe, entre outros, o Data Book de CMOS que é o CI´s e o de transistores (que eu não lembro o nome agora).

Limpe a Query antes de fechar e a cancele antes de dar o Close: Query1.Sql.Clear; Query1.Cancel; Query1.Close;

Qual o sentido disso?? Resposta: Gol Guns N´ Roses ou Angra

E o pessoal do Pânico ainda é cara-de-pau porque eles dizem que tão apelando, porque essas duas são gostosas mesmo!! ahuhhuhhhuUHAHuahuaAHUAuAu Quanto ao Hermes e Renato, já foi o melhor programa da televisão brasileira: -O palhaço Gozo -Cachorrão Bolado -O Bingo da Amizade -Programa Cláudio Ricardo (lembra do menino sem corpo?? hauhaahuahuahuhuu) -Porta da Esperança -Jegass (oh men, is dead men!!) -O programa da "Eliana", onde tava o Massacration e o Coração Melão cheios de m**** na cabeça. -A "entrevista" do Toninho do Diabo feita pelo Padre Quemedo -O policial querendo dar dura no motorista (Cadê o carona??) -Jormal Jornal -Programa do Jô...selito -Documento Trololó -Merda Acontece . . . Hermes e Renato

Agora subiu o nível de vez!! Vai mais uma, é grande mas vale a pena ler até o final: Terrorismo no Rio de Janeiro Alguns documentos Ultra Secretos do Serviço de Investigação da Polícia Federal revelados recentemente afirmam que Osama Bin Laden deu ordens aos seus homens para organizar um atentado aéreo no Brasil. Devido ao profundo ódio por festas monumentais (símbolo da globalização da alegria), a cidade escolhida foi o Rio de Janeiro por causa do Carnaval e, mais precisamente, o Cristo Redentor (símbolo maior da religião dos infiéis!!). Assim, os dois melhores terroristas kamikazes viajaram para o Brasil. Os dois chegaram assim ao Rio de Janeiro determinados a impor o castigo de Allah aos infiéis tupiniquins. A missão, felizmente, não teve sucesso, conforme os registros da Polícia Federal enviados ao FHC, ao Bush e ao Papa. Eis a história: Domingo 21:47hs: Chegam ao Aeroporto Internacional do Galeão, vindos da Turquia. Suas malas são extraviadas e depois de mais de oito horas de peregrinação por diversos guichês conseguem sair do aeroporto após serem aconselhados pelos funcionários da Varig a voltar no dia seguinte, pois assim, talvez, tenham mais sorte... Pegam um táxi na saída do aeroporto. O taxista percebe que são estrangeiros e leva uma hora e meia dando voltas com eles pela cidade para abandoná-los em um lugar ermo da Baixada Fluminense, tendo parado no caminho para que dois cúmplices os assaltem, batam neles e lhes roubem os dólares. Segunda-feira 04:30hs: Graças ao treinamento de guerrilha que receberam nas cavernas do Afeganistão e nos campos minados da Somália, os dois terroristas conseguem chegar a um hotel. Decidem alugar um carro na Hertz em Copacabana e se dirigem ao aeroporto para seqüestrar um avião para jogá- Lo bem no meio dos braços abertos do Cristo Redentor. Pegam um congestionamento monstro por causa de uma manifestação de estudantes e professores em greve e ficam horas parados, além de terem seus relógios roubados em um arrastão no meio do congestionamento. Segunda-feira 12:30hs: Decidem parar no centro da cidade e procuram uma casa de câmbio para trocar o pouco que sobrou de dólares e recebem notas de R$ 100 falsas, dessas que são feitas grosseiramente a partir de notas de R$ 1. Segunda-feira 15:45hs: Chegam por fim ao aeroporto do Galeão com a firme intenção de seqüestrar um avião. Os pilotos da VARIG estão em greve por mais salário e menos horas, e os controladores de vôo também estão em greve, querem equiparação com os pilotos. O único avião disponível na pista é um da Transbrasil, que havia sido fretado para a Soletur, mas sem combustível. Os empregados e os passageiros estão acampados na sala de espera e nos corredores do aeroporto tocando pagode e gritando slogans contra o governo, os pilotos e o Roberto Marinho. A tropa de choque chega batendo em todos, inclusive nos terroristas. Segunda-feira 19:05hs: Finalmente a calma reina e os dois filhos de Allah, ainda ensangüentados, se dirigem ao balcão da Transbrasil para comprar as passagens. Mas o funcionário que lhes vende os bilhetes omite a informação de que os vôos da companhia estão suspensos por tempo indeterminado. Segunda-feira 22:07hs: Os terroristas discutem entre si, na dúvida se destruir o Rio de Janeiro, no fim das contas, é um ato terrorista ou uma obra de caridade. Segunda-feira 23:30hs: > Mortos de fome, decidem comer alguma coisa no restaurante do aeroporto, pedem um sanduíche de churrasco com queijo e uma limonada. Terça-feira 04:35hs: Se recuperam de uma intoxicação alimentar de proporções eqüinas, devido à carne estragada do sanduíche, no hospital Miguel Couto, depois de terem esperado horas para que o socorro chegasse e serem atendidos por uma enfermeira gorda, feia e mal-humorada. Seria questão de dois dias, se não fosse pela cólera devida à limonada feita com água contaminada. Domingo 17:20hs: Saem do hospital e chegam próximos ao estádio do Maracanã. O Vasco acabara de perder em casa para o Bangu, por 6x0. A torcida do Vasco, confunde os terroristas com integrantes da torcida adversária e aplicam-lhes uma surra sem precedentes. O chefe da torcida é um tal de Pé de Mesa que abusa sexualmente deles. Domingo 19:45hs: Finalmente são deixados em paz, com dores terríveis pelo corpo - e em algumas partes em particular - e vendo uma barraca de venda de bebida decidem se embriagar (uma vez na vida, mesmo que seja pecado!). Tomam cachaça adulterada com metanol e voltam ao Miguel Couto. Os médicos também diagnosticam gonorréia (Pé de Mesa não perdoa!). Terça-feira 23:42hs: Os dois terroristas fogem do Brasil em um barco que roubam na Baía de Guanabara. Juram por Allah que não vão fazer atentados contra o Brasil, que preferem os Estados Unidos... onde as conseqüências são menores.

Eu postei um link no tópico de Links! aqui da seção, dê uma olhada http://scriptbrasil.com.br/forum/index.php?showtopic=22813

É bem legalzinho, apesar de de vez em quando estar bem sem graça também, mas até que é legal. O Vesgo e o Sílvo é a parte mais engraçada, o Ceará é palhação, mas se de vez em quando eles não derem umas reformuladinhas no programa acaba ficando meio enjoado que nem Hermes e Renato na MTV, quando começou e até o ano passado era a coisa mais engraçada do mundo (na minha opinião, huahuauu) e quando voltou a passar esse ano tava bem fraquinho pelo menos os dois dias que eu vi. A verdade é a seguinte: a TV brasileira anda meio carente de humoristas, A Praça é Nossa já foi boa e o Zorra Total tá cada vez pior, tendo que apelar pra mulheres semi-nuas e os caramba, mas o Pânico até que é bem legal, tanto na TV quanto no rádio.

Aá pessoal, não é bem uma piada, mas é um texto engraçado (bem, pelo menos eu achei... ) Corrente para o fim das correntes. Há 4 TIPOS BÁSICOS DE CORRENTE: CORRENTE Nº 1: (vá descendo) * ** *** **** (pense em alguém que você gosta) ******* ******** ********* ********** *********** (pense num dos Teletubbies...) ************* ************** *************** **************** ***** ************ (pra quê? pra nada, p****) ********************* ********************** *********************** ************************ E AGORA FAÇA UM DESEJO! Agora, para você se sentir culpado, veja o que eu vou fazer. Primeiro, se você não mandar essa mensagem para 509 pessoas nos próximos 5 segundos, você vai ser atacado por um bode maluco e então será atirado do topo de um prédio em um monte de cacos de vidro. É verdade! Porque, você sabe, esta corrente não é como todas aquelas outras falsas, esta é verdadeira! Sério! Funciona a ssim: * Mande esta carta para 1 pessoa: uma pessoa vai ficar brava com você por ter mandado uma corrente idiota. * Mande esta carta para 2-5 pessoas: 2-5 pessoas vão ficar bravas com você por ter mandado uma corrente idiota. * Mande esta carta para 5-10 pessoas: 5-10 pessoas vão ficar bravas com você por ter mandado uma corrente idiota. * Mande esta carta para 20.674.951 pessoas: 20.674.951 pessoas vão ficar bravas com você por ter mandado uma corrente idiota. Obrigado! Boa sorte! CORRENTE Nº 2 Olá, e obrigado por ler esta carta. Tem um garoto faminto em Baklaliviatatlaglooshen que não tem braços, não tem pernas, não tem pais, e não tem bodes. A vida deste menino pode ser salva, porque cada vez que você mandar essa mensagem, um dólar será doado para o Fundo Baklaliviatatlaglooshen Para Garotos Pernetas, Manetas, Órfãos e sem Bodes. Lembre-se, nós NÃO temos nenhuma maneira de contar quantas cartas foram mandadas e isso é tudo bobagem, então, mande para 5 pessoas nos próximos 47 segundos. Ah, um lembrete - se você mandar acidentalmente para 4 ou 6 pessoas, você morrerá instantaneamente. Obrigado! CORRENTE Nº 3 Olá! Esta corrente existe desde 1897. Funciona da seguinte maneira: Passe para 15.067 pessoas nos próximos 7 minutos ou alguma coisa horripilante acontecerá com você, como aconteceu com essas pessoas: Miranda Pinsley estava voltando do colégio a pé no sábado. Ela tinha recentemente recebido esta carta e a ignorou. Então ela tropeçou numa pedra solta na calçada e caiu dentro do esgoto, e morreu toda cagada. Isso pode acontecer com você! Dexter Bip, um garoto de 13 anos, recebeu uma corrente no seu e-mail e a ignorou. Mais tarde, no mesmo dia, ele foi atropelado por um carro e sua namorada também. Ambos morreram virgens porque Dexter tinha fimose. As famílias estavam tão tristes que & gt;>todos os seus parentes ficaram loucos e passaram o resto da vida num manicômio. Isso pode acontecer com você! Lembre-se, você pode acabar como Pinsley e Bip. Simplesmente mande esta carta para todos os seus amigos fracassados, e tudo sairá bem. Obrigado! CORRENTE Nº 4 Aqui está um lindo desenho que eu fiz: (\ /) ( \ / ) ( \__/ ) ( / < \ ) ~~~~ É um anjo decapitado. Mande ele para todos os seus amigos para iluminar o dia deles , assim como iluminou o seu! Se você não mandar, bodes possuídos pelo demônio vão se mudar para sua casa e comer todas as suas meias,fazendo você pensar que alguma coisa está errada com sua máquina de lavar,porque suas meias sempre desaparecem. Tenha um bom dia! Obrigado por ler! Gostaram? Lembre-se, a moral da história é: Se você receber uma corrente, ignore-a. Se for uma piada ou algo assim, mande-a, claro, mas se for fazer as pessoas sentirem-se culpadas (como o menino de Baklaliviatatlaglooshen) ou nervosas (como Miranda Pinsley que caiu no esgoto), ou se for uma praga (se você não mandar essa carta, o contrário do seu desejo vai acontecer!), simplesmente APAGUE A b*** DA MENSAGEM! Faça um favor a si mesmo, a todos os outros habitantes do mundo e diga: "MORTE ÀS CORRENTES!" Agora vamos fazer uma corrente pedindo o fim das correntes! Mande este e-mail para todo mundo que você conhece senão bodes e cabras assassinos vão invadir sua casa!

Eeeeeeeé, já subiu o nível, e aqui vai mais uma: Edu, que não tinha orelhas, precisava contratar um novo gerente. Selecionou três currículos e marcou as entrevistas. O primeiro cara era ótimo. Conhecia tudo que precisava e era muito interessado. Ao final da entrevista Edu lhe perguntou: - Você percebeu alguma coisa diferente em mim? E o cara respondeu: - Sim, não pude evitar de reparar que o Sr. não tem orelhas. Edu não gostou daquela franqueza e mandou o embora. O segundo entrevistado era uma mulher, e era bem melhor que o primeiro cara. Ao final, entusiasmado, Edu fez a pergunta fatal: - Você percebeu alguma coisa diferente em mim? E ela: - Bem, você não tem orelhas. Novamente Edu se zangou e mandou-a embora. O terceiro e último entrevistado também era muito bom. Era um cara jovem, recém saído da faculdade, inteligente, boa pinta e parecia ser melhor homem de negócios que os dois primeiros juntos. Edu estava tão ansioso, que foi logo fazendo a pergunta de sempre: - Você percebeu alguma coisa diferente em mim? E para sua surpresa, o jovem respondeu: - Sim, você usa lentes de contato. Edu ficou chocado e disse: - Que observador incrível você é! Como é possível você saber disso? E o cara caiu da cadeira gargalhando histericamente: Porque é um pouco difícil usar óculos sem a p**** das orelhas!