Re: [delphi-br] Requisitos de Sistema
Valeu Walter, eu uso o Delphi 7 aqui. Achei interessante esse tópico. Pensei em passar a utilizar o Delphi 2005 uns tempos atrás, mas mudei de idéia antes... Willer. - Original Message - From: Walter Chagas Jr (BOL) To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 20, 2007 10:25 AM Subject: Re: [delphi-br] Requisitos de Sistema Willer, Vê se este tópico abaixo lhe ajuda a orientar quanto as questões de compatibilidades: Incompatibilidades entre o Delphi e o Sitema Operacional: Delphi 1 - Comprovadamente compativel até com o Windows 2003 (Apesar de ser pobre nos recursos) Delphi 2 - Não funciona no Windows 3.11 a menos que você instale a suite de compatibilidade Win32 para Windows 3.11 (mas isto na minha opinião é o cúmulo da gambiarra) Delphi 3 - Não funciona no Windows 3.11. Fora disto, é compatível com todos (inclusive com o 2003) Delphi 4 - Não funciona no Windows 3.11. Quando é aplicado os Service packs dele, passa a ser incompatível com o Windows 95 primeira edição e com o NT 4.0. Para reaver a compatibilidade, o usuário tem que instalar o Update pack 1 no W95, o Internet Explorer 4 e o pacote Winsock2. No NT4, é requerido o Service pack 3 e o Internet Explorer 4. Caso contrario esqueça. Os projetos compilados nele, exigem as mesmas adaptações no SO destino. No caso do Windows 95 primeira edição, é obrigatória a instalação do pacote DCOM95 e do Midas Delphi 5 - Não funciona no Windows 3.11 e nem no Windows 95 primeira edição e no NT4. Para ser portável ao W95 e ao NT 4, é necessário os mesmos procedimentos do Delphi 4. Também, a partir desta versão, já exige o MDAC instalado na máquina. Delphi 6 - Não funciona no Windows 3.11 e nem no Windows 95 primeira e segunda edição (OSR2) e no NT4. Para ser portável ao W95 e ao NT 4, é necessário, além dos mesmos procedimentos do Delphi 4, instalar o IE 5 (no mínimo). Para ser portável ao OSR2, são requeridos ainda alguns ajustes na memória virtual. No Windows 98 também é recomendável instalar o IE5 pra deixá-lo mais estável. Na verdade no Windows 95 ele funciona com performance muito abaixo do esperado e dá pau demais. Delphi 7 - Idem Delphi 6 e para Windows 95 só é recomendavel usar o W95 OSR3 (com suporte a USB) e instalar o IE5. Recomendável mesmo ser usado em Windows a partir do 2000 (Ressalvas para o Windows vista), os anteriores ele funciona muito precáriamente sendo muito pouco produtivo. Delphi 8 - Somente recomendável para SO´s a partir do Windows 2000 (Ressalvas para o Windows vista). Não roda no Windows 95 nem por reza brava, além de exigir muita coisa que o W95 não tem e em alguns casos não suporta, como o dotNET por exemplo. Delphi 2005 - Idem Delphi 8. Recomendável para computadores com memória de sobra e processadores acima de 1Ghz (no mínimo). Abaixo disto vira uma carroça. Nenhum ser vivo, que viva em qualquer planeta neste infinito universo, teria insanidade mental suficiente para tentar instalar ele num Windows 95 ou um 98 da vida, a não ser que o camarada sofra de alguma crise de masoquismo agudo ou quer fazer humor negro com o Delphi... []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] SKYPE: WalterChagasJr - Original Message - From: willer To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 19, 2007 9:28 AM Subject: [delphi-br] Requisitos de Sistema Bom dia a todos. Gostaria de perguntar a vocês, como especificar as configurações mínimas para rodar bem um sistema feito em Delphi. A forma que venho fazendo, é testar o software em uma máquina com poucos recursos e realizar todos os testes lá, a fim de que em uma máqiona malhor ele funcione bem. Alguém utiliza uma outra forma para fazer isso? Willer. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2734 (20071219) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2739 (20071220) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Requisitos de Sistema
Bom dia a todos. Gostaria de perguntar a vocês, como especificar as configurações mínimas para rodar bem um sistema feito em Delphi. A forma que venho fazendo, é testar o software em uma máquina com poucos recursos e realizar todos os testes lá, a fim de que em uma máqiona malhor ele funcione bem. Alguém utiliza uma outra forma para fazer isso? Willer. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Requisitos de Sistema
Entendi. Mas como você chegou nessa conclusão? Meu sistema roda até em Win95 com 64MB de RAM. Você executou testes numa máquina assim, certo? Gostaria de saber o método utilizaqdo para isso. Willer. - Original Message - From: Rodrigo Bevilacqua Marcondes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 19, 2007 10:54 AM Subject: Res: [delphi-br] Requisitos de Sistema olá Meu sistema roda até em Win95 com 64MB de RAM, mas não vou colocar como requisito minimo o windows 95. Pô no mínimo um XP.. quanto a máquina deve colocar no mínimo um PC com 1GHz, e 256MB de RAM ... senão o pessoal quer fazer rodar numas maquinas %^%^#%$#^)^(%^#% sei lá ... Rodrigo ®¿® - Mensagem original De: willer [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 19 de Dezembro de 2007 10:28:30 Assunto: [delphi-br] Requisitos de Sistema Bom dia a todos. Gostaria de perguntar a vocês, como especificar as configurações mínimas para rodar bem um sistema feito em Delphi. A forma que venho fazendo, é testar o software em uma máquina com poucos recursos e realizar todos os testes lá, a fim de que em uma máqiona malhor ele funcione bem. Alguém utiliza uma outra forma para fazer isso? Willer. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informa��o do NOD32 IMON 2732 (20071219) __ Esta mensagem foi verificada pelo NOD32 sistema antiv�rus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Requisitos de Sistema
Obrigado Ricardo, isso me ajuda sim. Eu já cheguei a utilizar uma vez, mas para outras coisas, será bem útil a utilização de máquinas virtuais. Valeu. Willer. - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 19, 2007 11:12 AM Subject: Re: [delphi-br] Requisitos de Sistema Bom dia! Para determinar os requisitos mínimos, eu faço uso de máquinas virtuais do VMWare. Instalo um Windows 95 ou 98 (na verdade já tenho os arquivos das máquinas virtuais preparados com eles), instalo meu software lá e executo. Se não tiver problema nenhum durante a execução, já sei qual o SO mínimo e o espaço mínimo ocupado, bem como memória, já que defino tudo isso ao montar o ambiente virtual. Espero que isto lhe ajude. Boas festas, Ricardo. willer [EMAIL PROTECTED] escreveu: Entendi. Mas como você chegou nessa conclusão? Meu sistema roda até em Win95 com 64MB de RAM. Você executou testes numa máquina assim, certo? Gostaria de saber o método utilizaqdo para isso. Willer. - Original Message - From: Rodrigo Bevilacqua Marcondes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 19, 2007 10:54 AM Subject: Res: [delphi-br] Requisitos de Sistema olá Meu sistema roda até em Win95 com 64MB de RAM, mas não vou colocar como requisito minimo o windows 95. Pô no mÃnimo um XP.. quanto a máquina deve colocar no mÃnimo um PC com 1GHz, e 256MB de RAM ... senão o pessoal quer fazer rodar numas maquinas %^%^#%$#^)^(%^#% sei lá ... Rodrigo ®¿® - Mensagem original De: willer [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 19 de Dezembro de 2007 10:28:30 Assunto: [delphi-br] Requisitos de Sistema Bom dia a todos. Gostaria de perguntar a vocês, como especificar as configurações mÃnimas para rodar bem um sistema feito em Delphi. A forma que venho fazendo, é testar o software em uma máquina com poucos recursos e realizar todos os testes lá, a fim de que em uma máqiona malhor ele funcione bem. Alguém utiliza uma outra forma para fazer isso? Willer. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informa��o do NOD32 IMON 2732 (20071219) __ Esta mensagem foi verificada pelo NOD32 sistema antiv�rus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] _ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2732 (20071219) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Intersecção de Períodos
Alguém sabe como faço para obter a intersecção entre Períodos? Por exemplo: Período 1 = 16/12/2007 13:15 16/12/2007 20:00 Período 2 = 16/12/2007 17:00 16/12/2007 23:22 Os dados acima retornariam 3:00, que é a intersecção. Alguém tem alguma idéia de como fazer? Faz um tempo que estou quebrando a cabeça. Preciso disso para desenvolver uma fórmula que fará um cálculo de data/hora que envolvem 3 períodos de tempo. Agradeço desde já qualquer ajuda. Uso o Delphi 7. Willer. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Intersecção de Períodos
Já consegui fazer um método que calcula, obrigado. Function InterseccaoDatas(DataHora1,DataHora2,DataHora3,DataHora4: TDateTime):TDateTime; var Geral, p11,p12,p21,p22:TDateTime; Mgeral:integer; begin p11 := DataHora1; p12 := DataHora2; p21 := DataHora3; p22 := DataHora4; //pega o tempo total e giarda em Geral MGeral:=MinutesBetween(iif(p11p21,p21,p11),iif(p12p22,p12,p22)); Mgeral:=Mgeral-(MinutesBetween(p11,p12))-(MinutesBetween(p21,p22)); Geral :=0; Geral:=IncMinute(Geral,Mgeral); if Geral0 then Geral:=0; Result:=Geral end; - Original Message - From: willer To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 12, 2007 11:48 AM Subject: [delphi-br] Intersecção de Períodos Alguém sabe como faço para obter a intersecção entre Períodos? Por exemplo: Período 1 = 16/12/2007 13:15 16/12/2007 20:00 Período 2 = 16/12/2007 17:00 16/12/2007 23:22 Os dados acima retornariam 3:00, que é a intersecção. Alguém tem alguma idéia de como fazer? Faz um tempo que estou quebrando a cabeça. Preciso disso para desenvolver uma fórmula que fará um cálculo de data/hora que envolvem 3 períodos de tempo. Agradeço desde já qualquer ajuda. Uso o Delphi 7. Willer. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2718 (20071212) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Intersecção de Períodos
Obrigado Ricardo, vou desenvolver sua lógica, eu consegui fazer de outra forma, só que com dois períodos apenas. Será muito útil. Willer. - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 12, 2007 4:06 PM Subject: Re: [delphi-br] Intersecção de Períodos Puxa willer! Esse é um problema bem legal e interessante. Vou tentar descrever uma lógica e se vc conseguir entender, tente descrever na linguagem do Delphi: Primeiro quebre o período completo em duas partes chamadas de Entrada e Saida. No seu caso, Período1 seria composto por Entrada1 = 16/12/2007 13:15 e Saida1 = 16/12/2007 20:00 Repita o processo para cada período que vc tenha. Para cada período que vc tenha que verificar a intersecção, vc tem que verificar se a entrada do próximo período está contida no período anterior. Portanto proceda uma comparação como no pseudocódigo abaixo: Se Entrada2 = Entrada1 e Entrada2 = Saida1 Interseccao := Entrada2 - Saida1 Vc vai repetir esse processo enquanto houverem períodos a verificar. Espero que lhe seja útil. Sds, Ricardo willer [EMAIL PROTECTED] escreveu: Alguém sabe como faço para obter a intersecção entre Períodos? Por exemplo: Período 1 = 16/12/2007 13:15 16/12/2007 20:00 Período 2 = 16/12/2007 17:00 16/12/2007 23:22 Os dados acima retornariam 3:00, que é a intersecção. Alguém tem alguma idéia de como fazer? Faz um tempo que estou quebrando a cabeça. Preciso disso para desenvolver uma fórmula que fará um cálculo de data/hora que envolvem 3 períodos de tempo. Agradeço desde já qualquer ajuda. Uso o Delphi 7. Willer. [As partes desta mensagem que não continham texto foram removidas] _ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2719 (20071212) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] SOCORRO : Aplicação em primeiro pl ano
//aqui funciona assim procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction); begin if not Fechar then Action:=caNone; end; - Original Message - From: william.designer To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 05, 2007 1:44 PM Subject: [delphi-br] SOCORRO : Aplicação em primeiro plano Olá a todos, estou com uma dúvida cruel... estou criando um aplicativo que o usuário tem logar para ter acesso a área de trabalho. quando o usuário loga na parte superior da tela fica um pequeno formulario mostrando o nome do usuário, o relogio e um contatador de tempo. criei uma váriavel global Fechar:Boolean=False Coloquei no evento OnCloseQuery CanClose:=Fechar; Criei um botão Fechar e coloquei o seguinte codigo no Onclick Fechar:=True; Close; fiz isso para evitar que a tela fosse fechada com ALT+F4 Nas propriedades do formulario retirei as bordas da janela; até ai tudo bem... porém também alterei o FormStyle para fsStayOnTop; fiz isso para que esta janelinha fique aparecendo o tempo todo sobre qualquer aplicativo que o usuario abrir no windows... porém não está funcionando...alguem sabe me dizer se fiz algo errado ou se deixei de fazer alguma coisa... estou precisando muito desta informação,,, deste já agradeço a todos... __ Informação do NOD32 IMON 2704 (20071205) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] SOCORRO : Aplicação em primeiro pl ano
Para evitar que um formulário feche, você deve colocar seu código no on close dele, você programou o evento OnCloseQuery... Willer. - Original Message - From: william.designer To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 05, 2007 1:44 PM Subject: [delphi-br] SOCORRO : Aplicação em primeiro plano Olá a todos, estou com uma dúvida cruel... estou criando um aplicativo que o usuário tem logar para ter acesso a área de trabalho. quando o usuário loga na parte superior da tela fica um pequeno formulario mostrando o nome do usuário, o relogio e um contatador de tempo. criei uma váriavel global Fechar:Boolean=False Coloquei no evento OnCloseQuery CanClose:=Fechar; Criei um botão Fechar e coloquei o seguinte codigo no Onclick Fechar:=True; Close; fiz isso para evitar que a tela fosse fechada com ALT+F4 Nas propriedades do formulario retirei as bordas da janela; até ai tudo bem... porém também alterei o FormStyle para fsStayOnTop; fiz isso para que esta janelinha fique aparecendo o tempo todo sobre qualquer aplicativo que o usuario abrir no windows... porém não está funcionando...alguem sabe me dizer se fiz algo errado ou se deixei de fazer alguma coisa... estou precisando muito desta informação,,, deste já agradeço a todos... __ Informação do NOD32 IMON 2704 (20071205) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Obter o endereço da Porta LPT
Boa tarde. Estou desenvolvendo uma rotina que verifica se existe uma impressora conectada à porta LPT. A rotina está pronta, só que ela recebe como parâmetro o endereço da porta LPT, por exemplo LPT1 = $378. Alguém sabe se há alguma forma de obter o endereço da porta LPT tendo como parâmetro somente o nome da porta: LPT1 ou LPT2? Já fiz algumas pesquisas, mas não consegui encontrar nada que me ajudasse... Tentei acessar diretamente via asm, mas o windows xp não permite o acesso direto, dá erro de acesso à memória. Agradeço desde já qualquer ajuda. Willer. Personal Computer. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] wrong or obsolete version
Fiz um aplicativo no Delphi 7 que qcessa um DB Firebird. No windows xp, roda normalmente, mas no 98, com a mesma versão do Firebird instalada dá o seguinte erro: ' wrong or obsolete version - unsuported on-disk structure for file DB.FDB; found 32779, support 10 ' Alguém sabe que erro é esse? Willer Personal Computer. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Subtrair Datas
Data = Data - 10; Isso já resolve Willer Personal Computer. - Original Message - From: Ricardo Ravelli To: delphi-br@yahoogrupos.com.br Sent: Monday, July 30, 2007 2:44 PM Subject: [delphi-br] Subtrair Datas Boa Tarde, Estou com seguinte problema, tenho uma data que pego direto do servidor e preciso pegar essa data e tirar quinze dias. Ex: 30/01/2007 para 15/01/2007. Alguem sabe como posso fazer isso?? Delphi 5, MySQL. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2429 (20070730) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Subtrair Datas
Usa a função IncDay(Data, -Dias) da DateUtils Willer Personal Computer - Original Message - From: Ricardo Ravelli To: delphi-br@yahoogrupos.com.br Sent: Monday, July 30, 2007 2:44 PM Subject: [delphi-br] Subtrair Datas Boa Tarde, Estou com seguinte problema, tenho uma data que pego direto do servidor e preciso pegar essa data e tirar quinze dias. Ex: 30/01/2007 para 15/01/2007. Alguem sabe como posso fazer isso?? Delphi 5, MySQL. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2429 (20070730) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DLL qtintf70.dll ?
É, fiz uma pesquisa e descobri isso..., mas como faço para saber se estou usando algo que é CLX e não VCL? - Original Message - From: Flávio S F Martins To: delphi-br@yahoogrupos.com.br Sent: Thursday, July 26, 2007 3:36 PM Subject: Re: [delphi-br] DLL qtintf70.dll ? é do falecido Kylix (infelizmente) ... projetos com CLX - Original Message - From: willer To: delphi-br@yahoogrupos.com.br Sent: Thursday, July 26, 2007 12:02 PM Subject: Re: [delphi-br] DLL qtintf70.dll ? Consegui resolver. Removi a declaração de todas as units que começavam com a letra Q, no caso, a Qt. Willer Personal Computer. - Original Message - From: willer To: delphi-br@yahoogrupos.com.br Sent: Thursday, July 26, 2007 10:21 AM Subject: [delphi-br] DLL qtintf70.dll ? Bom dia, alguém sabe como faço para tornar desnecessário o uso da DLL qtintf70.dll, não sei exatamente que componentes necessitam dela, mas gostaria de removê-los. Desde já agradeço. Willer. Personal Computer [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2418 (20070725) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2423 (20070726) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DLL qtintf70.dll ?
Consegui resolver. Removi a declaração de todas as units que começavam com a letra Q, no caso, a Qt. Willer Personal Computer. - Original Message - From: willer To: delphi-br@yahoogrupos.com.br Sent: Thursday, July 26, 2007 10:21 AM Subject: [delphi-br] DLL qtintf70.dll ? Bom dia, alguém sabe como faço para tornar desnecessário o uso da DLL qtintf70.dll, não sei exatamente que componentes necessitam dela, mas gostaria de removê-los. Desde já agradeço. Willer. Personal Computer [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2418 (20070725) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DLL qtintf70.dll ?
Bom dia, alguém sabe como faço para tornar desnecessário o uso da DLL qtintf70.dll, não sei exatamente que componentes necessitam dela, mas gostaria de removê-los. Desde já agradeço. Willer. Personal Computer [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como abrir um componente do tipo com bo, via código ?
Tente usar a propriedade DroppedDown:=true; Willer. - Original Message - From: papaia.forum To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 24, 2007 1:43 PM Subject: [delphi-br] Como abrir um componente do tipo combo, via código ? Deve ser bem simples, mas eu não sei, então resolvi perguntar aos mais entendidos. Como faço para no onEnter do RxlookupEdit (ou qualquer outro componente do tipo combo !), já entrar com ele aberto, de tal forma que a medida que o usuário vá digitando alguma coisa, ele já vai fazendo a busca ?. Resumindo: Como abrir um componente do tipo combo, via código ? Antecipadamente agradeço à quem puder ajudar. waldir silva [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Access Violation utilizando VCLSkin
Bom dia, estou com um erro estranho que ocorre quando utilizo o VCLSkin. Estou usando um OpenPictureDialog. Acontece que depois do evento Execute do OpenPictureDialog dá um erro de acesso à memória Access violation at address . Read of address . Alguém que já tenha passado por isso tem alguma sugestão do que possa ser feito? Se eu utilizar outro componente para selecionar o arquivo, por exemplo o OpenDialog, dá o mesmo erro. Se eu desativar o componente de skins, o erro não acontece. Tentei desativar o skin quando abrir o formulário e ativar quando fechar, mas quando desativo o skin, a tela fica com aparência estranha, com cores trocadas... Qualquer dica ou sugestão é bem vinda. Willer. Personal Computer. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Access Violation utilizando VCLSkin
Obrigado. A versão mais recente é a 4.88. Vou me certificar de que não possui esse BUG. Willer. Personal Computer. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Monday, July 23, 2007 11:30 AM Subject: Re: [delphi-br] Access Violation utilizando VCLSkin VocÊ poderia me dizer qual a versão mais atual da VCLSkin? veja na página do desenvolvedor, http://www.link-rank.com/ Em 23/07/07, willer [EMAIL PROTECTED] escreveu: VocÊ poderia me dizer qual a versão mais atual da VCLSkin? - Original Message - From: Tiago To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, July 23, 2007 11:10 AM Subject: Re: [delphi-br] Access Violation utilizando VCLSkin É um problema da versão que você está usando Essa versão ae..todas as Open dão o erro... Você precisa de uma versão mais atual. Abs Tiago - Original Message - From: willer To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, July 23, 2007 10:28 AM Subject: [delphi-br] Access Violation utilizando VCLSkin Bom dia, estou com um erro estranho que ocorre quando utilizo o VCLSkin. Estou usando um OpenPictureDialog. Acontece que depois do evento Execute do OpenPictureDialog dá um erro de acesso à memória Access violation at address . Read of address . Alguém que já tenha passado por isso tem alguma sugestão do que possa ser feito? Se eu utilizar outro componente para selecionar o arquivo, por exemplo o OpenDialog, dá o mesmo erro. Se eu desativar o componente de skins, o erro não acontece. Tentei desativar o skin quando abrir o formulário e ativar quando fechar, mas quando desativo o skin, a tela fica com aparência estranha, com cores trocadas... Qualquer dica ou sugestão é bem vinda. Willer. Personal Computer. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2413 (20070723) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Access Violation utilizando VCLSkin
VocÊ poderia me dizer qual a versão mais atual da VCLSkin? - Original Message - From: Tiago To: delphi-br@yahoogrupos.com.br Sent: Monday, July 23, 2007 11:10 AM Subject: Re: [delphi-br] Access Violation utilizando VCLSkin É um problema da versão que você está usando Essa versão ae..todas as Open dão o erro... Você precisa de uma versão mais atual. Abs Tiago - Original Message - From: willer To: delphi-br@yahoogrupos.com.br Sent: Monday, July 23, 2007 10:28 AM Subject: [delphi-br] Access Violation utilizando VCLSkin Bom dia, estou com um erro estranho que ocorre quando utilizo o VCLSkin. Estou usando um OpenPictureDialog. Acontece que depois do evento Execute do OpenPictureDialog dá um erro de acesso à memória Access violation at address . Read of address . Alguém que já tenha passado por isso tem alguma sugestão do que possa ser feito? Se eu utilizar outro componente para selecionar o arquivo, por exemplo o OpenDialog, dá o mesmo erro. Se eu desativar o componente de skins, o erro não acontece. Tentei desativar o skin quando abrir o formulário e ativar quando fechar, mas quando desativo o skin, a tela fica com aparência estranha, com cores trocadas... Qualquer dica ou sugestão é bem vinda. Willer. Personal Computer. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2413 (20070723) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressão de logotipo em impressor a térimica
Olá Ricardo, você citou que possui os códigos que fazer a impressão de logotipo em uma impressora térmica com base em um arquivo PCX. Você poderia me mandar um trecho do seu código que me mostre como fazer? Já faz um tempo que estou pesquisando, mas não consegui fazer a impressão. Eu pequei um arquio PCX, li ele char a char e fui jogando na porta da impressora, mas o que aparecetam foram caracteres estranhos... Agradeço se puder me ajudar... Willer. - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 4:49 PM Subject: Re: [delphi-br] Impressão de logotipo em impressora térimica Dá uma olhada no link abaixo no item PCX http://www.efg2.com/Lab/Library/Delphi/Graphics/FileFormatsAndConversion.htm Sds, Ricardo. willer [EMAIL PROTECTED] escreveu: Como converto para o formato PCX, minha imagem está no formato BMP preto e branco.? - Original Message - From: Walter Alves Chagas Junior To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 2:09 PM Subject: RES: [delphi-br] Impressão de logotipo em impressora térimica Eu tenho os codigos lá em casa. Mas basicamente voce tem que converter a imagem para o formato .pcx, ler char por char do .pcx e gravar ele na porta da impressora. No Caso da Zebra Stripe, voce tem que converter a imagem .pcx pro formato .dgi (um utilitário que vem no CD da impressora), e então, ler char por char no arquivo e gravar na impressora. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de willer Enviada em: quinta-feira, 21 de junho de 2007 11:45 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Impressão de logotipo em impressora térimica Como você fez para esses impressoras que citou? - Original Message - From: Walter Alves Chagas Junior To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 10:17 AM Subject: RES: [delphi-br] Impressão de logotipo em impressora térimica Qual impressora que é? Cada uma tem uma forma. Eu já fiz impressão de logotipo pra impressoras Eltron/Zebra linha TLP e na Zebra linha Stripe. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de willer Enviada em: quinta-feira, 21 de junho de 2007 09:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Impressão de logotipo em impressora térimica Bom dia, alguém sabe como faço para imprimir um logotipo numa impressora térmica? Ela é do tipo texto para impressão em modo DOS. Quero imprimir um Bitmap, mas não tenho idéia de por onde começar, já fiz umas pesquisas no google e só encontrei impressão de texto. Agradeço desde já, Willer. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2342 (20070621) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2342 (20070621) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2343 (20070621) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressão de logotipo em impressor a térimica
Ah, desculpa, não tinha prestado atenção. Willer. - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 03, 2007 10:49 AM Subject: Re: [delphi-br] Impressão de logotipo em impressora térimica Tenho esse código não willer... quem tem é o Walter Chagas. Ele que citou; mais abaixo nessa mensagem vc encontra o contato dele. Sds, Ricardo. willer [EMAIL PROTECTED] escreveu: Olá Ricardo, você citou que possui os códigos que fazer a impressão de logotipo em uma impressora térmica com base em um arquivo PCX. Você poderia me mandar um trecho do seu código que me mostre como fazer? Já faz um tempo que estou pesquisando, mas não consegui fazer a impressão. Eu pequei um arquio PCX, li ele char a char e fui jogando na porta da impressora, mas o que aparecetam foram caracteres estranhos... Agradeço se puder me ajudar... Willer. - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 4:49 PM Subject: Re: [delphi-br] Impressão de logotipo em impressora térimica Dá uma olhada no link abaixo no item PCX http://www.efg2.com/Lab/Library/Delphi/Graphics/FileFormatsAndConversion.htm Sds, Ricardo. willer [EMAIL PROTECTED] escreveu: Como converto para o formato PCX, minha imagem está no formato BMP preto e branco.? - Original Message - From: Walter Alves Chagas Junior To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 2:09 PM Subject: RES: [delphi-br] Impressão de logotipo em impressora térimica Eu tenho os codigos lá em casa. Mas basicamente voce tem que converter a imagem para o formato .pcx, ler char por char do .pcx e gravar ele na porta da impressora. No Caso da Zebra Stripe, voce tem que converter a imagem .pcx pro formato .dgi (um utilitário que vem no CD da impressora), e então, ler char por char no arquivo e gravar na impressora. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de willer Enviada em: quinta-feira, 21 de junho de 2007 11:45 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Impressão de logotipo em impressora térimica Como você fez para esses impressoras que citou? - Original Message - From: Walter Alves Chagas Junior To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 10:17 AM Subject: RES: [delphi-br] Impressão de logotipo em impressora térimica Qual impressora que é? Cada uma tem uma forma. Eu já fiz impressão de logotipo pra impressoras Eltron/Zebra linha TLP e na Zebra linha Stripe. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de willer Enviada em: quinta-feira, 21 de junho de 2007 09:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Impressão de logotipo em impressora térimica Bom dia, alguém sabe como faço para imprimir um logotipo numa impressora térmica? Ela é do tipo texto para impressão em modo DOS. Quero imprimir um Bitmap, mas não tenho idéia de por onde começar, já fiz umas pesquisas no google e só encontrei impressão de texto. Agradeço desde já, Willer. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2342 (20070621) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2342 (20070621) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2343 (20070621) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2374 (20070703) __ Esta mensagem
Re: [delphi-br] Impressão de logotipo em impressor a térimica
Eu verifiquei o link que me foi passado, mas mesmo assim, não consegui. Tentei pegar um arquivo PCX, abrí-lo como arquivo e ler byte a byte, imprimindo, mas o conteúdo do arquivo lido byte a byte, quando vou imprimir não sai nada... - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 4:49 PM Subject: Re: [delphi-br] Impressão de logotipo em impressora térimica Dá uma olhada no link abaixo no item PCX http://www.efg2.com/Lab/Library/Delphi/Graphics/FileFormatsAndConversion.htm Sds, Ricardo. willer [EMAIL PROTECTED] escreveu: Como converto para o formato PCX, minha imagem está no formato BMP preto e branco.? - Original Message - From: Walter Alves Chagas Junior To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 2:09 PM Subject: RES: [delphi-br] Impressão de logotipo em impressora térimica Eu tenho os codigos lá em casa. Mas basicamente voce tem que converter a imagem para o formato .pcx, ler char por char do .pcx e gravar ele na porta da impressora. No Caso da Zebra Stripe, voce tem que converter a imagem .pcx pro formato .dgi (um utilitário que vem no CD da impressora), e então, ler char por char no arquivo e gravar na impressora. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de willer Enviada em: quinta-feira, 21 de junho de 2007 11:45 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Impressão de logotipo em impressora térimica Como você fez para esses impressoras que citou? - Original Message - From: Walter Alves Chagas Junior To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 10:17 AM Subject: RES: [delphi-br] Impressão de logotipo em impressora térimica Qual impressora que é? Cada uma tem uma forma. Eu já fiz impressão de logotipo pra impressoras Eltron/Zebra linha TLP e na Zebra linha Stripe. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de willer Enviada em: quinta-feira, 21 de junho de 2007 09:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Impressão de logotipo em impressora térimica Bom dia, alguém sabe como faço para imprimir um logotipo numa impressora térmica? Ela é do tipo texto para impressão em modo DOS. Quero imprimir um Bitmap, mas não tenho idéia de por onde começar, já fiz umas pesquisas no google e só encontrei impressão de texto. Agradeço desde já, Willer. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2342 (20070621) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2342 (20070621) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2343 (20070621) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Impressão de logotipo em impressora térimica
Bom dia, alguém sabe como faço para imprimir um logotipo numa impressora térmica? Ela é do tipo texto para impressão em modo DOS. Quero imprimir um Bitmap, mas não tenho idéia de por onde começar, já fiz umas pesquisas no google e só encontrei impressão de texto. Agradeço desde já, Willer. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressão de logotipo em impressor a térimica
Tenho apenas um documento, PDF, do firmware, que mostra uma lista de comandos, Negrito, Itálico, Condensado, que por sinal não consigo utilizar. Willer. - Original Message - From: Andrei Luís To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 10:06 AM Subject: Re: [delphi-br] Impressão de logotipo em impressora térimica Que marca é essa sua impressora? Normalmente o fabricante disponibiliza uma dll pra fazer a comunicação com a impressora ou pelo menos eles podem te fornecer um manual de como fazer isso que tu precisa. [] Andrei Em 21/06/07, willer[EMAIL PROTECTED] escreveu: Bom dia, alguém sabe como faço para imprimir um logotipo numa impressora térmica? Ela é do tipo texto para impressão em modo DOS. Quero imprimir um Bitmap, mas não tenho idéia de por onde começar, já fiz umas pesquisas no google e só encontrei impressão de texto. Agradeço desde já, Willer. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressão de logotipo em impressor a térimica
Como você fez para esses impressoras que citou? - Original Message - From: Walter Alves Chagas Junior To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 10:17 AM Subject: RES: [delphi-br] Impressão de logotipo em impressora térimica Qual impressora que é? Cada uma tem uma forma. Eu já fiz impressão de logotipo pra impressoras Eltron/Zebra linha TLP e na Zebra linha Stripe. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de willer Enviada em: quinta-feira, 21 de junho de 2007 09:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Impressão de logotipo em impressora térimica Bom dia, alguém sabe como faço para imprimir um logotipo numa impressora térmica? Ela é do tipo texto para impressão em modo DOS. Quero imprimir um Bitmap, mas não tenho idéia de por onde começar, já fiz umas pesquisas no google e só encontrei impressão de texto. Agradeço desde já, Willer. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2342 (20070621) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressão de logotipo em impressor a térimica
Como converto para o formato PCX, minha imagem está no formato BMP preto e branco.? - Original Message - From: Walter Alves Chagas Junior To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 2:09 PM Subject: RES: [delphi-br] Impressão de logotipo em impressora térimica Eu tenho os codigos lá em casa. Mas basicamente voce tem que converter a imagem para o formato .pcx, ler char por char do .pcx e gravar ele na porta da impressora. No Caso da Zebra Stripe, voce tem que converter a imagem .pcx pro formato .dgi (um utilitário que vem no CD da impressora), e então, ler char por char no arquivo e gravar na impressora. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de willer Enviada em: quinta-feira, 21 de junho de 2007 11:45 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Impressão de logotipo em impressora térimica Como você fez para esses impressoras que citou? - Original Message - From: Walter Alves Chagas Junior To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 21, 2007 10:17 AM Subject: RES: [delphi-br] Impressão de logotipo em impressora térimica Qual impressora que é? Cada uma tem uma forma. Eu já fiz impressão de logotipo pra impressoras Eltron/Zebra linha TLP e na Zebra linha Stripe. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de willer Enviada em: quinta-feira, 21 de junho de 2007 09:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Impressão de logotipo em impressora térimica Bom dia, alguém sabe como faço para imprimir um logotipo numa impressora térmica? Ela é do tipo texto para impressão em modo DOS. Quero imprimir um Bitmap, mas não tenho idéia de por onde começar, já fiz umas pesquisas no google e só encontrei impressão de texto. Agradeço desde já, Willer. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2342 (20070621) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2342 (20070621) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas Breakpoints
Tive esse problema a um tempo quando coloquei um trecho de código que não era útil, então o Delphi desconsiderou o trecho que coloquei durante a compilação fazendo com que o BreakPoint não pudesse ser colocado lá. Talvez esse não seja o seu problema, mas dá uma olhada nisso, vê se colocando o Break em outros lugares do programa ele funciona... Willer. - Original Message - From: lucaoliveira7 To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 20, 2007 1:37 PM Subject: [delphi-br] Problemas Breakpoints Pessoal, Já postei aqui neste grupo porém ninguém tem uma solução plausível. Já procurei e vários grupos e na internet e nada achei. Peço mais uma vez a atenção de vcs. Trabalho com Delphi6.0 e Oracle9. Não sei qdo nem como aconteceu, mas os breakpoints pararam de funcionar em um único programa. Estou utilizando VCLSkin, é a única coisa que me lembro de ter feito e depois parado de funcionar o breakpoint, só que msm retirando a VCLSkin o problema continua. Já deletei todas as DCU´s e recompilei tudo Não é problema de configuração do Delphi, uma vez que se abrir qq programa o breakpoint volta a funcionar. Então estou sem opções. E todos sabem que sem os breakpoints a depuração de erros se torna lenta e suscetível a mais erros, pq estou depurando com showmessages. Grato. __ Informação do NOD32 IMON 2341 (20070620) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Gráficos no Report Builder - datasets não listados
Boa tarde, estou desenvolvendo uma aplicação que precisa emitir relatórios em forma de gráfico, mas estou com problemas ao tentar gerar um gráfico no Report Builder. Quando tento adicionar um dataset, a lista de datasets sinplesmente não é exibida, me impossibilitando de adicionar os campos que quero que apareçam no gráfico. Alguém sabe como contornar esse problema? Estou utilizando a versão 9 do Report Builder e Delphi7. Willer. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] dividir string
Usa a função Copy COPY(STRING,X1,X2); Retorna os caracteres da string começando de x1 até x2. willer. - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 03, 2007 2:45 PM Subject: [delphi-br] dividir string oi, pessoal eu estou com esta string: 846400218710034011074750220626492799 eu eu preciso dividir ela em 4 partes de 11 caracteres assim: 8464002 18710034010 00010747502 20626492799 ou seja, parte 1 = 8464002 parte 2 = 18710034010 parte 3 = 00010747502 parte 4 = 20626492799 alguem poderia mim dar uma juda? Grato! Erivando [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2166 (20070403) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Emails Dupicados
Estou recebendo pelo menos 4 vezes cada um. Willer - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 29, 2007 10:12 AM Subject: Re: [delphi-br] Emails Dupicados Régis Bender wrote: Pessoal, estou recebendo mais de 7 vezes cada e-mail enviado para o grupo. Está acontecendo isso com mais alguém? Yep. De ontem para cá. -- Joao Morais __ Informação do NOD32 IMON 2149 (20070328) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente de Captura de Vídeo
Tentei o Video Lab, que me pareceu bom. Só que não consegui realizar os testes porque o PC trava sempre que tento acessar diretamente a câmera. Até mesmo com os DEMOS que vieram com o componente. Dá um erro de tela azul, e inicia-se o despejo de memória, então o computador trava completamente, até o HD para de rodar. Uso o Windows XP e não tenho a mínima idéia do que possa ser. Tenho um aplaca ARGUS de 4 canais. Willer. - Original Message - From: Eduardo Castro Alves To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 28, 2007 6:23 PM Subject: Re: [delphi-br] Componente de Captura de Vídeo Video Grabber http://www.datastead.com este é pago mais muito bom, vale cada centavo investido. VideoLab http://www.mitov.com este é FREE mas não deixa a desejar, dependendo da aplicação vai atender perfeitamente. Eduardo willer escreveu: Olá, Alguém conhece algum componente de captura de vídeo que consiga acessar 4 canais de uma placa de captura? TEnho uma placa ARGUS de 4 canais, só que os componentes que tenho(TSCAP, e DSPACK) só conseguem detectar o primeiro canal da placa. Qualquer dica é bem-vinda. Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ __ Informação do NOD32 IMON 2149 (20070328) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componente de Captura de Vídeo
Olá, Alguém conhece algum componente de captura de vídeo que consiga acessar 4 canais de uma placa de captura? TEnho uma placa ARGUS de 4 canais, só que os componentes que tenho(TSCAP, e DSPACK) só conseguem detectar o primeiro canal da placa. Qualquer dica é bem-vinda. Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas]
Re: [Spam] [delphi-br] Componente de Captura de Vídeo
Obrigado Valdir, mas o componente que tem na JEDI, pelo que percebi, não consegue manipular mais de um canal de uma placa de captura. Eu precisaria que o componente me permitisse exibir na tela os 4 canais(4 câmeras) da mesma placa para realizar o que quero, que é gravar a imagem de determinadas câmeras em momentos específicos. Se conhecer outro componente, por favor me fala o nome, aí eu verifico o que ele faz. Willer Alves da Costa. - Original Message - From: Valdir Sola To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 28, 2007 3:12 PM Subject: RES: [Spam] [delphi-br] Componente de Captura de Vídeo Na suite JEDI tem um ôtemo Abs Valdir _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de willer Enviada em: quarta-feira, 28 de março de 2007 15:06 Para: delphi-br@yahoogrupos.com.br Assunto: [Spam] [delphi-br] Componente de Captura de Vídeo Olá, Alguém conhece algum componente de captura de vídeo que consiga acessar 4 canais de uma placa de captura? TEnho uma placa ARGUS de 4 canais, só que os componentes que tenho(TSCAP, e DSPACK) só conseguem detectar o primeiro canal da placa. Qualquer dica é bem-vinda. Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2150 (20070328) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br _ E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=fastbyte_l=1, 1175105256.389900.15247.almora.hst.terra.com.br,16012,20031127114101,2003112 7114101 Mail _ Esta mensagem foi verificada pelo E-mail Protegido Terra http://mail.terra.com.br/ . Scan engine: McAfee VirusScan / Atualizado em 27/03/2007 / Versão: 5.1.00/4993 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2149 (20070328) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ( DESCONSIDERAR MSG ) Fw: Registro Duplicado
Como você conseguiu descobrir os registros duplicados com um select simples? Que DB você usa? Que string de select você usou? Estou com esse problema aqui, mas não tenho muito conhecimento em SQL. Se puder me dizer como fez, agradeço. - Original Message - From: Luizcm_jr To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] Sent: Wednesday, March 28, 2007 4:05 PM Subject: [delphi-br] ( DESCONSIDERAR MSG ) Fw: Registro Duplicado Galera, favor desconsiderar a mensagem enviada abaixo. Finalmente eu consegui resolver.. Obrigado Junior - Araraquara/SP - Original Message - From: Luizcm_jr To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] Sent: Wednesday, March 28, 2007 3:13 PM Subject: Registro Duplicado Boa Tarde Caros colegas de profissão, estou com problema para excluir registro de um bando de dados que consta em duplicidade em uma tabela.. atraves de um select simples, consegui encontrar os registro em duplicidade mas agora preciso apagar os duplicados deixando claro na tabela pelo menos um deles. Alguem saberia me informa como fazer isso.. ou se o mesmo eh possivel??? Junior - Araraquara/SP [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2149 (20070328) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criptografia 1024 bits
Boa tarde a todos. Preciso criptografar um arquivo utilizando um certificado digital, o problema é que não sei como obter a chave pública e privada de um certificado digital. Alguém poderia me ajudar, ou indicar onde posso encontrar essa informação? Faz uma semana que estou tentando encontrar uma solução, já pesquisei na internet, mas não tive sucesso. Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] WebService (Urgente)!!!!
Qual versão do Delphi você está usando? - Original Message - From: Marcelo Alves To: delphi-br@yahoogrupos.com.br Sent: Friday, March 16, 2007 11:45 AM Subject: [delphi-br] WebService (Urgente) Pessoal, preciso de ajuda para consumir um WebService... aparentemente programei tudo corretamente... quando faço a chamado do método recebo a seguinte mensagem de erro: Conversion from class TButton to SOAP is not suported - SOAP Classes must derive from TRemotable Alguém pode me ajudar Se precisarem da url segue abaixo: http://200.213.192.135/wscadastromotorista/wsmotorista.asmx Segue o meu código abaixo: procedure TForm1.btnValidarClick(Sender: TObject); var wsMotorista : wsMotoristaSoap ; lAuthHeader : AuthHeader ; lSituacao : Situacao_Motorista ; begin wsMotorista := GetwsMotoristaSoap() ; lAuthHeader.Senha := 'teste' ; lAuthHeader.Usuario := abc ; lAuthHeader.Unidade := 560 ; lAuthHeader.CPF_Motorista := '333' ; lAuthHeader.Placa := 'CMC3210' ; lAuthHeader.Funcao := FUNCAO(1) ; lAuthHeader.Categoria := CATEGORIA(2) ; wsMotorista.Verifica_Situacao_Motorista(lAuthHeader, lSituacao ) ; //Pega o resultado ... end ; __ Informação do NOD32 IMON 2120 (20070316) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida sobre código de barras
Para leitura de código de barras eu uso o componente Comport que varre a porta serial. Ele sempre me serviu. - Original Message - From: Hamilton Naves To: delphi-br@yahoogrupos.com.br Sent: Saturday, March 17, 2007 12:09 AM Subject: Re: [delphi-br] Dúvida sobre código de barras Você não precisa se preocupar com isso. O leitor joga todos caracteres lidos no buffer do teclado. voodoorv escreveu: Olá pessoal, alguém sabe como faço para ler o código de barras através do scaner e o código já sair em um edit por exemplo ? Preciso de algum componente para isso ? Obrigado Ricardo __ Informação do NOD32 IMON 2122 (20070317) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema de atualização de tela (Formulário)
Olá, quando eu tive esse problema, resolvi colocando a instrução application.processmessages no meio do processamento, essa instrução libera o processamento por um instante, fazendo com que a tela posse se recompor. Espero ter ajudado. Willer - Original Message - From: Eduardo Paci Galvão To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 13, 2007 11:45 AM Subject: [delphi-br] Problema de atualização de tela (Formulário) Pessoal, Tenho uma rotina que, à medida em que é executada, eu mostro uma informação na tela. Acontece que esta rotina é demorada e, se eu mexo com outra coisa no micro, e depois retorno para ela, o formulário não aparece corretamente (com o fundo branco). O processamento continua, mas quero que, ao exibir o formulário, ele fique 'normal'. Alguma dica? Saudações, Eduardo Paci Galvão Bacharel em Engenharia Elétrica - UFMG Analista de Sistemas www.egalvao.com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2112 (20070313) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Nota Fiscal Eletrônica (NF-e)
Olá, Alguém na lista já desenvolveu uma aplicação para emissão de notas fiscais eletrônicas? Estou desenvolvendo uma rotina que faz isso, só não sei como faço para enviar os arquivos para o destido. Sei que há um serviço disponível na internet que recebe os dados(Em XML), homologa e me retorna(Em XML). Alguém poderia me ajudar, me indicar o caminho? Pesquisei no Google, mas só o que consegui achar foi a estrutura dos arquivos XML que devem ser enviados, e quais as possíveis respostas do serviço. Agradeço por qualquer dica. Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Nota Fiscal Eletrônica (NF-e)
Sei que através do serviço: https://homologacao.nfe.fazenda.sp.gov.br/nfeWEB/services/NfeRecepcaoSoap, é possível enviar o arquivo xml conmtendo a estrutura básica de emissão de Nota Fiscal, mas não consigo usar o serviço no Delphi porque ainda não tenho um e-CNPJ que me parece ser necessário. O Sefaz/SP não disponibiliza nenhum ambiente de testes? O que já fiz foi tentar acessar o serviço pelo internet explorer para obter os métodos, mas nem assim ele disponibilizam, só com uma assinatura digital(e-CNPJ). Willer Alves da Costa. - Original Message - From: O2 Tecnologia (aJato) To: delphi-br@yahoogrupos.com.br Sent: Saturday, March 10, 2007 1:38 PM Subject: Re: [delphi-br] Nota Fiscal Eletrônica (NF-e) Estamos com o mesmo problema, parece uma caixa de pandora, quem fez não diz como, e o suporte junto ao Sefaz/SP é um lixo. Se alguém tiver um luz de como fazer por favor se habilite será grande valia. willer escreveu: Olá, Alguém na lista já desenvolveu uma aplicação para emissão de notas fiscais eletrônicas? Estou desenvolvendo uma rotina que faz isso, só não sei como faço para enviar os arquivos para o destido. Sei que há um serviço disponível na internet que recebe os dados(Em XML), homologa e me retorna(Em XML). Alguém poderia me ajudar, me indicar o caminho? Pesquisei no Google, mas só o que consegui achar foi a estrutura dos arquivos XML que devem ser enviados, e quais as possíveis respostas do serviço. Agradeço por qualquer dica. Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2106 (20070310) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Master/Detail
Alguém poderia me ajudar? Eu estou preciso fazer um relatório e é necessário que eu utilize o relacionamento master/detail. Fiz algumas pesquisas no google, até encontrei algum material que ensinava a fazer, mas não consegui porque os tutoriais utilizam outras tecnologias. Estou usando o FireBird e Delphi 7. A conexão eu fiz com componentes do pacote FibPlus. Tenho uma tabela master TabelaM, e uma tabela detalhe TabelaD. O relacionamento é feito de por um campo COD, existente nas duas tabelas. Uso o ReportBuilder para gerar os relatórios. Alguém saberia me dizer por onde começar? Que componentes devo usar? Que propriedades devo configurar? Willer. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Master/Detail
Olá pessoal, estou com uma dúvida, consegui fazer um relacionamento master/detail, preciso gerar um relatório que seja master/detail usando o Report Builder, alguém poderia me ajudar, não sei nem por onde começar. Tentei gerar o relatório, mas não sei como faço para exibir mais de um campo da tabela detail a partir de um registro da tabela master. Qualquer ajuda é muito bem vinda, Agradeço. Willer [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] PROBLEMA P DESTRUIR FORM
Para destruir meus forms eu uso, no onClose: self.release; self:=nil; Nunca tive problemas assim. Willer - Original Message - From: Henrique Netzka (Vetor Sistemas) To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 18, 2007 8:52 AM Subject: Re: [delphi-br] PROBLEMA P DESTRUIR FORM Bem, pode ser uma medida de segurança, mas não é por isso que está dando o access violation... Tem alguma outra linha causando este erro! Tente descobrir algo que seja feito DEPOIS da destruição do form... O Action := caFree só seta o flag de ação para destruir o form quando ele for fechado; não quer dizer que aquilo ali destrua o form... Tem algo a mais, outra linha talvez nos eventos OnDestroy ou OnClose do form que está causando o AV... Henrique - Original Message - From: Renato Lorandi To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 18, 2007 8:21 AM Subject: Res: [delphi-br] PROBLEMA P DESTRUIR FORM amigo, tente acrescetar esta linha antes do action... nomedoform:=nil Action:=caFree; blz... - Mensagem original De: Fábio - CS Informatica [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 17 de Janeiro de 2007 19:15:49 Assunto: [delphi-br] PROBLEMA P DESTRUIR FORM Olá colegas, estou migrando do D5 para o D7, só q estou com problemas qdo fecho o form, estou utilizando MDI, qdo tento destruir algum form aberto (MDIChild), utilizando a seguinte linha de código no Evento OnClose do form: Action:=caFree; até fecha o form, mais apresenta uma mensagem de Acess Violation at Adress 004C81EA agradeço a atenção dos colegas... Fábio. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1985 (20070117) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Descobrir o tamanho do arquivo
Aguém sabe como se faz para descobrir o tamanho do arquivo? Pode ser em bytes, Kbytes... Eu estou implementando uma rotina de exportação de dados. Os dados são enviados para um servidor de FTP, mas gostaria de informar quanto já foi enviado e quanto ainda falta para enviar, pois is arquivos são grandes e podem demorar um pouco. Tenho um arquivo chamado 'c:\db.dat', e gostaria de saber o tamanho dele, que pode variar de acordo com o conteúdo. Qualquer dica é bem vinda. Agradeço desde já. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Descobrir o tamanho do arquivo
Acabei de conseguir. Eu havia tentado isso, mas meu arquivo era to tipo TextFile e a função FileSize me trazia o número de Registros. Agora estou abrindo o arquivo como outro tipo qualquer e a função está me trazendo os dados corretamente agora. Mas valeu pela ajuda. Willer - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 17, 2007 3:08 PM Subject: RE: [delphi-br] Descobrir o tamanho do arquivo Já olhou no help do Delphi a função FileSize()? Sds. From: willer [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Descobrir o tamanho do arquivo Date: Wed, 17 Jan 2007 12:00:20 -0200 Aguém sabe como se faz para descobrir o tamanho do arquivo? Pode ser em bytes, Kbytes... Eu estou implementando uma rotina de exportação de dados. Os dados são enviados para um servidor de FTP, mas gostaria de informar quanto já foi enviado e quanto ainda falta para enviar, pois is arquivos são grandes e podem demorar um pouco. Tenho um arquivo chamado 'c:\db.dat', e gostaria de saber o tamanho dele, que pode variar de acordo com o conteúdo. Qualquer dica é bem vinda. Agradeço desde já. [As partes desta mensagem que não continham texto foram removidas] __ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br __ Informação do NOD32 IMON 1984 (20070117) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Progresso em query
Tentei executar o procedimento, mas dá erro.
FProgressCallback: TBDECallback;
Aparece uma mensagem que informa que TBDECallback não está declarado. Eu
declarei o arquivo BDE, mas dá erro nessa linha. Será que fiz algo de errado?
private
{ Private declarations }
FCBPROGRESSDesc: pCBPROGRESSDesc;
FProgressCallback: TBDECallback;
function GetDataCallback(CBInfo: Pointer): CBRType;
public
{ Public declarations }
- Original Message -
From: Desenvolvimento (Anderson)
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, January 13, 2007 1:29 PM
Subject: Re: [delphi-br] Progresso em query
Mostrando progresso de uma SQL
Algumas pessoas estavam interessadas em saber como apresentar o progresso
de um TQuery enquanta ele esta sendo aberto (ou executada, no caso de um
INSERT / UPDATE / DELETE).
A tecnica que vou demostrar nao apenas serve para o proposito procurado,
mas tambem serve para mostrar o progresso de diversas outras atividades que
o BDE executa, como:
* Criacao de tabelas
* Criacao de indices para tabelas
* Reestruturacao de tabelas
* Execucao de queries (ja comentado)
* alguma outra coisa que no momento nao me ocorre... :))
Importante:
1) No meu exemplo, estou usando o Delphi 3.02. Caso seu Delphi seja de
uma versao menor, vc devera ter um trabalho extra para repor a classe
TBDECallback. Acredito que seja possivel fazer uma rotina que funcione em
Delphi 1, mas que com certeza dara um certo trabalhinho, ah, isso dara...
:-/
2) Ate agora so usei esse codigo com tabelas Paradox, mas realmente
acredito que ele venha a funcionar com base de dados Interbase, Oracle,
etc...
3) Nao sei se com o uso do Opus, Apollo ou qualquer outro substituto do
BDE a tecnica ira funcionar, uma vez que nao se estaria trabalhando com o
BDE original. Talvez alguem da lista possa dar essa informacao.
Teoria
=
Segundo o help do Delphi, o TBDECallback eh um wrapper para uma funcao
de callback do BDE. Com ele eh possivel instruir o BDE para que o mesmo
execute algumas tarefas em resposta a eventos que ocorram durante uma
chamada de uma funcao do BDE. - Fim do plagio do arquivo de help.
O tipo de callback depende de um parametro CBType que eh fornecido no
momento da criacao do TBDECallback. E, entre os diversos valores que o
CBType pode apresentar, existe um que muito nos interessa; o cbGENPROGRESS.
:))
Assim, vc deveria criar uma funcao de callback do tipo cbGENPROGRESS
chamada AtualizaGauge e indicar que a mesma eh que devera ser executada
entre cada respiracao do BDE. Na rotina AtualizaGauge, o BDE iria te
informar o percentual de progresso da tarefa .
O que voce faria nessa rotina ? Simples... atualizar o Gauge / ProgressBar.
Tudo muito bonito, tudo muito comovente, mas agora vamos para o lado
pratico...
Pratica
==
Para que o BDE possa informar o progresso da tarefa, ele precisa obter
essa informacao da base de dados que esta sendo utilizada. Acontece que,
por razoes diferentes, nem sempre ele eh capaz de saber o PERCENTUAL da
tarefa. Numa copia de registros de uma tabela para outra, ele pode saber
que ja foram copiados 270 registros, mas nao saber que esse esforco
representa 36 % de todos os registros que serao copiados.
Assim sendo, na funcao de callback que sera criada, receberemos um
parametro do tipo pCBPROGRESSDesc, que por sua vez eh um ponteiro para uma
estrutura que contem duas informacoes:
iPercentDone = percentual do servico realizado
szMsg = texto descrevendo o progresso do servico.
Como usar esses parametros ? Simples: sempre que o iPercentDone for
negativo, voce devera considerar o texto descrito no campo szMsg. Se for
igual ou maior que zero, entao vc devera considerar o valor do proprio
iPercentDone.
Uma boa noticia para quem se preocupa com as mensagens que aparecem em
ingles, quando se quer na verdade mostra-las em portugues: a mensagem
fornecida por szMsg devera sempre aparecer no formato mensagem:valor
.
Exemplo:
Records copied: 170
Assim, voce pode procurar pelos dois pontos : e pegar o valor que vem a
seguir para montar sua propria informacao em portugues.
Pessoalmente, ate agora nunca obtive um iPercentDone positivo. Li no
newsgroup da Borland que poucas bases de dados eram capazes de informar o
real percentual para o BDE. Se nao me engano, o Sybase era um deles... NAO
ESTOU CERTO DISSO.
Vamos para um exemplo pratico ? Crie um projeto novo, e coloque um:
TQuery, TButton, TProgressBar e TLabel.
Sua query deve ser montada para abrir uma tabela razoavelmente grande, de
modo que a operacao de abertura demore um pouco.
Agora vamos aos codigos:
1) Acrescente a unit BDE no seu USES da unit.
2) Acrescente algumas declaracoes na declaracao do seu Form:
==
type
TForm1 = class(TForm)
... (bla bla bla)
private
{ Private declarations }
Re: [delphi-br] Cursor
Valeu Eduardo. Agora é só eu colocar meu cursor customizado e pronto. Eu tinha conseguido colocar um corsor customizado em um form, mas não na aplicação inteira. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Monday, January 08, 2007 4:32 PM Subject: Re: [delphi-br] Cursor faça assim: Screen.Cursor :=crHourglass; // ampulheta Screen.Cursor := crDefault; // Normal Screen.Cursor := crSQL; // ampulheta SQL.. e por ai vai. Em 08/01/07, willer [EMAIL PROTECTED] escreveu: Olá, Alguém sabe o que devo fazer para modificar o cursor da minha aplicação? Consigo modificar o cursor para determinados componentes e para o form, mas gostaria de saber se tem como modificar o cursor padrão. Willer [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1963 (20070108) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Inicializar com o Windows
Olá pessoal, estou desenvolvendo um sistema que vai rodar em um Servidor de Automação, ficarão ligados a ela vários dispositovos externos. E gostaria de saber como faço para colocar no Registro do Windows o meu programa de forma que ele inicializasse automaticamente a cada vez que o windows fosse carregado. No servidor roda o Windows XP Professional SP2. Agradeço desde já. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Inicializar com o Windows
Valeu pela ajuda. Era o que eu precisava.
E como removo o registro?
- Original Message -
From: Shimon Cesar de Souza Soares
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, January 03, 2007 10:41 AM
Subject: RES: [delphi-br] Inicializar com o Windows
Acho que isso pode te ajudar:
uses registry;
var reg:TRegIniFile;
procedure TForm1.FormCreate(Sender: TObject);
var
s,s2:string;
begin
Reg:=TRegIniFile.Create('LloydSoft');
{HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run}
S:=ExtractFileDir(Application.ExeName);
S2:=ExtractFileName(Application.ExeName);
S:=S+'\'+S2;
reg.RootKey:=HKEY_USERS;
reg.Openkey ('\.DEFAULT\Software\Microsoft\Windows\CurrentVersion',false);
reg.WriteString('Run', 'Logo', s);
button1.click;
end;
Shimon César de S. Soares
[EMAIL PROTECTED]
Departamento de TI
HDL da Amazônia Ind.Elet. Ltda.
www.hdl.com.br
De: delphi-br@yahoogrupos.com.br em nome de willer
Enviada: qua 03/01/07 09:37
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Inicializar com o Windows
Olá pessoal, estou desenvolvendo um sistema que vai rodar em um Servidor de
Automação, ficarão ligados a ela vários dispositovos externos. E gostaria de
saber como faço para colocar no Registro do Windows o meu programa de forma que
ele inicializasse automaticamente a cada vez que o windows fosse carregado. No
servidor roda o Windows XP Professional SP2.
Agradeço desde já.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
__ Informação do NOD32 IMON 1954 (20070103) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] erro ao 'Criar campos em tempo de execução'
Estou com problemas ao tentar criar campos em tempo de execução.
Ocorre que não consigo obter a resposta existe esse campo na tabela?
Estou usando o seguinte:
Banco.GetFieldNames('cartoes',Campos2); //atribui os nomes dos campos à
variável Campos2 {do tipo Tstrings}
nCampo:=Campos2.IndexOf('acessoveiculo'); //pega a posição da string
'acessoveiculo'
if nCampo0 then begin // se não existe, então cria
SQL.SQL.Clear;
SQL.SQL.Add('alter table cartoes add acessoveiculo char(1)');
SQL.ExecQuery;
transacao.CommitRetaining;
end;
O que está acontecendo é que da primeira vez que executo o programa, o campo é
criado, e da segunda vez ele tenta criar novamente, então ocorre um erro de
banco de dados.
Alguém sabe me dizer o que fiz de errado?
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] erro ao 'Criar campos em tempo de execução'
Valeu, fiz o que vc falou, mas não adiantou, então verifiquei que o erro era
gerado porque coloquei o nome da tabela com letra minúscula...
- Original Message -
From: Rubem Nascimento da Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 22, 2006 12:49 PM
Subject: RE: [delphi-br] erro ao 'Criar campos em tempo de execução'
Experimenta fazer isso tudo sem precisar fazer commit e vê se funciona. Se
não funcionar, usa o método de commit normal, não esse famigerado
commitretaining.
Sds.
From: willer [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] erro ao 'Criar campos em tempo de execução'
Date: Fri, 22 Dec 2006 12:34:58 -0200
Estou com problemas ao tentar criar campos em tempo de execução.
Ocorre que não consigo obter a resposta existe esse campo na tabela?
Estou usando o seguinte:
Banco.GetFieldNames('cartoes',Campos2); //atribui os nomes dos campos à
variável Campos2 {do tipo Tstrings}
nCampo:=Campos2.IndexOf('acessoveiculo'); //pega a posição da string
'acessoveiculo'
if nCampo0 then begin // se não existe, então cria
SQL.SQL.Clear;
SQL.SQL.Add('alter table cartoes add acessoveiculo char(1)');
SQL.ExecQuery;
transacao.CommitRetaining;
end;
O que está acontecendo é que da primeira vez que executo o programa, o
campo é criado, e da segunda vez ele tenta criar novamente, então ocorre um
erro de banco de dados.
Alguém sabe me dizer o que fiz de errado?
[As partes desta mensagem que não continham texto foram removidas]
__
MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
__ Informação do NOD32 IMON 1934 (20061221) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conecta a um banco de dados onLine
Valeu cara. Vou ver se uso outro servidor de host, porque esse não aceita. - Original Message - From: Luiz Escobar To: delphi-br@yahoogrupos.com.br Sent: Saturday, December 09, 2006 2:21 PM Subject: Re: [delphi-br] Conecta a um banco de dados onLine Bom duas coisas, faz ai e ve se conecta, SE não CONECTAR e vc tiver certeza que fez certo, porque não tem como errar, é só trocar o IP LOCAL pelo IP do seu mysql2.freehostia.com, ou pelo proprio nome, ai vc vai ter que pedir para eles abrierem o firewall para o seu IP ou para seu usuário, pois se não vc não chega ao servidor... Eu tenho um banco na LOCAWEB, e é tudo fechado, se vc quizer acesso externo, tem que pedir pra eles, e eles liberam para o seu IP-fixo, para IP-dinamico eu não sei Luiz Escobar - Segue mensagem original! - De: willer [EMAIL PROTECTED] Vamos considerar o seguinte: Minha base de dados está em 'mysql2.freehostia.com' na porta 3306 O meu banco de dados é 'wilcos_db'. Tô usando o host gratuito. Como eu faria para conectar-me a esse banco? - Original Message - From: Eduardo Silva dos Santos Qualquer um, a conexão é feita igual à na rede local. eu uso myDAC www.crlab.com mas também ja usei ZEOS. Em 08/12/06, willer escreveu: Que componente(s) eu usaria para fazer a conexão? - Original Message - From: Eduardo Silva dos Santos é perfeitamento possível, e te adianto que mysql funciona muuuito rapido em conexões via internet. de mais detalhes que eu te ajudo. Em 08/12/06, willer [EMAIL PROTECTED] escreveu: Alguém sabe se é possível fazer com que um aplicativo se comunique com um banco de dados onLine, banco de dados MySql.? [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1911 (20061208) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1912 (20061209) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1918 (20061212) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conecta a um banco de dados onLine
Valeu pela explicação, acho que vou usar o MySql mesmo. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Saturday, December 09, 2006 3:08 PM Subject: Re: [delphi-br] Conecta a um banco de dados onLine Olha essa questão é polêmica.. MySQL: Bom, Rapido, SEGURO**, facil de configurar, MAS não é gratuito FireBird: Bom, Rapido, NÃO E TÃO SEGURO** , facil de configurar, MAS é gratuito. Seguro** = O banco de dados no mySQL com tabelas InnoDB é muito seguro em relação a integridade, eu uso ha 3 anos e nunca tive um problema com o banco, seja Indice, banco corrompido.. nada, nada mesmo. NÃO E TÃO SEGURO** = Constantemente vc ve pessoal reclando.. minha base de dados do FireBird foi corrompida, e agora... meus indices estão loucos.. nao abro a tabela tal por esse motivo eu uso mySQL, segurança na integridade do banco. qualquer duvida, fique a vontade. Em 09/12/06, willer [EMAIL PROTECTED] escreveu: Eu baixei agora há pouco o componente Zeos, e tentei fazer exatamante como foi descrito. Não consegui somente poque o meu host(que é gratuito), não dá suporte a acesso remoto. Só posso acessar os dados do meu Banco de dados a partir da linguagem PHP. Mas valeu pela dica. Vou ver se consigo outro host que dá suporte a acesso remoto e tentar novamente. E não uso, ainda, mysql na rede local. Uso o FireBird. E aproventando a oportunidade. Você já usou o Firebird? Se sim, qual deles é melhor, o FireBird ou o MySql ? - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Saturday, December 09, 2006 2:03 PM Subject: Re: [delphi-br] Conecta a um banco de dados onLine bom, vamos supor que vc tem o pacote de componentes ZEOS DBO, então é so configurar o componente TZConnection com as seguintes informações: Host: mysql2.freehostia.com porta 3306 Banco = wilcos_db usuario = 'ai tem que ver qual o seu login' password = 'ai tem que ver qual a seu senha' dai é só chamar o metodo connect; que vc ta conectado, se vc quiser te mando um programa que fiz para gerar as instruções SQL de forma automática. para vc testar a conexão. falando nisso qual componente de acesso vc usa? vc ja usa mysql na rede local.? Em 09/12/06, willer [EMAIL PROTECTED]willer%40personalcom.com.br escreveu: Vamos considerar o seguinte: Minha base de dados está em 'mysql2.freehostia.com' na porta 3306 O meu banco de dados é 'wilcos_db'. Tô usando o host gratuito. Como eu faria para conectar-me a esse banco? - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br Sent: Friday, December 08, 2006 8:41 PM Subject: Re: [delphi-br] Conecta a um banco de dados onLine Qualquer um, a conexão é feita igual à na rede local. eu uso myDAC www.crlab.com mas também ja usei ZEOS. Em 08/12/06, willer [EMAIL PROTECTED]willer%40personalcom.com.br willer%40personalcom.com.br escreveu: Que componente(s) eu usaria para fazer a conexão? - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.brdelphi-br%40yahoog rupos.com.br Sent: Friday, December 08, 2006 6:41 PM Subject: Re: [delphi-br] Conecta a um banco de dados onLine é perfeitamento possível, e te adianto que mysql funciona muuuito rapido em conexões via internet. de mais detalhes que eu te ajudo. Em 08/12/06, willer [EMAIL PROTECTED]willer%40personalcom.com.br willer%40personalcom.com.br willer%40personalcom.com.br escreveu: Alguém sabe se é possível fazer com que um aplicativo se comunique com um banco de dados onLine, banco de dados MySql.? [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd% 40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1911 (20061208) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas
Re: [delphi-br] Conecta a um banco de dados onLine
Gostaria de saber sobre o desempenho. É rápido mesmo? E qual o seu tráfego de informações? O que fazem os seus sistemas? Só quero ter uma base, para fazer a coisa certa. - Original Message - From: Marcelo Hoepfner (SI) To: delphi-br@yahoogrupos.com.br Sent: Monday, December 11, 2006 10:33 AM Subject: RES: [delphi-br] Conecta a um banco de dados onLine No hosting www.meh.com.br http://www.meh.com.br/ tenho 2 sistemas delphi (desktop) acessando o mysql (web) 100% funcionando. Qualquer coisa manda um email. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luiz Escobar Enviada em: sábado, 9 de dezembro de 2006 14:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Conecta a um banco de dados onLine Bom duas coisas, faz ai e ve se conecta, SE não CONECTAR e vc tiver certeza que fez certo, porque não tem como errar, é só trocar o IP LOCAL pelo IP do seu mysql2.freehostia.com, ou pelo proprio nome, ai vc vai ter que pedir para eles abrierem o firewall para o seu IP ou para seu usuário, pois se não vc não chega ao servidor... Eu tenho um banco na LOCAWEB, e é tudo fechado, se vc quizer acesso externo, tem que pedir pra eles, e eles liberam para o seu IP-fixo, para IP-dinamico eu não sei Luiz Escobar - Segue mensagem original! - De: willer [EMAIL PROTECTED] mailto:willer%40personalcom.com.br com.br Vamos considerar o seguinte: Minha base de dados está em 'mysql2.freehostia.com' na porta 3306 O meu banco de dados é 'wilcos_db'. Tô usando o host gratuito. Como eu faria para conectar-me a esse banco? - Original Message - From: Eduardo Silva dos Santos Qualquer um, a conexão é feita igual à na rede local. eu uso myDAC www.crlab.com mas também ja usei ZEOS. Em 08/12/06, willer escreveu: Que componente(s) eu usaria para fazer a conexão? - Original Message - From: Eduardo Silva dos Santos é perfeitamento possível, e te adianto que mysql funciona muuuito rapido em conexões via internet. de mais detalhes que eu te ajudo. Em 08/12/06, willer [EMAIL PROTECTED] mailto:willer%40personalcom.com.br com.br escreveu: Alguém sabe se é possível fazer com que um aplicativo se comunique com um banco de dados onLine, banco de dados MySql.? [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1911 (20061208) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. http://www.eset.com.br com.br [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1912 (20061209) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. http://www.eset.com.br com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1918 (20061212) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Por que minhas mensagens demoram tanto para chegar?
Gostaria de saber porque minhas mensagens demoram tanto para chegar? Mandei uma mensagem pela manhã e ela chegou as 17:00.. isso é muito tempo ou eu que sou exagerado? Att, Willer [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Por que minhas mensagens demoram tanto para chegar?
Valeu, já que é do Yahoo, então não há nada a fazer... - Original Message - From: Valfrid-Ly Silva Couto To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 13, 2006 6:14 PM Subject: Re: [delphi-br] Por que minhas mensagens demoram tanto para chegar? Não willer, Isso é realmente muito tempo, mas o Yahoo as vezes apronta essas!! willer [EMAIL PROTECTED] escreveu: Gostaria de saber porque minhas mensagens demoram tanto para chegar? Mandei uma mensagem pela manhã e ela chegou as 17:00.. isso é muito tempo ou eu que sou exagerado? Att, Willer [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Valfrid-Ly Silva Couto [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ 15114646 - Yahoo! Search Música para ver e ouvir: You're Beautiful, do James Blunt [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1919 (20061213) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conecta a um banco de dados onLine
Vamos considerar o seguinte: Minha base de dados está em 'mysql2.freehostia.com' na porta 3306 O meu banco de dados é 'wilcos_db'. Tô usando o host gratuito. Como eu faria para conectar-me a esse banco? - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Friday, December 08, 2006 8:41 PM Subject: Re: [delphi-br] Conecta a um banco de dados onLine Qualquer um, a conexão é feita igual à na rede local. eu uso myDAC www.crlab.com mas também ja usei ZEOS. Em 08/12/06, willer [EMAIL PROTECTED] escreveu: Que componente(s) eu usaria para fazer a conexão? - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, December 08, 2006 6:41 PM Subject: Re: [delphi-br] Conecta a um banco de dados onLine é perfeitamento possível, e te adianto que mysql funciona muuuito rapido em conexões via internet. de mais detalhes que eu te ajudo. Em 08/12/06, willer [EMAIL PROTECTED]willer%40personalcom.com.br escreveu: Alguém sabe se é possível fazer com que um aplicativo se comunique com um banco de dados onLine, banco de dados MySql.? [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1911 (20061208) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1912 (20061209) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conecta a um banco de dados onLine
Eu baixei agora há pouco o componente Zeos, e tentei fazer exatamante como foi descrito. Não consegui somente poque o meu host(que é gratuito), não dá suporte a acesso remoto. Só posso acessar os dados do meu Banco de dados a partir da linguagem PHP. Mas valeu pela dica. Vou ver se consigo outro host que dá suporte a acesso remoto e tentar novamente. E não uso, ainda, mysql na rede local. Uso o FireBird. E aproventando a oportunidade. Você já usou o Firebird? Se sim, qual deles é melhor, o FireBird ou o MySql ? - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Saturday, December 09, 2006 2:03 PM Subject: Re: [delphi-br] Conecta a um banco de dados onLine bom, vamos supor que vc tem o pacote de componentes ZEOS DBO, então é so configurar o componente TZConnection com as seguintes informações: Host: mysql2.freehostia.com porta 3306 Banco = wilcos_db usuario = 'ai tem que ver qual o seu login' password = 'ai tem que ver qual a seu senha' dai é só chamar o metodo connect; que vc ta conectado, se vc quiser te mando um programa que fiz para gerar as instruções SQL de forma automática. para vc testar a conexão. falando nisso qual componente de acesso vc usa? vc ja usa mysql na rede local.? Em 09/12/06, willer [EMAIL PROTECTED] escreveu: Vamos considerar o seguinte: Minha base de dados está em 'mysql2.freehostia.com' na porta 3306 O meu banco de dados é 'wilcos_db'. Tô usando o host gratuito. Como eu faria para conectar-me a esse banco? - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, December 08, 2006 8:41 PM Subject: Re: [delphi-br] Conecta a um banco de dados onLine Qualquer um, a conexão é feita igual à na rede local. eu uso myDAC www.crlab.com mas também ja usei ZEOS. Em 08/12/06, willer [EMAIL PROTECTED]willer%40personalcom.com.br escreveu: Que componente(s) eu usaria para fazer a conexão? - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br Sent: Friday, December 08, 2006 6:41 PM Subject: Re: [delphi-br] Conecta a um banco de dados onLine é perfeitamento possível, e te adianto que mysql funciona muuuito rapido em conexões via internet. de mais detalhes que eu te ajudo. Em 08/12/06, willer [EMAIL PROTECTED]willer%40personalcom.com.br willer%40personalcom.com.br escreveu: Alguém sabe se é possível fazer com que um aplicativo se comunique com um banco de dados onLine, banco de dados MySql.? [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1911 (20061208) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1912 (20061209) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1912 (20061209) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Baixar arquivo
Alguém sabe alguma forma de baixar um arquivo da internet? Eu precisaria fazer com que meu programa fosse atualizado automaticamente sempre que eu atualizasse um arquivo que ficará armazenado em servidor de hospedagem. Teria alguma forma de fazer com que o meu programa baixe um arquivo da internet? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Atualização automática
Como faço para fechar o meu programa após ter aberto outro? Estou implementando uma rotina de atualização automáticxa que deverá fzer isso, baixa um arquivo(.exe), abre um programa auxiliar e fecha. O programa auxiliar exclui o antigo, e renomeia o novo, abre-o e fecha-se; [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atualização automática
Só tenho dúvida na lógica. Já consigo verificar se há atualização e até baixar os novos arquivos, só não estou conseguindo fechar o executável e abró-lo novamente com a nova versão. - Original Message - From: Marcelo Hoepfner (SI) To: delphi-br@yahoogrupos.com.br Sent: Friday, December 08, 2006 1:57 PM Subject: RES: [delphi-br] Atualização automática Cara eu fiz um sistema desses, caso você tenha interesse podemos negociar. Marcelo Hoepfner msn: [EMAIL PROTECTED] _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andrei Luís Enviada em: sexta-feira, 8 de dezembro de 2006 13:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Atualização automática Willer, Uma idéia seria você utilizar no seu sistema 2 executáveis: 1 pequeno, que será executado através de ícones na área de trabalho, etc, que faz a atualização quando necessário e chama o 2º executável que é o sistema em si. [] Andrei Em 08/12/06, willer[EMAIL PROTECTED] mailto:willer%40personalcom.com.br escreveu: Como faço para fechar o meu programa após ter aberto outro? Estou implementando uma rotina de atualização automáticxa que deverá fzer isso, baixa um arquivo(.exe), abre um programa auxiliar e fecha. O programa auxiliar exclui o antigo, e renomeia o novo, abre-o e fecha-se; [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1910 (20061208) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Conecta a um banco de dados onLine
Alguém sabe se é possível fazer com que um aplicativo se comunique com um banco de dados onLine, banco de dados MySql.? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atualização automática
Valeu pela dica. Vou fazer desse jeito. E é usuário quem fecharia o programa par que a atualização fosse feita. Gostei da idéia, vou implelentar. - Original Message - From: Luiz Escobar To: delphi-br@yahoogrupos.com.br Sent: Friday, December 08, 2006 4:35 PM Subject: Re: [delphi-br] Atualização automática Bom na logica, antes de fechar,copiar,abrir o executavel, é melhor vc fazer a perguntinha basica pro usuario, vc tem uma atualziação para este software, deseja fazer agora ? e que a pargunta se repita tipo a cada 30 minutos, se não o usuário vai querer te matar... ehhehehe quanto a uma aplicação fechar outra, sei que tem jeito, mas de cabeça agora não lembro desculpe... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: willer To: delphi-br@yahoogrupos.com.br Sent: Friday, December 08, 2006 3:22 PM Subject: Re: [delphi-br] Atualização automática Só tenho dúvida na lógica. Já consigo verificar se há atualização e até baixar os novos arquivos, só não estou conseguindo fechar o executável e abró-lo novamente com a nova versão. - Original Message - From: Marcelo Hoepfner (SI) To: delphi-br@yahoogrupos.com.br Sent: Friday, December 08, 2006 1:57 PM Subject: RES: [delphi-br] Atualização automática Cara eu fiz um sistema desses, caso você tenha interesse podemos negociar. Marcelo Hoepfner msn: [EMAIL PROTECTED] _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andrei Luís Enviada em: sexta-feira, 8 de dezembro de 2006 13:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Atualização automática Willer, Uma idéia seria você utilizar no seu sistema 2 executáveis: 1 pequeno, que será executado através de ícones na área de trabalho, etc, que faz a atualização quando necessário e chama o 2º executável que é o sistema em si. [] Andrei Em 08/12/06, willer[EMAIL PROTECTED] mailto:willer%40personalcom.com.br escreveu: Como faço para fechar o meu programa após ter aberto outro? Estou implementando uma rotina de atualização automáticxa que deverá fzer isso, baixa um arquivo(.exe), abre um programa auxiliar e fecha. O programa auxiliar exclui o antigo, e renomeia o novo, abre-o e fecha-se; [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1910 (20061208) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1911 (20061208) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conecta a um banco de dados onLine
Que componente(s) eu usaria para fazer a conexão? - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Friday, December 08, 2006 6:41 PM Subject: Re: [delphi-br] Conecta a um banco de dados onLine é perfeitamento possível, e te adianto que mysql funciona muuuito rapido em conexões via internet. de mais detalhes que eu te ajudo. Em 08/12/06, willer [EMAIL PROTECTED] escreveu: Alguém sabe se é possível fazer com que um aplicativo se comunique com um banco de dados onLine, banco de dados MySql.? [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1911 (20061208) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] versão do windows
Alguém sabe como faço para verificar se o sistema Operacional da máquina onde o meu Sistema está rodando é win98 ou winXP ? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: versão do windows
Valeu cara, era o que eu precisava mesmo.
- Original Message -
From: Leo
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 4:00 PM
Subject: Re: [delphi-br] Re: versão do windows
essa tá funcionando redondinho ...
unit GetWindowsVersion;
interface
function f_GetWindowsVersion: String;
implementation
function f_GetWindowsVersion: String;
var
osVerInfo: TOSVersionInfo;
majorVersion, minorVersion: Integer;
begin
Result := 'Desconhecido';
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(osVerInfo) then
begin
minorVersion := osVerInfo.dwMinorVersion;
majorVersion := osVerInfo.dwMajorVersion;
case osVerInfo.dwPlatformId of
VER_PLATFORM_WIN32_NT:
begin
if (majorVersion = 4) then
Result := 'WinNT'
else
if ((majorVersion = 5) and (minorVersion = 0)) then
Result := 'Win2000'
else
if ((majorVersion = 5) and (minorVersion = 1)) then
Result := 'WinXP';
end;
VER_PLATFORM_WIN32_WINDOWS:
begin
if ((majorVersion = 4) and (minorVersion = 0)) then
Result := 'Win95'
else
if ((majorVersion = 4) and (minorVersion = 10)) then
begin
if (osVerInfo.szCSDVersion[1] = 'A') then
Result := 'Win98SE'
else
Result := 'Win98';
end
else
if ((majorVersion = 4) and (minorVersion = 90)) then
Result := 'WinME'
else
Result := 'Desconhecido';
end;
end;
end;
end;
end.
- Original Message -
From: hernandes_sp
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 2:59 PM
Subject: [delphi-br] Re: versão do windows
Tá dando PAU essa função!!!
Tem alguma Unit pra add??
Reveja a função...
===
--- Em delphi-br@yahoogrupos.com.br, Anderson RB [EMAIL PROTECTED]
escreveu
function OSType:Boolean;
var
osv : TOSVersionInfo;
begin
{Retorna True se for XP e False para 98}
osv.dwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
Case osv.dwPlatformId of
VER_PLATFORM_WIN32_NT : Result := True;
VER_PLATFORM_WIN32_WINDOWS : Result := False;
else
Result := False;
end;
end;
- Original Message -
From: willer [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 11:40 AM
Subject: [delphi-br] versão do windows
Alguém sabe como faço para verificar se o sistema Operacional da
máquina
onde o meu Sistema está rodando é win98 ou winXP ?
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.15.3/561 - Release Date: 01/12/06
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
__ Informação do NOD32 IMON 1896 (20061201) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Master/Detail Usando o Firebird
Alguém sabe como usar Master/Detail usando o Firebird? Peguei um tutorial na Internet, mas não consegui segui-lo, eu uso os componentes da paleta FIBPlus, e o tutorial usa outros componentes, então tentei adaptar, mas mesmo assim não tive sucesso. Alguém saberia como fazer? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Master/Detail Usando o Firebird
Já tentei adaptar, mas não consegui. Existem algumas propeiedades que não consegui encontrar. Quais componentes substituem os do Exemplo? - Original Message - From: Walter Chagas (Yahoo) To: delphi-br@yahoogrupos.com.br Sent: Wednesday, November 29, 2006 5:51 PM Subject: [delphi-br] Re: Master/Detail Usando o Firebird Veja este exemplo na minha pagina: http://www.geocities.com/SiliconValley/Bay/1058/ClientDataset.html Ele é adaptavel ao DBExpress ou ao FBX. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, willer [EMAIL PROTECTED] escreveu Alguém sabe como usar Master/Detail usando o Firebird? Peguei um tutorial na Internet, mas não consegui segui-lo, eu uso os componentes da paleta FIBPlus, e o tutorial usa outros componentes, então tentei adaptar, mas mesmo assim não tive sucesso. Alguém saberia como fazer? [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1888 (20061128) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] master/detail dúvida
alguém sabe como se usa, no report builder, master/detail ? Preciso fazer um relatóiro que me retorne o nome de uma pessoa e seus dependentes. Não sei nem por onde começar. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] wildcard no firebird
Alguém sabe se é possível usar, no firebird, wildcards em campos do tipo Data? Se sim por favor me enviem um exemplo de como fazer, já pesquisei em vários sites, mas não consegui achar nada a respeito de como fazer ou se é possível fazer. WILLER ALVES DA COSTA [EMAIL PROTECTED] PERSONAL COMPUTER www.personalcom.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Dificuldade em Select
Valeu cara, funcionou direitinho no Firebird. Era exatamente disso que eu estava precisando.. - Original Message - From: Gabriel Filho To: delphi-br@yahoogrupos.com.br Sent: Monday, October 16, 2006 6:05 PM Subject: Re: [delphi-br] Dificuldade em Select SQL SERVER 2000 eu faria assim: SELECT cod, tipo FROM Tabela as T1 WHERE data = (SELECT MAX(data) FROM Tabela as T2 WHERE T2.cod = T1.cod) Em 16/10/06, WILLER [EMAIL PROTECTED] escreveu: Ok, eu realmente não fui claro. O que estou implementando é um sistema de acesso que utiliza catracas. Esse último movimento é o último acesso de determinada pessoa, para isso tem um campo data. Eu precisaria que o meu select retornasse esse último movimento de cada pessoa. cod - tipo - data/hora 778 - E-12:00 750 - S-11:00 778 - S-13:00 750 - E-17:00 -deveria me retornar - 778 - S - 13:00 - 750 - E - 17:00 - Original Message - From: Celito Alves Tonial To: delphi-br@yahoogrupos.com.br Sent: Monday, October 16, 2006 2:19 PM Subject: RES: [delphi-br] Dificuldade em Select Primeiro vc precisa definir o que caracteriza último movimento. Data mais atual ? Tipo = E ? -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de WILLER Enviada em: segunda-feira, 16 de outubro de 2006 11:14 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Dificuldade em Select Estou usando o FireBird e Delphi 7. Preciso fazer um select na minha tabela, que tem uma extrutura mais ou menos assim: cod - tipo 778 - E 750 - S 778 - S 750 - E O tipo define se é entrada ou saída, e o código identifica a pessoa. O meu select deveria trazer o último movimento de cada um dos códigos. Por exemplo, na tabela acima deveria me trazer: 778 - E 750 - S Alguém sabe se é possível fazer isso? Tentei algumas coisas, mas meus conhecimentos em firebird não são muito amplos. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 1.1804 (20061015) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 1.1804 (20061015) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Função que lista os subd iretórios de um diretório
Você tem isso pronto? Se tiver me manda, se não, eu tento fazer. - Original Message - From: Guaranta Almeida To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 17, 2006 12:01 PM Subject: Re: [delphi-br] Re: Função que lista os subdiretórios de um diretório Willer ... se precisar faça manualmente mesmo se quiser ajuda te mando codigo fonte e etc !! WILLER [EMAIL PROTECTED] escreveu: E como eu retorno uma lista de subdiretórios encontrados em um subdiretório usando esse componente? Eu preciso disso em uma variável do tipo Strings ou similar... - Original Message - From: SAFIG.Mario To: delphi-br@yahoogrupos.com.br Sent: Monday, October 16, 2006 11:51 AM Subject: [delphi-br] Re: Função que lista os subdiretórios de um diretório O componente TShellTreeView não se encontra mais na paleta Samples no Delphi 2005 / 2006, somente até o D7. Eu usava este componente e tive que mudar a programação porque não o encontrei mais. Se alguém conseguiu encontrar ou sabe como resolver, agradeço pela dica. Mario H. Mensagem: 2 Data: Sat, 14 Oct 2006 12:52:04 -0300 De: ME [EMAIL PROTECTED] Assunto: Re: Função que lista os subdiretórios de um diretório Oi Willer Não sei se é isso que voce deseja, mas de uma olha no componente ShellTreeView da paleta Samples. Marô - Original Message - From: WILLER To: delphi-br@yahoogrupos.com.br Sent: Friday, October 13, 2006 4:09 PM Subject: [delphi-br] Função que lista os subdiretórios de um diretório Alguém sabe de alguma função ou componente que retorna uma lista dos subdiretórios de um diretório? Pesquisei no Help do Delphi, mas não achei. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 1.1804 (20061015) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 1.1804 (20061015) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Dificuldade em Select
Estou usando o FireBird e Delphi 7. Preciso fazer um select na minha tabela, que tem uma extrutura mais ou menos assim: cod - tipo 778 - E 750 - S 778 - S 750 - E O tipo define se é entrada ou saída, e o código identifica a pessoa. O meu select deveria trazer o último movimento de cada um dos códigos. Por exemplo, na tabela acima deveria me trazer: 778 - E 750 - S Alguém sabe se é possível fazer isso? Tentei algumas coisas, mas meus conhecimentos em firebird não são muito amplos. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Dificuldade em Select
Ok, eu realmente não fui claro. O que estou implementando é um sistema de acesso que utiliza catracas. Esse último movimento é o último acesso de determinada pessoa, para isso tem um campo data. Eu precisaria que o meu select retornasse esse último movimento de cada pessoa. cod - tipo - data/hora 778 - E-12:00 750 - S-11:00 778 - S-13:00 750 - E-17:00 -deveria me retornar - 778 - S - 13:00 - 750 - E - 17:00 - Original Message - From: Celito Alves Tonial To: delphi-br@yahoogrupos.com.br Sent: Monday, October 16, 2006 2:19 PM Subject: RES: [delphi-br] Dificuldade em Select Primeiro vc precisa definir o que caracteriza último movimento. Data mais atual ? Tipo = E ? -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de WILLER Enviada em: segunda-feira, 16 de outubro de 2006 11:14 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Dificuldade em Select Estou usando o FireBird e Delphi 7. Preciso fazer um select na minha tabela, que tem uma extrutura mais ou menos assim: cod - tipo 778 - E 750 - S 778 - S 750 - E O tipo define se é entrada ou saída, e o código identifica a pessoa. O meu select deveria trazer o último movimento de cada um dos códigos. Por exemplo, na tabela acima deveria me trazer: 778 - E 750 - S Alguém sabe se é possível fazer isso? Tentei algumas coisas, mas meus conhecimentos em firebird não são muito amplos. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 1.1804 (20061015) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Função que lista os subd iretórios de um diretório
E como eu retorno uma lista de subdiretórios encontrados em um subdiretório usando esse componente? Eu preciso disso em uma variável do tipo Strings ou similar... - Original Message - From: SAFIG.Mario To: delphi-br@yahoogrupos.com.br Sent: Monday, October 16, 2006 11:51 AM Subject: [delphi-br] Re: Função que lista os subdiretórios de um diretório O componente TShellTreeView não se encontra mais na paleta Samples no Delphi 2005 / 2006, somente até o D7. Eu usava este componente e tive que mudar a programação porque não o encontrei mais. Se alguém conseguiu encontrar ou sabe como resolver, agradeço pela dica. Mario H. Mensagem: 2 Data: Sat, 14 Oct 2006 12:52:04 -0300 De: ME [EMAIL PROTECTED] Assunto: Re: Função que lista os subdiretórios de um diretório Oi Willer Não sei se é isso que voce deseja, mas de uma olha no componente ShellTreeView da paleta Samples. Marô - Original Message - From: WILLER To: delphi-br@yahoogrupos.com.br Sent: Friday, October 13, 2006 4:09 PM Subject: [delphi-br] Função que lista os subdiretórios de um diretório Alguém sabe de alguma função ou componente que retorna uma lista dos subdiretórios de um diretório? Pesquisei no Help do Delphi, mas não achei. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 1.1804 (20061015) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Função que lista os subdiretórios de um diretório
Alguém sabe de alguma função ou componente que retorna uma lista dos subdiretórios de um diretório? Pesquisei no Help do Delphi, mas não achei. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Função que lista os subdiret órios de um diretório
Valeu, vou experimentar fazer isso. - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Friday, October 13, 2006 4:43 PM Subject: RE: [delphi-br] Função que lista os subdiretórios de um diretório O Delphi não possui função pronta pra isso. Vc vai ter que construi ruma usando as funções FindFirst(), FindNext() e FindClose(). Procure no próprio help do Delphi que vai achar inclusive exemplos de utilização dessas três funções exatamente pro que vc tá querendo fazer. Sds. From: WILLER [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Função que lista os subdiretórios de um diretório Date: Fri, 13 Oct 2006 16:09:38 -0300 Alguém sabe de alguma função ou componente que retorna uma lista dos subdiretórios de um diretório? Pesquisei no Help do Delphi, mas não achei. [As partes desta mensagem que não continham texto foram removidas] _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br __ Informação do NOD32 1.1802 (20061013) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Erro estranho ao fechar programa
O erro ococce ao fechar o programa, e não tem nenhuma acção relacionada ao evento OnClose. E em momento algum eu uso o Destroy. Ah o mesmo erro ocorre quando abro um determinado formulário duas vezes e dou um self.Release; self:=nil; se o abro uma vez só, o erro ocorre quando o programa é fechado. - Original Message - From: Eduardo - Delphi To: delphi-br@yahoogrupos.com.br Sent: Sunday, October 01, 2006 12:30 PM Subject: Re: [delphi-br] Erro estranho ao fechar programa Verifica neste formulario os obj q vc criou se você esta destruindo no momento correto. Access Violation é sempre um obj destruido ou não criando q vc esta tentando acessar. Eduardo WILLER escreveu: Estou com um probleminha ao fechar o programa. Ocorre um erro de acesso à memória, e algumas vezes o PC até para de responder. O que acho estranho é que isso só ocorre quando abro um, determinado formulário. Se eu abro o programa e fecho logo em seguida, o erro não ocorre. Mas se eu abro o programa, abro um determinado formulário e fecho-o, quando o programa é terminado o erro de acesso à memória ocorre. Não sei bem o que é. Mas gostaria de saber se alguém já passou por isso, ou se sabe como resolver. Ou pelo menos se sabe o que está acontecendo. WILLER ALVES DA COSTA [EMAIL PROTECTED] PERSONAL COMPUTER www.personalcom.com.br [As partes desta mensagem que não continham texto foram removidas] ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ __ Informação do NOD32 1.1784 (20060929) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro estranho ao fechar programa
Estou com um probleminha ao fechar o programa. Ocorre um erro de acesso à memória, e algumas vezes o PC até para de responder. O que acho estranho é que isso só ocorre quando abro um, determinado formulário. Se eu abro o programa e fecho logo em seguida, o erro não ocorre. Mas se eu abro o programa, abro um determinado formulário e fecho-o, quando o programa é terminado o erro de acesso à memória ocorre. Não sei bem o que é. Mas gostaria de saber se alguém já passou por isso, ou se sabe como resolver. Ou pelo menos se sabe o que está acontecendo. WILLER ALVES DA COSTA [EMAIL PROTECTED] PERSONAL COMPUTER www.personalcom.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] FireBird - Dúvida
Sim, é isso, mas ainda não sei como adaptar isso ao FireBird. Valeu, vou pesquisar mais e tentar isso que você me sugeriu. - Original Message - From: Vanessa Merces To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 27, 2006 4:29 PM Subject: RES: [delphi-br] FireBird - Dúvida Bom amigo eu trabalho com sql server Vou te passar como ficaria no sql.. e ve se você consegue adaptar ai pro firebird Select * From Servidor.Banco1.DBO.Tabela, Servidor.Banco2.DBO.Tabela Pelo que entendi você precisa acessar duas tabelas em dois bancos distintos dentro do mesmo servidor... É isso??? [] Vanessa -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de WILLER Enviada em: quarta-feira, 27 de setembro de 2006 15:16 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] FireBird - Dúvida Alguém sabe se é possível utilizar um select só obtendo dados de 2 bancos de dados? Exemplo: -BancoA, contendo Tabela1 e Tabela2 -BancoB, contendo Tabela1 e Tabela2 No select eu precisaria que me retornasse BancoA.Tabela1 e BancoB.Tabela2; Não sei como colocar isso em um DataSet e nem sei se é possível. [] WILLER ALVES DA COSTA [EMAIL PROTECTED] PERSONAL COMPUTER www.personalcom.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 1.1776 (20060926) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] FireBird - Dúvida
Alguém sabe se é possível utilizar um select só obtendo dados de 2 bancos de dados? Exemplo: -BancoA, contendo Tabela1 e Tabela2 -BancoB, contendo Tabela1 e Tabela2 No select eu precisaria que me retornasse BancoA.Tabela1 e BancoB.Tabela2; Não sei como colocar isso em um DataSet e nem sei se é possível. [] WILLER ALVES DA COSTA [EMAIL PROTECTED] PERSONAL COMPUTER www.personalcom.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Atribuição de objetos - Dúvida/Problema
Estou com dúvidas quanto a atribuição de Objetos. Ocorre a seguinte situação: - Criei um objeto A - Criei um objeto B B := A; // o objeto B deveria receber todos os atributos de A O problema ocorre quando altero uma propriedade o objeto B. Essa mesma propriedade é alterada em ambos os objetos. Não sei onde cometi erro. É como se o que fosse atribuído fosse o endereço de memória e não os valores. Alguém poderia me dar um Help, dizer onde devo buscar referência ou onde se encontra o erro? []s. WILLER ALVES DA COSTA [EMAIL PROTECTED] PERSONAL COMPUTER www.personalcom.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Erro de acesso à memória
Obrigado pela explicação, agora entendi o porquê do erro.
[]s
- Original Message -
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 20, 2006 6:28 PM
Subject: Re: [delphi-br] Erro de acesso à memória
Muito simples, você esta tendo dentro de um metodo ( função ou
procedimento ) destruir o objeto que chamou este metodo. Por tanto
quando ele sai do metodo o objeto não existe mais.
Um exemplo bem tosco seria você é um objeto, você entra dentro de um
carro e explode o carro, como você vai sair do carro depois da explosão
? Você não sai, você é destruido na explosão.
Eduardo
WILLER escreveu:
Legal, funcionou. Só não entendi porque dá erro quando não uso o
timer. Se eu coloco o código todo no click do botão dá erro por quê?
- Original Message -
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 20, 2006 10:11 AM
Subject: Re: [delphi-br] Erro de acesso à memória
Ve se é isso que vc quer.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
ExtCtrls, StdCtrls, Menus;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
vNome : Integer;
vEndereco : Integer;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if TButton(vEndereco) Nil then
FreeAndNil(TButton(vEndereco));
Timer1.Enabled := False;
end;
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var
Handled: Boolean);
var
MyBtn : TButton;
begin
MyBtn := TButton.Create(Self);
with MyBtn do
begin
Inc(vNome);
name:='b'+inttostr(vNome);
Parent:=Form1;
left:=mousepos.x;
top:=mousepos.y;
caption:='s';
OnClick := Button1Click;
Tag := Integer(MyBtn); //Guardo na tag o endereço de memória
do obj
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
vNome := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender is TButton then
begin
vEndereco := TButton(Sender).Tag;
Timer1.Enabled := True;
end;
end;
end.
Testei aqui com o intervalo do Timer de 500. Voce tb pode criar uma
lista e assim procurando os objetos da lista para destruir.
Eu só tinha esquecido ontem quando fiz o exemplo do detalhe fundamental
de quem estava chamando este obj. Me desculpe não prestei a atenção
devida.
Eduardo
WILLER escreveu:
Essa linha não funcionou:
FreeAndNil(TButton(TButton(Sender).Tag));
O Compilador dá uma mensagem dizendo: Constat objetc cannot be passed
as var parameter.
- Original Message -
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 19, 2006 2:17 PM
Subject: Re: [delphi-br] Erro de acesso à memória
Exatamente onde está o erro eu não sei, mas vai uma dica.
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var
MyBtn : TButton;
xx:string;
begin
MyBtn := TButton.Create(Self);
with MyBtn do
begin
name:='b'+inttostr(i);
Parent:=Form1;
left:=mousepos.x;
top:=mousepos.y;
caption:='s';
OnClick:=Button1OnClick;
Tag := Integer(MyBtn); //Guardo na tag o endereço de memória
do obj
i:=i+1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender is TButton then
begin
//Não preciso testar se o obj existe por q se ele não
existe eu
não chegava aqui !!!
FreeAndNil(TButton(TButton(Sender).Tag));
end;
end;
Eduardo
WILLER escreveu:
Foi exatamente o que fiz, o erro ocorre ao destruir o objeto.
- Original Message -
From: Rubem Nascimento da Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 19, 2006 1:11 PM
Subject: RE: [delphi-br] Erro de acesso à memória
Re: [delphi-br] Erro de acesso à memória
Legal, funcionou. Só não entendi porque dá erro quando não uso o timer. Se eu
coloco o código todo no click do botão dá erro por quê?
- Original Message -
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 20, 2006 10:11 AM
Subject: Re: [delphi-br] Erro de acesso à memória
Ve se é isso que vc quer.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Menus;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
vNome : Integer;
vEndereco : Integer;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if TButton(vEndereco) Nil then
FreeAndNil(TButton(vEndereco));
Timer1.Enabled := False;
end;
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint; var
Handled: Boolean);
var
MyBtn : TButton;
begin
MyBtn := TButton.Create(Self);
with MyBtn do
begin
Inc(vNome);
name:='b'+inttostr(vNome);
Parent:=Form1;
left:=mousepos.x;
top:=mousepos.y;
caption:='s';
OnClick := Button1Click;
Tag := Integer(MyBtn); //Guardo na tag o endereço de memória do obj
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
vNome := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender is TButton then
begin
vEndereco := TButton(Sender).Tag;
Timer1.Enabled := True;
end;
end;
end.
Testei aqui com o intervalo do Timer de 500. Voce tb pode criar uma
lista e assim procurando os objetos da lista para destruir.
Eu só tinha esquecido ontem quando fiz o exemplo do detalhe fundamental
de quem estava chamando este obj. Me desculpe não prestei a atenção devida.
Eduardo
WILLER escreveu:
Essa linha não funcionou:
FreeAndNil(TButton(TButton(Sender).Tag));
O Compilador dá uma mensagem dizendo: Constat objetc cannot be passed
as var parameter.
- Original Message -
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 19, 2006 2:17 PM
Subject: Re: [delphi-br] Erro de acesso à memória
Exatamente onde está o erro eu não sei, mas vai uma dica.
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var
MyBtn : TButton;
xx:string;
begin
MyBtn := TButton.Create(Self);
with MyBtn do
begin
name:='b'+inttostr(i);
Parent:=Form1;
left:=mousepos.x;
top:=mousepos.y;
caption:='s';
OnClick:=Button1OnClick;
Tag := Integer(MyBtn); //Guardo na tag o endereço de memória do obj
i:=i+1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender is TButton then
begin
//Não preciso testar se o obj existe por q se ele não existe eu
não chegava aqui !!!
FreeAndNil(TButton(TButton(Sender).Tag));
end;
end;
Eduardo
WILLER escreveu:
Foi exatamente o que fiz, o erro ocorre ao destruir o objeto.
- Original Message -
From: Rubem Nascimento da Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 19, 2006 1:11 PM
Subject: RE: [delphi-br] Erro de acesso à memória
{ o código correto para FormContextPopup }
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var xx:string;
begin
with TButton.Create(Self) do begin
name:='b'+inttostr(i);
Parent:=Form1;
left:=mousepos.x;
top:=mousepos.y;
caption:='s';
OnClick:=Button1OnClick;
i:=i+1;
end;
end;
From: WILLER [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Erro de acesso à memória
Date: Tue, 19 Sep 2006 10:04:49 -0300
Esse programa deveria, a cada clique com o botão direito do mouse,
criar um
botão. E cada botão, ao receber um clique deveria ser destruído.
Quando crio um botão e o destruo em seguida, não dá erro. O erro
ocorre
quando crio mais de um botão e depois tento destruí-lo.
Alguém poderia me ajudar, me dar uma dica ou indicar onde errei
[delphi-br] Erro de acesso à memória
Esse programa deveria, a cada clique com o botão direito do mouse, criar um
botão. E cada botão, ao receber um clique deveria ser destruído.
Quando crio um botão e o destruo em seguida, não dá erro. O erro ocorre quando
crio mais de um botão e depois tento destruí-lo.
Alguém poderia me ajudar, me dar uma dica ou indicar onde errei?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
j:TButton;
i:integer;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Types;
{$R *.dfm}
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var xx:string;
begin
with TButton.Create(Self) do begin
name:='b'+inttostr(i);
Parent:=Form1;
left:=mousepos.x;
top:=mousepos.y;
caption:='s';
OnClick:=Button1.OnClick;
i:=i+1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if sender is TButton then begin
if assigned( TButton(sender)) then begin
FreeAndNil(TButton(Sender));
end;
end;
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Erro de acesso à memória
Foi exatamente o que fiz, o erro ocorre ao destruir o objeto.
- Original Message -
From: Rubem Nascimento da Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 19, 2006 1:11 PM
Subject: RE: [delphi-br] Erro de acesso à memória
{ o código correto para FormContextPopup }
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var xx:string;
begin
with TButton.Create(Self) do begin
name:='b'+inttostr(i);
Parent:=Form1;
left:=mousepos.x;
top:=mousepos.y;
caption:='s';
OnClick:=Button1OnClick;
i:=i+1;
end;
end;
From: WILLER [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Erro de acesso à memória
Date: Tue, 19 Sep 2006 10:04:49 -0300
Esse programa deveria, a cada clique com o botão direito do mouse, criar um
botão. E cada botão, ao receber um clique deveria ser destruído.
Quando crio um botão e o destruo em seguida, não dá erro. O erro ocorre
quando crio mais de um botão e depois tento destruí-lo.
Alguém poderia me ajudar, me dar uma dica ou indicar onde errei?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
j:TButton;
i:integer;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Types;
{$R *.dfm}
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var xx:string;
begin
with TButton.Create(Self) do begin
name:='b'+inttostr(i);
Parent:=Form1;
left:=mousepos.x;
top:=mousepos.y;
caption:='s';
OnClick:=Button1.OnClick;
i:=i+1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if sender is TButton then begin
if assigned( TButton(sender)) then begin
FreeAndNil(TButton(Sender));
end;
end;
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
_
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Erro de acesso à memória
Essa linha não funcionou:
FreeAndNil(TButton(TButton(Sender).Tag));
O Compilador dá uma mensagem dizendo: Constat objetc cannot be passed as var
parameter.
- Original Message -
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 19, 2006 2:17 PM
Subject: Re: [delphi-br] Erro de acesso à memória
Exatamente onde está o erro eu não sei, mas vai uma dica.
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var
MyBtn : TButton;
xx:string;
begin
MyBtn := TButton.Create(Self);
with MyBtn do
begin
name:='b'+inttostr(i);
Parent:=Form1;
left:=mousepos.x;
top:=mousepos.y;
caption:='s';
OnClick:=Button1OnClick;
Tag := Integer(MyBtn); //Guardo na tag o endereço de memória do obj
i:=i+1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender is TButton then
begin
//Não preciso testar se o obj existe por q se ele não existe eu
não chegava aqui !!!
FreeAndNil(TButton(TButton(Sender).Tag));
end;
end;
Eduardo
WILLER escreveu:
Foi exatamente o que fiz, o erro ocorre ao destruir o objeto.
- Original Message -
From: Rubem Nascimento da Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 19, 2006 1:11 PM
Subject: RE: [delphi-br] Erro de acesso à memória
{ o código correto para FormContextPopup }
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var xx:string;
begin
with TButton.Create(Self) do begin
name:='b'+inttostr(i);
Parent:=Form1;
left:=mousepos.x;
top:=mousepos.y;
caption:='s';
OnClick:=Button1OnClick;
i:=i+1;
end;
end;
From: WILLER [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Erro de acesso à memória
Date: Tue, 19 Sep 2006 10:04:49 -0300
Esse programa deveria, a cada clique com o botão direito do mouse,
criar um
botão. E cada botão, ao receber um clique deveria ser destruído.
Quando crio um botão e o destruo em seguida, não dá erro. O erro
ocorre
quando crio mais de um botão e depois tento destruí-lo.
Alguém poderia me ajudar, me dar uma dica ou indicar onde errei?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
j:TButton;
i:integer;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Types;
{$R *.dfm}
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var xx:string;
begin
with TButton.Create(Self) do begin
name:='b'+inttostr(i);
Parent:=Form1;
left:=mousepos.x;
top:=mousepos.y;
caption:='s';
OnClick:=Button1.OnClick;
i:=i+1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if sender is TButton then begin
if assigned( TButton(sender)) then begin
FreeAndNil(TButton(Sender));
end;
end;
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
_
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
[As partes desta mensagem que não continham texto foram removidas]
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Dúvidas com TEdit - Criação em tempo de execução
Estava fazendo uns testes e me deparei com isso:
- Criei um formulário e adicionei código a 2 eventos:
-ContextPopup - Quando clica com o botão direito ele cria, no local do
click, um objeto do tipo TEdit, já contendo um texto;
-Click - Quando clica com o botão esquerdo ele deveria, limpar todos os
TEdit´s Criados anteriormente.
Não sei qual o problema.
O Form1.ComponentCount está me retornando Zero
Se alguém puder me dar um exclarecimento agradeço.
Segue o meu código:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormClick(Sender: TObject);
procedure FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
m:TEdit;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Types;
{$R *.dfm}
procedure TForm1.FormClick(Sender: TObject);
var h:integer;
begin
for h:=0 to Form1.ComponentCount-1 do
if Form1.Components[h] is TCustomEdit then
TCustomEdit(Form1.Components[h]).Clear;
end;
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
m:=TEdit.Create(m);
m.parent:=Form1;
m.left:=mousepos.x;
m.top:=mousepos.y;
m.text:=inttostr(mousepos.x);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Dúvidas com TEdit - Criação em tempo de execução
Consegui resolver, o problema estava em m:=TEdit.Create(m);
deveria ser m:=TEdit.Create(self);
Mas estou com mais uma dúvida. A Cada click um objeto será criado. Eu estou
tentando agora, fazer com que a cada click que um botão receba ele próprio deja
destruído. Tentei usar o Destroy, depois tentei usar o Free e ambos dão erro de
acesso à memória.
Valeu.
- Original Message -
From: Rubem Nascimento da Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Monday, September 18, 2006 1:43 PM
Subject: RE: [delphi-br] Dúvidas com TEdit - Criação em tempo de execução
Eu faria diferente. Veja:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormClick(Sender: TObject);
procedure FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Types;
{$R *.dfm}
procedure TForm1.FormClick(Sender: TObject);
var
h: integer;
begin
for h := 0 to Form1.ControlCount - 1 do
if Form1.Controls[h] is TCustomEdit then
TCustomEdit(Form1.Controls[h]).Clear;
end;
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
with TEdit.Create(Self) do
begin
Parent := Self;
Left := MousePos.X;
Top = MousePos.Y;
Text := IntToStr(MousePos.X);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
Sds.
From: WILLER [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Dúvidas com TEdit - Criação em tempo de execução
Date: Mon, 18 Sep 2006 12:43:45 -0300
Estava fazendo uns testes e me deparei com isso:
- Criei um formulário e adicionei código a 2 eventos:
-ContextPopup - Quando clica com o botão direito ele cria, no local do
click, um objeto do tipo TEdit, já contendo um texto;
-Click - Quando clica com o botão esquerdo ele deveria, limpar todos
os TEdit´s Criados anteriormente.
Não sei qual o problema.
O Form1.ComponentCount está me retornando Zero
Se alguém puder me dar um exclarecimento agradeço.
Segue o meu código:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormClick(Sender: TObject);
procedure FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
m:TEdit;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Types;
{$R *.dfm}
procedure TForm1.FormClick(Sender: TObject);
var h:integer;
begin
for h:=0 to Form1.ComponentCount-1 do
if Form1.Components[h] is TCustomEdit then
TCustomEdit(Form1.Components[h]).Clear;
end;
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
m:=TEdit.Create(m);
m.parent:=Form1;
m.left:=mousepos.x;
m.top:=mousepos.y;
m.text:=inttostr(mousepos.x);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
_
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Select muito longo ERRO
Olá a todos. Estou com um problema. Eu uso o Firebird e Delphi 7, preciso usar uma string SQL (select), mas quando vou compilar o Delphi reclama que a string deve ter no máximo 255 caracteres. Alguém sabe como contornar isso? Qualquer sugestão será de grande ajuda. String: select MENSAL.VENCTO,tabcli.cod,tabcli.nome,tabmen.prec,mensal.tipo from tabcli,tabmen,mensal where (tabcli.tabela=tabmen.tab)and(tabcli.cod=mensal.cod)and( (mensal.vencto='1/1/2006') and (mensal.vencto='10/10/2006')and( extract(month from mensal.vencto)extract(month from CURRENT_DATE ) ) ) ORDER BY MENSAL.VENCTO Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Select muito longo ERRO
Valeu pela dica. Consegui resolver o problema. E agora meu select ficou organizado. []s Willer Alves - Original Message - From: Andre Mesquita To: delphi-br@yahoogrupos.com.br Sent: Monday, September 04, 2006 12:03 PM Subject: Re: [delphi-br] Select muito longo ERRO Além de funcionar deixa seu código mais claro e facilita uma depuração. Ponha um breakpoint na linha qryExecucao.Open e qdo parar, tecle Ctrl+F7 e coloque a intrução qryExecucao.Sql.getText. Perceba como a query ficou fácil de entender e depurar. var sSql : String; begin sSql := ' select ' + #13; sSql := sSql + 'MENSAL.VENCTO, ' + #13; sSql := sSql + 'tabcli.cod, ' + #13; sSql := sSql + 'tabcli.nome, ' + #13; sSql := sSql + 'tabmen.prec, ' + #13; sSql := sSql + 'mensal.tipo ' + #13; sSql := sSql + ' from ' + #13; sSql := sSql + 'tabcli,tabmen,mensal ' + #13; sSql := sSql + ' where ' + #13; sSql := sSql + '(tabcli.tabela = tabmen.tab) and ' + #13; sSql := sSql + '(tabcli.cod = mensal.cod) and ' + #13; sSql := sSql + '( (mensal.vencto = '1/1/2006') and ' + #13; sSql := sSql + ' (mensal.vencto = '10/10/2006') and ' + #13; sSql := sSql + ' ( extract(month from mensal.vencto) extract(month from CURRENT_DATE ) ) ) ' + #13; sSql := sSql + ' ORDER BY ' + #13; sSql := sSql + 'MENSAL.VENCTO ' + #13; qryExecucao.Close; qryExecucao.SQL.Text := sSql; qryExecucao.Open; end; [ ]'s - Original Message - From: WILLER [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, September 04, 2006 11:25 AM Subject: [delphi-br] Select muito longo ERRO Olá a todos. Estou com um problema. Eu uso o Firebird e Delphi 7, preciso usar uma string SQL (select), mas quando vou compilar o Delphi reclama que a string deve ter no máximo 255 caracteres. Alguém sabe como contornar isso? Qualquer sugestão será de grande ajuda. String: select MENSAL.VENCTO,tabcli.cod,tabcli.nome,tabmen.prec,mensal.tipo from tabcli,tabmen,mensal where (tabcli.tabela=tabmen.tab)and(tabcli.cod=mensal.cod)and( (mensal.vencto='1/1/2006') and (mensal.vencto='10/10/2006')and( extract(month from mensal.vencto)extract(month from CURRENT_DATE ) ) ) ORDER BY MENSAL.VENCTO Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 1.1683 (20060728) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Firebird - Função Last
E você sabe como é a Sintaxe da função First? - Original Message - From: Daniel Bastos To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 30, 2006 9:16 AM Subject: Re: [delphi-br] Firebird - Função Last cara, não tem uma função last no firebird... mas tem o first :~) vc pode fazer sua query com ordem inversa e pegar o primeiro Em 27/09/06, WILLER [EMAIL PROTECTED] escreveu: Alguém saberia me dizer se existe alguma função no Firebird que sirva para selecionar o último registro de uma tabele? O que preciso fazer é um select composto por 2 tabelas relacionadas, onde a segunda tem vários registros relacionados com a primeira. Preciso de um select que retorne todos os campos da primeira tabela e todos os campos do útimo registro da segunda tabela. Alguém tem alguma idéia de como fazer isso, ou onde posso encontrar a Resposta? Verifiquei que o Firebird tem uma função chamada LAST, mas não consegui usá-la. Pesquisei em alguns Fóruns e sites de Busca, mas não obtive resposta. Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 1.1683 (20060728) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Firebird - Função Last
Não é AutoIncremento, então não dá - Original Message - From: Alisson Yahoo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 30, 2006 8:22 AM Subject: Re: [delphi-br] Firebird - Função Last Se o campo chave for auto-incremento você pode fazer o seguinte para selecionar o último registro : Select * From Tabela where CampoChave = (select Max(CampoChave) From Tabela) [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 1.1683 (20060728) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Firebird - Função Last
Consegui, fiz o que você me sugeriu, e já que o campo é do tipo data, mas é sempre incrementada... funcionou. Valeu. Meu select ficou assim: SELECT TABCLI.VENCIMENTO,TABCLI.COD,tabcli.nome,mensal.vencto,TABMEN.PREC from tabcli,mensal,TABMEN where ((tabcli.cod=mensal.cod)AND(TABCLI.TABELA=TABMEN.TAB))and(mensal.vencto=(select max(mensal.vencto)from mensal where mensal.cod=tabcli.cod) ) order by mensal.vencto DESC Willer Alves da Costa. - Original Message - From: Alisson Yahoo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 30, 2006 8:22 AM Subject: Re: [delphi-br] Firebird - Função Last Se o campo chave for auto-incremento você pode fazer o seguinte para selecionar o último registro : Select * From Tabela where CampoChave = (select Max(CampoChave) From Tabela) [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 1.1683 (20060728) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Firebird - Função Last
Alguém saberia me dizer se existe alguma função no Firebird que sirva para selecionar o último registro de uma tabele? O que preciso fazer é um select composto por 2 tabelas relacionadas, onde a segunda tem vários registros relacionados com a primeira. Preciso de um select que retorne todos os campos da primeira tabela e todos os campos do útimo registro da segunda tabela. Alguém tem alguma idéia de como fazer isso, ou onde posso encontrar a Resposta? Verifiquei que o Firebird tem uma função chamada LAST, mas não consegui usá-la. Pesquisei em alguns Fóruns e sites de Busca, mas não obtive resposta. Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] OnKeyUp - Error
Funcionou agora, mas o evento deve ser OnKeyUp mesmo.
- Original Message -
From: Giovani Benedetti Penha
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, August 27, 2006 2:24 PM
Subject: Re: [delphi-br] OnKeyUp - Error
Outro probleminha aí é que a variável Key é do tipo word, mas você tentou
comparar com um char ('P' e 'p'). Tenta assim
... key = Ord('P') or ...
Outro detalhe, não seria melhor colocar o evento no KeyDown ao invés do
KeyUp?
Abraços,
Giovani
Em 25/08/06, Atendimento - BG on-line [EMAIL PROTECTED] escreveu:
WILLER
eu utilizo Ctrl + enter para alguns tipos de consultas...
If (Key = 13) and (ssCtrl in Shift) Then
é assim... shift nao é um valor e sim um conjunto de valores... por isso o
erro de tipos...
- Original Message -
From: WILLER
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 25, 2006 12:36 PM
Subject: [delphi-br] OnKeyUp - Error
Estou tentando fazer com que uma função seja acionada quando o usuário
pressionar ALT+P, só que dá erro de incompatibilidade de tipos, alguém sabe
se cometi algum erro? Fiz ago errado? O ssAlt foi o próprio Delphi quem
sugeriu.
procedure TfrmBaixaMes.FormKeyUp(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
IF Shift = ssAlt THEN
IF (KEY = 'P')OR(KEY = 'p') THEN
DM.ImpCab(1);
end;
[Error] frmBaixaMes_.pas(310): Incompatible types
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Giovani Benedetti Penha
[As partes desta mensagem que não continham texto foram removidas]
__ Informação do NOD32 1.1683 (20060728) __
Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
http://www.nod32.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] OnKeyUp - Error
Estou tentando fazer com que uma função seja acionada quando o usuário pressionar ALT+P, só que dá erro de incompatibilidade de tipos, alguém sabe se cometi algum erro? Fiz ago errado? O ssAlt foi o próprio Delphi quem sugeriu. procedure TfrmBaixaMes.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin IF Shift = ssAlt THEN IF (KEY = 'P')OR(KEY = 'p') THEN DM.ImpCab(1); end; [Error] frmBaixaMes_.pas(310): Incompatible types [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Mudar o cursor do mouse
Alguém sabe como modificar a seta(cursor) do mouse, colocando um personalizado? Tentei criar um objeto TCursor, mas não consegui. Qualquer dica de como fazer isso eu agradeço. []s. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Mudar o cursor do mouse
Valeu. Funcuinou perfeitamente. Eu tinha tentado algumas coisas já, mas não
tinha conseguido.
- Original Message -
From: Logos
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, August 23, 2006 1:47 PM
Subject: Re: [delphi-br] Mudar o cursor do mouse
vai a dica dtdelphi
330 - Como Trocar o Cursor do Mouse
Existem vários cursores no Delphi (crDefault é o cursor padrão, crHourGlass é
a ampulheta, crHandPoint é a mãozinha, etc). Para alterá-lo, basta escolher
um na propriedade Cursor do componente em que você quer mudar o cursor (troque
no form para trocar o do form inteiro). Mas, se você quiser colocar um cursor
diferente, siga os procedimentos abaixo:
Na seção interface da unit que contém o form, coloque as seguintes linhas:
const
crSeuCursor = 1; // Tem que ser um valor maior que 0 (zero)
No evento OnCreate do form, digite as seguintes linhas:
Screen.Cursors [crSeuCursor] := LoadCursorFromFile ('Cursor.ani');
// O cursor pode ser dos tipos comum (*.cur) ou animado (*.ani)
// Lembre-se: o arquivo tem que estar na mesma pasta do programa
// ou digite o nome do caminho dele.
Na hora de trocar de cursor, use o seguinte comando:
Objeto.Cursor := crSeuCursor;
onde Objeto é o nome do objeto que vai ter o cursor alterado (o form, por
exemplo).
- Original Message -
From: WILLER
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, August 23, 2006 1:14 PM
Subject: [delphi-br] Mudar o cursor do mouse
Alguém sabe como modificar a seta(cursor) do mouse, colocando um
personalizado?
Tentei criar um objeto TCursor, mas não consegui.
Qualquer dica de como fazer isso eu agradeço.
[]s.
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.405 / Virus Database: 268.11.5/425 - Release Date: 22/08/2006
[As partes desta mensagem que não continham texto foram removidas]
__ Informação do NOD32 1.1683 (20060728) __
Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
http://www.nod32.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
