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]