Re: [delphi-br] Mudou algo na declaração de proced ures em DLL no D2010 ?
Acredito que seja devido ao uso do unicode no delphi 2009 em diante, já tentou substituir o PChar pelo PAnsiChar? Pois o PChar nas versões mais novas são unicode. Att, Fábio Thomaz Em 7 de julho de 2010 14:12, Fellipe Henrique felli...@gmail.com escreveu: O mais estranho é que uso PChar.. ou seja, não deveria dar problemas... []s Em 7 de julho de 2010 13:45, Ricardo César Cardoso ricardo_engs...@yahoo.com.br escreveu: Acho que tem a ver com as mudanças nos tipos derivados de String que tem sido implementados desde o Delphi 2009, não seria? Não posso dar mais detalhes pois não trabalho com essas versões do Delphi, mas acredito que tenha alguma relação. Atenciosamente, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 7/7/10, Fellipe Henrique felli...@gmail.comfellipeh% 40gmail.com escreveu: De: Fellipe Henrique felli...@gmail.com fellipeh%40gmail.com Assunto: [delphi-br] Mudou algo na declaração de procedures em DLL no D2010 ? Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Quarta-feira, 7 de Julho de 2010, 8:38 Amigos, tenho uma DLL que funciona perfeitamente em todos os delphi, porém quando compilo no D2010, a variável string que recebo, ao invés de vir a string passada, vem ela e mais alguns caracteres malucos... Está declarado assim: procedure ProcTeste(aVar1: PWideCHAR; aVar2: PChar; aVar3: PCHAR); stdcall; Essa DLL é usada por sistema, que são compilados em versões diferentes do Delphi. Esqueci de algo? Att. -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh -- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh --- [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF Topic] Parâmetros no sistema.
Olá amigos do grupo, gostaria de uma sugestão para incluir parâmetros em meu sistema, atualmente tenho uma tabela onde tenho um campo para cada parâmetro, gostaria de saber dos amigos do grupo como fazem a parametrização, da forma que passei ou criam um cadastro de parâmetros, ou outra forma mais interessante. Estou querendo criar uma tabela de parâmetros do usuário, onde o usuário possa personalizar algumas coisas, a princípio pensei em criar um cadastro de parâmetros, mas não sei que tipo utilizar no campo parâmetro. Exemplo da idéia: CREATE TABLE PARAM_USUARIOS( ID_USER INTEGER NOT NULL, PARAM_NAME VARCHAR(40) NOT NULL, PARAM_VALUE ? (Não sei que tipo utilizar), CONSTRAINT PK_PARAM_USUARIOS PRIMARY KEY(ID_USER,PARAM_NAME) ); Desde já agradeço por sugestões, Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Controles empresas Softwares
Se encontrar algo interessante compartilhe com a gente. Att, Fábio Thomaz Em 17 de maio de 2010 15:35, Samuel M. Basso samuelba...@yahoo.com.brescreveu: Estava vendo um bem completo com agenda, tarefas, ocorrencias, projetos é chamado sugarCRM, vale a pena olhar tmb, mas ainda estou em procura de outros quero encontrar um que tenha tmb integrado um tipo de help desk, callcenter. Conforme vou encontrando alguns vou avisando. 2010/5/17 Fábio Thomaz fabio_...@yahoo.com.br fabio_thz%40yahoo.com.br Estou fazendo uns testes no Redmine (http://www.redmine.org/), aparentemente parece ser muito bom, uma outra alternativa seria o Trac ( http://trac.edgewall.org/). Existem vários outros, mas estes dois me chamaram mais a atenção, também estou em busca de uma ferramenta para fazer isto. Fábio Thomaz Em 17 de maio de 2010 11:05, Samuel M. Basso samuelba...@yahoo.com.brsamuelbasso%40yahoo.com.br escreveu: Bom dia. Gostaria de saber se alguem tem alguma ferramenta para me indicar para fazer controle de atendimentos, chamados, etc, para a empresa de software. Conforme vai aumentando o nro de clientes, é inevitavel um controle melhor sobre todos os atendimendos efetuados. Gostaria se alguem tem alguma ferramenta para indicar que controle por exemplo todos chamados que os tecnicos tem, controle as pendencias abertas para os programadores, controle implantacao de sistema, treinamento, essas coisas. Todo tipo de controle para organizar a empresa de software. Abraços. -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com samuelbasso%40gmail.comsamuelbasso% 40gmail.com Web site: www.samuelbasso.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com samuelbasso%40gmail.com Web site: www.samuelbasso.com [As partes desta mensagem que não continham texto foram removidas] [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Segurança DataSnap
Não seria sempre ao executar algo no server, mas quando o cliente conectar-se ao server, a não ser que use o LifeCycle como Invocation. Att, Fábio Thomaz Em 16 de maio de 2010 10:43, Carlos Aquino duar...@gmail.com escreveu: O esquema de mudar a porta pouco importa. Pode ser qualquer porta, isto é evidente já que pode-se configurar no componente. O X da questão é como trabalhar as permissões de QUEM PODE executar os métodos do servidor. Quero discutir com os colegas como implementar a segurança, pois pelo que vi aqui após criar meu server, qualquer uma outra app que se conecte na porta que o server ouve (211 default ou seja la qual for a que vc configurar ) poderá executar os métodos e ver os dados dos datamodules remote. Entenderam ? Esse esquema de chave no onConect parece que me deu idéias. Só fico pensando se isso não seria meio trabalhoso, verificar uma chave toda vez que for executar algo no server. O que pensam ? Em 16/05/10, Fábio Thomazfabio_...@yahoo.com.brfabio_thz%40yahoo.com.br escreveu: Mas adiante penso em implementar um sistema de licenciamento no nível servidor de aplicação, registrando a aplicação cliente com um key que seria registrado também no server, aonde o server só aceitaria a conexão de clientes com o key disponível na lista de keys do server, fazendo as verificações nescessárias, é claro. Acredito que conseguiria fazer isto no evento OnConnect do DSServer, mas por enquanto é só uma idéia, não implementei nada to tipo ainda. Att, Fábio Thomaz Em 15 de maio de 2010 09:19, Carlos Aquino duar...@gmail.comduardbr%40gmail.com escreveu: Estou migrando alguns modulos para DataSnap e lendo, ouvindo e assistindo tudo que é material sobre esta tecnologia no D2010, no entanto tenho uma dúvida : A porta 211 fica aberta para o mundo ? Como é a segurança de quem pode ou não conectar ao servidor dataSnap ? -- __ : grato e sem mais, : Carlos Aquino, Uberaba/MG __ : http://duard.com.br//blog : Msn-Messenger : duar...@hotmail.com duardbr%40hotmail.com duardbr% 40hotmail.com __ : Uberaba-MG / Brasil __ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- __ : grato e sem mais, : Carlos Aquino, Uberaba/MG __ : http://duard.com.br//blog : Msn-Messenger : duar...@hotmail.com duardbr%40hotmail.com __ : Uberaba-MG / Brasil __ [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Controles empresas Softwares
Estou fazendo uns testes no Redmine (http://www.redmine.org/), aparentemente parece ser muito bom, uma outra alternativa seria o Trac ( http://trac.edgewall.org/). Existem vários outros, mas estes dois me chamaram mais a atenção, também estou em busca de uma ferramenta para fazer isto. Fábio Thomaz Em 17 de maio de 2010 11:05, Samuel M. Basso samuelba...@yahoo.com.brescreveu: Bom dia. Gostaria de saber se alguem tem alguma ferramenta para me indicar para fazer controle de atendimentos, chamados, etc, para a empresa de software. Conforme vai aumentando o nro de clientes, é inevitavel um controle melhor sobre todos os atendimendos efetuados. Gostaria se alguem tem alguma ferramenta para indicar que controle por exemplo todos chamados que os tecnicos tem, controle as pendencias abertas para os programadores, controle implantacao de sistema, treinamento, essas coisas. Todo tipo de controle para organizar a empresa de software. Abraços. -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com samuelbasso%40gmail.com Web site: www.samuelbasso.com [As partes desta mensagem que não continham texto foram removidas] [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Segurança DataSnap
Mas adiante penso em implementar um sistema de licenciamento no nível servidor de aplicação, registrando a aplicação cliente com um key que seria registrado também no server, aonde o server só aceitaria a conexão de clientes com o key disponível na lista de keys do server, fazendo as verificações nescessárias, é claro. Acredito que conseguiria fazer isto no evento OnConnect do DSServer, mas por enquanto é só uma idéia, não implementei nada to tipo ainda. Att, Fábio Thomaz Em 15 de maio de 2010 09:19, Carlos Aquino duar...@gmail.com escreveu: Estou migrando alguns modulos para DataSnap e lendo, ouvindo e assistindo tudo que é material sobre esta tecnologia no D2010, no entanto tenho uma dúvida : A porta 211 fica aberta para o mundo ? Como é a segurança de quem pode ou não conectar ao servidor dataSnap ? -- __ : grato e sem mais, : Carlos Aquino, Uberaba/MG __ : http://duard.com.br//blog : Msn-Messenger : duar...@hotmail.com duardbr%40hotmail.com __ : Uberaba-MG / Brasil __ [As partes desta mensagem que não continham texto foram removidas] [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Intraweb
Caro Alexandre, Tenho um sistema web feito em IW onde disponibilizo módulos de meu sistema para alunos consultarem suas informações, e para que os professores possam digitar todas as informações que a escola nescessita, sistema este desenvolvido a uns 2 anos e até agora não tenho do que me queixar, e olha que quando desenvolvi nem tinha muita experiência com IW, certamente se eu fosse inicia-lo hoje ele seria ainda muito melhor. Att, Fábio Thomaz Em 13 de maio de 2010 18:07, Alexandre alexandre.pedr...@gmail.comescreveu: William, Nosso problema aqui é que temos o sistema feito em delphi e gostaríamos de compartilhar regras de negócio do mesmo para o desenvolvimento, diminuindo o nosso retrabalho. E o boss quer que se use o delphi para isso, principalmente depois de conferência com o Bruno Lichot. Eu, preferencialmente, partiria para Java dado o tamanho do sistema que temos. Alexandre Pedroto Em 13 de maio de 2010 16:28, Desenvolvimento desenvolvime...@passofeliz.com.br escreveu: Também estou no mesmo dilema, estou em testes entre o Intraweb e o Delphi4PHP, andei vendo umas vídeos da versão PHP do Rodrigo Carreiro na DevMedia e achei bem interessante. Porém ao que me parece o Intraweb é menos divulgado, não se encontra muito material sobre o assunto. Apesar de que, para quem já programa em Delphi o Intraweb tem a menor curva de aprendizado. O que eu achei ruim nele é hospedagem, por ele gerar uma dll, apenas planos mais caros de hospedagem dão suporte a ele. []'s William C. Brazilino [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] rave preview maximizado como fazer?
Associe seu RVProject a um RvSystem, no seu RvSystem tem as opções que deseja. Att, Fábio Thomaz Em 1 de maio de 2010 13:34, alessandra porto alessandraport...@yahoo.com.br escreveu: Estou usando assim RvProject1.ProjectFile:='C:\ELO\RAVE\Entrega.rav'; RvProject1.Execute; o problema é que o preview aparece pequeno como faço para ao aparesentar o preview maximinizado ao abri-lo?? Grata pela ajuda [As partes desta mensagem que não continham texto foram removidas] [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit
Olá Marcos, Se eu definir a propriedade no Create do componente, esta sempre terá o valor que eu defini, mas terá casos que a propriedade deve ser ecNormal, como por exemplo em um campo que armazena senha, o que eu queria é apenas que a propriedade default fosse ecUpeerCase, mas que não me impedisse de alterar-la posteriormente. Att, Fábio Thomaz Em 21 de abril de 2010 22:33, Marcos Douglas m...@delfire.net escreveu: 2010/4/21 Fábio Thomaz fabio_...@yahoo.com.br fabio_thz%40yahoo.com.br : Valeu Ricardo mas não deu certo não, agora quando eu coloco o componente na tela ele fica com a propriedade ecUpperCase como eu quero, mas quando executo o programa ele volta sua propriedade para ecNormal. Defina o valor da propriedade no construtor: constructor Create(AOwner: TComponent); Marcos Douglas [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit
Descobri uma coisa interessante agora, se eu colocar no Create para o componente receber ecUpperCase acontece o seguinte: Coloco o componente no form, mudo a propriedade CharCase para ecUpperCase, funciona perfeitamente; Coloco um outro componente no form, mudo a propriedade CharCase para ecLowerCase, funciona perfeitamente; Coloco um outro componente no form, mudo a propriedade CharCase para ecNormal, não fuciona, o componente comparta-se como se a propriedade fosse ecUpperCase que é a que informei no Create; Tudo isto quando executo o programa e tento digitar algo no Edit. Vai entender! Att, Fábio Thomaz Em 22 de abril de 2010 14:27, Marcos Douglas m...@delfire.net escreveu: 2010/4/22 Fábio Thomaz fabio_...@yahoo.com.br fabio_thz%40yahoo.com.br : Olá Marcos, Se eu definir a propriedade no Create do componente, esta sempre terá o valor que eu defini, mas terá casos que a propriedade deve ser ecNormal, como por exemplo em um campo que armazena senha, o que eu queria é apenas que a propriedade default fosse ecUpeerCase, mas que não me impedisse de alterar-la posteriormente. Mas o default é definir no Create! Se o campo for para senha, ou seja, se o usuário alterar qq propriedade no seu componente para dizer que o campo é para senha, nesta mesma rotina vc altera a propriedade para ecNormal. A diretiva default não tem nada a ver com valor default que a propriedade deve ter. Esta diretiva é para informar ao Delphi qual o valor padrão da propriedade mas isso tudo tem relação com o .DFM Veja mais sobre isso no help do Delphi, procurando por default e stored. Marcos Douglas [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit
Valeu Ricardo mas não deu certo não, agora quando eu coloco o componente na tela ele fica com a propriedade ecUpperCase como eu quero, mas quando executo o programa ele volta sua propriedade para ecNormal. Fábio Em 20 de abril de 2010 12:16, Ricardo Pascoal ricardo.pasc...@ig.com.brescreveu: Pelo que sei o CreateWnd, sobreescre o metodo contrutor Create da classe. Assim algumas propriedades só surtem efeito no momento da renderização do componente. -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Fábio Thomaz Enviada em: terça-feira, 20 de abril de 2010 10:34 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Valeu amigo, vou testar hoje a noite, mas só uma dúvida, o que faz este CreateWnd? Ele seta as propriedades default quando o componente é colocado no form? Att, Fábio Thomaz Em 19 de abril de 2010 23:35, Ricardo Pascoal ricardo.pasc...@ig.com.br ricardo.pascoal%40ig.com.brescreveu: Fabio, tenta fazer o seguinte... Logo depois da declaração do método create do componente, declare o método abaixo : procedure CreateWnd ; override ; em seguida coloque a implementação desse método como segue : procedure TSuaClasse.CreateWnd ; begin inherited ; Self.CharCase := ecUpperCase ; end; Obs : Não testei mas acredito que isso deva resolver...blz De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: segunda-feira, 19 de abril de 2010 23:09 Para: delphi-br Assunto: RE: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Prioridade: Alta A lista não aceita anexos nas msgs. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br From: fabio_...@yahoo.com.br fabio_thz%40yahoo.com.br fabio_thz% 40yahoo.com.br mailto: fabio_thz%40yahoo.com.br fabio_thz%2540yahoo.com.br Date: Mon, 19 Apr 2010 21:32:58 -0300 Subject: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Olá amigos do grupo, estou tendanto desenvolver um novo TEdit que já venha com algumas propriedades pessoais para desenvolvimento que eu defini, mas não consigo deixar a propriedade CharCase com o padrão ecUpperCase, mesmo definindo como default na propriedade, se eu colocar para que ele receba ecUpperCase no OnCreate do componente funciona, mas quando eu preciso que não tenha esta propriedade, fica complicado, eu coloco ecNormal e ele coloca no OnCreate o ecUpperCase, segue em anexo a unit com o componente. Desde já agradeço, Att, Fábio Thomaz __ O Internet Explorer 8 quer te ajudar a navegar seguro. Entre aqui para ler as dicas. http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit
Ops, foi mal, tá ai abaixo o componente: TEditTHZ = class(TLabeledEdit) private fOriginalColor: TColor; fRequired: Boolean; FCharCase: TEditCharCase; //Mascara FEditMask: TEditMask; FMaskBlank: Char; FMaxChars: Integer; FMaskSave: Boolean; FMaskState: TMaskedState; FCaretPos: Integer; FBtnDownX: Integer; FOldValue: string; FSettingCursor: Boolean; function DoInputChar(var NewChar: Char; MaskOffset: Integer): Boolean; function InputChar(var NewChar: Char; Offset: Integer): Boolean; function DeleteSelection(var Value: string; Offset: Integer; Len: Integer): Boolean; function InputString(var Value: string; const NewValue: string; Offset: Integer): Integer; function AddEditFormat(const Value: string; Active: Boolean): string; function RemoveEditFormat(const Value: string): string; function FindLiteralChar (MaskOffset: Integer; InChar: Char): Integer; function GetEditText: string; function GetMasked: Boolean; function GetText: TMaskedText; function GetMaxLength: Integer; function CharKeys(var CharCode: Char): Boolean; procedure SetEditText(const Value: string); procedure SetEditMask(const Value: TEditMask); procedure SetMaxLength(Value: Integer); procedure SetText(const Value: TMaskedText); reintroduce; procedure DeleteKeys(CharCode: Word); procedure HomeEndKeys(CharCode: Word; Shift: TShiftState); procedure CursorInc(CursorPos: Integer; Incr: Integer); procedure CursorDec(CursorPos: Integer); procedure ArrowKeys(CharCode: Word; Shift: TShiftState); procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN; procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP; procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS; procedure WMCut(var Message: TMessage); message WM_CUT; procedure WMPaste(var Message: TMessage); message WM_PASTE; procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED; procedure CMWantSpecialKey(var Message: TCMWantSpecialKey); message CM_WANTSPECIALKEY; procedure CMEnter(var Message: TCMEnter); message CM_ENTER; procedure CMExit (var Message: TCMExit); message CM_Exit; procedure SetCharCase(const Value: TEditCharCase); protected procedure ReformatText(const NewMask: string); procedure GetSel(var SelStart: Integer; var SelStop: Integer); procedure SetSel(SelStart: Integer; SelStop: Integer); procedure SetCursor(Pos: Integer); procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyUp(var Key: Word; Shift: TShiftState); override; procedure KeyPress(var Key: Char); override; function EditCanModify: Boolean; virtual; procedure Reset; virtual; function GetFirstEditChar: Integer; function GetLastEditChar: Integer; function GetNextEditChar(Offset: Integer): Integer; function GetPriorEditChar(Offset: Integer): Integer; function GetMaxChars: Integer; function Validate(const Value: string; var Pos: Integer): Boolean; virtual; procedure ValidateError; virtual; procedure CheckCursor; public constructor Create(AOwner: TComponent); override; procedure ValidateEdit; virtual; procedure Clear; override; function GetTextLen: Integer; reintroduce; property IsMasked: Boolean read GetMasked; property EditText: string read GetEditText write SetEditText; property Text: TMaskedText read GetText write SetText; published property Required: Boolean read fRequired write fRequired; property EditMask: TEditMask read FEditMask write SetEditMask; property MaskState: TMaskedState read FMaskState write FMaskState; property MaxLength: Integer read GetMaxLength write SetMaxLength default 0; *property CharCase: TEditCharCase read FCharCase write SetCharCase default ecUpperCase;* end; Em 19 de abril de 2010 23:08, Rubem Nascimento da Rocha djpardalro...@hotmail.com escreveu: A lista não aceita anexos nas msgs. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: fabio_...@yahoo.com.br fabio_thz%40yahoo.com.br Date: Mon, 19 Apr 2010 21:32:58 -0300 Subject: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Olá amigos do grupo, estou tendanto desenvolver um novo TEdit que já venha com algumas propriedades pessoais para desenvolvimento que eu defini, mas não consigo deixar a propriedade CharCase com o padrão ecUpperCase, mesmo definindo como default na propriedade, se eu colocar para que ele receba ecUpperCase no OnCreate do componente funciona, mas quando eu preciso que não tenha esta propriedade, fica complicado, eu coloco ecNormal e ele coloca no OnCreate o ecUpperCase, segue em anexo a unit com o componente. Desde já agradeço, Att, Fábio Thomaz __ O Internet Explorer 8 quer te ajudar a navegar seguro. Entre aqui
Re: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit
Valeu amigo, vou testar hoje a noite, mas só uma dúvida, o que faz este CreateWnd? Ele seta as propriedades default quando o componente é colocado no form? Att, Fábio Thomaz Em 19 de abril de 2010 23:35, Ricardo Pascoal ricardo.pasc...@ig.com.brescreveu: Fabio, tenta fazer o seguinte... Logo depois da declaração do método create do componente, declare o método abaixo : procedure CreateWnd ; override ; em seguida coloque a implementação desse método como segue : procedure TSuaClasse.CreateWnd ; begin inherited ; Self.CharCase := ecUpperCase ; end; Obs : Não testei mas acredito que isso deva resolver...blz De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: segunda-feira, 19 de abril de 2010 23:09 Para: delphi-br Assunto: RE: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Prioridade: Alta A lista não aceita anexos nas msgs. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br From: fabio_...@yahoo.com.br fabio_thz%40yahoo.com.br mailto: fabio_thz%40yahoo.com.br fabio_thz%2540yahoo.com.br Date: Mon, 19 Apr 2010 21:32:58 -0300 Subject: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Olá amigos do grupo, estou tendanto desenvolver um novo TEdit que já venha com algumas propriedades pessoais para desenvolvimento que eu defini, mas não consigo deixar a propriedade CharCase com o padrão ecUpperCase, mesmo definindo como default na propriedade, se eu colocar para que ele receba ecUpperCase no OnCreate do componente funciona, mas quando eu preciso que não tenha esta propriedade, fica complicado, eu coloco ecNormal e ele coloca no OnCreate o ecUpperCase, segue em anexo a unit com o componente. Desde já agradeço, Att, Fábio Thomaz __ O Internet Explorer 8 quer te ajudar a navegar seguro. Entre aqui para ler as dicas. http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Preciso de Ajuda para desenvolver um novo TEdit
Olá amigos do grupo, estou tendanto desenvolver um novo TEdit que já venha com algumas propriedades pessoais para desenvolvimento que eu defini, mas não consigo deixar a propriedade CharCase com o padrão ecUpperCase, mesmo definindo como default na propriedade, se eu colocar para que ele receba ecUpperCase no OnCreate do componente funciona, mas quando eu preciso que não tenha esta propriedade, fica complicado, eu coloco ecNormal e ele coloca no OnCreate o ecUpperCase, segue em anexo a unit com o componente. Desde já agradeço, Att, Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Intraweb - DBComboLookupComboBox
A propriedade KeyField está ligada? E a melhor forma que eu encontrei de tratar estes valores é comparando o ItemIndex com -1 (Nenhum item selecionado). Att, Fábio Thomaz Em 16 de março de 2010 14:01, Marcelo Moacir Florindo marceloflori...@gmail.com escreveu: Colegas, Eu tenho um dblookupcombobox, ligado a um dataset (list), porém só para listar os itens da tabela . Quando eu clicar eu quero pegar o valor selecionado, o valor está sempre vindo vázio, como eu posso fazer com que o campo código de um sql seja incluso no value de cada item do combo??? Obrigado a todos, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas] [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Gráficos com intraweb
Eu já fiz até com um TChart mesmo, só que gero ele, pego a imagem e apresento em um TIWImage, tipo assim: Gero o Gráfico normalmente, capturo a imagem: TIWImage(Image).Picture.Bitmap.Assign(TChart(Chart).TeeCreateBitmap(clWhite,Rect(0,0,TIWImage(Image).Width, TIWImage(Image).Height))); Abraços, Fábio Thomaz 2010/3/18 Marcelo Moacir Florindo marceloflori...@gmail.com Colegas, Alguém aí está usando gráficos no intraweb (TIWDynamicChart) ? Ou se possuirem algum exemplo Muito obrigado a todos, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas] [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Verificar se campo foi alterado
Existe a propriedade NewValue e OldValue do ClientDataSet, nunca usei mas talvez sirva para vc comparar se um é diferente do doutro ou coisa assim. Fábio Em 26 de fevereiro de 2010 12:40, Yahoo alss...@yahoo.com.br escreveu: Pessoal, eu consigo ver se um registro do clientdataset foi alterado através do método ClientDataset.ChangeCount. Mas eu gostaria de verificar se um campo específico do clientdataset foi alterado. É possível? [As partes desta mensagem que não continham texto foram removidas] [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Rave Reports - Como carregar imagem ?
Se o formato da imagem for bmp é só ligar o componente Bitmap (propriedades DataView e DataField) na sua conexão com o banco de dados. Fábio Em 23 de fevereiro de 2010 10:55, ottojrdelphi ott...@ymail.com escreveu: Bom dia pessoal Tenho imagem no SQLSERVER atraves do campo imagem varbinary(max). Como faço para imprimir esta imagem usando o RAVE REPORTS ? Deste já agradeço qualquer ajuda [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Tabela 1 left join (Tabela 2 inner join Tabela 3)
Os campos que pretende retornar são iguais? Mesmo que não existe uma forma de trazer tudo de uma vez com o comando UNION ALL, ex: SELECT T1.CAMPO1, T1.CAMPO2 FROM TABELA1 T1 UNION ALL SELECT T2.CAMPO1, T2.CAMPO2 FROM TABELA2 T2 Espero ter ajudado, Fábio 2009/12/11 Magnun Oliveira magnunolive...@gmail.com Bom dia galera ... estou precisando fazer o seguinte ... Trazer os dados de uma tabela, e fazer um left join com a juncao de duas tabelas ... ex: SELECT T1.* FROM TABELA_1 T1 left join (TABELA_2 T2 on T2.ID_T1 = T1.IDT1 inner join TABELA_3 T3 on T3.ID_T2 = T2.ID_T2) qual a forma correta de fazer isso ? [As partes desta mensagem que não continham texto foram removidas] [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] EAD usando libeay32 com delphi 2009
Olá amigos, estou tentando gerar uma assinatura digital com a biblioteca libeay32 mas a mesma não funciona com o delphi 2009, creio que seja algum problema com o unicode, mas já declarei os tipos de várias formas e a função sempre retorna erro. Compilei no delphi 7 e funciona blz. Obs.: Em anexo o exemplo que consegui no fórum forumweb.com.br, o mesmo foi feito por um amigo de lá que disponibilizou-o em http://code.google.com/p/infojob/downloads/list Desde já agradeço alguma ajuda. Para quem trabalha com delphi 7(acredito que até a versão 2007) e for implementar funções do PAF-ECF em seus aplicativos este post já serve como dica. Fábio. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: EAD usando libeay32 com delphi 2009
Há, esqueci de anexar os arquivos que manipulei, não sei se o fórum aceita anexos, mas vou testar agora. Fábio 2009/10/7 Fábio Thomaz fabio_...@yahoo.com.br Olá amigos, estou tentando gerar uma assinatura digital com a biblioteca libeay32 mas a mesma não funciona com o delphi 2009, creio que seja algum problema com o unicode, mas já declarei os tipos de várias formas e a função sempre retorna erro. Compilei no delphi 7 e funciona blz. Obs.: Em anexo o exemplo que consegui no fórum forumweb.com.br, o mesmo foi feito por um amigo de lá que disponibilizou-o em http://code.google.com/p/infojob/downloads/list Desde já agradeço alguma ajuda. Para quem trabalha com delphi 7(acredito que até a versão 2007) e for implementar funções do PAF-ECF em seus aplicativos este post já serve como dica. Fábio. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Unit UserSession - Intraweb
Você adicionou o ServerController na uses tbm? A instância do UserSession está dentro desta unit. Fábio 2009/9/30 Marcelo Moacir Florindo marceloflori...@gmail.com Colegas, Tenho a unit UserSessionUnit e lá tenho um componente de conexão. Por padrão, coloco sempre na mesma unit um clientdataset, provider e query para fazer consultas rapidas, porém ao tentar usar estes componentes em outros formulários, como abaixo: with UserSession do begin ele informa que esta unit não existe end; se eu tentar usar assim: with TUserSession do begin compila, porém não tenho acesso aos componentes no formulário. end; Então qual seria a melhor maneira de ter o clientdataset, provider e query para uso genérico?? (nos meus formulários de cadastros, já tenho a estrutura e funciona corretamente) Abraços e Obrigado, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [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] Re: Preciso de Driver específico pa ra Firebird 2 e Delphi 2009 !!
Na verdade este é o mesmo drive da HK-Software, o Thiago vendeu ele, este era gratuito, agora custa alguns euros, mas eu ainda o utilizo e não tenho problemas. Att, Fábio 2009/7/17 Jhosef Marks jho...@gmail.com http://www.tbosystems.bluehosting.com.br/dbx4/ Uso e para mim é 100% funcional http://www.tbosystems.bluehosting.com.br/dbx4/JM 2009/7/16 Fabiano Moura mctbra...@gmail.com mctbrasil%40gmail.com Existe um driver específico para Delphi 2007 e Delphi 2009 do fabricante HK-Software, o mesmo fabricante do IB Expert. Verifique no site do fabricante http://www.ibexpert.com/ Fabiano 2009/7/13 felipebbarbosa felipebbarb...@gmail.comfelipebbarbosa%40gmail.com felipebbarbosa%40gmail.com Bom dia Ricardo, Qual componente do Delphi você está utilizando para criar a conexão com o banco Firebird? Porque eu tive um problema parecido, e resolvi utilizando o DBExpress nativo do Delphi, e mudei o VendorLib do SQLConnection de GDS32.dll para fbclient.dll e copio as seguintes dlls junto: fbclient.dll dbxint.dll e talvez o midas.dll Abraços, espero ter ajudado! Felipe Barbosa --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br, Ricardo rlginformat...@... escreveu Fui no 6º Firebird Developers Day e um representante da Code Gear Delphi estava dando palestra, dentre várias novidades que estão por vir nas novas versões do Delphi (programação Touchscreen , programação voltada a 64 bits ), uma delas será o driver específico nativo do firebird para o Delphi ! Como estou tendo problemas em não conseguir instalar um programa feito em Delphi 2009 e Firebird 2.1 utilizando o driver do Interbase em uma máquina cliente sem ter o Delphi instalado .. Me resta testar o driver específico. -- -- ALGUÉM TERIA UM LINK PARA ME PASSAR .. PARA BAIXAR UM DRIVER EXTERNO DO FIREBIRD PARA O DELPHI ??? (GRATUITO!!) -- -- Só relembrando ... A Máquina cliente não teve o Delphi instalado nem desinstalado! Porque se ela já teve o Delphi.. o programa funciona !! .. Se alguém for testar, a máquina tem que estar virgem digamos assim.. Já coloquei todas as DLLs junto com o executável e não funciona !! dbxint.dll GDS32.DLL midas.dll FBCLIENT.DLL Já baixei programa para monitorar DLLs e as DLLs q ele aponta são as mesmas colocadas ... Se alguém quiser testar.. a Embarcadero (Code Gear Delphi ) disponibiliza o Delphi 2009 gratuitamente (TRIAL) : http://www.codegear.com/downloads/free/delphi e o FIREBIRD pode ser baixado em: http://sourceforge.net/projects/firebird/files/firebird-win32/Firebird-2.1.2 .18118_0_Win32.exe/download Alguém que utiliza o Delphi 2009 e já passou por esse problema ?? Abraço a todos Bom Final de Semana !! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- _ Jhosef Marks de Carvalho Delphi Developer Linux User: #491431 Ubuntu User: #27705 Blog: http://www.jhosefmarks.com.br Empresa: http://www.cdfsoftwares.com.br Lista: http://groups.google.com/group/soumaisdelphi # CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. # Sent from Joinville, SC, Brazil [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] Problemas: Intraweb + Rave + pdf
Servidor de relatórios? Eu nunca trabalhei assim. Eu teria que adquirir uma outra versão do rave? Alguma versão server? Existe algum artigo explicando como isto irá funcionar? 2009/6/17 Bruno Lichot bruno.lic...@borland.com este erro deve estar ocorrendo pelo tipo de instancia do rave. a melhor forma de resolver isso é criar um servidor de relatório com datasnap. alem de sua aplicação ficar mais rápida..sera melhor de dar manutencao, mais segura, mais facil de distribuir e evluir/reutilizar From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Fábio Thomaz Sent: terça-feira, 16 de junho de 2009 15:15 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Problemas: Intraweb + Rave + pdf Olá amigos, estou desenvolvendo um módulo de matrículas OnLine no intraweb, depois de tudo feito, funcionando certinho, passei para os testes finais e verifiquei que o arquivo pdf gerado no rave (Ficha de Matrícula, Boleto, etc ...) saem com os dados de uma outra pessoa quando este processo de inscrição é feito simultaneamente, alguém teria uma dica para que isto não acontece-se? A classe TIWUserSessionBase é única para cada usuário não é? Veja um exemplo: //Função que rega o arquivo pdf e retorna o link do mesmo function TUserSession.ImprimeFichaMatricula(Matricula, Curso, Ano: Integer): string; var Arquivo : string; vcdsIMat: TClientDataSet; rvProject: TRvProject; rvPDF: TRvRenderPDF; rvSystem: TRvSystem; begin rvProject := TRvProject.Create(Self); rvProject.Name := 'rvFichaMatricula'; rvPDF := TRvRenderPDF.Create(Self); rvSystem := TRvSystem.Create(Self); try rvProject.Engine := rvSystem; rvProject.Close; cdsFichaMatricula.Close; cdsFichaMatricula.Params[0].Value := Matricula; cdsFichaMatricula.Open; if cdsFichaMatricula.RecordCount = 1 then begin Arquivo := 'FichaMatricula' + WebApplication.AppID + '.pdf'; rvProject.ProjectFile := gsAppPath + 'Files\FichaMatricula.rav'; rvProject.Open; vcdsIMat := TClientDataSet.Create(Self); vcdsIMat.Name := 'vcdsIMat'; try vcdsIMat.Data := Consulta('SELECT C.CSI_NOMCUR, P.CSI_DATA, P.CSI_INSCRICAO '+ 'FROM TSI_PREMATRICULA P '+ 'INNER JOIN TSI_CADCUR C ON (C.CSI_CODCUR = P.CSI_CODCUR) '+ 'WHERE P.CSI_CODESC = '+vgCodEscola+ 'AND P.CSI_ANOLET = '+IntToStr(Ano)+ 'AND P.CSI_MATALU = '+IntToStr(Matricula)+ 'AND P.CSI_CODCUR = '+IntToStr(Curso)); with rvProject do begin SetParam('Curso',vcdsIMat.Fields[0].AsString); SetParam('Inscricao',vcdsIMat.Fields[2].AsString); SetParam('DataMat',vcdsIMat.Fields[1].AsString); end; with rvSystem do begin SystemSetups := []; DefaultDest := rdFile; DoNativeOutput:= False; RenderObject:= rvPDF; OutputFileName:= gsAppPath + 'Files\'+ Arquivo; end; rvProject.Execute; finally rvProject.Close; vcdsIMat.Free; end; Result := 'window.open('+WebApplication.Request.URL+'/files/'+Arquivo+', ,);'; end else begin Result := 'window.open(Files/FichaNaoEncontrada.html, ,);'; end; finally rvProject.Free; rvPDF.Free; rvSystem.Free; end; end; //Procedimento que mostra a ficha procedure TF0InfPreMatricula.iwlnkFichaMatriculaClick(Sender: TObject); var Matricula, Curso: Integer; begin with UserSession do begin Matricula := StrToInt(Parametros[0]); Curso := StrToInt(Parametros[2]); AddToInitProc(ImprimeFichaMatricula(Matricula,Curso,vgAnoLetivo)); end; end; Aparentemente, pelos testes que fiz, parece que as informações ficam armazenadas no servidor, quando outro usuário chama o mesmo procedimento ele apenas cria outro arquivo com as mesmas informações obtidas antes, estranho é que eu crio e destruo os componentes em tempo de execução e mesmo assim o problema persiste. Qualquer ajuda é bem vinda! Desde já agradeço. Fábio Thomaz. [As partes desta mensagem que não continham texto foram removidas] [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] Problemas: Intraweb + Rave + pdf
Valeu Bruno, vou implementar e testar. 2009/6/18 Bruno Lichot bruno.lic...@borland.com crie um servidor datasnap, e cada método remoto executa e cria um relatório em PDF ou HTML, ou qq outro tipo suportado pelo rave. desta forma vc não terá problema de execução do rave pelo iw. abs BL From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Fábio Thomaz Sent: quinta-feira, 18 de junho de 2009 08:52 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Problemas: Intraweb + Rave + pdf Servidor de relatórios? Eu nunca trabalhei assim. Eu teria que adquirir uma outra versão do rave? Alguma versão server? Existe algum artigo explicando como isto irá funcionar? 2009/6/17 Bruno Lichot bruno.lic...@borland.combruno.lichot%40borland.com mailto:bruno.lichot%40borland.com bruno.lichot%2540borland.com este erro deve estar ocorrendo pelo tipo de instancia do rave. a melhor forma de resolver isso é criar um servidor de relatório com datasnap. alem de sua aplicação ficar mais rápida..sera melhor de dar manutencao, mais segura, mais facil de distribuir e evluir/reutilizar From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Fábio Thomaz Sent: terça-feira, 16 de junho de 2009 15:15 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Problemas: Intraweb + Rave + pdf Olá amigos, estou desenvolvendo um módulo de matrículas OnLine no intraweb, depois de tudo feito, funcionando certinho, passei para os testes finais e verifiquei que o arquivo pdf gerado no rave (Ficha de Matrícula, Boleto, etc ...) saem com os dados de uma outra pessoa quando este processo de inscrição é feito simultaneamente, alguém teria uma dica para que isto não acontece-se? A classe TIWUserSessionBase é única para cada usuário não é? Veja um exemplo: //Função que rega o arquivo pdf e retorna o link do mesmo function TUserSession.ImprimeFichaMatricula(Matricula, Curso, Ano: Integer): string; var Arquivo : string; vcdsIMat: TClientDataSet; rvProject: TRvProject; rvPDF: TRvRenderPDF; rvSystem: TRvSystem; begin rvProject := TRvProject.Create(Self); rvProject.Name := 'rvFichaMatricula'; rvPDF := TRvRenderPDF.Create(Self); rvSystem := TRvSystem.Create(Self); try rvProject.Engine := rvSystem; rvProject.Close; cdsFichaMatricula.Close; cdsFichaMatricula.Params[0].Value := Matricula; cdsFichaMatricula.Open; if cdsFichaMatricula.RecordCount = 1 then begin Arquivo := 'FichaMatricula' + WebApplication.AppID + '.pdf'; rvProject.ProjectFile := gsAppPath + 'Files\FichaMatricula.rav'; rvProject.Open; vcdsIMat := TClientDataSet.Create(Self); vcdsIMat.Name := 'vcdsIMat'; try vcdsIMat.Data := Consulta('SELECT C.CSI_NOMCUR, P.CSI_DATA, P.CSI_INSCRICAO '+ 'FROM TSI_PREMATRICULA P '+ 'INNER JOIN TSI_CADCUR C ON (C.CSI_CODCUR = P.CSI_CODCUR) '+ 'WHERE P.CSI_CODESC = '+vgCodEscola+ 'AND P.CSI_ANOLET = '+IntToStr(Ano)+ 'AND P.CSI_MATALU = '+IntToStr(Matricula)+ 'AND P.CSI_CODCUR = '+IntToStr(Curso)); with rvProject do begin SetParam('Curso',vcdsIMat.Fields[0].AsString); SetParam('Inscricao',vcdsIMat.Fields[2].AsString); SetParam('DataMat',vcdsIMat.Fields[1].AsString); end; with rvSystem do begin SystemSetups := []; DefaultDest := rdFile; DoNativeOutput:= False; RenderObject:= rvPDF; OutputFileName:= gsAppPath + 'Files\'+ Arquivo; end; rvProject.Execute; finally rvProject.Close; vcdsIMat.Free; end; Result := 'window.open('+WebApplication.Request.URL+'/files/'+Arquivo+', ,);'; end else begin Result := 'window.open(Files/FichaNaoEncontrada.html, ,);'; end; finally rvProject.Free; rvPDF.Free; rvSystem.Free; end; end; //Procedimento que mostra a ficha procedure TF0InfPreMatricula.iwlnkFichaMatriculaClick(Sender: TObject); var Matricula, Curso: Integer; begin with UserSession do begin Matricula := StrToInt(Parametros[0]); Curso := StrToInt(Parametros[2]); AddToInitProc(ImprimeFichaMatricula(Matricula,Curso,vgAnoLetivo)); end; end; Aparentemente, pelos testes que fiz, parece que as informações ficam armazenadas no servidor, quando outro usuário chama o mesmo procedimento ele apenas cria outro arquivo com as mesmas informações obtidas antes, estranho é que eu crio e destruo os componentes em tempo de execução e mesmo assim o problema persiste. Qualquer
[delphi-br] Problemas: Intraweb + Rave + pdf
Olá amigos, estou desenvolvendo um módulo de matrículas OnLine no intraweb, depois de tudo feito, funcionando certinho, passei para os testes finais e verifiquei que o arquivo pdf gerado no rave (Ficha de Matrícula, Boleto, etc ...) saem com os dados de uma outra pessoa quando este processo de inscrição é feito simultaneamente, alguém teria uma dica para que isto não acontece-se? A classe TIWUserSessionBase é única para cada usuário não é? Veja um exemplo: //Função que rega o arquivo pdf e retorna o link do mesmo function TUserSession.ImprimeFichaMatricula(Matricula, Curso, Ano: Integer): string; var Arquivo : string; vcdsIMat: TClientDataSet; rvProject: TRvProject; rvPDF: TRvRenderPDF; rvSystem: TRvSystem; begin rvProject := TRvProject.Create(Self); rvProject.Name := 'rvFichaMatricula'; rvPDF := TRvRenderPDF.Create(Self); rvSystem := TRvSystem.Create(Self); try rvProject.Engine := rvSystem; rvProject.Close; cdsFichaMatricula.Close; cdsFichaMatricula.Params[0].Value := Matricula; cdsFichaMatricula.Open; if cdsFichaMatricula.RecordCount = 1 then begin Arquivo := 'FichaMatricula' + WebApplication.AppID + '.pdf'; rvProject.ProjectFile := gsAppPath + 'Files\FichaMatricula.rav'; rvProject.Open; vcdsIMat := TClientDataSet.Create(Self); vcdsIMat.Name := 'vcdsIMat'; try vcdsIMat.Data := Consulta('SELECT C.CSI_NOMCUR, P.CSI_DATA, P.CSI_INSCRICAO '+ 'FROM TSI_PREMATRICULA P '+ 'INNER JOIN TSI_CADCUR C ON (C.CSI_CODCUR = P.CSI_CODCUR) '+ 'WHERE P.CSI_CODESC = '+vgCodEscola+ 'AND P.CSI_ANOLET = '+IntToStr(Ano)+ 'AND P.CSI_MATALU = '+IntToStr(Matricula)+ 'AND P.CSI_CODCUR = '+IntToStr(Curso)); with rvProject do begin SetParam('Curso',vcdsIMat.Fields[0].AsString); SetParam('Inscricao',vcdsIMat.Fields[2].AsString); SetParam('DataMat',vcdsIMat.Fields[1].AsString); end; with rvSystem do begin SystemSetups := []; DefaultDest := rdFile; DoNativeOutput:= False; RenderObject:= rvPDF; OutputFileName:= gsAppPath + 'Files\'+ Arquivo; end; rvProject.Execute; finally rvProject.Close; vcdsIMat.Free; end; Result := 'window.open('+WebApplication.Request.URL+'/files/'+Arquivo+', ,);'; end else begin Result := 'window.open(Files/FichaNaoEncontrada.html, ,);'; end; finally rvProject.Free; rvPDF.Free; rvSystem.Free; end; end; //Procedimento que mostra a ficha procedure TF0InfPreMatricula.iwlnkFichaMatriculaClick(Sender: TObject); var Matricula, Curso: Integer; begin with UserSession do begin Matricula := StrToInt(Parametros[0]); Curso := StrToInt(Parametros[2]); AddToInitProc(ImprimeFichaMatricula(Matricula,Curso,vgAnoLetivo)); end; end; Aparentemente, pelos testes que fiz, parece que as informações ficam armazenadas no servidor, quando outro usuário chama o mesmo procedimento ele apenas cria outro arquivo com as mesmas informações obtidas antes, estranho é que eu crio e destruo os componentes em tempo de execução e mesmo assim o problema persiste. Qualquer ajuda é bem vinda! Desde já agradeço. Fábio Thomaz. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Intraweb e Apache
Alguém sabe me dizer se nas versões mais recentes do delphi tem como eu rodar o Intraweb no apache? Pois quando peço uma aplicação ele não me dá opção para mim escolher o servidor de aplicação apache como no delphi 7. Se sim, como fazer? Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Intraweb e Apache
Valeu, obrigado pelo parecer. 2009/6/9 Jackson Gomes - ToolsComps jack...@toolsandcomps.com Alguém sabe me dizer se nas versões mais recentes do delphi tem como eu rodar o Intraweb no apache? Não tem como. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: jack...@toolsandcomps.com jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br devh...@devhost.com.br devhost%40devhost.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Windows MediaPlayer em panel ??
Alessandra, Se utilizar o Delphi 2005 ou superior vá em component - Import Component selecione a opção Import ActiveX Control, selecione Windows Media Player e por ai vai, nunca usei este tipo de objeto mas sei que é por ai. No delphi 7 é no menu Component - Import ActiveX Control. 2009/5/24 alessandra porto alessandraport...@yahoo.com.br fabio pode ate ser o ''pro'' é que eu en tenho ideia de como fazer isso --- Em dom, 24/5/09, Fabio Thomaz fabio_...@yahoo.com.brfabio_thz%40yahoo.com.br escreveu: De: Fabio Thomaz fabio_...@yahoo.com.br fabio_thz%40yahoo.com.br Assunto: Re: [delphi-br] Windows MediaPlayer em panel ?? Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Domingo, 24 de Maio de 2009, 19:18 Será que não foi um controle ActiveX importado? 2009/5/24 alessandra porto alessandraporto11@ yahoo.com. br Vi em uma aplicação o uso do Windows MediaPlayer wm um panel é o proprio aplicativo do windows não o componente mediaplayer do delphi Alguem sabe dizer como isso é feito? E o legal da coisa é que o windowsmediaplayer já entra abrindo seu arquivo media.avi de sua aplicação. obs:o aplicativo fica somente dentro do panel. Alguem pode dar uma dica de como fazer isso? Abraços a todos. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Windows MediaPlayer em panel ??
Será que não foi um controle ActiveX importado? 2009/5/24 alessandra porto alessandraport...@yahoo.com.br Vi em uma aplicação o uso do Windows MediaPlayer wm um panel é o proprio aplicativo do windowsnão o componente mediaplayer do delphi Alguem sabe dizer como isso é feito? E o legal da coisa é que o windowsmediaplayer já entra abrindo seu arquivo media.avi de sua aplicação. obs:o aplicativo fica somente dentro do panel. Alguem pode dar uma dica de como fazer isso? Abraços a todos. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Firebird no Vista
Já tentou instalar a versão mais recente do firebird? 2009/5/20 Vinicius da Silva Pinto vinic...@cnen.gov.br Amigos, preciso de uma dica, já procurei nas mensagens antigas da lista e no google, mais não consegui achar uma solução. instalei o FireBird 2.0 no laptop que esta com Vista Home. A instalação foi concluida, depois instalei o IBExpert trial que baixei da HKsoftware. Quando vou criar um banco novo, estou recebendo a seguinte mensagem: unsuccessful execution caused by an unavailable resource. unavailable database. Já desinstalei, desmarqui a opção que altera a GDS32.DLL e sempre o mesmo erro. Alguem tem alguma dica a ser usada na hora da instalação? Tenho que fazer algo diferente?? Obrigado a quem puder colaborar comigo.. Vinicius -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Atualizar IWDBLookupComboBox ao selecionar outro IWDBLookupComboBox
Olá amigos, Estou dando uma futucada no IntraWeb e não estou conseguindo fazer com que um componente IWDBLookupComboBox seja atualizado quando eu seleciono outro IWDBLookupComboBox, sendo que este, ao mudar de registro refaz uma consulta no dataset ligado no primeiro, Ex: iwdblcbTurmas - Está ligado do ClientDataSet cdsTurmas, que recebe os valores no IWAppFormCreate, ai tudo bem; iwdblcbDisciplinas - Está ligado do ClientDataSet cdsDisciplinas, que recebe os valores no onChange do iwdblcbTurmas, sendo que o ClientDataSet é preenchido mas o iwdblcbDisciplinas não é atualizado com os dados da consulta. Gostaria de saber se existe algum evento que dê um Refresh neste segundo componente para que as informações sejam exibidas. Desde já agradeço. Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Imagens JPEG no Rave
Ainda não havia pensado nisto, é uma idéia, mas mesmo assim deverei converter a jpeg para bmp quando gerar o relatório, pois o componente do rave não aceita o jpeg. 2009/5/8 jpsleao jpsl...@hotmail.com Vc já pensou em fazer esse relatório via código no delphi??? O relatório ficaria mais rápido (não precisa do arquivo .rav) e vc resolveria facilmente esse problema. João Paulo --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Fabio Thomaz fabio_...@... escreveu Já pensei nisto, mas em determinadas situações terei vários registros com imagens, e ai o processo de conversão deixará o aplicativo um pouco lento, sem dizer que em alguns testes que fiz ocorreram alguns erros ao exibir a imagem no rave depois de convertida. 2009/5/7 berdam berdamzi...@... pq q vc n tenta converter de jpeg para bmp e jogar no rave?? Fabio Thomaz escreveu: Olá amigos, Tenho um banco de dados de fotos, hoje em bmp devido o Rave não suportar jpeg, estou fazendo um outro sistema onde o banco de dados vai estar disponível para máquinas na internet, ai veio a necessidade de fazer com que este seja bem rápido, e para isto preciso gravar as imagens no banco como jpeg, mas o gerenciador de relatórios não tem suporte a este formato, alguém sabe se existe algum componente que eu possa instalar no rave para suportar este formato? Vi em uns fóruns que existe, mas não consegui acessar o local do componente no site da nevrona, o link estava corrompido. Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas] -- - Uberdam Cavaletti Formado em Tecnologia da informação - Unoesc - Xxe Pós graduado em Desenvolvimento Java - Unoesc - Xxe Acesse http://www.curricular.com.br/berdam Acesse http://passandoveneno.blogspot.com - -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@... [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi2009 + Interbase Driver ? Firebird
Olá amigos, só para lembrar, este driver não continuará free, ele agora é comercializado pela IBExpert. Fonte: http://groups.google.com.br/group/tbodbxfb/browse_thread/thread/7e5a62f70736d725?hl=pt-BR Esta dll que usamos agora é este produto: http://ibexpert.net/ibe/index.php?n=Main.IBExpertDBX4Firebird 2009/5/11 Paulo Coutinho pa...@prsolucoes.com Obrigado galera pelas respostas. O endereço para baixar o driver do Thiago é: http://www.tbosystems.bluehosting.com.br/dbx4/ ?? Aqui não estou conseguindo acessar. 2009/5/11 Rubens Antunes rubensantu...@yahoo.com.brrubensantunes%40yahoo.com.br Paulo Eu estou utilizando o Drive do Interbase mesmo, mas utilizando a dll do Delphi 7, tem funcionado numa boa, o problema do campo Blob acabou. Sucesso Rubens Antunes Autor do Livro - Delphi Faça Uma Aplicação Comercial Blog http://rubensantunes.zip.net/ --- Em seg, 11/5/09, Bruno Lichot bruno.lic...@borland.combruno.lichot%40borland.com bruno.lichot%40borland.com escreveu: De: Bruno Lichot bruno.lic...@borland.com bruno.lichot%40borland.combruno.lichot% 40borland.com Assunto: RE: [delphi-br] Delphi2009 + Interbase Driver ? Firebird Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Data: Segunda-feira, 11 de Maio de 2009, 12:32 Salve Paulo, Existe o problema do driver ser do InterBase e não do FireBird, e como muita coisa foi mexida na API do FireBird pela sua equipe, a compatibilidade que existia do FireBird com o InterBase muito se perdeu e podem existir erros sim. Recomendo a voce utilizar um driver especifico como o do Thiago Borges que é gratuito ou o da corelab. Este driver do Thiago eu estou utilizando no site do DUG-SP - www.dug-sp.com Abs BL From: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] On Behalf Of Paulo Coutinho Sent: segunda-feira, 11 de maio de 2009 08:02 To: delphi...@yahoogrup os.com.br Subject: [delphi-br] Delphi2009 + Interbase Driver ? Firebird Olá galera, Estou utilziando o Delphi 2009 com dbExpress com o driver 'Interbase' para acessar minha base de dados firebird. Gostaria de saber se existe algum problema em relação a isso, em questão de performance, segurança, estabilidade e assuntos relacionados. -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes. com/blog Site: www.prsolucoes. com Msn: pa...@prsolucoes. com mailto:paulo% paulo%25 paulo%25 40prsolucoes. com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Imagens JPEG no Rave
O problema não é este, é que o componente de imagem do rave só aceita imagens bmp. Deveria existir um outro para o formato jpeg. 2009/5/7 Marcio F. Cruz fo...@marciofcruz.com tente adicionar no uses do formulário a unit jpeg 2009/5/7 berdam berdamzi...@yahoo.com.br berdamzinho%40yahoo.com.br pq q vc n tenta converter de jpeg para bmp e jogar no rave?? Fabio Thomaz escreveu: Olá amigos, Tenho um banco de dados de fotos, hoje em bmp devido o Rave não suportar jpeg, estou fazendo um outro sistema onde o banco de dados vai estar disponível para máquinas na internet, ai veio a necessidade de fazer com que este seja bem rápido, e para isto preciso gravar as imagens no banco como jpeg, mas o gerenciador de relatórios não tem suporte a este formato, alguém sabe se existe algum componente que eu possa instalar no rave para suportar este formato? Vi em uns fóruns que existe, mas não consegui acessar o local do componente no site da nevrona, o link estava corrompido. Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas] -- - Uberdam Cavaletti Formado em Tecnologia da informação - Unoesc - Xxe Pós graduado em Desenvolvimento Java - Unoesc - Xxe Acesse http://www.curricular.com.br/berdam Acesse http://passandoveneno.blogspot.com - -- Márcio F. Cruz [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Imagens JPEG no Rave
Olá amigos, Tenho um banco de dados de fotos, hoje em bmp devido o Rave não suportar jpeg, estou fazendo um outro sistema onde o banco de dados vai estar disponível para máquinas na internet, ai veio a necessidade de fazer com que este seja bem rápido, e para isto preciso gravar as imagens no banco como jpeg, mas o gerenciador de relatórios não tem suporte a este formato, alguém sabe se existe algum componente que eu possa instalar no rave para suportar este formato? Vi em uns fóruns que existe, mas não consegui acessar o local do componente no site da nevrona, o link estava corrompido. Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Class TQRLabel not found ???
Creio que são componentes do Quickreport (http://www.qusoft.com). 2009/4/26 nillgolv nillg...@bol.com.br Pessoal, ao tentar abrir o form de um fonte da o seguinte: ERROR Reading Form -- Class TQRLabel not found. Faltando estes componentes tambem: TQRSysData TQRImage TQRDBText Uso delphi 7, onde encontro estes componentes? -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com Rave Reports
Não seria apenas informar a propriedade ControllerBand do Band Component não? 2009/4/24 ott...@ymail.com ott...@ymail.com Bom dia Alguém sabe qual propriedade do databand do Rave Reports que não permite a impressão do databand mestre se o seu detalhe não tiver nenhum registro? Deste já agradeço qualquer ajuda. -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Rave Reports - Geração de etiqueta s
Tânia, Por um acaso vc sabe se tem como estar gerando estas etiquetas via código com código de barras? O exemplo que vem com o Rave da pasta Demos mostra como gerar as etiquetas, mas não sei se tem como incluir o código de barras. Ou talvez exista até uma outra forma de se fazer isto, gostaria que fosse via código pois assim ficaria mais fácil customizar. 2009/2/19 Tânia Salgado tanias...@yahoo.com.br Oi Natanael, estou enviando dois exemplos de etiqueta q tenho aqui.. havia baixado qdo estava aprendendo a fazer relatório no rave.. o RaveLabels é com rave só por código, o RaveBarCod2 é etiqueta com código de barras com arquivo. Tânia --- Em qui, 19/2/09, Natanael Rodrigues nr.n...@gmail.comnr.news%40gmail.com escreveu: De: Natanael Rodrigues nr.n...@gmail.com nr.news%40gmail.com Assunto: [delphi-br] Rave Reports - Geração de etiquetas Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Quinta-feira, 19 de Fevereiro de 2009, 11:24 Bom dia pessoal, Estou começando a mexer com o Rave agora, demorei, mas consegui me livrar da era Crystal Reports. Minha dúvida é quanto a gerar etiquetas pelo rave, alguem tem algum tutorial ou consegui me dar um help nesse sentido, já procurei no tio Google, mas sem sucesso. Meu formulário terá 5 colunas de etiquetas... como fazer isso? Grato pela ajuda. Natanael. [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo XML
Ainda não estou conseguindo, veja como estou fazendo: //Carrego XML Anterior cds1.LoadFromFile('Origem.xml'); cds1.Close; //Adiciono o Campo Desejado cds1.FieldDefs.Add('NovoCampo',ftString,10,False); cds1.FieldDefs.Update; cds1.CreateDataSet; //Salvo o XML cds1.SaveToFile('Destino.xml',dfXML); //Depois Carrego o Novo XML cds1.LoadFromFile('Destino.xml'); O que estou fazendo de errado? O XML de destino continua igual o de origem. Fábio Thomaz RG System Informática Ltda - Desenvolvimento Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Arquivo XML
Olá amigos, Tenho um arquivo XML com vários registros, gostaria de saber se alguém sabe como fazer para que eu possa adicionar mais um Field dentro deste arquivo. Já tentei cds.FieldDefs.Add('NomeCampo',ftString,10,False) e depois cds.SaveToFile('',dfXML) más o campo não é incluso no arquivo xml, alguma idéia? Ex.: cds1.FieldDefs.Add('Campo',ftString,10,False); cds1.FieldDefs.Update; cds1.SaveToFile('NovaTabela.xml',dfXML); Desde já agradeço. -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema de Gestão Escolar
Trabalho com um sistema escolar! Sistema já implantado em diversas escolas municipais, estaduais e particulares, controla mais de uma escola, tem toda a parte financeira, inclusive uma ótima área gerencial tanto financeira como pedagógica, entre em contato em PVT que te passo mais informações. 2009/1/5 gilberto_rr gilberto...@yahoo.com.br Alguém possui um Sistema de Gestão Escolar concluído e disponível para comercialização? O Sistema deve possuir ao menos os seguintes módulos: matrícula, rematrícula, transferência, montagem de turmas, controle de notas e situação do aluno, boletim, histórico escolar, contas a pagar/receber (em aberto, vencidas, pagas), mensalidades (em aberto, vencidas, pagas). Aguardo contatos, obrigado! -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pegar um pedaço de um arquivo stream em um servidor FTP
Valeu André, vou dar uma pesquisada, creio que isto já vai me ajudar. 2008/9/22 Andre Luis [EMAIL PROTECTED] Procura na clubedelphi que tem um artigo sobre isso, como atualizar um executável pegando somente a parte que foi alterada. Teve inclusive uma palestra na Borcon do ano passado sobre isso. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pegar um pedaço de um arquivo stream em um servidor FTP
Verifica ai e me fala, depois que tudo aqui estiver certo posso até te mostrar ele, se for o que vc quiser eu te passo os fontes. 2008/9/23 André Yahoo [EMAIL PROTECTED] Vou verificar em casa qual revista saiu esse artigo, não lembro bem se foi na clubedelphi ou na activedelphi. Mas vou tentar achar e te passar o exemplo que tem . Também estou precisando usar isso nos projetos da empresa aqui. [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Pegar um pedaço de um arquivo stream em um servidor FTP
Olá amigos, estava querendo montar um sistema para fazer a atualização de meus sistemas, e eu queria que a versão do arquivo fosse escrita no prório arquivo, pois nem todos arquivos do sistema tem versão (arquivos .rav por exemplo), e estes tbm estarão compactados, mas para não baixar todo o arquivo eu gostaria de baixar apenas a parte que tem a versão gravada para comparar, que no caso seria as ultimas 20 posições do arquivo, ou as 20 primeiras tanto faz, alguém tem alguma dica? Desde já agradeço. Opção que tentei e não deu certo: ASize := idftp.Size(Arquivo); Stream.Position := ASize - 20; idftp.Get(Arquivo,Stream,True); Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pegar um pedaço de um arquivo stream em um servidor FTP
Olá Eduardo, valeu por responder, já trabalho desta forma com um arquivo ini, mas acho que fica mais interessante gravar estas informações no próprio arquivo, fica mais prático caso tenha como fazer isto né, eu já estou compactando e gerando a versão no arquivo, só falta conseguir pegar só a versão do arquivo no ftp. Mas verdade não é só isto, queria entender melhor como capturar partes de arquivos no servidor para que eu possa fazer com que minha aplicação possa baixar o arquivo por partes e montar ele depois, como um gerenciador de downloads, e assim que estivesse pronto iria avisar o usuário que existe uma atualização e perguntar sede seja atualizar. 2008/9/22 Eduardo Silva dos Santos [EMAIL PROTECTED] Olá Fávio, é muito mais simples você colocar um txt no seu ftp contendo a versão do software, baixa o txt abre e compara o conteúdo com a versão em uso no cliente, rápido e rasteiro. 2008/9/22 Fabio Thomaz [EMAIL PROTECTED] fabio_thz%40yahoo.com.br Olá amigos, estava querendo montar um sistema para fazer a atualização de meus sistemas, e eu queria que a versão do arquivo fosse escrita no prório arquivo, pois nem todos arquivos do sistema tem versão (arquivos .rav por exemplo), e estes tbm estarão compactados, mas para não baixar todo o arquivo eu gostaria de baixar apenas a parte que tem a versão gravada para comparar, que no caso seria as ultimas 20 posições do arquivo, ou as 20 primeiras tanto faz, alguém tem alguma dica? Desde já agradeço. Opção que tentei e não deu certo: ASize := idftp.Size(Arquivo); Stream.Position := ASize - 20; idftp.Get(Arquivo,Stream,True); Fábio Thomaz _,_._,___ -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criptografar Executável
A intensão não é esta, é que eu só queria fazer com que minguem pudesse ver o conteúdo(strings, mensagens) do meu aplicativo, pois eu bolei um sistema simples de proteção, uma verificação ao inicializar o sistema, onde existe uma função que faz uma checagem, se for true libera senão fecha o sistema e mostra a mensagem de acesso negado, sistema não registrado. A muito tempo atrás estava vendo um artigo de uns caras que usavam umas ferramentas para alterar o exe, achavam a mensagem de erro de licença, trocava o je pelo jne, istro fazia com que o sistema entendesse o contrário na condição, e ai pronto, era só digitar o código errado que liberava o sistema, é claro que isto é apenas um exemplo, no meu caso isto não funcionaria. Não estou muito preocupado com isto pois só comercializo meus softwares aqui na região, mas se alguém soubesse de algo fácil de usar não custava nada né. 2008/8/18 Walter Chagas Jr (BOL) [EMAIL PROTECTED] Isso é bobagem. Se for para proteger seu exe contra descompiladores, não precisa se preocupar com isto porque o Delphi gera executável nativo x86 de forma que o que há em seu interior é código puro de maquina. Nem o algorítmo está nele. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: [EMAIL PROTECTED] whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Fabio Thomaz [EMAIL PROTECTED] fabio_thz%40yahoo.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, August 14, 2008 4:11 PM Subject: [delphi-br] Criptografar Executável Alguém conhece algum programa para criptografar um executável? Conheço o HandProt, mas queria uma coisa mais fácil, só para criptografar mesmo, e de preferência free (caso exista). Fábio Thomaz RG System Informática Ltda - Desenvolvimento Msn: [EMAIL PROTECTED] fabio%40rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do ESET NOD32 Antivirus, versão da vacina 3356 (20080814) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Rave pela aplicação ajuda
Caro colega, não sei se é isto que vc está querendo mas dê uma olhada nesta matéria: http://www.devmedia.com.br/articles/viewcomp.asp?comp=491 2008/8/16 alessandra porto [EMAIL PROTECTED] Preciso executar o Rave pela aplicaçao para criar um gerador de relatorios na aplicação testei assim: procedure TForm1.Button1Click(Sender: TObject); begin RvProject1.LoadDesigner:=true; end; e não abre o rave.exe como faço para dar certo? é possivel? Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Msn: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criptografar Executável
Alguém conhece algum programa para criptografar um executável? Conheço o HandProt, mas queria uma coisa mais fácil, só para criptografar mesmo, e de preferência free (caso exista). Fábio Thomaz RG System Informática Ltda - Desenvolvimento Msn: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Melhor forma de fazer controle de usuários
Olá galera, até o presente momento sempre utilizei o UserControl para fazer o controle de usuários dos meus sistemas, só que agora eu separei um aplicativo meu em vários módulos, cara um com seu exe, e ai vem o problema, o UserControl armazena as informações dos componentes que ele faz a proteção dentro do form que tem o compomente principal de segurança, e como eu vou ter várias janelas principais, cara uma para um aplicativo, não sei como usar este compomente agora, gostaria de saber se alguém que o utiliza, utiliza ele desta forma, ou então me sujerem um outro compomente que possa dar conta do recado, não queria implementar manualmente o controle de acesso do sistema, gosto muito do UserControl, mas agora bateu esta questão. Se acaso alguém faça seu próprio controle e pudar dar uma dica da melhor maneira de fazer isto tbm eu aceito, estou tentando analizar o que vai ficar melhor para este sistema. Desde já agradeço, Fábio Thomaz RG System Informática Ltda - Desenvolvimento [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] 'Record not found' - depois de um Post
Olá amigo, manda ai para a lista a estrutura que vc utiliza para fazer a conexão, uma vez aconteceu isto comigo e meu Provider estava com a propriedade UpdateMode = upWhereAll, mudei para upWhereKeyOnly e o ProviderFlags do campo chave do dataset para [pfInKey,pfInUpdate,pfInWhere], após isto não tive mais este problema. 2008/8/4 Flavio [EMAIL PROTECTED] Olá pessoal, boa tarde, estou com um pequeno probleminha. Se vocês puderem me ajudar, agradeço e muito. É o seguinte: faço uma consulta em uma query e os dados são carregados no ClientDataSet. Edito 3 campos desse ClientDataSet e quando executa a instrução Post para aplicar as alterações, dá a mensagem 'Record not found'. O problema é que ele dá isso de vez em nunca, ou seja, descobri em uma sequencia de execuções q faço dentro do meu programa com algumas entradas em particular. Colocar o código aqui é meio q inviável, pois é muito grande. O que gostaria de saber é se isso já aconteceu com alguém e como resolveu, ou se alguém tem alguma dica ou solução... Sinceramente não estou conseguindo visualizar o erro, pois ele está camuflado em alguma parte do sistema. Obrigado pela atenção de todos, Flávio. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Campo que permita a formatação e gravação no banco de dados
Existe um exemplo que bem com o proprio delphi 7 de como usar o richedit, para o dbrichedit é a mesma coisa, este se encontra em: C:\Arquivos de programas\Borland\Delphi7\Demos\RichEdit; Se não tiver o delphi 7 é só pedir que te mando o demo por email. 2008/7/9 berdam [EMAIL PROTECTED]: olá daniel, estive pesquisando massivamente este assunto hj a tarde, o problema na verdade q até consigo formatar, mas queria realizar a formatação de acordo com a linha selecionada. Pelo que pude perceber ele está formatando todo o texto presente no componente. Não consegui encontrar uma solução para o mesmo. Se alguém puder dar mais idéias agradeço Daniel Bastos escreveu: Pra formatações básicas(Como as que vc descreveu), pode-se utilizar o dbRichEdit 2008/7/9 Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com mailto:eduardo.drd%40gmail.com eduardo.drd%2540gmail.com: Se você quer o melhor de todos procura pelo WpTools: http://www.wptools.com/products/wptools/index.htm http://www.wptools.com/products/wptools/index.htm 2008/7/9 Berdam [EMAIL PROTECTED] berdamzinho%40yahoo.com.br mailto:berdamzinho%40yahoo.com.br berdamzinho%2540yahoo.com.br berdamzinho%40yahoo.com.br: Pessoal, alguém conhece um componete que seja ligado ao banco de dados e que permita que o texto seja formatado, (tamanho de letra, itálico, negrito,) e gravado no banco de dados. -- Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com http://passandoveneno.blogspot.com -- Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [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 mailto: eduardo.drd%40gmail.com eduardo.drd%2540gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas] -- - Uberdam Cavaletti Formado em Tecnologia da informação - Unoesc - Xxe Pós graduando em Desenvolvimento Java - Unoesc - Xxe Acesse http://www.curricular.com.br/berdam Acesse http://passandoveneno.blogspot.com - -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] dbgrid
Não cheguei a testar não mas se vc usar DataSet.FieldByName('campo').FocusControl? 2008/7/8 rzzanatta [EMAIL PROTECTED]: olá queria saber como faço pra ficar focado o cursor numa coluna do dbgrid? -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Texto Formatado no Rave Report
Olá galera, gostaria de saber se há alguma forma de utilizar o Rave com campos formatados, tenho um texto gravado em um blob no BD e quando eu gero o relatório no rave ele perde a formatação pois no rave tem apenas o componente memo, vi que tem como imprimir um arquivo salvo em rtf no rave, mas gostaria de imprimir o que tenho salvo no BD, caso não dê e alguém utiliza outro gerenciador de relatório para fazer isto gostaria que me passasem para que eu possa testar. Desde já agradeço. -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Painel Translucido
Caros amigos, alguém sabe de alguma maneira de criar um painel Translucido, como sendo um efeito de Vidro para não permitir o usuário clicar em alguns itens da tela?? Existe um Componente da Billeniun que é BeffectPanel, porém o mesmo é pago gostaríamos de utilizar os componentes nativos do Delphi pois o cliente não gostaria de ter componentes de terceiros no projeto. Grato à todos Atenciosamente, Gerson Thomaz Santos Gerente de TI [EMAIL PROTECTED] Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-a. Agradecemos sua cooperação. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Colunas mudam de Tamanho Sozinhas
Galera da Lista, boa tarde.. Estou com o seguinte problema: Temos um GRID em uma se nossas aplicações que esta ligado à um DataSource, esse à um ADOQuery e o ADOQuery à um ADOConnection. Como essa aplicação tem que verificar o status do que tenho em tela de 10 em 10 segundos, eu dou um refresh. Porém não sei por que quando ocorre o refresh, as colunas da GRID mudam de tamanho sozinhas. As vezes elas ficam com Width 0, as vezes com 2 as vezes com 30, as vezes com 40. Acontece com várias colunas, não tem uma ordem, ou horário ou qualquer outra lógica que tenhamos percebido. Já tentei dar o Refresh vai Query.Refresh, via Query.Close; Query.Open; e sempre a mesma coisa. Em outras aplicações não acontece isso. Alguém já passou por isso?? Tem idéia do que pode estar acontecendo: Delphi: 7 Banco: MS-SQL 2000 Conexão: ADO Abração a todos... Atenciosamente, Gerson Thomaz Santos Analista de Sistema [EMAIL PROTECTED] Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-a. Agradecemos sua cooperação. [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] Capturar Texto
Amigos, ja ouviram falar do MadSHI Except (http://www.madshi.net/madExceptDescription.htm) ??? Esse é um exemplo de Report dele por email: date/time : 2006-08-02, 08:50:32, 875ms computer name : SERVIDOR user name : Adminadmin operating system : Windows XP Service Pack 2 build 2600 system language : Portuguese system up time: 8 hours 34 minutes program up time : 15 seconds processors: 2x Intel(R) Pentium(R) 4 CPU 3.00GHz physical memory : 684/1023 MB (free/total) free disk space : (C:) 31,13 GB display mode : 1024x768, 16 bit process id: $fb4 allocated memory : 15,42 MB executable: SYSTEM_Servidor.exe exec. date/time : 2006-08-01 10:54 madExcept version : 3.0b callstack crc : $2164a695, $2c9d26d5, $09c0a046 exception number : 1 exception class : EAccessViolation exception message : Access violation at address 006D2878 in module 'SYSTEM_Servidor.exe'. Read of address . thread $f64 (TVrTimerThread): 006d2878 +06c SYSTEM_Servidor.exe Unit1 4875 +1 TForm1.tbEVEHAfterOpen 00542d2d +015 SYSTEM_Servidor.exe DB10757 +1 TDataSet.DoAfterOpen 0053fc39 +051 SYSTEM_Servidor.exe DB 8880 +8 TDataSet.OpenCursorComplete 0053fb5f +077 SYSTEM_Servidor.exe DB 8850 +15 TDataSet.SetActive 0053fba3 +0bb SYSTEM_Servidor.exe DB 8857 +22 TDataSet.SetActive 0053f988 +004 SYSTEM_Servidor.exe DB 8803 +0 TDataSet.Open 006cb1c1 +0cd SYSTEM_Servidor.exe Unit1 2656 +6 TForm1.ControlaHistorico 006dff53 +237 SYSTEM_Servidor.exe Unit1 7662 +79 TForm1.Timer1Timer 0051cf24 +034 SYSTEM_Servidor.exe VrThreads 294 +4 TVrTimer.Timer 0051cc60 +008 SYSTEM_Servidor.exe VrThreads 163 +1 TVrTimerThread.CallEvent 0051cc48 +04c SYSTEM_Servidor.exe VrThreads 156 +10 TVrTimerThread.Execute 0044d963 +02b SYSTEM_Servidor.exe madExcept HookedTThreadExecute 00472308 +034 SYSTEM_Servidor.exe Classes ThreadProc 004050b4 +028 SYSTEM_Servidor.exe System ThreadWrapper 0044d845 +00d SYSTEM_Servidor.exe madExcept CallThreadProcSafe 0044d8af +037 SYSTEM_Servidor.exe madExcept ThreadExceptFrame created by main thread ($bcc) at: 0051cb85 +039 SYSTEM_Servidor.exe VrThreads 129 +4 TVrTimerThread.Create Utilizamos em nossos sistemas e sinceramente, é do tipo.. Nossa, como eu vivi até agora sem isso UahuHAUuahUAhauHUAHuahUAHuah Ele tira uma PrintScreen, manda o Log, e de quebra, ainda dah pra saber qual a linha gerou o Erro Enfim, baixem, conhecam, adiquiram (US$ 99,00baratíssimo para o que faz), e nunca mais se arrependam Haaa antes q alguem fale: Não não sou marketeiro ou comercial dos kra, é q o bicho é booomesmo Abração e espero ter ajudado ;) Atenciosamente, Gerson Thomaz Santos Analista de Sistema Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-a. Agradecemos sua cooperação. - Original Message - From: Desenvolvimento (Anderson) To: delphi-br@yahoogrupos.com.br Sent: Friday, August 18, 2006 3:23 PM Subject: Re: [delphi-br] Capturar Texto e como saber qual objeto/evento gerou a excessão? - Original Message - From: Marco Aurélio (DELPHI) To: delphi-br@yahoogrupos.com.br Sent: Friday, August 18, 2006 1:31 PM Subject: Re: [delphi-br] Capturar Texto utilize da paleta standard o componente application.events. Este componente captura todo o evento que ocorre na aplicação inclusive as exceções. Atenciosamente Marco Aurélio Gerônimo - Original Message - From: roberto ezequiel To: delphi-br@yahoogrupos.com.br Sent: Friday, August 11, 2006 7:22 PM Subject: [delphi-br] Capturar Texto Olá pessoal... Tenho um sistema e gostaria de capturar o texto do erro que aparece na tela do cliente... Exemplo... quando acontece algum erro, tanto de tela quando de banco, o sistema armazenaria em um bloco de notas (.txt), que seria uma espécie de log de erro, e quando fosse dada a manubtenção poderia se abrir este txt e ler o que houve de erro!!! Se alguém puder me dar uma luz, agradeceria... Obrigado - 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] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1.1714 (20060818) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes
[delphi-br] GLScene com Jedi
GeleiraCaros amigo Boa Noite. Estou tendo problemas em utilizar o GLscene(http://glscene.sourceforge.net/index.php) com o Jedi. quando vou instalar o GLScene da o seguinte erro: Cannot load package 'GLScene7.' It contains unit 'VFW,'which is also contained in package 'JvMMD7R'. Pelo que parece o GLScene tah tentando usar uma UNIT que o Jedi ja utiliza. O pior, esses Componentes do Jedi (JvMMD7R) tem coisas que eu utilizo. segue abaixo o texto Completo que o MADshi me gera ao tentar instalar. Alguem ja passou por isso ou sabe como fazer para os dois funcionarem sem Brigas ??? Atenciosamente, Gerson Thomaz Santos O melhor de Deus ainda está por vir... date/time : 2006-07-25, 00:58:04, 546ms computer name : GERSON_NOTE user name : Gerson admin operating system : Windows XP Service Pack 2 build 2600 system language : English system up time: 3 hours 16 minutes program up time : 26 minutes 7 seconds processors: 2x Mobile Intel(R) Pentium(R) 4 CPU 3.06GHz physical memory : 67/639 MB (free/total) free disk space : (C:) 938,45 MB display mode : 1280x800, 32 bit process id: $cf4 allocated memory : 182,48 MB executable: delphi32.exe current module: madExcept_.bpl exec. date/time : 2002-08-09 14:00 version : 7.0.4.453 madExcept version : 3.0a callstack crc : $40017cd8, $0ff11479, $3f508e39 exception number : 4 exception class : EPackageError exception message : Cannot load package 'GLScene7.' It contains unit 'VFW,'which is also contained in package 'JvMMD7R'. main thread ($1514): 40017cd8 +180 rtl70.bpl 40017d6b +023 rtl70.bpl SysutilsInitializePackage 5983776b +01b madExcept_.bpl madExcept InterceptInitializePackage 40017ebb +07f rtl70.bpl SysutilsLoadPackage 004db54e +002 coreide70.bpl Pakload TPackage.DoLoadPackage 004db6a2 +022 coreide70.bpl Pakload TPackage.Load 004e719c +058 coreide70.bpl Pakmgr TIDEDesignPackage.Load 00d24457 +0f7 borlndmm.dll BorlndmmSysGetMem 004f5840 +030 coreide70.bpl Paklist TPackageListItem.LoadWait 004f57b8 +068 coreide70.bpl Paklist TPackageListItem.LoadDesignPackage 004f4e51 +039 coreide70.bpl Paklist TPackageListItem.SetIsInstalled 004f4c57 +0db coreide70.bpl Paklist TPackageList.AddPackage 00bed137 +05b delphide70.bpl Pasprojopts TProjOptsManager.InstallPackage 00bed6a7 +003 delphide70.bpl Pasprojopts TProjectOptions.InstallPackage 005ad5cf +0d3 coreide70.bpl Pasmgr TPascalPackageCodeUpdater.InstallPackage 005012ef +04f coreide70.bpl Pkgeditors TPackageEditorForm.InstallClick 4003c407 +00f rtl70.bpl Classes TBasicAction.Execute 0082cced +031 vcl70.bpl ActnlistTContainedAction.Execute 0082d9af +04f vcl70.bpl ActnlistTCustomAction.Execute 4003c2db +013 rtl70.bpl Classes TBasicActionLink.Execute 008214c1 +04d vcl70.bpl ControlsTControl.Click 007f6a60 +000 vcl70.bpl ComctrlsTToolButton.Click 0082192e +05e vcl70.bpl ControlsTControl.WMLButtonUp 00821340 +188 vcl70.bpl ControlsTControl.WndProc 00821110 +024 vcl70.bpl ControlsTControl.Perform 00824324 +078 vcl70.bpl ControlsTWinControl.ControlAtPos 00821110 +024 vcl70.bpl ControlsTControl.Perform 008243c2 +082 vcl70.bpl ControlsTWinControl.IsControlMouseMsg 008244ae +0da vcl70.bpl ControlsTWinControl.WndProc 007fad31 +241 vcl70.bpl ComctrlsTToolBar.WndProc 008241a8 +02c vcl70.bpl ControlsTWinControl.MainWndProc 77d496c2 +00a user32.dll DispatchMessageA 00844dab +083 vcl70.bpl Forms TApplication.ProcessMessage 00844de2 +00a vcl70.bpl Forms TApplication.HandleMessage 00845002 +096 vcl70.bpl Forms TApplication.Run thread $17c0: priority:1 7c90eb94 +00 ntdll.dll KiFastSystemCallRet 7c90d85a +0a ntdll.dll NtDelayExecution 7c8023e7 +4b kernel32.dll SleepEx 7c80244c +0a kernel32.dll Sleep thread $1614 (TNameChangeThread): priority:-2 7c90eb94 +00 ntdll.dll KiFastSystemCallRet 7c90e9a9 +0a ntdll.dll NtWaitForMultipleObjects 7c8094ec +00 kernel32.dll WaitForMultipleObjectsEx 7c809c81 +13 kernel32.dll WaitForMultipleObjects 58052d93 +27 JclThreadNameExpert70.bpl ThreadExpertUnit 273 +5 TNameChangeThread.Execute 598382eb +2b madExcept_.bplmadExcept HookedTThreadExecute 598381f5 +0d madExcept_.bplmadExcept CallThreadProc 59838237 +37 madExcept_.bplmadExcept ThreadExceptFrame created by main thread ($1514) at: 58052cee +1e JclThreadNameExpert70.bpl ThreadExpertUnit 250 +1 TNameChangeThread.Create thread $704: priority:15 7c90eb94 +00 ntdll.dllKiFastSystemCallRet 7c90e9a9 +0a ntdll.dllNtWaitForMultipleObjects 7c8094ec +00 kernel32.dll WaitForMultipleObjectsEx 7c809c81 +13 kernel32.dll WaitForMultipleObjects 598381f5 +0d madExcept_.bpl madExcept CallThreadProc 59838237 +37 madExcept_.bpl
[delphi-br] Projetos de Grande porte de Delphi 7 para Delphi 2006
Geleira Caros amigos, gostaria de um feed-back dos amigos que migraram seus projetos do delphi 7 para o Delphi 2006 (Win32). Com foi a migração??? Tiveram algum tipo de incompatibilidade, seja em Sintaxes ou procedimentos??? Recompila 100%, alguma recomendação final? Estou falando de um projeto de Grande porte, utilizando acesso à banco a cada 1 segundo, com Sockets e em média umas 10 Threads por Aplicação... Grato a Todos... Atenciosamente, Gerson Thomaz Santos Analista de Sistema Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-a. Agradecemos sua cooperação. [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] System Error Code 1410 Essa Classe já existe
Salve Amigos.. Seguinte, alguem ja teve esse erro?? Uso Delphi 7, acessando MS-SQL via ADO e Comunicação Socket nesse sistema. System Error. Code: 1410. Esta classe já existe. Como tenho MadSHI, segue o Erro para os Amigos verem junto se alguem ja passou por isso. abração a todos date/time : 2006-03-28, 09:47:54, 265ms computer name : SERVER wts client name : useremote user name : Administrador admin operating system : Windows 2003 Service Pack 1 build 3790 system language : Portuguese system up time: 5 days 9 hours program up time : 3 seconds processors: 2x Intel(R) Pentium(R) 4 CPU 3.00GHz physical memory : 227/992 MB (free/total) free disk space : (C:) 25.51 GB (E:) 66.32 GB display mode : 800x600, 16 bit process id: $9cc allocated memory : 7.42 MB executable: RECEIVER.exe exec. date/time : 2006-03-27 14:22 madExcept version : 3.0a callstack crc : $674c0a9e, $72b97a98, $9fbacbec exception number : 1 exception class : EOSError exception message : System Error. Code: 1410. Esta classe já existe. thread $fe4 (TVrSystemThread): 004580fd +075 RECEIVER.exe SysUtilsRaiseLastOSError 004b59ac +10c RECEIVER.exe Controls 6000 +18 TWinControl.CreateWnd 004b5d9e +016 RECEIVER.exe Controls 6121 +3 TWinControl.CreateHandle 004b88e0 +01c RECEIVER.exe Controls 7796 +4 TWinControl.HandleNeeded 004b88ed +005 RECEIVER.exe Controls 7802 +1 TWinControl.GetHandle 0060473f +0d3 RECEIVER.exe Sock409 +37 TSock.SetBlocking 00605189 +041 RECEIVER.exe Sock730 +11 TSock.Open 00639895 +22d RECEIVER.exe Unit1 10937 +39 TForm1.trdPlugSCExecute 005c51d8 +034 RECEIVER.exe VrThreads 393 +4 TVrThread.ExecuteEvent 005c5073 +00f RECEIVER.exe VrThreads 328 +1 TVrSystemThread.CallExecute 005c5052 +042 RECEIVER.exe VrThreads 322 +6 TVrSystemThread.Execute 0044ce2b +02b RECEIVER.exe madExcept HookedTThreadExecute 00471434 +034 RECEIVER.exe Classes ThreadProc 00404d80 +028 RECEIVER.exe System ThreadWrapper 0044cd35 +00d RECEIVER.exe madExcept CallThreadProc 0044cd77 +037 RECEIVER.exe madExcept ThreadExceptFrame created by Main ($ae0) at: 005c4fee +022 RECEIVER.exe VrThreads 306 +2 TVrSystemThread.Create [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] Atualizando dados da GRID
Geleira E ai lista... lah vem eu de novo :D:D:D seguinte agora a pergunta é bem chatinha e a solução também acho que será beeemmm pancada: sistema: Um controle de Temperaturas de ambientes.: funcionamento: Recebe valores de aproximadamente uns 150 sensores de temperatura: Funcionamento para o Usuário: Tem uma GRID onde são exibidos os seguintes campos que vem de uma tabela de entrada de dados: SENSOR | TEMPERATURA | ULTMA LEITURA | STATUS 0001 |480°C| 08/02/06 10:35:27 | Acima 0002 |450°C| 08/02/06 10:35:39 | Normal 0003 |380°C| 08/02/06 10:34:12 | Normal 0004 |280°C| 08/02/06 10:36:01 | Abaixo Continuando, quando o usuário clicar em uma linha do Grid eu atualizo um quadro de informações mais completas do Sensor, como Foto do local, Técnico responsável, etc, etc, etc... Ai vem o lance: a cada 10 segundos eu tenho que atualizar os valores dessa Grid e as vezes dah erro quando o kra clica na Grid bem na hora que eu vou dar o Close; Open; na Query dessa GRID. o que faço: timerAtualiza: sensor := tbTempSENSOR.value; //variavel sensor Global para armazenar o sensor q a GRID estava posicionada tbTemp.DisableControls; tbTemp.Close; tbTemp.Open; tbTemp.EnableControls; tbTemp.Locate('SENSOR', sensor, []); Porém mesmo assim existem vezes que dah erros de Access Violation ou de Canot Performe this operation on a Closed Data Set. Acho que entra um clique no meio desse processo que me ferra a vida. Haa só pra lembrar, isso acontece de 10 em 10 segundos em um ambiente com aproximadamente 150 sensores. Estou Usando: Banco: MS-SQL Server Acesso: ADOConection + ADOQuery Versão do Delphi: 7 alguem ja teve algum projeto parecido ou alguem sabe uma maneira d fazer esse processo não dar erros??? ja pensei em usar 2 GRIDS com 2 Querys onde quando vou atualizar a GRID1, o kra fica usando a GRID2 e vice-e-versa... enfim, a duvida tah no ar Abraço a todos Atenciosamente, Gerson [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] Abrir PPT
Geleira Lista, boa tarde, Gostaria de saber se alguem ja fez uma coisa que parece simples, mas eu não consegui: Tenho a aplicação ABC.EXE e na mesma pasta um arquivo: DEF.ppt (powerPoint) e quero simplesmente abrir e imprimir o bixo, ja tentei usar o DEMO do Delphi, (PowerPointApplication), ja tentei usar Winexec, ja tentei OpenFile, mas não consegui. Se alguem ja fez isso e puder me enviar o código ou coisa do tipo agradeço [EMAIL PROTECTED] Haaa e , NÃO VAMOS começar com o manda pra mim também se não ja viu :D:D:D:D:D Abração a todos... e desde ja obrigado ;) Atenciosamente, Gerson Existem apenas 10 pessoas no mundo, as que entendem binário e as que não [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] OFF TOPIC - Hora homem
Geleira Amigos, BOM DIA, qual tem sido a Hora homem de Analise e de Desenvolvimento pratica pelos amigos, e qual você tem visto com sendo a média do mercado??? Costumam cobrar diferente a hora cobrada para Desenvolvimento e a hora cobrada por manutenção, ou seja, ajustes ou novidades pequenas no sistema?? por exemplo R$ 75,00 para analise, R$ 50,00 para desenvolvimento no escopo principal do Projeto e R$ 55,00 para analise, R$ 30,00 para desenvolvimentos posteriores, como uma mudança de tela, função , etc... valeu turma.. Atenciosamente, Gerson Thomaz Santos Analista de Sistema Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-a. Agradecemos sua cooperação. [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] OFF-TOPIC Valor Código Fonte
GeleiraCaros amigo, Boa Tarde.. sei que vai gerar muuuita discussão, por isso ja joguei como OFF rsrsrs Imaginem o seguinte: O Cliente me pediu um Cadastro de Locadora, com inteligencias, tipo, Mala direta automática, Leitor de código de barras, envio de email para lembrar clientes em atrazo, programação de locação, Relocação com valor fracionado, etc, etc, etc, etc... digamos que cobrarei R$ 2.500,00 pelo sistema, pronto, instalado e rodando. Ai ele me chega e pede os FONTES (Fato consumado) Vem a bucha: Alguem tem uma média de quantas vezes o valor do produto cobrar, tipo, 5 vezes, 10 vezes, ou uma Formula mágica (essa foi boa) rsrsrs tipo, ((valor do produto * 10) / 8) + 10 %.. Pra simplificar, pois sei que muitos iam colocar: Tu poderia explorar depois, vender pra outros, etc, o ambiente é: Ele quer os fontes pra ele, e eu não poderei utilizar os fontes pra outro sistema como o citado, nem alguns recursos de inteligências que foram idéias dele... Abração e grato á todos. Atenciosamente, Gerson Thomaz Santos Analista de Sistema Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-a. Agradecemos sua cooperação. [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] JEDI
GeleiraCaros amigos da lista, alguem sabe onde tem um HELP detalhado sobre o JEDI. Baixei o Help do site, mas não explica praticamente nada, como por exemplo, eu queria poder saber a diferença entre a JvDBGrid e a JvDBUltimGrid... talvez a JvDBUltimGrid tenha algumas funções que estamos precisando aki, como algum modo de sort diferente. se alguem souber, agradeço... Atenciosamente, Gerson Thomaz Santos Analista de Sistema Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-a. Agradecemos sua cooperação. [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] Relatórios em Delphi
Amigo Celso, quem se ofende é é a turma do EU sempre tenho razão AuHAUHuahuAHuhauHAUh aki na lista, pelomenos eu acho, somo todos crescidinho... e aproveitando a deixa... amigo, Celso, gente fina, camarada...(la em o golpe :P:P:P) me diz uma coisa, que acho q mais alguem aki poderia precisar: Conheces algum componente pra fazer Gráfico no Fortes??? volto a colocar, só não migrei pra ele pq não achei. eu gero relatórios gráficos em Pizza, Barra e Linhas, e no Fortes não achei nada ainda. sobre o lance de Tudo funcionar, o meu Quick tbm funfou tudo, bem, pelo menos tudo o que eu precisei até agora. Tah certo que teve algumas artemanhas escondidas que descobri depois de muito suor, mas funfou abração amigo... Gerson Thomaz Santos - Original Message - From: Celso Lorenzetti - GMail To: delphi-br@yahoogrupos.com.br Sent: Tuesday, December 20, 2005 12:10 PM Subject: Re: [delphi-br] Relatórios em Delphi Amigo, conheço o Quick e o Fortes www.fortesreport.com.br e te digo, sem a menor dúvida 1.000.000 de vezes o Fortes do que o Quick... Dá uma comparada nos dois e verá a diferença. 1. Precisão ao exportar para PDF, XLS, DOC, HTML; 2. Relatórios em colunas com mais opções; 3. Melhor estruturado as classes; 4. PageBreak que funciona; 5. Outros tipos de bandas, que no Quick não tem; 6. Converte automaticamente para matricial; 7. E o melhor, tudo funciona... 8. E outras tantas... P.S.: Quem utiliza o Quick, não se ofenda, é só minha opinião. Trabalhei 3 anos com o Quick, e ainda bem que conheci o Fortes. Ceslo Lorenzetti Original Message - From: lucsilfreitas To: delphi-br@yahoogrupos.com.br Sent: Tuesday, December 20, 2005 8:30 AM Subject: [delphi-br] Relatórios em Delphi Bom dia pessoal! Gostaria muito de uma informação: - Qual é a menhor ferramenta para gerar relatórios em Delphi 7? Tenho instalado em meu computador o crystal reports 9, mas não consigo assessa-lo. Já ouvi falar também de quick reports, mas não encontrei no CD de instalação de delphi. - Ele vem junto com o delphi ou é separado? No aguardo de respostas. LUCIANO -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Pegar o Nome do Componente
GeleiraCaros amigos, Creio que ja deve ter sido postado na lista, mas como eu ja procurei entra as mensagens antigas e não encontrei, alguem sabe uma maneira bem simples de pegar o nome do componente que eu cliquei: O objetivo real é o seguinte: Ao clicar em um Painel, eu verifico se ele esta em azul, se sim mudo ele pra amarelo. Até ai tudo bem, eu poderia usar: if Panel1.color = 'clNavy' then Panel1.color:='clYellow'; mas ai é q o bicho pega. tenho q fazer essa verificação em um quadro de paineis que tem só 672 paineis hehehe agora ficou chato né ter q fazer em um por um... então o que eu queria era algo tipo: if PAINEL_QUE_EU_CLIQUEI.color = 'clNavy' then PAINEL_QUE_EU_CLIQUEI.color:='clYellow'; Onde o PAINEL_QUE_EU_CLIQUEI fosse uma variavel mesmo que recebesse o nome do bixo, ai eu faço a rotina apenas no OnClick do Painel1 e faço todos os outros 671 paineis terem o mesmo painel1onclick... UFA... espero que tenham entendido.. abração a todos... Atenciosamente, Gerson Thomaz Santos Analista de Sistema [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] Pegar o Nome do Componente
Vitãão... Tu salvou minha noite Kra... valeu mesmo amigo... agora vou sair um pouquinho mais cedo :D:D:D:D brigadão kra... deu certinho .. Abração Gerson - Original Message - From: Vitor Luiz Redes To: delphi-br@yahoogrupos.com.br Sent: Monday, December 12, 2005 9:01 PM Subject: Re: [delphi-br] Pegar o Nome do Componente if TPanel( Sender ).Color = clActiveBorder then TPanel( Sender ).Color := clBlack else TPanel( Sender ).Color := clActiveBorder; Vitor. - Original Message - From: Gerson Thomaz Santos To: Delphi-BR Sent: Monday, December 12, 2005 6:59 PM Subject: [delphi-br] Pegar o Nome do Componente GeleiraCaros amigos, Creio que ja deve ter sido postado na lista, mas como eu ja procurei entra as mensagens antigas e não encontrei, alguem sabe uma maneira bem simples de pegar o nome do componente que eu cliquei: O objetivo real é o seguinte: Ao clicar em um Painel, eu verifico se ele esta em azul, se sim mudo ele pra amarelo. Até ai tudo bem, eu poderia usar: if Panel1.color = 'clNavy' then Panel1.color:='clYellow'; mas ai é q o bicho pega. tenho q fazer essa verificação em um quadro de paineis que tem só 672 paineis hehehe agora ficou chato né ter q fazer em um por um... então o que eu queria era algo tipo: if PAINEL_QUE_EU_CLIQUEI.color = 'clNavy' then PAINEL_QUE_EU_CLIQUEI.color:='clYellow'; Onde o PAINEL_QUE_EU_CLIQUEI fosse uma variavel mesmo que recebesse o nome do bixo, ai eu faço a rotina apenas no OnClick do Painel1 e faço todos os outros 671 paineis terem o mesmo painel1onclick... UFA... espero que tenham entendido.. abração a todos... Atenciosamente, Gerson Thomaz Santos Analista de Sistema [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ADO Acces com senha
Amigo, BOM DIA, vc tem q especificar a senha no Connection String. eu seto isso na hora que vou rodar, pegando de um arquivo.txt criptografado que, claro, tem um configurador: Ela sem criptografar fica assim: Provider=Microsoft.Jet.OLEDB.4.0; User ID=Admin; Data Source=ARQUIVO.MDB; Mode=ReadWrite; Extended Properties=; Jet OLEDB:System database=; Jet OLEDB:Registry Path=; Jet OLEDB:Database Password=senha_do_arquivo_ACCESS; Jet OLEDB:Engine Type=5; Espero que ajude OK... Abração... Gerson Thomaz Santos - Original Message - From: pcinfowave To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 07, 2005 10:17 PM Subject: [delphi-br] ADO Acces com senha Ola.. Gostaria de me conectar com um BD Access protegido por senha. Alguem pode dar um help, pois ja consegui conectar sem senha, mas com senha nao consigo. De ja agradeço []´s Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Fw: RELAX!!!...As melhores de 2005
Francisco, tirando que é OFF-Topic, a lista de contatos que veio junto tah massa heim.. auHAUhuaUAHUhauHUAHUhau imagina mandar um emial daqueles pra esses contatos todos, Vanessa, Renata, Nina, Gislene, Kátia, Lízia, carla... abração kra... e boa sorte nos outros emails CC. - Original Message - From: Francisco To: (*)Priscila - Arilu Calcados(S) Cc: Zelio ; VANESSA OLIVEIRA SANTOS ; Vanessa ; Valmir ; Topmaq ; Renata - Arilu ; Raio Filho ; Nina ; Napinho ; najila carvalho ; musica Denilson ; Mol SM - Peças ; Mol SM - Gerente Pós Vendas - (Osmar) ; Mol SM - Gerente de Vendas -(Edinaldo Castro) ; Mol SM - Financeiro ; Mol SM - Contabilidade ; Mol Nova Venecia - Vendas ; Mol BSF - Gerente Geral - Novo Celular: (27) 8119 9747 ; Mol BSF - Financeiro - Karla ; MILENA RAMOS ; MAX - LI, EU TE AMO MUTO ; Maria ; Marcosta ; Márcio Vilic (T)6781-8972 (mp)9145-9563 ; marcio ; luiz ; Logos ; Lizia ; Linsmar ; Kátia Maia da Silva ; Junior ; Jorge Loiro ; Jailson-BA (mp) 0**73 9191-7327 ; Jack Arilu ; Heron (Topmaq Automação Comercial - 0**71 3261-5000) ; Heber Guirra - Supermercados Familia ; Heber ; Gislene ; FRIGOBOM ; [EMAIL PROTECTED] ; FireBase ; Familia Souza Romano ; Eletrosantos ; Ednei ; eden stephane ; Diego ; Depart. de Informática ; delphi-br@yahoogrupos.com.br ; Daniel Simoes de Ameida ; danarf ; CNH - CONTEMPLAÇÃO - KATU ; carlossilvapm ; Carlinhos ; carla santos ; [EMAIL PROTECTED] ; Audicon - José Antonio ; Antonio Lomba ; Alessandra - Brasilia ; ALBERTOfoxsom-instrumentosmusicais Porto Seguro ; (li) Eddie (#)(h) Sent: Tuesday, December 06, 2005 9:58 PM Subject: [delphi-br] Fw: RELAX!!!...As melhores de 2005 Subject: ENC: RELAX!!!...As melhores de 2005 As melhores frases do ano de 2005 Homem é como vassoura: sem o pau, não serve pra nada. Os homens mentiriam muito menos se as mulheres fizessem menos perguntas. Marido é igual a menstruação: Quando chega, incomoda; quando atrasa, preocupa. ...Se dinheiro falasse, o meu diria tchau... Aquele que, ao longo de todo o dia: é ativo como uma abelha, forte como um touro, trabalha que nem um cavalo, e que ao fim da tarde se sente cansado que nem um cão... deveria consultar um veterinário. é bem provável que seja um grande burro . A calcinha não é a melhor coisa do mundo, mas está bem perto. O homem é um ser tão dependente que até pra ser corno precisa da ajuda da mulher! Estar junto não é estar ao lado, mas é estar dentro. A mulher está sempre ao lado do homem, para o que der e vier; já o homem, está sempre ao lado da mulher que vier e der. Se sua mulher pedir mais liberdade, compre uma corda mais comprida... Se um dia sentir um enorme vazio dentro de você . Vá comer, que é fome!!... Todo homem tem a fantasia de fazer sexo com duas mulheres ao mesmo tempo. As mulheres deveriam gostar da idéia. Pelo menos, teriam com quem conversar depois que ele pegasse no sono. Se for dirigir, não beba. Se for beber, me chama. Mulher feia é que nem muro alto, primeiro dá um medo, mas depois a gente acaba trepando. Quando lhe atirarem uma pedra, faça dela um degrau e suba... Só depois, quando tiver uma visão plena de toda a área, pegue outra pedra, mire bem e acerte o crânio do filho da puta que lhe atirou a primeira. Sabe o que é a Meia Idade? É a altura da vida em que o trabalho já não dá prazer e o prazer começa a dar trabalho !!! Sempre que possível, converse com um saco de cimento. Nessa vida só devemos acreditar no que é concreto! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Conexão atrávés da ADO.
Amigo, faltou tu sitar qual o banco de dados tais usando, eu por exemplo acesso, Firebird (com um componente de acesso Free para ADO) e MS-SQL server e não há a necessidade de tu criar um ODBC, visto que tu pode configurar toda a conection String no ADOConnection. Abração Gerson Thomaz Santos - Original Message - From: criamabr To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 29, 2005 1:39 PM Subject: [delphi-br] Conexão atrávés da ADO. Olá pessoal!!! Estou fazendo uns testes de conexão atrávés da ADO mas estou tendo alguns probleminhas em usar em rede. Estou utilizando os compenentes: TDOConnection, TataSource e TDOQuery. Criei uma conexão com banco via ODBC e conecto meu TDOConnection a ela. Blz!!! Consigo enchergar os registros, incluir e alterá-los sem nenhum problema, mas se for local. Em rede, quando excluo, exibe uma mensagem (que não programei) que excluí o registro, etc. Quando incluo em umas das estações, não exibe o registro na outra, mesmo dando um refresh, só aparece se eu fechar e abrir o DadaSet. Podem me ajudar em como utilizar a ADO em rede. Desde já, obrigado. Abraço, Cristiano. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Diferença entre datas
Ooo amigo, tu ta com sorte mesmo heim... eu postei uma resposta igualzinha em uma lista, hoje mesmo sente só..: Amigo, tem umas Funções no Delphi que são para ver dia, minutos, horas, etc entre duas datas: Abaixo segue como vc pode usar e exibir em um Edit2 a diferença do tempo: Edit2.Text:= IntToStr(YearsBetween(now,StrToDatetime(edit1.Text))) + ' Anos - ' + IntToStr(MonthsBetween(now,StrToDatetime(edit1.Text))) + ' Meses - ' + IntToStr(DaysBetween (now,StrToDatetime(edit1.Text))) + ' Dias - ' + IntToStr(HoursBetween (now,StrToDatetime(edit1.Text))) + ' Horas - ' + IntToStr(MinutesBetween (now,StrToDatetime(edit1.Text))) + ' Minutos - ' + IntToStr(SecondsBetween (now,StrToDatetime(edit1.Text))) + ' Segundos - ' + IntToStr(MilliSecondsBetween (now,StrToDatetime(edit1.Text))) + ' Milisegundos'; Acho q ajudou .. Abração Gerson thomaz Santos - Original Message - From: Alfredo Brandes To: delphi-br@yahoogrupos.com.br Sent: Friday, November 25, 2005 4:41 PM Subject: [delphi-br] Diferença entre datas Como eu faço pra calcular a diferença em dias entre duas datas??? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Cor do Botão
GeleiraCaros amigos, Alguem sabe como trocar a cor de um botão... []´s Atenciosamente, Gerson Thomaz Santos Analista de Sistema [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
RES: [delphi-br] Paradox 7
Aproximadamente 100mb. -Mensagem original- De: LUIZ CARLOS PEREIRA [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 21 de março de 2005 13:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Paradox 7 Olá, Sou iniciante no Delphi e gostaria de saber qual o tamanho máximo de dados em MEGABYTES (MB) que o Paradox 7 suporta? Obrigado. - Yahoo! Mail - Com 250MB de espaço. Abra sua conta! [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- Internal Virus Database is out-of-date. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/03/05 [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] ou [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
RES: [delphi-br] Re: Link Word / Paradox
Valeu, Fausto. Funcionou perfeitamente. Muito obrigado. Thomaz . -Mensagem original- De: faustofrca [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 8 de março de 2005 06:47 Para: delphi-br@yahoogrupos.com.br Assunto: [Norton AntiSpam] [delphi-br] Re: Link Word / Paradox Thomaz.. eu utilizo da seguinte forma: procedure TDelphiWordForm.CartaBtnClick(Sender: TObject); var WinWord,Docs,Doc: OleVariant; Arquivo : string; begin try Arquivo := 'C:\Backup\Contrato.doc'; WinWord := CreateOleObject('Word.Application'); WinWord.visible := true; //false; Docs := WinWord.Documents; Doc := Docs.Open(Arquivo); // Inicio da Substituição // Codigo do cliente Doc.Content.find.Execute(FindText := '[Codigo]', ReplaceWith := CliClicod.AsString ); // Nome Doc.Content.find.Execute(FindText := '[Nome]', ReplaceWith := CliClinom.Value); Doc.Content.find.Execute(FindText := '[Endereco]', ReplaceWith := CliCliend.Value); Doc.Content.find.Execute(FindText := '[Bairro]', ReplaceWith := CliCliBai.Value); Doc.Content.find.Execute(FindText := '[Estado]', ReplaceWith := CliCliest.Value); Doc.Content.find.Execute(FindText := '[Cep]', ReplaceWith := CliCliCep.Value); Doc.PrintOut(false); WinWord.Quit(False); except ShowMessage('Alguns relatórios usam componentes do Word'); end; end; Note que neste caso eu tenho um documento já criado.. e os campos que vou substituir estão entre [] ex: [Codigo]. Não esqueça de incluir a unit OleServer. []´s Fausto --- Em delphi-br@yahoogrupos.com.br, Thomaz Henrique Pulschen [EMAIL PROTECTED] escreveu Pessoal, Há uma forma de inserir campos do Paradox dentro do Word: Por exemplo: quero ter um texto feito no Word e inserir os clientes de uma tabela Paradox para enviar uma carta para cada à partir do Word. Abraço... - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12ant91l0/M=264379.5078783.6203979.1588051/D=brc lubs/S=2137111264:HM/EXP=1110362059/A=2191897/R=0/SIG=10vqa2grn/*http://br.d iversao.yahoo.com/ http://br.rd.yahoo.com/SIG=12ant91l0/M=264379.5078783.6203979.1588051/D=brc lubs/S=2137111264:HM/EXP=1110362059/A=2191897/R=1/SIG=10vqa2grn/*http://br.d iversao.yahoo.com/ São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.6.2 - Release Date: 04/03/05 [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] ou [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] Link Word / Paradox
Pessoal, Há uma forma de inserir campos do Paradox dentro do Word: Por exemplo: quero ter um texto feito no Word e inserir os clientes de uma tabela Paradox para enviar uma carta para cada à partir do Word. Abraço... - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [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] ou [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] Link Word / Paradox
Valeu a dica Eduardo, achei o exemplo, mas quando fui testar, na seção USES tem um tal de OLEAUTO que está faltando e não me permite compilar. Você já fez algo parecido ? Segue o código do exemplo abaixo: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Db, DBTables; type TForm1 = class(TForm) btIniciar: TButton; Query1: TQuery; Query1Cid_Codigo: TIntegerField; Query1Cid_Descricao: TStringField; Query1Cid_UF: TStringField; procedure btIniciarClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses OleAuto; {$R *.DFM} procedure TForm1.btIniciarClick(Sender: TObject); var Word : Variant; NumCol,I : Integer; begin NumCol := Query1.FieldCount; Word := CreateOleObject('Word.Basic'); word.appshow; word.filenew; While not Query1.EOF do Begin For I:=1 to Query1.fieldcount-1 do word.Insert(Query1.fields[i].AsString+#9); Query1.Next; End; Word.editselectall; Word.TextToTable(ConvertFrom := , NumColumns := NumCol); word.TableSelectTable; Word.TableSelectRow; Word.TableHeadings(1); Word.TableAutoFormat(Format:=16,HeadingRows:=1); Word.edit; end; end. -Mensagem original- De: Eduardo Silva ® [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 7 de março de 2005 10:44 Para: delphi-br@yahoogrupos.com.br Assunto: [Norton AntiSpam] RES: [delphi-br] Link Word / Paradox Thomaz, tem sim, no Clube Delphi tem um link que explica como fazer isso direitinho. Não sei o link, mas da uma procurada lá. -Mensagem original- De: Thomaz Henrique Pulschen [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 7 de março de 2005 09:38 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Link Word / Paradox Pessoal, Há uma forma de inserir campos do Paradox dentro do Word: Por exemplo: quero ter um texto feito no Word e inserir os clientes de uma tabela Paradox para enviar uma carta para cada à partir do Word. Abraço... - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12aobcvpe/M=264379.5078783.6203979.1588051/D=brc lubs/S=2137111264:HM/EXP=1110289786/A=2191897/R=0/SIG=10vqa2grn/*http://br.d iversao.yahoo.com/ http://br.rd.yahoo.com/SIG=12aobcvpe/M=264379.5078783.6203979.1588051/D=brc lubs/S=2137111264:HM/EXP=1110289786/A=2191897/R=1/SIG=10vqa2grn/*http://br.d iversao.yahoo.com/ São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [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] ou [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