Re: [delphi-br] Retornar numero de meses entre duas datas
Tem uma Unit chamada DateUtils que tem várias funções para manipulação de datas. Podes utilizar a função IncMonth da seguinte forma: procedure ContaMesesEntreDatas(DataInicial, DataFinal: TDate) : integer; var DataAuxiliar : TDate; begin NroDeMeses := 0; DataAuxiliar := DataInicial; while IncMonth(DataAuxiliar,1)DataFinal do begin Inc(NroDeMeses); DataAuxiliar := IncMonth(DataAuxiliar,1); end; result := NroDeMeses; end; Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: Antonio Mateus To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 21, 2008 3:28 PM Subject: [delphi-br] Retornar numero de meses entre duas datas Olá sou novo no delphi e estou com o seguinte problema, tenho 2 datas, uma inicial e outra final, gostaria que o programa me retornasse o numero de meses entre essas duas datas, ja tentei a função MonthsBetween sendo que a mesma me retorna valores totalmente fora da realidade, se alguem puder me ajudar eu ficarei muito agradecido ! -- Antonio Mateus Estudante de Sistemas de Informação [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,48adb3fc84571742216817 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Rotina Sql
Charles, creio que teu problema é conceitual.
Há duas formas de fazeres o que desejas:
1) Usar duas Querys(não Table). A primeira Query usarás para retornar os
registros que precisam ser atualizados, ORDER BY pela data. A segunda irá
fazer, para cada registro da primeira query, um UPDATE para atualizar os
valores. Mas creio que dessa forma será mais demorado e mais pesado para o
banco de dados.
2) Qual banco estás utilizando? Fiz um caso similar em Firebird para
atualização da quantidade e o custo médio do estoque a cada lançamento, e
utilizei Stored Procedure ativada por Trigger. Funciona que é uma beleza, e
como está dentro do Banco de Dados é rápida e satisfaz plenamente.
Estude sobre Stored Procedures ... vale a pena.
Espero ter ajudado.
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
(53) 3233-7118
- Original Message -
From: HNS Informática
To: Delphi Br
Sent: Wednesday, July 23, 2008 1:46 PM
Subject: [delphi-br] Rotina Sql
Pessoal, possuo uma tabela de Caixa que possue os seguintes campos
Data HIstorico Historicod Complemento, Entrada Saída e Saldo
ela tem 14.000 registros deste inicio de 2006.
Cada vez que faço um lançamento, ela tem que atualizar o saldo da data do
lançamento endiante, ou seja, tem que aceitar fazer lançamento do mes
corrente Porem estou com dificuldades para fazer a rotina de atualização do
saldo em sql, ai usei uma query e uma table... no meu sistema antigo com
paradoz e table funcionava perfeitamente, mas agora que tenho que fazer em sql,
ja que a table não ordena por data, complicou... segue abaixo a rotina, se
alguem puder melhorar ela ou uma forma melhor de fazer agradeço
procedure tfrmcaixa.calculasaldo;
var valor : currency;
begin
tbcaixa.refresh;
if querycaixa.recordcount = 1 then
begin
tbcaixa.locate('Registro',querycaixa['Registro'],[]);
tbcaixa.edit;
tbcaixa['Saldo'] := querycaixa['Entrada'] - querycaixa['Saida'];
tbcaixa.post;
querycaixa.refresh;
label5.caption := 'SALDO: '+formatfloat('###,##0.00',querycaixa['Saldo']);
end
else
begin
querycaixa.prior;
if (querycaixa['Saldo'] = null) or (querycaixa.bof) then
begin
tbcaixa.locate('Registro',querycaixa['Registro'],[]);
tbcaixa.edit;
tbcaixa['Saldo'] := querycaixa['Entrada'] - querycaixa['Saida'];
tbcaixa.post;
querycaixa.refresh;
end;
valor := querycaixa['Saldo'];
querycaixa.next;
while not querycaixa.eof do
begin
tbcaixa.locate('Registro',querycaixa['Registro'],[]);
tbcaixa.edit;
tbcaixa['Saldo'] := valor-querycaixa['Saida']+querycaixa['Entrada'];
tbcaixa.post;
querycaixa.refresh;
valor := querycaixa['Saldo'];
querycaixa.next;
end;
end;
label100.caption := 'SALDO: '+formatfloat('###,##0.00',querycaixa['Saldo']);
Att
Charles A. Chiodi
HNS Informática
[As partes desta mensagem que não continham texto foram removidas]
--
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL PROTECTED]
Chave de Identificação: 54568,48878ecd452791121010416
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar um botao auto executavel
O que queres dizer com um botão auto executável? Explique bem detalhadamente sua necessidade. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: Felipe Milagres To: delphi-br@yahoogrupos.com.br Sent: Monday, July 21, 2008 8:41 PM Subject: [delphi-br] Criar um botao auto executavel oi, estou precisando de fazer um botao que se auto execute ... porem nao sei como fazer isso att, Felipe Milagres 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] -- E-mail Seguro Vetorial.net Mensagem classificada como N�O-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identifica��o: 54568,4885be24239825399315076 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar um botao auto executavel
Bem, como os outros já comentaram, creio ser sem sentido ter um botão, já que o usuário nem sabe que ele existe, quanto mais clicar nele ... Mas, não vou entrar no mérito da questão ... no OnCreate do Form invoque o método Click do botão, assim: NomeDoBotao.Click; Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: Felipe Milagres To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 22, 2008 8:40 AM Subject: Re: [delphi-br] Criar um botao auto executavel tipo, é o seguinte eu fiz uma aplicação usando um botao en um form que quando apertado vai para outro form (Form2.ShowModal;) porem esse aplicativo que estou fazendo, o usuario nem saberá que ele existe, so sabe o que ele faz ... ou seja, ja que eu tenho um botao, eu precisaria que ele fosse ativado quando o aplicativo fosse axecutado . entendeu ??? []s, Felipe Milagres --- Em ter, 22/7/08, Alessandro DUARTE de Moraes [EMAIL PROTECTED] escreveu: De: Alessandro DUARTE de Moraes [EMAIL PROTECTED] Assunto: Re: [delphi-br] Criar um botao auto executavel Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 22 de Julho de 2008, 8:05 O que queres dizer com um botão auto executável? Explique bem detalhadamente sua necessidade. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacas arg.com.br (53) 3233-7118 - Original Message - From: Felipe Milagres To: [EMAIL PROTECTED] os.com.br Sent: Monday, July 21, 2008 8:41 PM Subject: [delphi-br] Criar um botao auto executavel oi, estou precisando de fazer um botao que se auto execute ... porem nao sei como fazer isso att, Felipe Milagres 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] - - E-mail Seguro Vetorial.net Mensagem classificada como N�O-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] net Chave de Identifica��o: 54568,4885be2423982 5399315076 [As partes desta mensagem que não continham texto foram removidas] 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] -- E-mail Seguro Vetorial.net Mensagem classificada como N�O-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identifica��o: 54568,4885d9cf239822275112643 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Confira meu perfil no Facebook
Francamente ... passível de bloqueio no grupo. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: Marco Eli da Silva To: delphi-br Sent: Monday, July 21, 2008 3:18 PM Subject: [delphi-br] Confira meu perfil no Facebook Criei um perfil no Facebook com minhas fotos, vídeos e eventos e quero adicionar-lhe como amigo para que você possa vê-los. Primeiro, você precisa cadastrar-se no Facebook! Uma vez cadastrado, você também pode criar seu próprio perfil. Atenciosamente, Marco Aqui está o link: http://www.facebook.com/p.php?i=1357764846k=ZVBZYW6S4X2M5BL1QDYTTVrv=2 ___ Este e-mail contém materiais promocionais. Se você não deseja receber futuros emails comerciais do Facebook, por favor clique no link abaixo. As agência do Facebook estão localizadas em 156 University Ave., Palo Alto, CA 94301 http://www.facebook.com/o.php?u=1080066852k=83ed89 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como N�O-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identifica��o: 54568,4884d2f2531625604213909 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Agrupamento Semanal
Buenos, isso só se resolve escrevendo função auxiliar para o banco de dados. Qual banco que estás utilizando? Mas alguns bancos já possuem a solução: no mysql podes agrupar utilizando a função WEEK(DATA_REFERENCIA) que funciona. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: henrique_filet To: delphi-br@yahoogrupos.com.br Sent: Thursday, July 17, 2008 11:30 AM Subject: [delphi-br] Agrupamento Semanal Bom dia galera... Vou expor o probleminha que estou enfrentando aqui e espero contar com a ajuda de vcs... Segte: Tem um relatório no meu sistema que exibo dados AGRUPADOS POR SEMANA baseado no período informado pelo usuário. A lógica que tenho implementado hoje estava funcionando bem até ocorrer a situação ocorrida. Meu select retorna os dados DIA A DIA sem agrupamento nenhum, daí, no delphi, eu faço o tratamento para agrupar. Faço um DayOfWeek na data retornado pelo select verificando se o retorno deste DayOfWeek é = 2 (Segunda-Feira), se for, realizo a quebra (o agrupamento pela Semana). O problema ocorreu que, no período solicitado pelo usuário, 17/04/2008 à 30/04/2008, não houve registros nenhum nos dias 20 e 21/04 (domingo e segunda-feira) daí a lógica existente falhou e não agrupou... Mesmo tendo mudado a semana. Abaixo segue como deveria ter sido o agrupamento: 17/04/2008 à 20/04/2008 21/04/2008 à 27/04/2008 28/04/2008 à 30/04/2008 Porém, como não houve registros nos dias 20 e 21, o agrupamento ficou assim: 17/04/2008 à 27/04/2008 28/04/2008 à 30/04/2008 Algum de vocês poderiam me ajudar a encontrar uma solução para estas situações??? Obrigado e conto com vossa ajuda. Sérgio -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,487fb635542742047117581 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como acessar arquivos num disco compartilhado na rede?
Já tive algumas dificuldades quando o servidor é XP e a estação é 98. Resolvi dando um net use F: \\SERVIDOR\COMPARTILHAMENTO /yes (onde F é a letra do drive). Mas teoricamente não haveria motivos para dar problemas ... coisas de windows :) Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 15, 2008 10:20 PM Subject: Re: [delphi-br] Como acessar arquivos num disco compartilhado na rede? A princípio não mudou nada, verifique os compartilhamentos, as permissões e se a rede está ok. poste mais detalhes. 2008/7/15 Carlos Negrão [EMAIL PROTECTED]: Tenho um sistema aqui que deixa fotos e um arquivo de configuração global no servidor, fora do banco de dados. Com o servidor usando Windows 98, tudo funciona perfeitamente, mas se usar Windows XP, parece não conseguir abrir nem o arquivo de configuração (do tipo Ini), nem as fotos. Houve alguma mudança na forma como arquivos são compartilhados do win98 pro XP? Alguém tem alguma idéia de como contornar isso? -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,487d4cc9612611769378534 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dica de um banco de dados em um únic o arquivo, sem servidor?
Buenos, tem o meledeto MS Access (MDB). Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Monday, July 14, 2008 2:22 PM Subject: [delphi-br] Dica de um banco de dados em um único arquivo, sem servidor? Olá amigos, alguém poderia me indicar um banco de dados, que utiliza apenas um arquivo, e não necessita de servidor? Sei que o firebird tem o embeded, mas tenho que levar a DLL e tals.. queria um, com o mesmo poder dele, porem sem as dlls e tals.. existe algum? Obrigado. []s -- _ .-. T.·.F.·.A.·. /v\ Fellipe Henrique // \\ http://www.linkedin.com/in/fellipehenrique /( )\ Sou a FAVOR da lei 0607/2007. ^^-^^ [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,487b8b6d516981070295079 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar função
Vai no www.torry.net que tem uma série de componentes que fazem o que precisas. http://www.torry.net/pages.php?id=307 Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: Luciano Calenzani Simões To: delphi-br@yahoogrupos.com.br Sent: Friday, July 11, 2008 9:01 AM Subject: Res: [delphi-br] Criar função O ^ é Potência. Luciano Calenzani Simões - Mensagem original De: Sandro Ricardo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 11 de Julho de 2008 8:58:08 Assunto: Re: [delphi-br] Criar função Olá 'xará', É bem tranquilo fazer esta função, só não entendi o '^' da fórmula... Abraços Sandro Ricardo 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] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,48774c23446091861215523 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Onde tá o erro nesse ShellExecute?
Creio que precisas colocar todo o path para executar o regedit.exe:
c:\windows\regedit.exe.
Funciona com o command /c porque usando assim ele busca no path.
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
(53) 3233-7118
- Original Message -
From: silvaburro
To: delphi-br@yahoogrupos.com.br
Sent: Monday, July 07, 2008 11:58 PM
Subject: [delphi-br] Onde tá o erro nesse ShellExecute?
var
i : integer;
begin
i := ShellExecute(0,Nil,'regedit.exe',PChar('/E ' +
ExpandFileName(PastaDesk)),PChar(SysWinDir),SW_HIDE);
if i = 0 then
begin
RemoveRestricoes := True;
ShowMessage('Backup criado com sucesso!');
end
else
ShowMessage('Não foi possível criar um backup correto do Registro do
Windows');
end;
Só dá a segunda mensagem e não cria o backup de jeito nenhum. Já
pesquisei na internet e só encontro para salvar uma chave e nunca o
regedit inteiro, essa foi a forma que encontrei no pau. Se colocar
command.com /c dá certo se eu colocar o path em c:\ (acho que é por
causa dos nomes longos). Estou pegando a pasta do Desktop + o nome do
arquivo na variável PastaDesk.
Ajudem por favor
Silva B. Uri de Rodrigues
[EMAIL PROTECTED]
P.S. - Desculpem o e-mail, mas a porcaria do Yahoo só disponibilizava
esse e eu precisava entrar neste grupo.
--
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL PROTECTED]
Chave de Identificação: 54568,4873464d935967215643955
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Listar nomes de objetos de um Form
Sim, pode ser usado, mas para isso vamos ter que testar se o componente em questão é um TControl (ou descendente de TControl). O código ficaria assim: for i:=0 to NomeDoFormulario.ComponentCount-1 do begin if Components[i] is TControl then begin Memo1.Add(Components[i].Name+' - Tem ENABLED'); end else begin Memo1.Add(Components[i].Name+' - não tem enabled'); end; end; No caso de querer utilizar o enabled, terias que fazer um typecast, dessa forma: TControl(Componentes[i]).Enabled := True; Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: ricshark01 To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 08, 2008 8:52 AM Subject: [delphi-br] Re: Listar nomes de objetos de um Form Aproveitando esse código, ou seja, usando Components[i].name tentei verificar se existe a propriedade Enabled para habilitar ou desabilitar o componente necessário e não encontrei essa propriedade. Este código poderia ser aproveitado para fazer isso ou tem outra forma para habilitar ou desabilitar os componentes do Form? Grato, Ricardo. --- Em delphi-br@yahoogrupos.com.br, Alessandro DUARTE de Moraes [EMAIL PROTECTED] escreveu for i:=0 to NomeDoFormulario.ComponentCount-1 do begin Memo1.Add(Components[i].Name+' - '+Components[i].ClassName+' - '+Components[i].Parent.Name); end; Coloquei no Memo1 o nome do componente, a classe dele e o nome do pai dele. Onde usei NomeDoFormulario, você pode usar Self caso for o mesmo form atual. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: ricshark01 To: delphi-br@yahoogrupos.com.br Sent: Monday, July 07, 2008 10:14 AM Subject: [delphi-br] Listar nomes de objetos de um Form Bom dia Galera, Por gentileza, alguém poderia me informar como eu consigo listar em um Memo,por exemplo, o nome de todos os objetos de um Form. Na verdade, preciso saber disso para poder habilitar/desabilitar os objetos conforme o usuário ter ou não acesso as funções daquele objeto. Esses acessos estarão cadastrados em uma tabela do meu banco de dados. Grato pela atenção, Ricardo. -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,487216a6199241451621240 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,487354eb637863768813542 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Listar nomes de objetos de um Form
for i:=0 to NomeDoFormulario.ComponentCount-1 do begin Memo1.Add(Components[i].Name+' - '+Components[i].ClassName+' - '+Components[i].Parent.Name); end; Coloquei no Memo1 o nome do componente, a classe dele e o nome do pai dele. Onde usei NomeDoFormulario, você pode usar Self caso for o mesmo form atual. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: ricshark01 To: delphi-br@yahoogrupos.com.br Sent: Monday, July 07, 2008 10:14 AM Subject: [delphi-br] Listar nomes de objetos de um Form Bom dia Galera, Por gentileza, alguém poderia me informar como eu consigo listar em um Memo,por exemplo, o nome de todos os objetos de um Form. Na verdade, preciso saber disso para poder habilitar/desabilitar os objetos conforme o usuário ter ou não acesso as funções daquele objeto. Esses acessos estarão cadastrados em uma tabela do meu banco de dados. Grato pela atenção, Ricardo. -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,487216a6199241451621240 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pegar Nº de Série do Processador
Bom e velho Google ... procurei por: serial number cpu creio que este artigo que retornou resolve: http://www.delphitricks.com/source-code/systeminfo/retrieve_cpu_information.html Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Leandro Santos To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 25, 2008 8:00 AM Subject: [delphi-br] Pegar Nº de Série do Processador Bom dia Amigos Gostaria de saber se alguem tem alguma rotina para pega o nº de série do processador do micro. Obrigado. Leandro Santos -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,48622582976623225916562 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Editor igual do delphi
Queres dizer o Code Editor? Tem um componente que era da RALib, que agora faz parte da JediVCL que faz o serviço! Não lembro do nome dele, mas o ícone do componente é uma folha branco com um PAS por sobre. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Jean Barreiros To: delphi-br@yahoogrupos.com.br Sent: Friday, June 06, 2008 5:28 PM Subject: [delphi-br] Editor igual do delphi Olá pessoal, gostaria de saber se alguém sabe como criar um editor igual o do delphi? Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como N�O-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identifica��o: 54568,48499e00509158789625666 [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Gravar e visualizar imagem do banco de dados
Este é o texto da discussão anterior que enviei. Para mais informações procure
a thread Grava imagens no Banco Interbase/Firebir ... essa minha mensagem
foi postada dia 14/05/2008.
Aqui sugiro que as imagens sejam gravadas no próprio banco de dados. Indico
sempre que seja utilizada a técnica de armazenar as imagens em uma tabela
dedicada para isso. Assim, qualquer tabela que precise de imagens apenas terá
um vínculo com a tabela de imagens.
Bem, mas para te ajudar mesmo, sugiro que trabalhes com vou mostrar. Para
auxiliar nessa tarefa, criei duas funções, assim para todos os casos que
tiverem imagens sempre elas. Neste caso uso os componentes da IBX, mas pode ser
usado como exemplo para migrar para outros componentes (por isso é bom usar
funções ...). Vale observar que trato aqui tanto para campos BLOB que receberão
imagens ou textos.
procedure LeCampoBlob(Query: TIBQuery; Campo: string; Propriedade: TPersistent);
var TempStream : TStream;
begin
TempStream := Query.CreateBlobStream(Query.FieldByName(Campo),bmRead);
if (Propriedade is TPicture) then begin
TPicture(Propriedade).BitMap.LoadFromStream(TempStream);
end else begin
TStrings(Propriedade).Clear;
TStrings(Propriedade).LoadFromStream(TempStream);
end;
TempStream.Free;
end;
procedure GravaCampoBlob(Query: TIBQuery; Parametro: string; Propriedade:
TPersistent);
var TempStream : TMemoryStream;
begin
TempStream := TMemoryStream.Create;
if (Propriedade is TPicture) then begin
TPicture(Propriedade).BitMap.SaveToStream(TempStream);
Query.Params.ParamByName(Parametro).LoadFromStream(TempStream,ftBlob);
end else begin
TStrings(Propriedade).SaveToStream(TempStream);
Query.Params.ParamByName(Parametro).LoadFromStream(TempStream,ftBlob);
end;
TempStream.Free;
end;
A utilização fica assim:
ps: utilizar abaixo que a imagem estará numa variável chamada IMAGEM
1) Para inserir uma imagem no banco de dados use o seguinte esquema
QInsert.SQL.Text := 'INSERT INTO tabela (codigo,nome,foto) VALUES
(:codigo,:nome;:foto)';
QInsert.SQL.ParamByName('codigo').AsString := Edit1.Text;
QInsert.SQL.ParamByName('nome').AsString := Edit2.Text;
GravaCampoBlob(QInsert,'foto',IMAGEM);
QInsert.ExecSQL;
2) Para ler uma imagem do banco ...
QSelect.SQL.Text := 'SELECT nome,foto FROM tabela WHERE codigo=:codigo';
QSelect.SQL.ParamByName('codigo').AsString := Edit1.Text;
QSelect.Open;
Edit2.Text := QSelect.FieldByName('nome').AsString;
LeCampoBlob(QSelect,'foto',IMAGEM);
QSelect.Close;
Depois faça ...
COMPONENTE_IMAGE.Picture.BitMap.Assign(IMAGEM);
é mais ou menos isso ... adptei essas funções da minha classe de persistência
...
Espero que isso te ajude.
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Carlos
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 20, 2008 6:32 PM
Subject: Re: RES: [delphi-br] Gravar e visualizar imagem do banco de dados
Me desculpe a insistência, mas é que nunca precisei efetuar um
cadastro com foto, e que precisa-se ser exibido em um sistema em rede,
mas como assim colocar a imagem em um caminho de rede comum?
Sem querer ser abusado, o colega poderia ser um pouco mais específico?
Quanto a sugestão do colega Alessandro DUARTE de Moraes compreendo
que alguns assuntos são maçantes, mas antes de mais nada, explico-lhe
que procurei na lista por assuntos relacionados, mas nada que pudesse
me ajudar, procurei no google também.
Agradeço de antecipadamente por qualquer ajuda!
Carlos
--- Em delphi-br@yahoogrupos.com.br, Davi Eduardo Borges Wall
[EMAIL PROTECTED] escreveu
Basta colocar a imagem em um caminho de rede comum para todas as
maquinas
De: delphi-br@yahoogrupos.com.br [mailto:delphi-
[EMAIL PROTECTED] Em nome de Alessandro DUARTE de Moraes
Enviada em: segunda-feira, 19 de maio de 2008 18:01
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Gravar e visualizar imagem do banco de
dados
Este assunto foi discutido na semana passada. Sugiro que você dê
uma olhada pois foram abordados vários casos.
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Carlos
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%
40yahoogrupos.com.br
Sent: Monday, May 19, 2008 4:57 PM
Subject: [delphi-br] Gravar e visualizar imagem do banco de dados
Boa tarde a todos!!
Solicito ajuda aos colegas com mais este problema:
Tem um sistema que captura uma foto com o caminho do banco de dados
e
apresenta para o usuário. Até ai tudo bem, mas o problema é que
este
sistema é usado na rede, e caso o usuário tente visualizar a imagem
em uma máquina diferente de onde estão as imagens, ocorre um erro
porque ele não encontra
Re: [delphi-br] Gravar e visualizar imagem do banco de dados
Este assunto foi discutido na semana passada. Sugiro que você dê uma olhada
pois foram abordados vários casos.
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Carlos
To: delphi-br@yahoogrupos.com.br
Sent: Monday, May 19, 2008 4:57 PM
Subject: [delphi-br] Gravar e visualizar imagem do banco de dados
Boa tarde a todos!!
Solicito ajuda aos colegas com mais este problema:
Tem um sistema que captura uma foto com o caminho do banco de dados e
apresenta para o usuário. Até ai tudo bem, mas o problema é que este
sistema é usado na rede, e caso o usuário tente visualizar a imagem
em uma máquina diferente de onde estão as imagens, ocorre um erro
porque ele não encontra o caminho.
Alguém poderia me dar uma ajuda neste sentido, com um tutorial, ou
link...por favor...
Uso DBExpress, MySql 5.0, Delphi 7.
//Este é o código para exibir a imagem
dmCadastro.cdsFotos.Close;
dmCadastro.cdsFotos.Params[0].Value :=
dmCadastro.cdsEfetivorf.Value;
dmCadastro.cdsFotos.Open;
if not (dmCadastro.cdsFotos.IsEmpty) then
imgFoto.Picture.LoadFromFile(dmCadastro.cdsFotosfoto.Value)
else
imgFoto.Picture := nil;
//Este é o código que salva a imagem
if dlgOpenPicFoto.Execute then
begin
dmCadastro.cdsFotos.Insert;
dmCadastro.cdsFotosrf.Value :=
dmCadastro.cdsEfetivorf.Value;
imgFoto.Picture.LoadFromFile(dlgOpenPicFoto.FileName);
dmCadastro.cdsFotos.FieldByName('Foto').AsString :=
dlgOpenPicFoto.FileName;
dmCadastro.cdsFotos.Post;
end;
Agradeço antecipadamente a atenção dispensada.
att
Carlos
--
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL PROTECTED]
Chave de Identificação: 54568,4831dc66542791418011894
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir
Vou me meter na conversa outra vez :) O Bruno pode até dar o parecer sobre isto: eu sempre uso apenas uma tabela do banco exclusivamente para armazenar imagens, e as outras tabelas que precisariam de imagens (pessoa, imóvel, ...) faço uma ou mais referências à tabela de imagens. Creio que isso poderia ajudar tb no caso de um problema de corrupção no banco. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Bruno Lichot To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 14, 2008 3:42 PM Subject: RE: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir Em 5 anos usando imagens no banco, e bases especificas de imagem começando em 10gb, eu nunca tive corrupção de banco de dados em nenhum cliente, mas meu banco em termos de hardware e sofwtrae está sempre bem cuidado. Inclusive tenho alguns casos grandes em FireBird que funcionam a mais de 4 anos perfeitamente. Abs BL From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Alcistemas Informática Sent: quarta-feira, 14 de maio de 2008 15:07 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir Bruno, desculpe entrar no tópico. Tenho um projeto com 90.000 imagens para por isso em banco de dados, quanto a desempenho, não vejo problema algum, é só tomar alguns cuidados nos selects e etc.. epronto. O que me preocupa é em caso se corromper o banco de dados, isso poderia dificultar ainda mais o processo de recuperação do banco de dados ? Alcione Guimarães (11)9515-8707 - Original Message - From: Bruno Lichot To: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, May 13, 2008 5:31 PM Subject: RE: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir Meus sistemas e este exemplo estão preparados para trabalhar somente em rede, e com distribuição geográfica. Meus sistema trabalham com persistência de imagens sempre no banco, e a maioria são ERPs de missão crítica. E sempre em redes e maioria com distribuição geográfica através de vpn, link dedicado e internet, sendo que a maioria é pela internet :D Abs BL From: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br] On Behalf Of Ricardo Cabral Sent: terça-feira, 13 de maio de 2008 17:22 To: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br Subject: RE: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir Bruno, E se o sistema for em rede, será se o banco não ficaria muito lento? Bruno Lichot [EMAIL PROTECTED]mailto:bruno.lichot%40codegear.commailto:bruno.lichot%40codegear.com escreveu: No meu link de downloads gratuitos(HTTP://cc.codegear.com/author/795118), no primeiro exemplo, no cadastro de cliente eu trabalho com fotos dos clientes. E está funcional e otimizado a forma de se trabalhar com persistência no banco de imagens. Eu apenas recomendaria, que no caso de produção, não use a mesma tabela de clientes para armazenar a foto, mas que crie uma tabela clientes foto, não somente pela melhora do armazenamento, mas também pela organização e dificulta que algum estagiário desavisado ou programador inexperiente aplique um select * na tabela de clientes e trafegue aquele montão de fotos desnecessariamente :D. Sobre pesar no banco, olha, é claro que bancos de dados com imagens o fazem crescer mais, mas o fato do banco ficar lento, está mais relacionado com a sua construção, manutenção e configuração do que conter fotos ou não. Um banco de dados sem fotos corre os mesmos riscos de ser lento. Abs BL From: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br] On Behalf Of rafaelpinto19 Sent: terça-feira, 6 de maio de 2008 19:17 To: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir Alessandro, Ricardo e Bruno e aos demais membros do Grupo, quero agradecer por tentarem me expilcar e ajudar a resolver este problema, Estou em fase de aprendizagem ainda. Eu tentei um código, mas não deu certo. Mas perece q eu estou no caminho certo. No Primeiro momento eu até pensei que consegui gravar a imagen capturada, pensei em ter conseguindo resolver o problema. Sempre quando faço uma consulta para retornar a foto da pessoa resgitrada no Sistema, sempre aparece a foto da última imagem capturada. Ou seja...se eu registrei João, Maria e José respectivamente e capturei a foto de cada um deles, mesmo eu consultando o João, sempre me rotorna a imagem do José, por ter sido o último quem o sistema capturou
Re: [delphi-br] Seria isso um Bug no Delphi?
Cara, tô vendo muita gente falar de bug no Delphi ... seguinte, uma coisa é ter um bug na ferramenta de desenvolvimento, isto é, a IDE do Delphi ... outra coisa é falar da linguagem, compilador. Creio que quem tem reclamado de bugs no DELPHI nunca usou o MS Visual Basic como eu tive que uma vez engolir (graças a Deus foi por apenas 4 meses, o que pareceu uma verdadeira eternidade). A IDE do Delphi até pode ter alguns bugs ... componentes até podem ter bugs (para isso basta colocar a mão na massa e resolver - como fiz com alguns componentes da Indy que não estavam se comportando adequadamente). Mas a linguagem Delphi - bom e velho Object Pascal - nesta eu não vejo problema algum, exceto casos de gerencimento de memória, que ainda é algo nebuloso no Windows. Francamente, se o sistema de controla a luz fosse desenvolvido em Delphi, creio que seria mais fácil prever um APAGÃO hehehehe Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 13, 2008 4:53 PM Subject: Re: [delphi-br] Seria isso um Bug no Delphi? Bom, se tiver um sistema que controle a luz, e este sistema for desenvolvido em delphi, é bem provável.. []s 2008/5/13 [EMAIL PROTECTED]: Não é João, é que gato-escaldado-tem-medo-de-agua-fria. Então, de tanto bug, ja encontrado e que acabam acompanhando novas versões, se a luz da sala pisca o culpado é o BUG do DELPHI heheheh []s Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 50a) - 2008.03.31 -- From: Joao Morais Sent: Tuesday, May 13, 2008 4:36 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Seria isso um Bug no Delphi? Fellipe Henrique wrote: Olá amigos, Tenho um FormBasico, que nele, tenho as Units que declarei, quando herdo um Form dele, teoricamente, as Units não deveriam ir também? Melhor explicando... tenho uma função na unit uFuncoes no FrmBasico, inclui no uses a uFuncoes, crio um outro form herdado dele, e quero usar a função novamente, eis que dá erro na compilação, sou obrigado a redeclarar a unit uFuncoes. Se estou herdando, não deveria vir tudo? Não. Como diz o filósofo: uma coisa é uma coisa, outra coisa é outra coisa. E btw que mania vocês têm de falar -- tudo é um possível bug do Delphi. -- Joao Morais [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,4829f1ae981041622916136 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ON/OFF TOPIC
Sim ... um exemplo é a ZeosLib (para acesso ao Mysql, Firebird, ...) mas é claro que o componente tem que ter uma versão para FreePascal. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 08, 2008 12:14 PM Subject: [delphi-br] ON/OFF TOPIC No Lazarus (FreePascal) , posso usar componentes de terceiros ? [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,482318c1767149480442451 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir
Teu problema para recuperar a imagem está na linha em negrito que coloquei
abaixo:
procedure TProcFoto.DBGrid1DblClick(Sender: TObject);
begin
Principal.Edit1.Text := Query1.fieldbyname('CODIGO').AsString;
Principal.Edit2.Text := Query1.fieldbyname('NOME').AsString;
Principal.imgFoto.Picture.Bitmap.LoadFromFile(Principal.Camera1.FichierImage);
close;
end;
Neste código estás pegando a imagem do arquivo e não do banco de dados.
Bem, mas para te ajudar mesmo, sugiro que trabalhes com vou mostrar. Para
auxiliar nessa tarefa, criei duas funções, assim para todos os casos que
tiverem imagens sempre elas. Neste caso uso os componentes da IBX, mas pode ser
usado como exemplo para migrar para outros componentes (por isso é bom usar
funções ...). Vale observar que trato aqui tanto para campos BLOB que receberão
imagens ou textos.
procedure LeCampoBlob(Query: TIBQuery; Campo: string; Propriedade: TPersistent);
var TempStream : TStream;
begin
TempStream := Query.CreateBlobStream(Query.FieldByName(Campo),bmRead);
if (Propriedade is TPicture) then begin
TPicture(Propriedade).BitMap.LoadFromStream(TempStream);
end else begin
TStrings(Propriedade).Clear;
TStrings(Propriedade).LoadFromStream(TempStream);
end;
TempStream.Free;
end;
procedure GravaCampoBlob(Query: TIBQuery; Parametro: string; Propriedade:
TPersistent);
var TempStream : TMemoryStream;
begin
TempStream := TMemoryStream.Create;
if (Propriedade is TPicture) then begin
TPicture(Propriedade).BitMap.SaveToStream(TempStream);
Query.Params.ParamByName(Parametro).LoadFromStream(TempStream,ftBlob);
end else begin
TStrings(Propriedade).SaveToStream(TempStream);
Query.Params.ParamByName(Parametro).LoadFromStream(TempStream,ftBlob);
end;
TempStream.Free;
end;
A utilização fica assim:
ps: utilizar abaixo que a imagem estará numa variável chamada IMAGEM
1) Para inserir uma imagem no banco de dados use o seguinte esquema
QInsert.SQL.Text := 'INSERT INTO tabela (codigo,nome,foto) VALUES
(:codigo,:nome;:foto)';
QInsert.SQL.ParamByName('codigo').AsString := Edit1.Text;
QInsert.SQL.ParamByName('nome').AsString := Edit2.Text;
GravaCampoBlob(QInsert,'foto',IMAGEM);
QInsert.ExecSQL;
2) Para ler uma imagem do banco ...
QSelect.SQL.Text := 'SELECT nome,foto FROM tabela WHERE codigo=:codigo';
QSelect.SQL.ParamByName('codigo').AsString := Edit1.Text;
QSelect.Open;
Edit2.Text := QSelect.FieldByName('nome').AsString;
LeCampoBlob(QSelect,'foto',IMAGEM);
QSelect.Close;
Depois faça ...
COMPONENTE_IMAGE.Picture.BitMap.Assign(IMAGEM);
é mais ou menos isso ... adptei essas funções da minha classe de persistência
...
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: rafaelpinto19
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 06, 2008 7:16 PM
Subject: [delphi-br] Re: Gravar imagens no Banco Interbase/Firebir
Alessandro, Ricardo e Bruno e aos demais membros do Grupo, quero
agradecer por tentarem me expilcar e ajudar a resolver este problema,
Estou em fase de aprendizagem ainda. Eu tentei um código, mas não deu
certo. Mas perece q eu estou no caminho certo. No Primeiro momento eu
até pensei que consegui gravar a imagen capturada, pensei em ter
conseguindo resolver o problema. Sempre quando faço uma consulta para
retornar a foto da pessoa resgitrada no Sistema, sempre aparece a foto
da última imagem capturada. Ou seja...se eu registrei João, Maria e
José respectivamente e capturei a foto de cada um deles, mesmo eu
consultando o João, sempre me rotorna a imagem do José, por ter sido o
último quem o sistema capturou a imagem. Postei esse meu código para
ver onde eu estou errando e ver se vcs conseguem me ajudar a resolver
este problema.
procedure TPrincipal.BtnGravarClick(Sender: TObject);
begin
//imgFoto.Visible:= True;
imgFoto.Picture.Bitmap.LoadFromFile(Camera1.FichierImage);
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('insert into VISITA(CODIGO,NOME,FOTO) values
(:CODIGO,:NOME,:FOTO)');
Query.ParamByName('FOTO').LoadFromFile(Camera1.FichierImage,ftBlob);
//:= imgFoto.Picture.Bitmap.LoadFromFile(Camera1.FichierImage);
Query.ParamByName('CODIGO').AsString := Edit1.Text;
Query.ParamByName('NOME').AsString := Edit2.Text;
Query.ExecSQL;
Query.Transaction.Commit;
Query.Transaction.Active := true;
end.
Onde:
. imgFoto = TImage(Image), é o 6º componente da palheta Aditional no
Delphi e responsável pela visualização de imagens, fotos e etc.
. Camera1 =TCamera(Câmera), É o único componente da palheta Yves e é
responsável pela visualização de imagens de uma Webcam ou Câmeras
digitais. Nela conseguimos fazer a devidas e necessárias capturas.
e esse é o código que eu uso na para visualizar os dados e foto do
registro consultado.
procedure TProcFoto.DBGrid1DblClick(Sender: TObject);
begin
Principal.Edit1.Text := Query1.fieldbyname('CODIGO
Re: [delphi-br] Gravar imagens no Banco Interbase/Firebir
Essa discussão é bem relevante, então cito alguns pontos a favor: 1) Para acessos remotos, isto é, o servidor está em uma localidade e o cliente em outra, não vejo uma forma mais coerente do que ter a imagem tb no banco de dados 2) Menos gambiarra qdo for executar uma select para relatórios ... Para completar, sugiro que seja criada uma tabela no banco que seja dedicada a armazenar imagens, apenas com 2 campos: id INTEGER e imagem BLOB e nas tabelas que são necessárias ter uma ou mais imagens basta colocar campos referenciando ao id desta tabela de imagens. Tive experiências traumáticas com as imagens em uma pasta ... mas uma solução bem elaborada pode dar certo, exceto no caso do item 1 que citei acima. Abraços, Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ricardo Cabral To: delphi-br@yahoogrupos.com.br Sent: Monday, May 05, 2008 2:02 PM Subject: RE: [delphi-br] Gravar imagens no Banco Interbase/Firebir Bruno, Gravando no banco não deixaria o mesmo muito pesado ? Bruno Lichot [EMAIL PROTECTED] escreveu: Eu prefiro gravar imagens no banco, é mais rápido de trabalhar e no meu modo de ver mais seguro também. Abs BL From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Ricardo Cabral Sent: segunda-feira, 5 de maio de 2008 13:34 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Gravar imagens no Banco Interbase/Firebir Acho que seria mais interessante gravar somento o caminho da imagem no BD e gravar a imagem numa pasta. rafaelpinto19 [EMAIL PROTECTED]mailto:rafaelpinto%40cdsol.com.br escreveu: Olá galera, Alguém poderia me explicar como gravar imagens no Banco de dados pelo delphi, Estou usandon o componente Tcamera para Visualizar a imagem pela webcam e o componente TImage para Capturar. Agora salvar a imagem no Banco eu nnão sei ainda. Se tive rum rotina ou um código simples. Eu vou agradecer bastante. Obrigado pela atenção!!! Abraços, Ricardo Cabral - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Abraços, Ricardo Cabral - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,481f3db9196851913172569 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Gerador de Relatorios..
Sugiro o FastReport, que inclusive tem uma versão Free que é muito boa. www.fast-report.com Eu utilizo a versão Free já faz tempo e não tenho do que me queixar. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Vinicius da Silva Pinto To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 29, 2008 1:12 PM Subject: [delphi-br] Gerador de Relatorios.. Salve a todos... Alguem poderia me indicar um gerador de relatorios que seja similar ao ReportBuilder, onde eu posso comprar, se é free ou não... pois estou tendo dificuldade de comprar o mesmo com o representante aqui no Brasil. É para ser utilizado com D7 e FB, não estou conseguindo tirar muito proveito do Rave. Agradeço qualquer dica e sugestão... Vinicius. Tel (21) 8816-2404 -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,4817513c952341644335774 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] query
Pelo que entendi queres executar 2 query's, por que segundo o que disseste não há relacionamentos entre uma e a outra. Se você faz isso ao pressionar um botão, então execute uma query, pegue os resultados e depois execute a outra ... simples assim. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Eduardo Oliveira silva To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 22, 2008 10:11 AM Subject: [delphi-br] query Pessoa. Eu posso usar duas query em uma só função. ex. no meu formulário tem um botão que pesquisa um campo e joga o resultado em algumas label. uso uma adoquery para fazer isso. Posso usar mais uma para buscar dados em uma outra tabela que não se relaciona, como ficaria o código. Já tentei mais sempre dá erro. -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,480deefe162185532659233 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] query
Então queres que retorne valores que não se relacionam numa mesma query?
Buenos, talvez seja isso então:
SELECT '01' as CODIGO, desc AS NOME, vlr AS VALOR FROM tabela1
WHERE condição1
UNION
SELECT '02' as CODIGO, nome AS NOME, vlr_final AS VALOR FROM tabela2
WHERE condição2
Isso seria uma forma de unir 2 querys em uma só. Mas para isso os nomes das
colunas precisam ser os mesmos, por isso utilizei o AS ...
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Eduardo Oliveira silva
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, April 22, 2008 1:45 PM
Subject: Re: [delphi-br] query
è isso mesmo, mais se eu tiver uma query1 e uma query2.
são tabelas diferentes.
Em 01/05/08, Alcistemas Informática [EMAIL PROTECTED] escreveu:
até pode,
porém a query não pode ter campos adicionados nela.
segundo antes de usar a query tem que limpa-la.
ex:
var
grupo_cli:integer;
begin
query1.close;
query1.sql.clear;
query1.sql.add('select * from clientes');
query1.open;
grupo_cli := query1.fieldbyname('GRUPO').value;
EditCodigo.text := query1.fieldbyname('codigo').text;
EditNome.text := query1.fieldbyname('Nome').text;
query1.close;
query1.sql.clear;
query1.sql.add('select descricao from grupos_de_clientes where codigo
=:busca');
query1.parameters.parambyname('busca').value := grupo_cli;
query1.open;
EditGrupo.text := query1.fieldbyname('descricao').text;
se for algo parecido está aí..
- Original Message -
From: Eduardo Oliveira silva
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Tuesday, April 22, 2008 10:11 AM
Subject: [delphi-br] query
Pessoa. Eu posso usar duas query em uma só função.
ex.
no meu formulário tem um botão que pesquisa um campo e joga o
resultado em algumas label.
uso uma adoquery para fazer isso. Posso usar mais uma para buscar
dados em uma outra tabela que não se relaciona, como ficaria o código.
Já tentei mais sempre dá erro.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL PROTECTED]
Chave de Identificação: 54568,480e1b18223227374815427
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Campos incompatíveis.
Qual método de acesso (componente) estás utilizando? Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Pedro Henrique To: Pedro Henrique Sent: Friday, April 11, 2008 4:28 PM Subject: [delphi-br] Campos incompatíveis. Boa tarde, eu trabalho com dois bancos, Firebird 1.5 e Sql Server 2005. Hoje estava testando algumas rotinas convertidadas para o Delphi 2007 e me deparei com este erro: TYPE MISMATCH FOR FIELD 'DESCRIÇÃO', EXPECTING: STRING ACTUAL: WIDESTRING, eu estava acessando o sistema pelo Sql Server, e no Firebird ele traz todos os campos varchar como TString e no Sql ele traz como TWildString, como faço para o delphi tratar os dois da mesma forma? [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47ffbcdd851921247820763 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Nível Master vai enc arar?
Se estás utilizando herança para os forms MDI Child então não será difícil. No pai dos Child ... crie duas variaveis no private: Altura, Largura : integer; escreva no OnShow: Altura := Heigth; Largura := Width; escreva no OnResize: Width := Largura; Altura := Heigth; Isso garantirá que mesmo permitindo o redimensionamento, não será possível mudar o tamanho ... Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Juliano Silva - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Monday, April 07, 2008 8:52 AM Subject: [delphi-br] Nível Master vai encarar? Boa tarde pessoal Estou com o seguinte problema, tenho uma aplicação MDI, não posso deixar que os Forms filhos sejam redimencionados, para isso tenho que deixar os Forms com a propriedade BorderStyle = bsSingle, no entanto o sistema não pode ter este tipo de borda (o único que ví que consegue bloquear o redimencionamento do Form em aplicações MDI), o sistema tem que ter bordas do tipo bsDialog agora o meu problema, com a borda BSDialog é possível redimencionar o Form, tenho que bloquear isso... estou tentando no momento mas sem sucesso, alguem pode me ajudar? att. Juliano Silva [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47fa0afe897591736616566 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda em select
Outra dica para achar mais fácil os prováveis repetidos: select cliente.dt_nascimento, SUBSTRING(cliente.nome FROM 1 FOR 5) AS nome5, count(*) as qtd from cliente group by 1,2 having count(*)1 order by 3 desc Dessa forma vc vai agrupar além da data de nascimento, também pela inicial do nome (5 primeiro caracteres). Para evitar que dois clientes que tenham a mesma data de nascimento com nomes completamente diferentes não entrem na jogada. Esse testa ajuda em casos como este: 1) ALESSANDRO DUARTE DE MORAES - 29/06/1973 2) ALESSANDRO D. DE MORAES - 29/06/1973 3) FULANO DE TAL - 26/06/1973 nesse caso o 1 e o 2 seriam agrupados juntos e o 3 separado. Espero ter ajudado. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 03, 2008 10:13 AM Subject: RE: [delphi-br] Ajuda em select Quando se usa a cláusula IN com uma consulta SQL, a mesma deve retornar apenas uma coluna, e vc está retornando duas. Ao invés de IN, tente usar EXISTS. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 10:00:57 -0300 Subject: [delphi-br] Ajuda em select Pessoal, Tenho uma tabela de clientes em uma banco firebird 2.0, e podem existir clientes repetidos nesta tabela. Através do select abaixo trago as possívies ocorrências que provavelmente estão repetidos. select cliente.dt_nascimento, count(cliente.id_cliente) from cliente group by cliente.dt_nascimento having count(cliente.id_cliente) 1 order by count(cliente.id_cliente) Necessito de um outro select para listar os nomes e fazer uma conferência e excluir os repedidos de fato, algo do tipo: select cliente.nome from cliente where cliente.dt_nascimento in (select cliente.dt_nascimento, count(cliente.id_cliente) from cliente group by cliente.dt_nascimento having count(cliente.id_cliente) 1 order by count(cliente.id_cliente)) Mais é exibida a seguinte mensagem de erro: Invalid token. Dynamic SQL Error. SQL error code = -104. Invalid command. count of column list and variable list do not match. Agradeço antecipadamente a ajuda dos colegas. Um forte abraço, Odail __ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47f4d865618711731228608 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OOF-TOPIC]
Caraca, para isso terias que efetuar alguns cálculos referentes a ano bissexto. Não vele tentar mostra dentro do Excel? Daí tu podes colocar o seguinte: celula A1: informar a data inicial - formato Data celula B1: informa a data final - formato Data celula A2: =A1 (fórmula) - formato Numérico celula B2: =B1 (fórmula) - formato Numérico Daí podes fazer B2-A2 ... podes explicar que as datas no Excel começam em 01/01/1900, isto é, o número 1 corresponde a 01/01/1900, o 2 seria 02/01/1900 e assim por diante. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Luciano Topolniak To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 03, 2008 10:26 AM Subject: [delphi-br] [OOF-TOPIC] Olá Pessoal, bom dia. Eu estou com um problema aqui e preciso da ajuda de vocês. Preciso demonstrar matematicamente o cálculo da diferença entre duas datas para alguns usuários do sistema. 21/12/1978 a 15/10/2008 quantos dias tem? Há uma fórmula matemática que retorne facilmente o número de dias existentes entre essas duas datas? Lembrando mais uma vez pessoal, é na caneta, nada de programação. Obrigado pela atenção. []'s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adjalma Costa Enviada em: quinta-feira, 3 de abril de 2008 08:16 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Delphi com Excel Amigos da lista, Estou exportando dados para planilhas do Excel, usando os componentes tExcelApplication E ExcelWorksheet. Gostaria de saber como fazer para enviar células mescladas. Se alguém puder me ajudar ficarei muito grato. sds Adjalma - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1928 (20061219) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47f4ead9912477643768508 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Capturar comandos do Dos
CARACA!!! Já faz um bom tempo que tava procurando por isso ... é bem possível
que não estava sabendo procurar (hahahahaha).
Vou testar ... muito bom mesmo, valeu Walter!
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Walter Chagas (Yahoo)
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, April 01, 2008 3:55 PM
Subject: [delphi-br] Re: Capturar comandos do Dos
Minha gente,
Pesquisando na seção de arquivos da lista sobre como capturar a saída
do console e jogá-lo em um Memo, me deparei com esta thread já antiga
sobre o assunto. E, pesquisando por aí encontrei estas três perolas
DA HORA pra ninguem colocar defeito:
http://www.delphi3000.com/articles/article_2112.asp
http://www.delphi3000.com/articles/article_2298.asp
http://www.delphi3000.com/articles/article_3361.asp
E antes que alguém fale, FUNCIONAM!
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
http://delphiatcorporerm.blogspot.com
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr
--- Em delphi-br@yahoogrupos.com.br, Leandro Carbonera
[EMAIL PROTECTED] escreveu
E ai galera
Alguem sabe se é possivel capturar o resultado de um comando de DOS
e joga-lo num memo como por exemplo você executar via delphi um
comando do tipo Winexec('dir',sh_Shownormal) e jogar o resultado num
memo
[As partes desta mensagem que não continham texto foram removidas]
--
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL PROTECTED]
Chave de Identificação: 54568,47f28542605551696283040
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Organizar arquivos
Sim, podes. A única restrição é que Units (*.pas) e Forms (*.dfm ou *.xfm) irão ficar no mesmo diretório. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Edmilson Pontes To: delphi-br@yahoogrupos.com.br Sent: Friday, March 28, 2008 1:03 PM Subject: [delphi-br] Organizar arquivos Colegas, Então não tem como configurar para que cada tipo de arquivo fique numa pasta? Edmilson Pontes Em 27/03/08, Joao Morais [EMAIL PROTECTED] escreveu: Jackson Gomes - ToolsComps wrote: Outros .PAS e demais arquivos podem ficar em diretórios diferentes, mas tem que estar no search path do projeto ou no global. Apenas se os arquivos não fazem parte do projeto. -- Joao Morais [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47ed1952596582308070739 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componentes - Posicionamento de TImage
1) te aconselho a tirar o LogoPJ.Parent := Self; de dentro AtualizarLogotipos
... não DEVE ser necessário;
2) Tente atribuir a imagem utilizando LogoPJ.Picture.Assign( Picture )
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Paulo Jorge
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 28, 2008 4:17 PM
Subject: [delphi-br] Componentes - Posicionamento de TImage
Criei um componente para, dentre outras funções, exibir os logotipos
da empresa. Acontece que o logotipo LogoPJ (Timage) não fica
posicionado corretamente quando em runtime. Em design time está perfeito.
Constatei que o Parent a ele atribuído durante a fase de design, se
perde durante a execução, tornando-se nulo. Uma vez sem parent, perde
a referência de posicionamento. Como resolver isso?
Segue o código:
unit PJSet;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
ExtCtrls, stdctrls, IniFiles, dbtables, ShellAPI, ComCtrls;
type
TPJLogo = (atPJPequeno, atPJNormal, atPJGrande, atPJNenhum);
type
TPJSet = class(TPanel)
private
{ Private declarations }
sDelphiAtivo : boolean;
sMContasPresente: boolean;
sMContasExeName : string;
sEmiteEtiqueta, sMultiplaInstancia : boolean;
sServidor, sRegistrado : boolean;
sLogotipoTela, sLogotipoImp, sLogotipoEtiq : string;
sUsuario, sComplemento,sUsuAtual, sNivelUsuAtual : string;
LogoTela, LogoPJ : TImage;
PanelClient, PanelRight, PanelLogoPJ : TPanel;
protected
{ Protected declarations }
public
{ Public declarations }
{sobregravando o método Create}
constructor Create(AOwner: TComponent); override;
//destructor Destroy; override;
function ConfigurarSistema : boolean;
function ConfigurarLogotipo : boolean;
function ConfigurarTituloRelatorio: boolean;
function ExecutarArquivo(const NomeDoArquivo, Parametros,
DiretorioPadrao: string;
ModoDeExibicao: Integer): THandle;
procedure VerificarUsuario;
procedure AtualizarLogotipos;
procedure VerificarSistemas;
property LogotipoTela : string read sLogotipoTela write sLogotipoTela;
property LogotipoImp : string read sLogotipoImp write sLogotipoImp;
property LogotipoEtiq : string read sLogotipoEtiq write sLogotipoEtiq;
property UsuarioAtual : string read sUsuAtual write sUsuAtual;
property NivelUsuarioAtual : string read sNivelUsuAtual write
sNivelUsuAtual;
property MContasPresente : boolean read sMContasPresente write
sMContasPresente;
property MContasExeName : string read sMContasExeName write
sMContasExeName;
property DelphiAtivo : boolean read sDelphiAtivo write sDelphiAtivo;
published
{ Published declarations }
property _Servidor : boolean read sServidor write sServidor;
property _Usuario : string read sUsuario write sUsuario;
property _Complemento : string read sComplemento write sComplemento ;
property _Registrado : boolean read sRegistrado write sRegistrado;
property _EmiteEtiqueta : boolean read sEmiteEtiqueta write
sEmiteEtiqueta;
property _MultiplaInstancia : boolean read sMultiplaInstancia
write sMultiplaInstancia;
end;
procedure Register;
implementation
{$R PJSET.RES}
Uses MTitcfg, MLogocfg, PJConfig;
function TPJSet.ExecutarArquivo(const NomeDoArquivo, Parametros,
DiretorioPadrao: string;
ModoDeExibicao: Integer): THandle;
//Parâmetro 1 - Arquivo;
//Parâmetro 2 - Parâmetros;
//Parâmetro 3 - Diretório Default;
//Parâmetro 5 - Estado da Janela;
var
zFileName, zParams, zDir: array[0..149] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, NomeDoArquivo), StrPCopy(zParams, Parametros),
StrPCopy(zDir, DiretorioPadrao), ModoDeExibicao);
end;
function TPJSet.ConfigurarLogotipo : boolean;
begin
if _Registrado then
begin
Application.CreateForm(TFormLogotipos, FormLogotipos);
if not _EmiteEtiqueta then
begin
FormLogotipos.ComboBox1.Items.Delete(2);
FormLogotipos.GroupBox3.Visible := False;
FormLogotipos.BitBtnOK.Top := 190;
FormLogotipos.BitBtnCancel.Top := 190;
FormLogotipos.Height := 250;
end;
FormLogotipos.ShowModal;
if FormLogotipos.ModalResult = mrOK then
begin
Result := True;
end
else
Result := False;
FormLogotipos.Free;
end
else
begin
MessageDlg('Somente usuários registrados podem alterar essa
configuração. '+
'Veja como registrar esse Sistema no item de menu
Ajuda/Registrar.', mtWarning,
[mbOk], 0);
Result := False;
end;
end;
function TPJSet.ConfigurarSistema: boolean;
begin
if _Registrado then
begin
Application.CreateForm(TFormPJConfig,FormPJConfig);
FormPJConfig.ShowModal;
if FormPJConfig.ModalResult = mrOK then
begin
Result := True;
end
else
Result := False;
FormPJConfig.Free;
end
else
begin
MessageDlg('Somente usuários registrados podem alterar essa
configuração. '+
'Veja como registrar esse Sistema
Re: [delphi-br] array no firebird
Me diga por que dizes: Estou tendo que trabalhar com tipo array Sinceramente, nunca vi aplicação de array que não possa ser resolvida com uma boa estrutura Entidade Relacionamento, isto é, uma tabela mãe e uma filha. Explica melhor tua necessidade. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Evaldo To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 27, 2008 8:31 AM Subject: [delphi-br] array no firebird Olá a todos, Estou tendo que trabalhar com o tipo array no firebird, só que não sei nada sobre. No caso vou utilizar uma matriz de Time[ 1 , 7 ] e gostaria de tirar algumas duvidas: * È seguro trabalhar com array? * Porque é tão pouco utilizado? * Quais componentes do delphi o suportam? Grato a quem tiver a disponibilidade de responder. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como N�O-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identifica��o: 54568,47eb858f339414716226009 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] O porque desse erro: Ambiguous overloaded call to 'Localizar' ?
É simples amigo, as duas funções possuem o primeiro parâmetro integer e o segundo string ... como o compilador vai saber qual das duas deve chamar??? Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 27, 2008 2:32 PM Subject: [delphi-br] O porque desse erro: Ambiguous overloaded call to 'Localizar' ? Olá amigos, tenho as seguintes funções: function Localizar(vArea: integer; vValorLocalizar: string; const vExibeResult: Boolean = False): Boolean; overload; function Localizar(Area: integer; const SQL: string = ''; const CampoLocalizar: string = ''; const ValorLocalizar: string = ''; const ExibeResult: Boolean = False): Boolean; overload; Quando vou usar a função: Localizar(0, (Sender as TJvDBComboEdit).Text); ou seja, o primeiro localizar, aparece o seguinte erro: Ambiguous overloaded call to 'Localizar'. Como assim ambiguidade, sendo que dei um overload nas funcoes? []s -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47ebda30439431138012623 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Adicionar evento a um componente
Crie um procedure como o mesmo escopo do evento desejado. Depois basta associar. Exemplo: TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); public procedure MeuClickDoBotao(Sender:TObject); end; procedure TForm1.FormCreate(Sender: TObject); begin Button1.OnClick := MeuClickDoBotao; end; procedure TForm1.MeuClickDoBotao(Sender:TObject); begin // código end; Aqui criei um procedure para ser executado no click do botão, e atribui ele manualmente no FormCreate. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Alcistemas Informática To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 27, 2008 11:25 AM Subject: [delphi-br] Adicionar evento a um componente Como faço para adicionar via código, eventos a um componente.. ex: function imprime_grid(Grid :TDBGrid):String; var RV : TRvSystem; begin RV := TRvSystem.Create(Application); /// A QUI PRECISO ADICIONAR O EVENTO ONPRINT.. ALGUNS CÓDIGOS DO COMPONENTE RV (Tipo Rave Reports) /// pois é nele que se escreve o código a ser impresso no relatório RV.Execute; end; Alcione Guimarães e-mail: [EMAIL PROTECTED] Cel: 11-9515-8707 SIP VOIP: 3301040 SKYPE: alcistemas msn: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47ebdf7e339411565664877 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como criar um property somente leitura?
Olha direito ... basta a property não ter o write, que foi o que o Jackson te mostrou property QUALQUERNOME: string READ GetQUALQUERNOME; // sem WRITE ... Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 27, 2008 4:09 PM Subject: Re: [delphi-br] Como criar um property somente leitura? Olá amigo Jackson, o que eu quero é criar uma propriedade ReadOnly e não uma propriedade chamada SomenteLeitura! :o) []s Em 27/03/08, Jackson Gomes - ToolsComps [EMAIL PROTECTED] escreveu: Olá amigos, como eu crio um Property, somente leitura em minha classe? public property SoLeitura: String read GetSoLeitura; end; Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED] devhost%40devhost.com.br -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47ebf1de332496391796914 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como saber se existe um atalho no desktop, caso nao exista criar um?
Mais uma vez o Google resolve. Procure por delphi criar atalho
Uma das soluções aparece assim:
//Coloque essas units na seção implementation :
uses ShlObj, ActiveX,ComObj, Registry; //Por último, crie uma procedure que
faça o trabalho:
procedure CreateShortcut (FileName, Parameters, InitialDir, ShortcutName,
ShortcutFolder : String);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetArguments(Parameters);
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(InitialDir));
end;
MyReg :=
TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
Directory := MyReg.ReadString ('Shell Folders','Desktop','');
WFileName := Directory + '\' + ShortcutName + '.lnk';
MyPFile.Save (PWChar (WFileName), False);
MyReg.Free;
end;
Para verificar se já existe o atalho basta abrir o registro na chave que
aparece no exemplo e ver se já existe a entrada.
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Fellipe Henrique
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, March 26, 2008 9:14 AM
Subject: [delphi-br] Como saber se existe um atalho no desktop, caso nao
exista criar um?
Olá amigos, preciso verificar se existe um atalho no desktop para meu
programa, caso nao exista criar um. Bom, já tenho a função pra criar, o
problema está em sabe se existe ou não o atalho.
Alguem poderia me ajudar?
Desde já agradeço
[]s
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
--
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL PROTECTED]
Chave de Identificação: 54568,47ea3ea6129279797615144
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como saber se existe um atalho no desktop, caso nao exista criar um?
Pô pessoal, que preguiça de pensar hein ...
Nunca precisei fazer esse tipo de teste, mas para não dizer que não tenho boa
vontade aí vai o código.
Nesse exemplo verifico se existe o atalho para o Notepad no desktop.
obs: caso não fique claro, o evento abaixo é de um botão que coloquei num form
... lol
procedure TForm1.Button1Click(Sender: TObject);
var MyReg : TRegIniFile;
Directory : string;
begin
MyReg :=
TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
Directory := MyReg.ReadString ('Shell Folders','Desktop','');
MyReg.Free;
if FileExists(Directory + '\Notepad.lnk') then begin
ShowMessage('existe');
end else begin
ShowMessage('não existe');
end;
end;
E acho que tu não leu o que eu coloquei no final do meu post anterior:
Para verificar se já existe o atalho basta abrir o registro na chave que
aparece no exemplo e ver se já existe a entrada.
Como já disse outras vezes, prefiro sempre incentivar o pensamento ao invés
de dar o peixe na mão.
Não me leve a mal cara, mas essa era muito fácil de resolver.
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Fellipe Henrique
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, March 26, 2008 10:24 AM
Subject: Re: [delphi-br] Como saber se existe um atalho no desktop, caso nao
exista criar um?
Bom Alessandro, acho que voce não entendeu a minha mensagem..
Olá amigos, preciso verificar se existe um atalho no desktop para meu
programa, caso nao exista criar um. Bom, já tenho a função pra criar, o
problema está em saber se existe ou não o atalho.
O que eu não estou conseguindo fazer, é como descobrir se o atalho já foi
criado, para que eu não fique criando ele toda hora..
[]s
Em 26/03/08, Alessandro DUARTE de Moraes [EMAIL PROTECTED]
escreveu:
Mais uma vez o Google resolve. Procure por delphi criar atalho
Uma das soluções aparece assim:
//Coloque essas units na seção implementation :
uses ShlObj, ActiveX,ComObj, Registry; //Por último, crie uma procedure
que faça o trabalho:
procedure CreateShortcut (FileName, Parameters, InitialDir, ShortcutName,
ShortcutFolder : String);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetArguments(Parameters);
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(InitialDir));
end;
MyReg := TRegIniFile.Create
('Software\MicroSoft\Windows\CurrentVersion\Explorer');
Directory := MyReg.ReadString ('Shell Folders','Desktop','');
WFileName := Directory + '\' + ShortcutName + '.lnk';
MyPFile.Save (PWChar (WFileName), False);
MyReg.Free;
end;
Para verificar se já existe o atalho basta abrir o registro na chave que
aparece no exemplo e ver se já existe a entrada.
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Fellipe Henrique
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Wednesday, March 26, 2008 9:14 AM
Subject: [delphi-br] Como saber se existe um atalho no desktop, caso nao
exista criar um?
Olá amigos, preciso verificar se existe um atalho no desktop para meu
programa, caso nao exista criar um. Bom, já tenho a função pra criar, o
problema está em sabe se existe ou não o atalho.
Alguem poderia me ajudar?
Desde já agradeço
[]s
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] fellipeh%40gmail.com
[As partes desta mensagem que não continham texto foram removidas]
--
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL PROTECTED] spam%40vetorial.net
Chave de Identificação: 54568,47ea3ea6129279797615144
[As partes desta mensagem que não continham texto foram removidas]
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
--
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL PROTECTED]
Chave de Identificação: 54568,47ea5b48137831318817097
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Problemas com Sistema compilado
Galera, por incrível que pareça uma vez resolvi isso pedindo para ver o relatório do erro. Quando aparece aquela tele que ocorreu um erro blablabla ... peça para detalhar, vai olhando ... vai haver alguma coisa mostrando qual o problema. No meu caso era a falta de uma dll como o Daniel comentou. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Daniel Bastos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 25, 2008 1:35 PM Subject: Re: [delphi-br] Re: Problemas com Sistema compilado Já ocorreu isso com falta de dll no meu sistema .. como a midas ... Em 24/03/08, Tux Wi-FI [EMAIL PROTECTED] escreveu: É 32bits... Windows XP PRO SP2 Em 24/03/08, walthersonbrunno[EMAIL PROTECTED]walthersonbrunno%40yahoo.com.br escreveu: Vc tá rodando em 64 ou 32 bites? Pq conforme post anterior isso tem tuuudo aver. e dá pau mesmo.! --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Tux Wi-FI [EMAIL PROTECTED] escreveu Saudações, Todo sistema, por mais simples que seja, que tento rodar em outra maquina diferente da minha, simplesmente não funciona. Tenho um Dual core 2 duo. Uso Delphi-7. Alguma sugestão? -- []´s CeBoLaRk http://www.tuxwifi.com.br msn: [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- []´s CeBoLaRk http://www.tuxwifi.com.br msn: [EMAIL PROTECTED] cebolark%40hotmail.com -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47e930fd993457558169461 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas com Sistema compilado
Seja mais explícito ... o que não funciona? Que erro dá? Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Tux Wi-FI To: delphi-br@yahoogrupos.com.br Sent: Monday, March 24, 2008 9:21 AM Subject: [delphi-br] Problemas com Sistema compilado Saudações, Todo sistema, por mais simples que seja, que tento rodar em outra maquina diferente da minha, simplesmente não funciona. Tenho um Dual core 2 duo. Uso Delphi-7. Alguma sugestão? -- []´s CeBoLaRk http://www.tuxwifi.com.br msn: [EMAIL PROTECTED] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47e7ab8a694173533815398 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Melhor componente de Acesso ao Firebird 2.x
Sobre a questão do ZeoLib com problemas: pessoal, tenho usado a ZeosLib para projetos com Firebird e Mysql sem problemas. Talvez seja porque trabalho fazendo com que cada tabela do banco de dados tenha uma classe desenvolvida para fazer inserção, alteração e exclusão. Isto é, faço sempre comandos SQL para estas operações. Talvez o problema possa ter ocorrido utilizando ClientDataSet (lembro, há muito tempo atráz que tinha um problema, mas não era especificamente da ZeosLib e sim do clientDataSet, tempos depois saiu até uma atualização do ClientDataSet que se não me falha a memória havia resolvido essa pendência). Espero ter contribuido! Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 13, 2008 10:45 PM Subject: Re: [delphi-br] Melhor componente de Acesso ao Firebird 2.x bom, o Zeos e o UIB, são gratuitos, porém tive muitos problemas com os dois, não me lembro direito qual foi, mas eu tive que acabar fazendo com IBX, porque os mantenedores dos componentes não arrumaram o problema a tempo, e com isso o prazo do sistema estava esgotando, por isso, prefiro mais os componentes pagos... Já o DBExpress, até o delphi 7 é compatível, mas não é pra firebird, ou seja, não posso desenvolver algo, e ficar preso no Delphi 7, porque no 2007, já não é compatível... O IBO, quando procurei saber dele, as informacoes que obtive foram otimas, realmente muito bom, porém do jeito dele, pra se usar os descedente de TDataSet, até o próprio autor disse que ao utilizar o TDataSet, não aproveitaria o potencial do IBO. Por isso, atualmente estou limitando à apenas o próprio IBX (Que também está deixando de ficar compativel com firebird) o FibPlus e o IBDAC (estes dois totalmente compatíveis com qualquer versão do Firebird. []s Em 13/03/08, Vitor Redes [EMAIL PROTECTED] escreveu: Não é o DBExpress que é unidirecional, é o componente TSQLQuery, como todos os outros componentes TQuery's da vida... o TSimpleDataSet (não recomendável) não é unidirecional. Nem os Table's... Eu tive alguns problemas com a ZeosLib quando fiz alguns testes, mas os testes não foram tão insistentes então não posso falar mal, é um projeto sério que vale a pena conhecer tb, o UIB é outro, como já indicaram. -- Vitor Luiz Redes -- Bureau Redsystem Software [EMAIL PROTECTED] vitor.redes%40redsystem.com.br _ 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 Alisson Enviada em: quinta-feira, 13 de março de 2008 16:24 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Melhor componente de Acesso ao Firebird 2.x Eu uso o DbExpress e acho muito bom. Tem um detalhe, ele é unidirecional, você tem que usar ClientDataset para poder percorrer os registros. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/ com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47d9d955221361924616883 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Firebird para DBF
Buenos, tirando a questão de não ter nada haver com Firebird para DBF ... Tu tens um TextFile e queres gerar um arquivo.txt ... TextFile é um arquivo TXT Você sabe o que é um TextFile? é um tipo de dados para manipular arquivos ... Sinceramente, abre um outro tópico e explique melhor o teu problema. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: tetraetila® To: delphi-br@yahoogrupos.com.br Sent: Friday, March 14, 2008 12:22 AM Subject: Re: [delphi-br] Firebird para DBF Olá Pessoal! Gostaria de uma ajuda de vocês! Tenho um programa que faz uma captura de dados e retorna uma variável do tipo PChar / PAnsiChar - Preciso capturar estes dados e transformar em um arquivo de texto e não estou conseguindo.. Vejam abaixo: CTemplate:PAnsiChar //(Já existe como global no programa e recebe os dados após uma captura de dados para Biometria. var X:TextFile; S:String; begin StrPas(CTemplate); // Tentativa de conversão em Texto. S:=CTemplate; ReWrite(X,'retorno.txt'); //preciso gravar neste arquivo .txt WriteLn(X,S); //Dá erro ! CloseFile(X) end; A variável CTemplate é a que eu preciso capturar o valor e gravar em um arquivo de texto e não estou conseguindo. Quando eu dou um ShowMessage(S) ele me mostra um pouco do conteúdo mas não consigo capturar e gravar como texto. Como eu faço para saber o tamanho de CTemplate em bytes depois que ela recebe os dados? Se puderem me ajudar agradeço, estou voltando para o Delphi depois de alguns anos parado por força maior. Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47d9ef79263134351514839 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Melhor componente de Acesso ao Firebird 2.x
Que tal ZeosLib? é compatível com Firebird 1.0, 1.5 e 2.0, além de outros bancos como Mysql, PostGreSQL, MSSql, Oracle, Sybase ... e é Free. Uso e recomendo. http://sourceforge.net/projects/zeoslib/ Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 13, 2008 4:20 PM Subject: Re: [delphi-br] Melhor componente de Acesso ao Firebird 2.x Boa tarde! * FibPlus e IBDAC, na minha opinião. * DBXpress e IBX já apresentam algumas incompatibilidades com o FB2 segundo alguns (poucos) relatos Atte, Ricardo - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47d97e91841861151016789 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Migrar sistema Delphi
Você não leu direito o que eu escrevi companheiro ... Olha direitinho que tá lá Mysql 5(Linux) ... eu nem falei de Windows meu velho. Além do mais, creio que não estás muito fora dos testes feitos recentemente, onde o Rubinho dos bancos de dados free é o PostGreSQL, e de melhor performance é o Mysql. É claro que estou falando de Linux ... onde já se viu falar de banco de dados no Windows. :D Pro Windows ninguém ganha do SQL Server. Dá uma olhadinha no Summary deste link http://2bits.com/articles/benchmarking-postgresql-vs-mysql-performance-using-drupal-5x.html Esse é mais detalhado: http://fornax.sk/mate/Download/result-mysql,pg.html E não vem querer mostrar benchmarks comprados ... estes aqui são testes feitos sem partidarismo. Para Windows o melhor free é o Firebird, mas é necessário que o projeto do banco (chaves) seja bem feito, caso contrário ele pesa muito em querys com muitos resultados. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 11, 2008 2:29 PM Subject: Re: [delphi-br] Migrar sistema Delphi Hein!?! Carroção? Vixi amigo, então o pessoal utiliza errado.. porque já foi provado por A+B, que em se tratando de Aplicações Desktop MySQL leva surra de muitos bancos... Minha opinião: Sistema entre Baixo e Médio Porte - Firebird. Médio e Grande Porte - PostgreSQL. Nada de MySQL... []s Em 11/03/08, Alessandro DUARTE de Moraes [EMAIL PROTECTED] escreveu: Recomendo Mysql. PostGreSQL eu acho muito carroção, além de ter algumas definições estranhas (como rodar um tal de Vacum para reorganizar as tabela/índices). Aqui na empresa trabalhamos com Mysql 5(Linux) com tabelas InnoDB e estamos muito satisfeitos. Temos um software de terceiros que roda com PostGreSQL, e nossos usuários reclamam da lentidão, comparado com nossos sistemas. Antes de trabalhar aqui, trabalhava em outra empresa que utilizava sistemas com PostGreSQL e era a mesma história ... lentidão. Num trabalho free lance que faço, utilizo o Firebird, e também gosto bastante, mas para trabalho com Web nada como o Mysql. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Gerson Machado To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, March 11, 2008 11:50 AM Subject: Re: [delphi-br] Migrar sistema Delphi Sinceramente, eu mudaria para Sql Server. Boa sorte. rodrigofernandosantos [EMAIL PROTECTED] sharplinux%40gmail.com escreveu: Pessoal, bom dia Tenho um sistema em Delphi 6 com banco Interbase, preciso migrar para plataforma web com banco de dados Mysql, o que vocês recomendam. Atte, Rodrigo - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] spam%40vetorial.net Chave de Identificação: 54568,47d69c5b648961220817889 [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47d6c184714046947611305 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] erro em tempo de execução
Desde a última vez que tu conseguiste compilar o programa e funcionar ok, reinstalasses o Delphi ... isso tá com cara de bpl com problema. Reinstala o pacote de atualização do IBX. Pois pelo que entendi, debugando funciona bem, mas se executar o EXE dá problema. Sempre que tenho algo parecido revejo minhas bpls. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ricardo Mendes To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 11, 2008 8:35 AM Subject: Re: [delphi-br] erro em tempo de execução Eu uso o Firebird 1.5, meu acesso é via admin, no IBExpert funciona as SQL sem problemas, as tabelas estão corretas todas em maiusculas. No IBExpert está todas as tabelas funcionando, no meu DataModule eu faço as ligações das tabelasconsigo ver todos os campos, na hora de compílar compila sem erro, dando esse erro somente em tempo de execução Ricardo Mendes Departamento de Informática Tel. (41) 2109-7736 E-mail: [EMAIL PROTECTED] Site: www.totalsat.com.br - Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 11, 2008 8:09 AM Subject: Re: [delphi-br] erro em tempo de execução Qual versão do Firebird? Os componentes IBX do Delphi só rodam bem com o Firebird até 1.5 ... o Firebird 2.0 não é compatível. Vê também se não é permissão do usuário, para isso faz a conexão usando o ADMIN. Usa o IBExpert para executar a tua query, exatamente como está no programa. Tenta ver se não é o nome da tabela em Maiúsculas ... sei lá ... Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com..br - Original Message - From: Ricardo Mendes To: delphi-br@yahoogrupos.com.br Sent: Monday, March 10, 2008 10:48 PM Subject: [delphi-br] erro em tempo de execução Galera, estou com o seguinte problema meu projeto estava normal só que eu tentei abrir o projeto para realizar alterações e agora qdo eu tempo compilar ele passa sem erros, porém em tempo de execução ele da a seguinte mensagem. Mesmo eu tento incluido e excluido a tabela configurações, recriada umas 4 vezes, mas qdo mando abrir o menu principal ele da erro. Projeto Odontoclinic.exe raised exception class EIBInterBaseError with message 'Dynamic SQL Error. SQL error code = -204 Table unknown CONFIGURACOES At line 1, column 15' . Process stopped. Use Step or Run to continue. Uso D7, Firebird, Uso a paleta do Interbase para comunicação com BD fico no aguardo... Ricardo Mendes [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47d5e5c9630601918818723 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47d66eea648961664316913 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Migrar sistema Delphi
Recomendo Mysql. PostGreSQL eu acho muito carroção, além de ter algumas definições estranhas (como rodar um tal de Vacum para reorganizar as tabela/índices). Aqui na empresa trabalhamos com Mysql 5(Linux) com tabelas InnoDB e estamos muito satisfeitos. Temos um software de terceiros que roda com PostGreSQL, e nossos usuários reclamam da lentidão, comparado com nossos sistemas. Antes de trabalhar aqui, trabalhava em outra empresa que utilizava sistemas com PostGreSQL e era a mesma história ... lentidão. Num trabalho free lance que faço, utilizo o Firebird, e também gosto bastante, mas para trabalho com Web nada como o Mysql. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Gerson Machado To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 11, 2008 11:50 AM Subject: Re: [delphi-br] Migrar sistema Delphi Sinceramente, eu mudaria para Sql Server. Boa sorte. rodrigofernandosantos [EMAIL PROTECTED] escreveu: Pessoal, bom dia Tenho um sistema em Delphi 6 com banco Interbase, preciso migrar para plataforma web com banco de dados Mysql, o que vocês recomendam. Atte, Rodrigo - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47d69c5b648961220817889 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ata de Resultados
Cara, pelo que entendi estás precisando é um resultado final com as colunas: NomeDoAluno, NotaMateria1, NotaMateria2, ... Bem, uma forma prática no teu caso é o conceito de Group By no FortesReport. Primeiro precisas fazer uma SQL que retorne todas as notas de todos os alunos com todas as matérias possíveis, e aí vem uma pergunta: todos os alunos da Ata possuem notas em todas as matérias? Caso sim, então segue lendo, caso contrário me avisa que daí a query precisa ser diferente da proposta. Buenos, a query seria mais ou menos assim: SELECT aluno.nome, materia.nome, avaliacao.nota FROM aluno LEFT JOIN avaliacao ON (avaliacao.aluno_id=aluno.id) LEFT JOIN materia ON (materia.id=avaliacao.materia_id) WHERE avaliacao.ano=2007 and avaliacao.mes=10 ORDER BY aluno.nome, materia.nome Tudo bem, agora que vem o truque. Monte o relatório com um agrupamento por aluno. No rodapé desse grupo, crie caixas de texto para receberem as notas de todas as matérias possíveis, isto é, se o máximo de matérias são 10, então crie 10 caixas de texto. (salientando, são caixas de texto ... recebem qualquer coisa que a gente quiser). Daí a tua linha de detalhe não vai imprimir nada ... isso mesmo, não imprime nada - heigth = 0 mesmo, mas no OnBeforePrint você vai preencher as caixas de texto do rodapé com o valor das notas. Creio que isso resolve. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ralp Alves Bezerra To: Delphi BR Sent: Tuesday, March 04, 2008 6:29 PM Subject: [delphi-br] Ata de Resultados Nobres Colegas, Venho mais uma vez pedir a ajuda dos nobres colegas para poder resolver uma dúvida que me ocorre: Tenho um sistema em paradox para administração escolar rodando, estou precisando gerar a ata de resultados finais para o mesmo, porém, estou com um problema que ainda não consegui resolver. Tenho uma tabela onde ficam registradas todas as informações de notas e matérias do alunos. Ex.: Nome Matéria Nota - Maria da silva Portugues 10 Maria da Silva Matemática 08 Maria da Silva Inglês 09 Maria da Silva Física 08 e assim por diante com todos os alunos da turma. Se existirem 10 matérias o nome do aluno se repete as mesmas 10 vezes. Como faria para gerar uma segunda tabela ou outra maneira de poder gerar ata de resultados finais com o tipo de tabela que possuo? Nesta sistema estou utilizando Delphi 7, Paradox e FortesReport, mas a dica poderia ser também em QR se caso fosse mais prático. Desde já agradeço a ajuda. Abraços. Ralp Alves Bezerra -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47cdbf4713481480512716 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ata de Resultados
Ok, então vc pode partir para uma SQL simples, usando apenas a tabela que tens ... Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ralp Alves Bezerra To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 05, 2008 8:56 AM Subject: Re: [delphi-br] Ata de Resultados Caro Duarte, No meu caso todas as informações estão contidas na mesma tabela, sendo que para cada materia, nota, etc, o nome do aluno se repete. A pesquisa teria que ser feita em apenas uma tabela que contém todos os dados necessários. Abraços. Alessandro DUARTE de Moraes escreveu: Cara, pelo que entendi estás precisando é um resultado final com as colunas: NomeDoAluno, NotaMateria1, NotaMateria2, ... Bem, uma forma prática no teu caso é o conceito de Group By no FortesReport. Primeiro precisas fazer uma SQL que retorne todas as notas de todos os alunos com todas as matérias possíveis, e aí vem uma pergunta: todos os alunos da Ata possuem notas em todas as matérias? Caso sim, então segue lendo, caso contrário me avisa que daí a query precisa ser diferente da proposta. Buenos, a query seria mais ou menos assim: SELECT aluno.nome, materia.nome, avaliacao.nota FROM aluno LEFT JOIN avaliacao ON (avaliacao.aluno_id=aluno.id) LEFT JOIN materia ON (materia.id=avaliacao.materia_id) WHERE avaliacao.ano=2007 and avaliacao.mes=10 ORDER BY aluno.nome, materia.nome Tudo bem, agora que vem o truque. Monte o relatório com um agrupamento por aluno. No rodapé desse grupo, crie caixas de texto para receberem as notas de todas as matérias possíveis, isto é, se o máximo de matérias são 10, então crie 10 caixas de texto. (salientando, são caixas de texto ... recebem qualquer coisa que a gente quiser). Daí a tua linha de detalhe não vai imprimir nada ... isso mesmo, não imprime nada - heigth = 0 mesmo, mas no OnBeforePrint você vai preencher as caixas de texto do rodapé com o valor das notas. Creio que isso resolve. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ralp Alves Bezerra To: Delphi BR Sent: Tuesday, March 04, 2008 6:29 PM Subject: [delphi-br] Ata de Resultados Nobres Colegas, Venho mais uma vez pedir a ajuda dos nobres colegas para poder resolver uma dúvida que me ocorre: Tenho um sistema em paradox para administração escolar rodando, estou precisando gerar a ata de resultados finais para o mesmo, porém, estou com um problema que ainda não consegui resolver. Tenho uma tabela onde ficam registradas todas as informações de notas e matérias do alunos. Ex.: Nome Matéria Nota - Maria da silva Portugues 10 Maria da Silva Matemática 08 Maria da Silva Inglês 09 Maria da Silva Física 08 e assim por diante com todos os alunos da turma. Se existirem 10 matérias o nome do aluno se repete as mesmas 10 vezes. Como faria para gerar uma segunda tabela ou outra maneira de poder gerar ata de resultados finais com o tipo de tabela que possuo? Nesta sistema estou utilizando Delphi 7, Paradox e FortesReport, mas a dica poderia ser também em QR se caso fosse mais prático. Desde já agradeço a ajuda. Abraços. Ralp Alves Bezerra -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47cdbf4713481480512716 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47ce8f66190531624252042 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ata de Resultados
Você tem certeza que leu o que eu escrevi Cara, o que queres fazer é um CrossTab ... tem uma outra Thread que fala sobre isso. A solução que te passei é uma forma de não precisar fazer o CrossTab. Le e interpreta o que te passei anteriormente ... eu já fiz algo similar ao que tu precisas utilizando essa técnica que te mandei. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ralp Alves Bezerra To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 05, 2008 10:30 AM Subject: Re: [delphi-br] Ata de Resultados Esta é a questão! como faria esta seleção para que tudo fique em uma unica linha a cada aluno? Abraços. Alessandro DUARTE de Moraes escreveu: Ok, então vc pode partir para uma SQL simples, usando apenas a tabela que tens ... Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ralp Alves Bezerra To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 05, 2008 8:56 AM Subject: Re: [delphi-br] Ata de Resultados Caro Duarte, No meu caso todas as informações estão contidas na mesma tabela, sendo que para cada materia, nota, etc, o nome do aluno se repete. A pesquisa teria que ser feita em apenas uma tabela que contém todos os dados necessários. Abraços. Alessandro DUARTE de Moraes escreveu: Cara, pelo que entendi estás precisando é um resultado final com as colunas: NomeDoAluno, NotaMateria1, NotaMateria2, ... Bem, uma forma prática no teu caso é o conceito de Group By no FortesReport. Primeiro precisas fazer uma SQL que retorne todas as notas de todos os alunos com todas as matérias possíveis, e aí vem uma pergunta: todos os alunos da Ata possuem notas em todas as matérias? Caso sim, então segue lendo, caso contrário me avisa que daí a query precisa ser diferente da proposta. Buenos, a query seria mais ou menos assim: SELECT aluno.nome, materia.nome, avaliacao.nota FROM aluno LEFT JOIN avaliacao ON (avaliacao.aluno_id=aluno.id) LEFT JOIN materia ON (materia.id=avaliacao.materia_id) WHERE avaliacao.ano=2007 and avaliacao.mes=10 ORDER BY aluno.nome, materia.nome Tudo bem, agora que vem o truque. Monte o relatório com um agrupamento por aluno. No rodapé desse grupo, crie caixas de texto para receberem as notas de todas as matérias possíveis, isto é, se o máximo de matérias são 10, então crie 10 caixas de texto. (salientando, são caixas de texto ... recebem qualquer coisa que a gente quiser). Daí a tua linha de detalhe não vai imprimir nada ... isso mesmo, não imprime nada - heigth = 0 mesmo, mas no OnBeforePrint você vai preencher as caixas de texto do rodapé com o valor das notas. Creio que isso resolve. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ralp Alves Bezerra To: Delphi BR Sent: Tuesday, March 04, 2008 6:29 PM Subject: [delphi-br] Ata de Resultados Nobres Colegas, Venho mais uma vez pedir a ajuda dos nobres colegas para poder resolver uma dúvida que me ocorre: Tenho um sistema em paradox para administração escolar rodando, estou precisando gerar a ata de resultados finais para o mesmo, porém, estou com um problema que ainda não consegui resolver. Tenho uma tabela onde ficam registradas todas as informações de notas e matérias do alunos. Ex.: Nome Matéria Nota - Maria da silva Portugues 10 Maria da Silva Matemática 08 Maria da Silva Inglês 09 Maria da Silva Física 08 e assim por diante com todos os alunos da turma. Se existirem 10 matérias o nome do aluno se repete as mesmas 10 vezes. Como faria para gerar uma segunda tabela ou outra maneira de poder gerar ata de resultados finais com o tipo de tabela que possuo? Nesta sistema estou utilizando Delphi 7, Paradox e FortesReport, mas a dica poderia ser também em QR se caso fosse mais prático. Desde já agradeço a ajuda. Abraços. Ralp Alves Bezerra -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47cdbf4713481480512716 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47ce8f66190531624252042 [As partes desta mensagem que não continham texto foram removidas
Re: [delphi-br] Mudança de diretório.
Isso realmente pode acontecer com o OpenDialog quando se seleciona o arquivo de
outro diretório.
Faz assim:
if FileExists(ExtractFilePath(Application.ExeName)+'Imagem.bmp') then
Isso garante que estás abrindo o bmp do diretório do exe
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Celio Bernardo
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, March 05, 2008 1:15 PM
Subject: [delphi-br] Mudança de diretório.
Amigos, coisa estranha aqui.
Tenho uma rotina que verifica a existência de arquivo .bmp que fica junto ao
executável, para imprimi-lo usando: if FileExists('Imagem.bmp') then
Acontece q qdo leio dados de outro arquivo (.txt ) em outro diretório usando
o OpenDialog o aplicativo passa a verificar a existência do .bmp neste
diretório onde li o arquivo .txt (ou outro qualquer) e acusa falta do mesmo.
Fiz um teste simples colocando cópia do arquivo .bmp ( com visual diferente )
no diretório onde se encontra o .txt e passou tudo bem, porém imprimiu o aquivo
do diretorio certo, o dele. Pedi para mostrar o diretorio corrente com o
extractfiledir() e está normal.
Já mandei um Application.ProcessMessages e nada;
Agora, após ler o arquivo .txt de outro diretório, leio em seguida qualquer
arquivo do diretório da aplicação, corre tudo normal.
Que bicho pode ser isso? Parece qe o Exe se sente virtualmente no último
diretório que acessou?
Agradeço pela gentileza.
Célio.
-
Célio Bernardo de Lima
Diretor de Projetos e Novas Tecnologias
siatech.com.br
-
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
--
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL PROTECTED]
Chave de Identificação: 54568,47cec9d9285381002461653
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] RE: Tabela de cidades brasileiras
O pessoal, sou partidário de ensinar a pescar do que entregar o peixe. No início dessa discussão dei todos os passos para obter os dados oficiais, isto é, IBGE, inclusive mandei até o link. O que mais seria preciso além dessa dica? Se ficar mandando esses scripts prontos, daqui ha alguns dias vem um zé e diz que a cidade que ele precisa não está no script ... Vamos manter o alto nível da lista e sempre indicar o caminho das pedras! Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Gerhard Roger Nack To: delphi-br@yahoogrupos.com.br Sent: Friday, February 29, 2008 4:34 PM Subject: RES: [delphi-br] RE: Tabela de cidades brasileiras Um email de mais de 500k de texto ? Podia ao menos ter posto o script no FILES da lista e não mandado no email ... De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alisson Costa Resende Enviada em: sexta-feira, 29 de fevereiro de 2008 13:30 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] RE: Tabela de cidades brasileiras Eu, muitas vezes falo: Venha a nós o vosso reino. Mas também falo: Seja feita a vossa vontade. Pra comprovar isso estou enviando o script para a criação da tabela e inclusão dos dados em um banco Firebird. [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47c85e4c894402188212582 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Minutos da Hora!!!
Você já viu se o fields[3].AsString está retornando o horário corretamente? Caso sim, então é um problema da máscara no MaskEdit. Geralmente isso acontece por causa do :, para testar, faz um teste tirando a máscara. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Guilherme Alves To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] Sent: Friday, February 08, 2008 2:21 PM Subject: [delphi-br] Minutos da Hora!!! Olá amigos Estou com uma dúvida tosca. Eu insiro normalmente um registro novo na minha tabela. O campo que está me dando trabalho é do tipo time, e o registro grava normalmente (inclusive no banco de dados, o horário fica registrado por exemplo: 14:18), mas quando vou mostrar os dados, ele só me mostra 14:00 (os minutos não mostram). Este campo é um MaskEdit usando a forma: !90:00;1;_ Tenho uma procedure que se chama 'mostraosdados'. Está assim: begin with datamodule.sql1 do begin .. maskedit_hora.text:=fields[3].AsString; end; Espero uma ajuda. Agradeço! - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47acc060768321299919858 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projetos CLX
Olha, hoje tenho o mesmo sistema rodando em Windows (Delphi 7) e Linux (Kylix 3). Funciona bem, mas ... como o Kylix 3 foi desenvolvido num olhando um kernel antigo do Linux, nas novas distribuições a gente leva uma pequena surra para fazer o sistema funcionar. Depois disso é tranquilo. Particularmente prefiro os usuários utilizando o Linux ao Windows. Dá muito menos problemas, pois os CURIOSOS não ficam alterando as configurações do sistema operacional. Mas se estás estudando Java, segue por este caminho. Se não inciaste nada ainda, dá uma olhada no dotNet + Mono (Linux) ... pode ser uma boa escolha! Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Gladson Reis To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 07, 2008 4:58 PM Subject: Re: [delphi-br] Projetos CLX legal vcs tem softwares rodando em linux ? eu pensei ate em migrar meu sistema de gestao pra java - Original Message - From: Alessandro DUARTE de Moraes [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 07, 2008 2:56 PM Subject: Re: [delphi-br] Projetos CLX Usamos apenas 1 (um) componente que não é de fábrica. Este componente é um componente personalizado para entrada de dados. Nele temos alguns parâmetros que modificam a funcionalidade: TipoDado (que pode ser Numérico, Moeda, Protocolo, Código, Data, Hora, Alfabético, Alfanumérico, MesAno, ... enfim peculiaridades nossas). Também desenvolvemos neste componente alguns eventos novos, dessa forma conseguimos fazer com que nossa necessidade seja contemplada. Abraços! Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Gladson Reis To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 07, 2008 9:47 AM Subject: Re: [delphi-br] Projetos CLX Legal, fico feliz !!! precisar d algo conte comigo. vcs usam que componentes ? ( nao sendo da borland ) - Original Message - From: Alessandro DUARTE de Moraes [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 07, 2008 8:13 AM Subject: Re: [delphi-br] Projetos CLX Olha, uma vez nascido é difícil morrer :) Aqui na empresa usamos a CLX por causa do Kylix 3. Geralmente não aparece nada de novo para CLX, então temos que produzir as nossas necessidades. Sobrevivemos. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com..br - Original Message - From: Gladson Reis To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 06, 2008 11:51 PM Subject: [delphi-br] Projetos CLX Alguem ainda faz novos projetos usando esta tecnologia ? Como anda isso ? Achei que tinha morrido !!! Atenciosamente, Gladson Reis Stones Tecnologia Ltda www.stonestecnologia.com.br msn/skype : [EMAIL PROTECTED] (31) 9704.5193 (31) 3361.8192 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47aad55a562696868280619 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2855 (20080207) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47aaf70a285181987619587 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2856 (20080207) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47ab5829365771323270807 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projetos CLX
Olha, uma vez nascido é difícil morrer :) Aqui na empresa usamos a CLX por causa do Kylix 3. Geralmente não aparece nada de novo para CLX, então temos que produzir as nossas necessidades. Sobrevivemos. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Gladson Reis To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 06, 2008 11:51 PM Subject: [delphi-br] Projetos CLX Alguem ainda faz novos projetos usando esta tecnologia ? Como anda isso ? Achei que tinha morrido !!! Atenciosamente, Gladson Reis Stones Tecnologia Ltda www.stonestecnologia.com.br msn/skype : [EMAIL PROTECTED] (31) 9704.5193 (31) 3361.8192 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47aad55a562696868280619 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projetos CLX
Usamos apenas 1 (um) componente que não é de fábrica. Este componente é um componente personalizado para entrada de dados. Nele temos alguns parâmetros que modificam a funcionalidade: TipoDado (que pode ser Numérico, Moeda, Protocolo, Código, Data, Hora, Alfabético, Alfanumérico, MesAno, ... enfim peculiaridades nossas). Também desenvolvemos neste componente alguns eventos novos, dessa forma conseguimos fazer com que nossa necessidade seja contemplada. Abraços! Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Gladson Reis To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 07, 2008 9:47 AM Subject: Re: [delphi-br] Projetos CLX Legal, fico feliz !!! precisar d algo conte comigo. vcs usam que componentes ? ( nao sendo da borland ) - Original Message - From: Alessandro DUARTE de Moraes [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 07, 2008 8:13 AM Subject: Re: [delphi-br] Projetos CLX Olha, uma vez nascido é difícil morrer :) Aqui na empresa usamos a CLX por causa do Kylix 3. Geralmente não aparece nada de novo para CLX, então temos que produzir as nossas necessidades. Sobrevivemos. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Gladson Reis To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 06, 2008 11:51 PM Subject: [delphi-br] Projetos CLX Alguem ainda faz novos projetos usando esta tecnologia ? Como anda isso ? Achei que tinha morrido !!! Atenciosamente, Gladson Reis Stones Tecnologia Ltda www.stonestecnologia.com.br msn/skype : [EMAIL PROTECTED] (31) 9704.5193 (31) 3361.8192 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47aad55a562696868280619 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2855 (20080207) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47aaf70a285181987619587 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Form de Login - urgente
Se o código do teu projeto está igual ao que postasse, então estás primeiro executando o FormPrincipal ... o comentário que colocasse não tem sentido ... Eu uso diferente, crio um form a parte (o login) e chamo ele na marra, se o ModalResult for diferente de mrOK então executo um Application.Terminate ao invés de Application.Run. Isso funciona! Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Guilherme Alves To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] Sent: Monday, January 28, 2008 2:13 PM Subject: [delphi-br] Form de Login - urgente Olá galera Quando eu precisava fazer um form de login antes do usuário poder utilizar o sistema, eu fazia assim (no Delphi 7) FormPrincipal = form tipo MDIform FormLogin = form tipo normal No momento de inicializar eu fazia assim: begin Application.Initialize; Application.CreateForm(TFormPrincipal, FormPrincipal); //inicializa primeiro o form de login// Application.CreateForm(TFormLogin, FormLogin); Application.CreateForm(TDataModule, DataModule); Application.Run; end. Agora, estou tentando fazer a mesma coisa no Delphi 2007 e não estou conseguindo. O que pode ser? Lembrando que estou utilizando também para o formprincipal o MDIForm (pai), mas o login como form normal, pois funcionava corretamente no Delphi 7 não sei porque no Delhpi 2007 não funciona. Simplesmente ele não abre, abre direto o FormPrincipal. No aguardo, Valeu, Guilherme Alves - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,479e0512415984065212688 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida ADOQuery
Seguinte, alguns bancos de dados (mysql por exemplo) aceito fazer o que estás
fazendo, mas nem todos ...
Está colocando o valor entre aspas, e isso para alguns bancos não é um inteiro,
e por isso dá erro.
Hoje teu código está assim:
ADOQuery1.sql.add('SELECT* FROM Cliente WHERE nome = ' +edit1.text+' ' );
e deve ficar assim para não dar erro:
ADOQuery1.sql.add('SELECT* FROM Cliente WHERE nome = ' +edit1.text );
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Thiago Pereira Menzani
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, January 12, 2008 10:33 AM
Subject: [delphi-br] Duvida ADOQuery
Ola pessoal
Como faço uma consulta no AdoQuery comparando campo inteiro?
Com string funciona assim
ADOQuery1.sql.add('SELECT* FROM Cliente WHERE nome = ' +edit1.text+' ' );
Mas, em vez do campo nome eu colocar um campo inteiro da erro de dados
incompativeis
OBRIGADO
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
--
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL PROTECTED]
Chave de Identificação: 54568,4788bd52205561606220622
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF-TOPIC - Dicionário de Dados
Hahaha! Seguinte, morei um tempo em Brusque/SC e a minha esposa trabalhava numa empresa que usava o sistema desses caras, e uma vez ajudei a fazer um suporte on-line. Mas nem lembro o nome da empresa pra dizer a verdade ... Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br Sent: Friday, December 28, 2007 1:08 PM Subject: RES: [delphi-br] OFF-TOPIC - Dicionário de Dados Pera aí, Quais caras de Blumenau? RS... De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alessandro DUARTE de Moraes Enviada em: sexta-feira, 28 de dezembro de 2007 15:03 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] OFF-TOPIC - Dicionário de Dados Blz, é bem isso mesmo! Já até pensei em desenvolver algo similar, mas está com prioridade baixa ... talvez agora eu encare a peleia. Sobre a questão de Scripts, eu uso bastante o que vem com a JediVCL, que era a antiga RALib. É pascal, permite inclusive criar formulários, ... bem interessante, aconcelho a todos dar uma olhada. Uma vez vi uns caras de Blumenau com um programa em que todos os relatórios eram feitos em QuickReport (isso já faz bastante tempo), e esses forms eram carregados em tempo de execução, utilizando esse recurso. Dessa forma eles faziam relatório personalizados. Eu ainda não utilizei esse recurso, mas acho que é uma boa saída. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Elazar Dornelles Ceza To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, December 28, 2007 12:43 PM Subject: Res: [delphi-br] OFF-TOPIC - Dicionário de Dados Alessandro Boa tarde, algum tempo atraz eu estava procurando alguma coisa e tambem encontrei isso no habil, ele tem uma guia pra cada janela chamada 'Controles do usuario', onde qualquer um pode entrar e criar campos, dbedit, comobocom base em outras tabelas, consultas...de maneira bem fácil, e olhe que para o usuário isto é uma mão na roda, ja que o habil tem um gerenciador de relatórios, ficando bem fácil para o cliente poder criar suas 'relações personalizadas'. - Mensagem original De: Alessandro DUARTE de Moraes [EMAIL PROTECTED] mailto:duarte%40santacasarg.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 28 de Dezembro de 2007 8:09:39 Assunto: Re: [delphi-br] OFF-TOPIC - Dicionário de Dados Tô acompanhando essa thread, e agora acho que chegou ao ponto. O Hábil, sistema bem conhecido, possui um esquema semelhante a esse que o Andreano citou, mas tb não me aprofundei muito. Se formos por essa linha de raciocínio eu estou dentro da equipe! Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacas arg.com.br - Original Message - From: Fellipe Henrique To: [EMAIL PROTECTED] os.com.br Sent: Thursday, December 27, 2007 9:52 PM Subject: Re: [delphi-br] OFF-TOPIC - Dicionário de Dados Deixa eu ver se entendi... isso seria realmente para criar uma tela automática, ou outra coisa? Porque se for, tem que seguir realmente o que o Andreano disse... e um bom embasamento é o proprio Delphi.. o dicionario teria que ter a maioria das propriedades, caption, height, width, taborder, formatmask, editmask e etc.. Quanto ao script, a um tempo eu pesquisei sobre isso, e cheguei a conclusão de que: o script não substitui o sistema compilado, voce não consegue fazer muita coisa, somente mesmo coisas simples.. pra se ter uma idéia, voce consegue acesso a dados (IBX, DBX e etc), mas é muito ruim, bom pelo menos na época que eu pesquisei... . Na época tinha chegado a conclusão de usar mini-EXEs... como a Inprise (Sim, era Inprise na época :o) ) não permitia, e ainda não permite (me corrija se estiver errado) que se distribua o compilador e fontes do delphi (vcl e afins), estava vendo a compatibilidade de integrar o então recém iniciado Lázarus... mas por falta de motivação ($$) deixei este projeto de lado.. Mas, estou atento a esta thread! []s Fellipe H. Em 27/12/07, Andreano Lanusse andreano.lanusse@ codegear. com escreveu: O primeiro ponto é definir as objetivos que o dicionário de dados terá que atender. Por exemplo: - Características dos campos nas telas( label, dbedit, dbgrid, etc..): o Caption o Hints o Orderm - Obrigatoriedade dos campos - Valor default - Características de menu - Etc... Com isso definido, ai sim pode se começar a pensar em implementação, se começaram a implementer antes, vai ter um trabalhão la na frente pra arrumar. []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs
Re: [delphi-br] OFF-TOPIC - Dicionário de Dados
Tô acompanhando essa thread, e agora acho que chegou ao ponto. O Hábil, sistema bem conhecido, possui um esquema semelhante a esse que o Andreano citou, mas tb não me aprofundei muito. Se formos por essa linha de raciocínio eu estou dentro da equipe! Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 27, 2007 9:52 PM Subject: Re: [delphi-br] OFF-TOPIC - Dicionário de Dados Deixa eu ver se entendi... isso seria realmente para criar uma tela automática, ou outra coisa? Porque se for, tem que seguir realmente o que o Andreano disse... e um bom embasamento é o proprio Delphi.. o dicionario teria que ter a maioria das propriedades, caption, height, width, taborder, formatmask, editmask e etc.. Quanto ao script, a um tempo eu pesquisei sobre isso, e cheguei a conclusão de que: o script não substitui o sistema compilado, voce não consegue fazer muita coisa, somente mesmo coisas simples.. pra se ter uma idéia, voce consegue acesso a dados (IBX, DBX e etc), mas é muito ruim, bom pelo menos na época que eu pesquisei Na época tinha chegado a conclusão de usar mini-EXEs... como a Inprise (Sim, era Inprise na época :o) ) não permitia, e ainda não permite (me corrija se estiver errado) que se distribua o compilador e fontes do delphi (vcl e afins), estava vendo a compatibilidade de integrar o então recém iniciado Lázarus... mas por falta de motivação ($$) deixei este projeto de lado.. Mas, estou atento a esta thread! []s Fellipe H. Em 27/12/07, Andreano Lanusse [EMAIL PROTECTED] escreveu: O primeiro ponto é definir as objetivos que o dicionário de dados terá que atender. Por exemplo: - Características dos campos nas telas( label, dbedit, dbgrid, etc..): o Caption o Hints o Orderm - Obrigatoriedade dos campos - Valor default - Características de menu - Etc... Com isso definido, ai sim pode se começar a pensar em implementação, se começaram a implementer antes, vai ter um trabalhão la na frente pra arrumar. []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,477448b6116249542571743 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF-TOPIC - Dicionário de Dados
Blz, é bem isso mesmo! Já até pensei em desenvolver algo similar, mas está com
prioridade baixa ... talvez agora eu encare a peleia.
Sobre a questão de Scripts, eu uso bastante o que vem com a JediVCL, que era a
antiga RALib. É pascal, permite inclusive criar formulários, ... bem
interessante, aconcelho a todos dar uma olhada. Uma vez vi uns caras de
Blumenau com um programa em que todos os relatórios eram feitos em QuickReport
(isso já faz bastante tempo), e esses forms eram carregados em tempo de
execução, utilizando esse recurso. Dessa forma eles faziam relatório
personalizados. Eu ainda não utilizei esse recurso, mas acho que é uma boa
saída.
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Elazar Dornelles Ceza
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 28, 2007 12:43 PM
Subject: Res: [delphi-br] OFF-TOPIC - Dicionário de Dados
Alessandro
Boa tarde, algum tempo atraz eu estava procurando alguma coisa e tambem
encontrei isso no habil,
ele tem uma guia pra cada janela chamada 'Controles do usuario', onde
qualquer um pode entrar e criar
campos, dbedit, comobocom base em outras tabelas, consultas...de maneira
bem fácil, e olhe que
para o usuário isto é uma mão na roda, ja que o habil tem um gerenciador de
relatórios, ficando bem fácil para o cliente
poder criar suas 'relações personalizadas'.
- Mensagem original
De: Alessandro DUARTE de Moraes [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 28 de Dezembro de 2007 8:09:39
Assunto: Re: [delphi-br] OFF-TOPIC - Dicionário de Dados
Tô acompanhando essa thread, e agora acho que chegou ao ponto. O Hábil,
sistema bem conhecido, possui um esquema semelhante a esse que o Andreano
citou, mas tb não me aprofundei muito.
Se formos por essa linha de raciocínio eu estou dentro da equipe!
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacas arg.com.br
- Original Message -
From: Fellipe Henrique
To: [EMAIL PROTECTED] os.com.br
Sent: Thursday, December 27, 2007 9:52 PM
Subject: Re: [delphi-br] OFF-TOPIC - Dicionário de Dados
Deixa eu ver se entendi... isso seria realmente para criar uma tela
automática, ou outra coisa? Porque se for, tem que seguir realmente o que o
Andreano disse... e um bom embasamento é o proprio Delphi.. o dicionario
teria que ter a maioria das propriedades, caption, height, width, taborder,
formatmask, editmask e etc..
Quanto ao script, a um tempo eu pesquisei sobre isso, e cheguei a conclusão
de que: o script não substitui o sistema compilado, voce não consegue fazer
muita coisa, somente mesmo coisas simples.. pra se ter uma idéia, voce
consegue acesso a dados (IBX, DBX e etc), mas é muito ruim, bom pelo menos
na época que eu pesquisei... . Na época tinha chegado a conclusão de usar
mini-EXEs... como a Inprise (Sim, era Inprise na época :o) ) não permitia, e
ainda não permite (me corrija se estiver errado) que se distribua o
compilador e fontes do delphi (vcl e afins), estava vendo a compatibilidade
de integrar o então recém iniciado Lázarus... mas por falta de motivação
($$) deixei este projeto de lado..
Mas, estou atento a esta thread!
[]s
Fellipe H.
Em 27/12/07, Andreano Lanusse andreano.lanusse@ codegear. com escreveu:
O primeiro ponto é definir as objetivos que o dicionário de dados terá
que atender.
Por exemplo:
- Características dos campos nas telas( label, dbedit, dbgrid, etc..):
o Caption
o Hints
o Orderm
- Obrigatoriedade dos campos
- Valor default
- Características de menu
- Etc...
Com isso definido, ai sim pode se começar a pensar em implementação, se
começaram a implementer antes, vai ter um trabalhão la na frente pra
arrumar.
[]'s
Andreano Lanusse
CodeGear Product Line Manager Evangelist Leader Latin America
Blog: http://blogs. codegear. com/andreanolanu sse
Exemplos: http://cc.codegear. com/Author/ 38483
_ _ __
_ _ ___
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] com
[As partes desta mensagem que não continham texto foram removidas]
- -
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL PROTECTED] net
Chave de Identificação: 54568,477448b611624 9542571743
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL
Re: [delphi-br] O que ha de errado com este código ?
Cara, seguinte:
Em primeiro lugar, quando tu faz ExecSQL não pode usar Open, isto é, comandos
INSERT, UPDATE, DELETE só devem ser feito com ExecSQL. O Open só deve ser
utilizado para SELECT. Sendo assim o Close só se faz necessário quando o Open
for chamado.
Buenos, as várias gravações estão acontecendo por que estás dando um Open e
depois ExecSQL.
dm2.vendas.open;
dm2.vendas.ExecSql;
dm2.ZTMERCADO.Commit;
dm2.vendas.sql.clear;
dm2.vendas.close;
Revisa o teu fonte e segue a regra que te passei que não tem erro.
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: bene20032004
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, December 26, 2007 9:25 PM
Subject: [delphi-br] O que ha de errado com este código ?
Pessoal, o que ha de errado neste codigo porque quando tento jogar
os dados de uma tabela para outra ele grava 3 vezes o mesmo item.
Zero a tabela tempo6 coloco só um item e mesmo assim ele grava 3
vezes...
Estou usando o mysql 4.0 com o zeus ...
Se alguém me ajudar eu agradeço...
dm2.qtempo6.open;
dm2.qtempo6.First;
while not (dm2.qtempo6.Eof) do
begin
dm2.QSAIDA.Close;
dm2.QSAIDA.sql.Clear;
dm2.QSAIDA.SQl.Add('Select max(codigo) as codigo from
saida');
dm2.QSAIDA.Open;
dm2.qsaida.open;
dm2.Qsaida.Last;
if dm2.qsaida.FieldByName('codigo').asString='' then
begin
rcodigo2:='1';
end
else
begin
rcodigo2:=strzero(inttostr(strToint
(dm2.qsaida.FieldByName('codigo').asString)+1),5);
end;
dm2.vendas.Close;
dm2.vendas.Sql.Add('insert into ');
dm2.vendas.Sql.Add('saida( unitario, qtdade, produto,
descricao, data, codigo, pedido, tipo, cliente) ');
dm2.vendas.Sql.Add('values
( :unitario, :qtdade, :produto, :descricao, :data, :codigo, :pedido,
:tipo, :cliente)');
dm2.vendas.ParamByName('unitario').Value :=
dm2.QTEMPO6.FieldByName('unitario').Value;
dm2.vendas.ParamByName('qtdade').Value :=
dm2.QTEMPO6.FieldByName('qtdade').Value;
dm2.vendas.ParamByName('produto').AsString :=
dm2.QTEMPO6.FieldByName('produto').AsString;
dm2.vendas.ParamByName('descricao').AsString :=
dm2.QTEMPO6.FieldByName('descricao').AsString;
dm2.vendas.ParamByName('data').AsDateTime := now;
dm2.vendas.ParamByName('codigo').AsString := rcodigo2;
dm2.vendas.ParamByName('pedido').AsString := rcodigo3;
dm2.vendas.ParamByName('tipo').value :=
dm2.QTEMPO6.FieldByName('tipo').value;
if compra.value-pago.value 0 then
begin
dm2.vendas.ParamByName('cliente').AsString :=
clico.text;
end
else
begin
dm2.vendas.ParamByName
('cliente').AsString := '00466';
end;
dm2.vendas.open;
dm2.vendas.ExecSql;
dm2.ZTMERCADO.Commit;
dm2.vendas.sql.clear;
dm2.vendas.close;
if dm2.QTEMPO6.FieldByName('produto').AsString'01' then
begin
dm2.qproduto.close;
dm2.qproduto.sql.clear;
dm2.qproduto.sql.text:='Select codigo,estoque from
produto where codigo = '+QuotedStr(dm2.QTEMPO6.FieldByName
('produto').AsString)+' order by codigo';
dm2.qproduto.open;
if not dm2.qproduto.IsEmpty then
begin
dm2.qproduto.edit;
dm2.qproduto.FieldByName
('estoque').Value:=dm2.qproduto.FieldByName('estoque').Value-
dm2.QTEMPO6.FieldByName('qtdade').Value;
dm2.qproduto.post;
end;
end;
dm2.qsaida.close;
dm2.qtempo6.Next;
end;
end;
--
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL PROTECTED]
Chave de Identificação: 54568,4772f1b4688681927728686
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro ao clicar em um componente dentro do form...
Pelo que vi este problema é na JediVCL. Qual versão do Delphi estás utilizando? Sugiro que remova (desinstale) a JediVCL e baixe novamente do site a versão compatível com o teu Delphi. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: edersonecris To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 27, 2007 12:01 PM Subject: [delphi-br] Erro ao clicar em um componente dentro do form... Pessoal estou recebendo o erro Access violation at address 20db1908 in module 'designide100.bpl'. Read of address . Esse erro ocorre sempre que clico em qualquer componente do meu formulário. Já procurei no google a maioria das explicações esta em inglês e o pouco que consegui entender, parece que não é o meu caso. Alguém tem alguma idéia de como resolver isso? Grato -- Éderson Cassiano Bologna [EMAIL PROTECTED] sKYPE: edersoncassiano MSN: [EMAIL PROTECTED] www.microtechshop.com -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,4773be6715689813473502 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF] descobrir senha de arquivo Excel
Galera, uma querida usuária colocou senha numa planilha de análise de custos (que ela tem que apresentar para o diretor) e esqueceu a senha :( Tentei achar na net algum software free, mas não tive sucesso. Alguém tem alguma dica? Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Alterar tamanho do form em tempo de execução
Tenta usando o evento OnResize do Form. Eu uso assim e dá certo, em conjunto com a propriedade Align. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Carlos Negrão To: delphi-br@yahoogrupos.com.br Sent: Monday, December 17, 2007 6:18 PM Subject: [delphi-br] Alterar tamanho do form em tempo de execução Alguém tem um tutorial explicando passo a passo como fazer para que o tamanho e posição dos componentes se ajustem quando se altera o tamanho do form em tempo de execução, usando Delphi 5? Eu tentei usando as propriedades align (para os componetes que a tem) e constraints, mas não está dando certo. Os componentes dos cantos esquerdo e direito em uma linha parecem ir para os lugares certos, mas os do meio se sobrepôem. Já procurei aqui na lista e no google mas não achei. -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47670737877621072517642 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Usar fone de ouvido+microfone ao invés do aparelho de te lefone
Pessoal, estou tentando usar o fone de ouvido+microfone para substituir o aparelho telefônico, utilizando a placa de fax-modem, para usar como se fosse um call-center. Buenos, busquei na net um exemplo e achei. Consigo fazer a ligação, atender chamadas, mas tudo que eu falo não se escuta do outro lado :( Já testei o volume do microfone e está ok. Alguém sabe se existe algum macete para o microfone funcionar para esse tipo de aplicação? Usei o seguinte artigo como modelo: http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=7 Só o que fiz de diferente é que uso 2 botões: uma para fazer a chamada e outro para desligar (isso depois vai virar um botão só hehehe) Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Usar fone de ouvido+microfone ao inv és do aparelho de telefone
Não achei nada parecido com o que tu disse. Estou tentando usar o modem do meu notebook - Acer 5050-3284. O modem que vem nele é um HDAUDIO Soft Data Fax Modem with SmartCP. Ainda não tive sucesso :( Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br Sent: Friday, December 14, 2007 1:22 PM Subject: RES: [delphi-br] Usar fone de ouvido+microfone ao invés do aparelho de telefone Cara vê se é isso, O modem que tem essa capacidade ele instala um driver de som pro modem. Então lá na configuração de som vc pode dizer qual driver de som que vai ser usado. (mesmo para microfone) Tem com combobox lá com as opções de drivers instalados disponíveis.. Talvez seja isso! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alessandro DUARTE de Moraes Enviada em: sexta-feira, 14 de dezembro de 2007 14:54 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Usar fone de ouvido+microfone ao invés do aparelho de telefone Pessoal, estou tentando usar o fone de ouvido+microfone para substituir o aparelho telefônico, utilizando a placa de fax-modem, para usar como se fosse um call-center. Buenos, busquei na net um exemplo e achei. Consigo fazer a ligação, atender chamadas, mas tudo que eu falo não se escuta do outro lado :( Já testei o volume do microfone e está ok. Alguém sabe se existe algum macete para o microfone funcionar para esse tipo de aplicação? Usei o seguinte artigo como modelo: http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=7 Só o que fiz de diferente é que uso 2 botões: uma para fazer a chamada e outro para desligar (isso depois vai virar um botão só hehehe) Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,4762ad35873732023615306 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Usar fone de ouvido+microfone ao inv és do aparelho de telefone
Desculpe, não consegui me expressar direito: isso eu achei sim (dispositivo padrão) ... mas só aparece: Reprodução de voz: Realtek HD Audio output e Gravação de voz: Realtek HD Audio Input. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br Sent: Friday, December 14, 2007 2:31 PM Subject: RES: [delphi-br] Usar fone de ouvido+microfone ao invés do aparelho de telefone Cara, No Painel de controle, tem uma opção Sons e dispositivos de áudio. Lá dentro tem uma aba chamado AUDIO e outra chamada VOZ e lá dentro tem um combobox chamado DISPOSITIVO PADRAO isso tu não achou??? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alessandro DUARTE de Moraes Enviada em: sexta-feira, 14 de dezembro de 2007 16:25 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Usar fone de ouvido+microfone ao invés do aparelho de telefone Não achei nada parecido com o que tu disse. Estou tentando usar o modem do meu notebook - Acer 5050-3284. O modem que vem nele é um HDAUDIO Soft Data Fax Modem with SmartCP. Ainda não tive sucesso :( Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, December 14, 2007 1:22 PM Subject: RES: [delphi-br] Usar fone de ouvido+microfone ao invés do aparelho de telefone Cara vê se é isso, O modem que tem essa capacidade ele instala um driver de som pro modem. Então lá na configuração de som vc pode dizer qual driver de som que vai ser usado. (mesmo para microfone) Tem com combobox lá com as opções de drivers instalados disponíveis... Talvez seja isso! De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Alessandro DUARTE de Moraes Enviada em: sexta-feira, 14 de dezembro de 2007 14:54 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Usar fone de ouvido+microfone ao invés do aparelho de telefone Pessoal, estou tentando usar o fone de ouvido+microfone para substituir o aparelho telefônico, utilizando a placa de fax-modem, para usar como se fosse um call-center. Buenos, busquei na net um exemplo e achei. Consigo fazer a ligação, atender chamadas, mas tudo que eu falo não se escuta do outro lado :( Já testei o volume do microfone e está ok. Alguém sabe se existe algum macete para o microfone funcionar para esse tipo de aplicação? Usei o seguinte artigo como modelo: http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=7 Só o que fiz de diferente é que uso 2 botões: uma para fazer a chamada e outro para desligar (isso depois vai virar um botão só hehehe) Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] mailto:spam%40vetorial.net Chave de Identificação: 54568,4762ad35873732023615306 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,4762bf9f917814508661491 [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Ajuda!! lógica Calculo
Seguinte, acho que o erro pode ser porque vc está usando um DBEdit ... isso significa que o Text vem do Banco de Dados. Altere o valor do campo Idade que automaticamente alterará o DBEdit. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Leonardo Cruz Costa - P. M. Quissamã To: delphi-br@yahoogrupos.com.br Sent: Tuesday, December 11, 2007 3:42 PM Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo Qual é o erro? Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: itasouza To: delphi-br@yahoogrupos.com.br Sent: Tuesday, December 11, 2007 4:38 PM Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo Coloquei no onExit do EditDatNascimento o código: EditIdade.Text:= Inttostr(Date - StrToDate(EditDataNascimento.text)); O mesmo gera erro e não compila Alguém saberia uma alternativa? Agradeço!! -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.14/1172 - Release Date: 5/12/2007 08:41 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,475edc5d891501157313842 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida - Conexão DBF no Delphi 7
Cara, quando preciso conectar em DBF uso o vkDBF, que inclusive opera com os índices NTX do Clipper. http://www.delphi-files.com/download/db/direct/db_dbf/VKDBF107.ZIP Para trabalhar com relatórios gosto muito do FreeReport, que além de ser Free é muito bom! http://fast-report.com/en/download/free-report-download.html Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: itasouza To: delphi-br@yahoogrupos.com.br Sent: Monday, December 10, 2007 5:23 PM Subject: [delphi-br] Dúvida - Conexão DBF no Delphi 7 Boa Tarde a todos Tenho um sistema de terceiros com um banco de dados DBF, preciso fazer a conexão deste banco no Delphi 7 para gera alguns relatórios. Gostaria de saber qual o tipo de conexão utilizar, e qual a ferramenta para geração dos relatórios mais apropriada. Agradeço desde já -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,475da067623804654968076 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvidas e mais Dúvidas
Tenho projetos utilizando os componentes IBX (paleta interbase) e também utilizo a ZeosLib. A vantagem que a IBX tem é que se faço uma query que irá retornar muitos registros, nesse caso o IBX vai trazendo por fetch, isto é, por páginas. No caso dos outros tipos de conexão, tal como a ZeosLib, todos os registro vem de uma vez só. Alguém me corrija se estou errado. Tb como já foi falado, a compatibilidade da IBX é até o Firebird 1.5. Por isso sugiro que procures um novo método de acesso. Abraços Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Darkzad To: delphi-br@yahoogrupos.com.br Sent: Friday, December 07, 2007 9:25 AM Subject: [delphi-br] Dúvidas e mais Dúvidas Olá pessoal, Estou programando em Delphi 7 com banco de dados Firebird e desde quando comecei a programar utilizo os componentes da paleta interbase. Gostaria de saber se estou fazendo correto, utilizando componentes do interbase para usar com firebird. Nunca gostei de usar componentes de terceiros, por isso não procurei outra alternativa, mas sempre fiquei com essa pulga atrás da orelha. O que acham? Desde já agradeço Darkzad [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47593bc5505841128194699 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] O que seria GExperts?
Buenos, vamos lá então: Não há muito o que falar sobre o GExperts ... ele é um plugin para a IDE do Delphi que acrescenta várias funcionalidades. Atualmente eu uso apenas uma delas (não que as outras não sejam interessantes, pois são): no meu notebook Acer o ponto de interrogação é acionado pela sequência AltGr+W, e isso para a IDE do Delphi é o mesmo que Ctrl+Alt+W, que seria a hotkey para a janela de Watches. Daí pelo GExpert desabilitei essa hotkey e pronto, agora tenho o ponto de interrogação. Te aconselho a baixar e instalar o GExperts. Dá uma olhada geral nele que vale a pena. www.gexperts.org Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ricardo Cabral To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 06, 2007 5:50 PM Subject: Re: [delphi-br] O que seria GExperts? Alessandro, Já ia esquecendo, ninguém respondeu... []´s Ricardo Cabral Ricardo Cabral [EMAIL PROTECTED] escreveu: Alessandro, Não cheguei a ficar irritado, mas se procurássemos tirar nossas dúvidas no google, acho que não precisaria da lista, certo ? Mas deixa isso pra lá, a lista vive de pessoas inteligentes que gostam de contribuir com os companheiros. A troca de informações é uma boa forma de aprendizado. []´s Ricardo Alessandro DUARTE de Moraes [EMAIL PROTECTED] escreveu: O Ricardo, pega leve ... foi só uma brincadeira do Andrei ... Eu achei bem engaçado ... nunca tinha mandado procurar use a porra do Google no próprio Google, por isso não conhecia esse site (hahahaha). Essa foi mais uma brincadeira, então não vai ficar irritado ... Aliás, graças a Deus tem caras espertos fazendo parte da lista, caso contrário seria difícil de ter respostas para os problemas ... sacou Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com..br - Original Message - From: Ricardo Cabral To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 06, 2007 3:22 PM Subject: Re: [delphi-br] O que seria GExperts? Você deve se achar um cara muito esperto. Nem sei porque faz parte de uma lista como esta ! Andrei Luís [EMAIL PROTECTED] escreveu: Aqui você encontra sobre GExperts e muito mais: http://tinyurl.com/5spot [] Andrei 2007/12/6, Ricardo Cabral [EMAIL PROTECTED]: O que seria GExperts? Abraços, Ricardo Cabral - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47583e01160901391928971 [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47586140327316928268414 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Alguem aqui usa GExperts?
Eu tb uso! Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Apoio To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 06, 2007 9:55 AM Subject: [delphi-br] Alguem aqui usa GExperts? Eu uso! mais alguem? http://www.gexperts.org/index.html sobre em portugues: http://www.revolution.com.br/delphistop/gxrevp.htm [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,4757f1af289442017020218 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] O que seria GExperts?
O Ricardo, pega leve ... foi só uma brincadeira do Andrei ... Eu achei bem engaçado ... nunca tinha mandado procurar use a porra do Google no próprio Google, por isso não conhecia esse site (hahahaha). Essa foi mais uma brincadeira, então não vai ficar irritado ... Aliás, graças a Deus tem caras espertos fazendo parte da lista, caso contrário seria difícil de ter respostas para os problemas ... sacou Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ricardo Cabral To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 06, 2007 3:22 PM Subject: Re: [delphi-br] O que seria GExperts? Você deve se achar um cara muito esperto. Nem sei porque faz parte de uma lista como esta ! Andrei Luís [EMAIL PROTECTED] escreveu: Aqui você encontra sobre GExperts e muito mais: http://tinyurl.com/5spot [] Andrei 2007/12/6, Ricardo Cabral [EMAIL PROTECTED]: O que seria GExperts? Abraços, Ricardo Cabral - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47583e01160901391928971 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Cícero Fernandes - passo para retirar o nome da lista
No final de todas as mensagens tem um link Sair do Grupo ... Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, November 30, 2007 7:19 AM Subject: RES: RES: [delphi-br] Array Favor retirar meu nome da lista ... Agradeço muito .. Cícero Fernandes Eng. Eletricista Eng. de Segurança ( (0xx 47) 3521 - 2988 / 9191-6226 * [EMAIL PROTECTED] www.fiosecabos.ind.br P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: quarta-feira, 28 de novembro de 2007 21:07 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] Array Prioridade: Alta Tb resolve. Sds. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 28 Nov 2007 17:43:22 -0400Subject: RES: [delphi-br] Array E que tal for com break?[]'sTopolniak.De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Emnome de BandaLemuelEnviada em: quarta-feira, 28 de novembro de 2007 15:58Para: [EMAIL PROTECTED]: Re: [delphi-br] Arrayok.. Obrigado pela dica.- Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, November 28, 2007 4:45 PMSubject: Re: [delphi-br] ArrayCara, ao invés de usar o FOR usa o WHILE ... + ou - assim:var bAchei : boolean;x := 0;bAchei := false;while ((not bAchei) and (xLength(array)-1)) do beginbAchei := (array[x]=valor);inc(x);endneste caso se o array tem 1000 elementos e o valor que procuras está noquinto elemento, só vai executar o loop 5 vezes ...Alessandro DUARTE de MoraesA.C. Santa Casa do Rio Grande.http://www.santacasarg.com.br- Original Message - From: BandaLemuel To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, November 28, 2007 9:23 AMSubject: [delphi-br] ArrayListaTem alguma forma de saber se existe um determinado valor em um array sem terque passar por ele inteiro ???posso usar assimfor x := 0 to length ( array) - 1 dobeginif array[x] = valor thenresult := Trueelseresult := False ; endMas queria algo mais praticovlw..Wesley[As partes desta mensagem que não continham texto foram removidas]-- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] mailto:spam%40vetorial.net Chave de Identificação: 54568,474d626d294911802914784 [As partes desta mensagem que não continham texto foram removidas]--No virus found in this incoming message.Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.9/1155 - Release Date: 27/11/200720:30[As partes desta mensagem que não continham texto foram removidas][As partes desta mensagem que não continham texto foram removidas] __ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.9/1157 - Release Date: 28/11/2007 12:29 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.9/1157 - Release Date: 28/11/2007 12:29 -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,474fe3b7950825658151262 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Array
Break é gambiarra! Meu professor de Estruturas de Programação dava zero na nota do trabalho se visse algum break no programa. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Luciano Topolniak To: delphi-br@yahoogrupos.com.br Sent: Wednesday, November 28, 2007 6:43 PM Subject: RES: [delphi-br] Array E que tal for com break? []'s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de BandaLemuel Enviada em: quarta-feira, 28 de novembro de 2007 15:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Array ok.. Obrigado pela dica. - Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, November 28, 2007 4:45 PM Subject: Re: [delphi-br] Array Cara, ao invés de usar o FOR usa o WHILE ... + ou - assim: var bAchei : boolean; x := 0; bAchei := false; while ((not bAchei) and (xLength(array)-1)) do begin bAchei := (array[x]=valor); inc(x); end neste caso se o array tem 1000 elementos e o valor que procuras está no quinto elemento, só vai executar o loop 5 vezes ... Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: BandaLemuel To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, November 28, 2007 9:23 AM Subject: [delphi-br] Array Lista Tem alguma forma de saber se existe um determinado valor em um array sem ter que passar por ele inteiro ??? posso usar assim for x := 0 to length ( array) - 1 do begin if array[x] = valor then result := True else result := False ; end Mas queria algo mais pratico vlw.. Wesley [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] mailto:spam%40vetorial.net Chave de Identificação: 54568,474d626d294911802914784 [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.9/1155 - Release Date: 27/11/2007 20:30 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,474df075170179425078721 [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Array
Bem, li toda a conversação gerada pelo meu comentário. Então lá vai a
explicação:
Em primeiro lugar estamos falando de Pascal. Em C (e suas variações), PHP,
entre outras linguagens, o break é um comando obrigatório para algumas
estruturas. Não é o caso do Pascal. Como disse, o professor era da matéria de
Estruturas de Programação, e na época (e faz tempo) a ferramenta usada para
exemplificar era o Turbo Pascal 5.5 (eita nóis). Então, uma estrutura bem feita
e o seu devido uso - while, for, repeat - era extremamente relevante para a
nota da matéria. O break usado dentro de um for demostra que não deveria ser
usado um for, e sim um while ou repeat (dependendo do caso). Um break usado
dentro de um while ... bem aí deve ser avaliado o código, pois apenas o if/else
que foi usado para o chamar o break já resolveria o caso juntamente com a
condição do while, sem a necessidade do break.
Sinceramente, eu agradeço pelo professor que tive, pois aprendi bem a
utilização do while/for/repeat em seus específicos casos. Além disso o programa
fica bem mais legível, como o Vitor já comentou.
Sobre o GOTO, esse sim é uma aberração :) Lembro que minha primeira experiência
com alguma linguagem de programação foi com o MSX (Expert da Gradiente), nele
usava o Basic, e o GOTO comia solto, já que era a única estrutura de loop
naquela liguagem. Daí, quando entrei para o colégio técnico conheci o Turbo
Pascal 3 ... de primeira tentei fazer um programa, e lendo um guia rápido achei
o GOTO e disse: estou em casa!. Graças a Deus descobri logo depois que
existia procedure e function (hehehehe)
Abraços a todos!
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Luciano Topolniak
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, November 29, 2007 11:55 AM
Subject: RES: RES: [delphi-br] Array
A função do break é terminar um laço de forma anormal.
[]'s
Topolniak.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Rubem Nascimento da Rocha
Enviada em: quinta-feira, 29 de novembro de 2007 11:48
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: [delphi-br] Array
Prioridade: Alta
Apenas uma ratificação. Não é só no C++ mas na linguagem C mesmo existe
break. E outra, particularmente, num vejo qual o fascínio que um break pode
exercer. Em Object Pascal, um trecho de código desse pode muito ter o mesmo
efeito reescrito da seguinte maneira:
while True do
begin
.
.
if i = 5 then Break;
.
.
end;
Isso sim, eu acho mais elegante e coerente do que um for definido onde não
se sabe de onde e para onde se quer ir!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 29 Nov 2007 09:25:51 -0400
Subject: RES: [delphi-br] Array
E no caso do C++ onde é possível fazer um for sem as condições e colocar uma
sentinela para Pará-lo.
For (; ;)
{
If (i==5) break;
}
Eu fico fascinado com o poder do c++ em fazer isso. E agora fico sabendo que
é pog?
[]'s
Topolniak.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Alessandro DUARTE de Moraes
Enviada em: quinta-feira, 29 de novembro de 2007 07:28
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Array
Break é gambiarra! Meu professor de Estruturas de Programação dava zero na
nota do trabalho se visse algum break no programa.
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Luciano Topolniak
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 28, 2007 6:43 PM
Subject: RES: [delphi-br] Array
E que tal for com break?
[]'s
Topolniak.
De: delphi-br@yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
] Em
nome de BandaLemuel
Enviada em: quarta-feira, 28 de novembro de 2007 15:58
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Array
ok.. Obrigado pela dica.
- Original Message -
From: Alessandro DUARTE de Moraes
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 28, 2007 4:45 PM
Subject: Re: [delphi-br] Array
Cara, ao invés de usar o FOR usa o WHILE ... + ou - assim:
var bAchei : boolean;
x := 0;
bAchei := false;
while ((not bAchei) and (x
- Original Message -
From: BandaLemuel
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 28, 2007 9:23 AM
Subject: [delphi-br] Array
Lista
Tem alguma forma de saber se existe um determinado valor em um array sem ter
que passar por ele inteiro ???
posso usar assim
for x := 0 to length ( array) - 1 do
begin
if array[x] = valor then
result := True
else
result := False ;
end
Mas queria algo mais pratico
vlw..
Wesley
[As partes desta mensagem que não continham texto foram removidas
Re: [delphi-br] Array
Cara, ao invés de usar o FOR usa o WHILE ... + ou - assim: var bAchei : boolean; x := 0; bAchei := false; while ((not bAchei) and (xLength(array)-1)) do begin bAchei := (array[x]=valor); inc(x); end neste caso se o array tem 1000 elementos e o valor que procuras está no quinto elemento, só vai executar o loop 5 vezes ... Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: BandaLemuel To: delphi-br@yahoogrupos.com.br Sent: Wednesday, November 28, 2007 9:23 AM Subject: [delphi-br] Array Lista Tem alguma forma de saber se existe um determinado valor em um array sem ter que passar por ele inteiro ??? posso usar assim for x := 0 to length ( array) - 1 do begin if array[x] = valor then result := True else result := False ; end Mas queria algo mais pratico vlw.. Wesley [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,474d626d294911802914784 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [1/2 OFF] Teclado do Acer vs IDE do Delphi 7
Ae pessoal, descobri uma coisa: a IDE do Delhi considera o AltGr como se tivesse pressionado Ctrl+Alt ... sendo assim AltGr+W é o mesmo que Ctrl+Alt+W que é a hotkey para a janela de Watches ... Agora o que preciso descobrir é uma forma de alterar as hotkeys da IDE do Delphi. Alguém sabe como? Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br Sent: Monday, November 26, 2007 5:04 PM Subject: [delphi-br] [1/2 OFF] Teclado do Acer vs IDE do Delphi 7 Galera, faz 3 meses que comprei um Notebook Acer 5050-3284 a máquina é muito boa ... só tem um probleminha: no editor pascal usando o esquema de keymapping Classic não consigo usar ? nem /, pois esses caracteres são acionados via AltGr+W e AltGr+Q respectivamente. Já quando eu troco para o keymapping Visual Studio (TM) emulation (por exemplo) funciona bem, mas as teclas de atalho mudam, tal como, F9 não é mais Run e sim o F5 ... Alguém tem alguma saída para resolver essa encrenca? Já tentei o suporte da Acer mas acho que eles estão de FÉRIAS pois ninguém responde. Aceito dicas de alterar as teclas de atalho ou maneira de criar um keymapping customizado ... obs: antes que alguém pergunte: o teclado está configurado corretamente no Windows XP, em todos os outros programas que testei está tudo ok. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,474b18d1506136013236551 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [1/2 OFF] Teclado do Acer vs IDE do Delphi 7
Beleza cara, acabei de entrar no fórum pois descobri o GExpert tb. Agradeço a dica! Eu usei o GExpert a um tempo atrás ... acabei lembrando que tinha essa opção e instalei novamente. Abraços! Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Gerhard Roger Nack To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 27, 2007 7:30 AM Subject: RES: [delphi-br] [1/2 OFF] Teclado do Acer vs IDE do Delphi 7 Instala o GExperts (gratuito) e reconfigura os atalhos como quiser. E de quebra ainda leva um monte de outras vantagens sem deixar a IDE mais lenta. [ ] s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alessandro DUARTE de Moraes Enviada em: terça-feira, 27 de novembro de 2007 09:13 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [1/2 OFF] Teclado do Acer vs IDE do Delphi 7 Ae pessoal, descobri uma coisa: a IDE do Delhi considera o AltGr como se tivesse pressionado Ctrl+Alt ... sendo assim AltGr+W é o mesmo que Ctrl+Alt+W que é a hotkey para a janela de Watches ... Agora o que preciso descobrir é uma forma de alterar as hotkeys da IDE do Delphi. Alguém sabe como? Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, November 26, 2007 5:04 PM Subject: [delphi-br] [1/2 OFF] Teclado do Acer vs IDE do Delphi 7 Galera, faz 3 meses que comprei um Notebook Acer 5050-3284 a máquina é muito boa ... só tem um probleminha: no editor pascal usando o esquema de keymapping Classic não consigo usar ? nem /, pois esses caracteres são acionados via AltGr+W e AltGr+Q respectivamente. Já quando eu troco para o keymapping Visual Studio (TM) emulation (por exemplo) funciona bem, mas as teclas de atalho mudam, tal como, F9 não é mais Run e sim o F5 ... Alguém tem alguma saída para resolver essa encrenca? Já tentei o suporte da Acer mas acho que eles estão de FÉRIAS pois ninguém responde. Aceito dicas de alterar as teclas de atalho ou maneira de criar um keymapping customizado ... obs: antes que alguém pergunte: o teclado está configurado corretamente no Windows XP, em todos os outros programas que testei está tudo ok. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] mailto:spam%40vetorial.net Chave de Identificação: 54568,474b18d1506136013236551 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,474bf157659035938413796 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressora Fiscal
O que pode é os terminais de venda (vendedores) gerar uma venda (pedido) e apenas no caixa imprimir o cupom fiscal. Assim pode ter vários vendedores e apenas um caixa. ;) Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Alcistemas Informática To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 27, 2007 8:23 AM Subject: Re: [delphi-br] Impressora Fiscal Pelo que já lí, por lei isso não pode. Leia ICMS 57-97 - Original Message - From: Leandro - Grupos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 27, 2007 8:19 AM Subject: [delphi-br] Impressora Fiscal E ai pessoal, blz... Alguem saberia me dizer se é possível utilizar uma impressora fiscal em 2 micros pela rede ao mesmo tempo. Leandro Carbonera (54) 3343-3623 / 9977-1266 [EMAIL PROTECTED] www.sigmatecnologia.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.7/1151 - Release Date: 25/11/2007 16:24 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,474bfe4811789212077 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressora Fiscal
Bem, aqui na região tem várias, mas várias empresas fazendo isso. Uma vez ouvi algo sobre uma liberação do fisco para essa prática. O que quero dizer é que a legislação permite isso sim ... caso tenha alguma dúvida, dá uma chegadinha numa revenda autoriza de veículos (Ford, Volks, GM, ...) e vai no setor de peças ... eles não tem impressora fiscal no balcão de venda, só tem impressora fiscal no caixa. Abraços! Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Adriano Santos (Yahoo) To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 27, 2007 10:28 AM Subject: Re: [delphi-br] Impressora Fiscal É isso ai pessoal, estudei bastante coisa a respeito de ECF e realmente a legislação não permite essa prática. -- Adriano Santos -- Editor Técnico Revista ClubeDelphi www.delphitodelphi.blogspot.com www.devmedia.com.br www.devmedia.com.br/clubedelphi/pagina.asp Alessandro DUARTE de Moraes respondeu: O que pode é os terminais de venda (vendedores) gerar uma venda (pedido) e apenas no caixa imprimir o cupom fiscal. Assim pode ter vários vendedores e apenas um caixa. ;) Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br http://www.santacasarg.com.br - Original Message - From: Alcistemas Informática To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, November 27, 2007 8:23 AM Subject: Re: [delphi-br] Impressora Fiscal Pelo que já lí, por lei isso não pode. Leia ICMS 57-97 - Original Message - From: Leandro - Grupos To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, November 27, 2007 8:19 AM Subject: [delphi-br] Impressora Fiscal E ai pessoal, blz... Alguem saberia me dizer se é possível utilizar uma impressora fiscal em 2 micros pela rede ao mesmo tempo. Leandro Carbonera (54) 3343-3623 / 9977-1266 [EMAIL PROTECTED] mailto:leandro%40sigmatecnologia.com.br www.sigmatecnologia.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.7/1151 - Release Date: 25/11/2007 16:24 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] mailto:spam%40vetorial.net Chave de Identificação: 54568,474bfe4811789212077 [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.8/1153 - Release Date: 26/11/2007 21:08 -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,474c1b96945675440215214 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [1/2 OFF] Teclado do Acer vs IDE do Delphi 7
Galera, faz 3 meses que comprei um Notebook Acer 5050-3284 ... a máquina é muito boa ... só tem um probleminha: no editor pascal usando o esquema de keymapping Classic não consigo usar ? nem /, pois esses caracteres são acionados via AltGr+W e AltGr+Q respectivamente. Já quando eu troco para o keymapping Visual Studio (TM) emulation (por exemplo) funciona bem, mas as teclas de atalho mudam, tal como, F9 não é mais Run e sim o F5 ... Alguém tem alguma saída para resolver essa encrenca? Já tentei o suporte da Acer mas acho que eles estão de FÉRIAS pois ninguém responde. Aceito dicas de alterar as teclas de atalho ou maneira de criar um keymapping customizado ... obs: antes que alguém pergunte: o teclado está configurado corretamente no Windows XP, em todos os outros programas que testei está tudo ok. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi+Postgre
Quanto a isso nem te preocupa. Com certeza o Firebird é um ótimo banco, e tem uma ferramenta chamada IBExpert (free com algumas restrições) que é muito boa para trabalhar. Como já falei anteriormente, não simpatizo com o PostGreSQL pelo fato de o banco ir ficando lento ... lento .. lento até que eu faça o tal de Vacuun (o que eu acho uma verdadeira aberração) e ninguém me dá uma justificativa coerente para isso. Volto a dizer, uso Firebird e MySql e nunca precisei rodar nada por motivo do banco ficar lento. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Fernando To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 26, 2007 2:21 PM Subject: Re: [delphi-br] Delphi+Postgre Não atende, não...por isso escrevi lá atrás que estava pensando em migrar e assim fiquei assustado com os comentários... Queda de energia já é um extremo, penso eu...o duro são aquelas esquisitices que aparecem do nada, no paradox... Ricardo César Cardoso escreveu: Nem tanto céu nem tanto inferno. Hj mesmo aconteceu uma queda de energia na empresa onde trabalho e os meus sistemas com FB funcionaram direitinho. Não perdi nada e não corrompeu nada no banco. Cruz credo é usar Paradox! Pelo menos pra mim. Mas se atende a sua necessidade... Sds, Ricardo. Fernando [EMAIL PROTECTED] mailto:aranhento%40gmail.com escreveu: Que estranho!!! Estou acostumado a ouvir este tipo de coisa a respeito do Paradox, não do Firebird...este último então está sujeito a idiossincrasias e peripaques, como o Paradox E eu que estava pensando em migrar pro Firebirdcruiz credo Abraços. Fernando. Plinio Cesar Pavin escreveu: Eu parei de usar firebird por isso, numa queda de energia fui obrigado a restaurar o backup do servidor, coisa que nunca me aconteceu com PostgreSQL ou mySQL. De:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Para:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Cópia: Data:Wed, 26 Sep 2007 08:22:37 -0300 (ART) Assunto:Re: [delphi-br] Delphi+Postgre No Postgree há o problema de corrupção? Trabalho com FireBird e sempre vejo mensagem de corrupção do banco (por exemplo: copiar o banco se estiver sendo usado). Há algum software para recuperar o banco? Trabalhei com Oracle durante 10 anos e numca tive problema com o banco. José Mário Silva Guedes [EMAIL PROTECTED] mailto:jmarioguedes%40gmail.com mailto:jmarioguedes%40gmail.com escreveu: Então: Eu particularmente não uso e espero nunca usar o Linux, por isso não sei como se instala o PostgreSQL no Linux, porém no Windows, a instalação é muito tranquila, algumas telas e pronto: pode começar a usar. Eu sei que o PostgreSQL no Linux, como qualquer outro servidor, é mais eficiente no Linux. Inclusive consegui colocar o instalador do PostgreSQL dentro dos instaladores dos meus programas. O usuário nem toma conhecimento. Basta chamar o instalador original com uma série de parâmetros. O que queimou o filme do PostgreSQL eram as primeiras versões for windows. Em especial a da DBExperts. Era emulada e o bicho caia toda hora. A partir da versão 8.0 a coisa ficou mais tranquila. Eu usava o Firebird antes de usar o PostgreSQL. Migrei e não sinto falta do Firebird. Mas eu gostava muito do Firebird e não tenho nenhum comentário contra. Em realação à bases grandes, ainda não tive problemas. E tenho tabelas gigantes por aqui também. Acho que peguei uma época boa. [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] _ Flickr agora em português. Você clica, todo mundo vê. Saiba mais.. [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46fa951c188781282313518 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Instalacao do Sistema
Buenos, aí vai depender de que tipo de acesso estarás utilizando. No meu caso eu só preciso instalar o banco e a DLL do cliente do banco, pois utilizo o ZeosLib. Em outro cenário, onde utilizo o IBX, só preciso instalar o banco e copiar o executável. Mas se fores trabalhar com DBExpress acho que precisarás instalar mais coisas. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: barblo25 To: delphi-br@yahoogrupos.com.br Sent: Friday, September 28, 2007 3:14 PM Subject: [delphi-br] Instalacao do Sistema Pessoal, Como eu sei quais arquivos devo copiar pra o servidor do meu cliente, para que o sistema rode perfeitamente ?. Sei que tenho que instalar o banco, mas e depois?. Desde ja Agradeço Leonardo Anselmo -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46fd4480573933179915976 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ADOQuery - Erro com parametros
Vamos lá!
Primeiro notei que estás sempre colocando '%' antes e depois, e utilizando os
operadores = = ... buenos, o % só deve ser utilizado com o LIKE e tb deve
ser utilizado com muito cuidado, pois o banco não se utiliza dos índices para a
instrução LIKE que tem % ante e depois do texto.
Segundo é que tudo está sendo colocado como um texto, isto é, a propriedade
Value está sempre recebendo uma string. Te aconcelho a atribuir o valor
correto, isto é, se o campo que será comparado é uma data então atribua uma
data ao parâmetro, exemplo:
ADOQuery.Parameters.ParamByName('DtDigit').Value := Date;
Mesmo assim talvez seja necessário atribuir o tipo de dados do parametro, que
se não me falha a memória é a propriedade DataType.
Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br
- Original Message -
From: Eduardo Mauricio Pessoa de Souza
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, September 27, 2007 10:52 AM
Subject: [delphi-br] ADOQuery - Erro com parametros
Bom dia, Pessoal
Sou programador a bastante tempo, porém, começo agora a trabalhar com
Delphi. Montei um DBgrid que recebe dados de um ADOQuery, mas estou com
problemas nos parâmetros. o Erro é o seguinte:
Project Project1.EXE raised exception class EOleException with message
'Objeto Parameter definido incorretamente'.
As informações são inconsistentes ou incompletas.
procedure TForm1.BitBtn1Click(Sender: TObject);
Var cQuery : String;
begin
cQuery := 'SELECT D1_FORNECE CLIENTE, D1_LOJA LOJA, D1_DTDIGIT DT_DEV,
D1_NFORI DOC_ORIG, D1_DOC DOC_DEV, SUM(D1_TOTAL-D1_VALDESC) TOTAL ';
cQuery := cQuery + 'FROM SD1010 ';
cQuery := cQuery + 'WHERE D1_FILIAL = :Filial ';
cQuery := cQuery + ' AND D_E_L_E_T_ :Deletado ';
cQuery := cQuery + ' AND D1_DTDIGIT= :DtDigit ';
cQuery := cQuery + ' AND D1_NFORI IN (SELECT DAI_NFISCA FROM DAI010 WHERE
DAI_COD= :Carga AND DAI010.D_E_L_E_T_ :Deletado AND DAI_FILIAL= :Filial
';
cQuery := cQuery + 'GROUP BY D1_FORNECE, D1_LOJA, D1_DTDIGIT, D1_NFORI,
D1_DOC ';
cQuery := cQuery + 'ORDER BY D1_DTDIGIT ';
ADOQuery1.close;
ADOQuery1.SQL.Add(cQuery);
ADOQuery1.Parameters.ParamByName('Filial').Value :=
#39+'%'+Edit1.Text+'%'+#39;
ADOQuery1.Parameters.ParamByName ('DtDigit').Value :=
#39+'%'+Edit2.Text+'%'+#39;
ADOQuery1.Parameters.ParamByName('Carga').Value :=
#39+'%'+Edit3.Text+'%'+#39;
ADOQuery1.Parameters.ParamByName('Deletado').Value :=
#39+'%'+Edit4.Text+'%'+#39;
ADOQuery1.Open;
end;
--
Eduardo Pessoa
[As partes desta mensagem que não continham texto foram removidas]
--
E-mail Seguro Vetorial.net
Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
encaminhe para [EMAIL PROTECTED]
Chave de Identificação: 54568,46fbbc2c327881807729863
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi+Postgre
Ai gurizada, creio que vcs estão falando de problemas do Sistema Operacional + Sistema de Arquivos, e não do banco de dados. Trabalho com Firebird há bastante tempo e só tive problemas uma vez, onde o servidor era uma máquina com Win98 + Fat32. Nos demais, tenho WinXP + NTFS ou Linux + EXT3 e nunca tive problemas desse tipo, mesmo com falta de energia. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Fernando To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 26, 2007 10:43 AM Subject: Re: [delphi-br] Delphi+Postgre Que estranho!!! Estou acostumado a ouvir este tipo de coisa a respeito do Paradox, não do Firebird...este último então está sujeito a idiossincrasias e peripaques, como o Paradox E eu que estava pensando em migrar pro Firebirdcruiz credo Abraços. Fernando. Plinio Cesar Pavin escreveu: Eu parei de usar firebird por isso, numa queda de energia fui obrigado a restaurar o backup do servidor, coisa que nunca me aconteceu com PostgreSQL ou mySQL. De:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Para:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Cópia: Data:Wed, 26 Sep 2007 08:22:37 -0300 (ART) Assunto:Re: [delphi-br] Delphi+Postgre No Postgree há o problema de corrupção? Trabalho com FireBird e sempre vejo mensagem de corrupção do banco (por exemplo: copiar o banco se estiver sendo usado). Há algum software para recuperar o banco? Trabalhei com Oracle durante 10 anos e numca tive problema com o banco.. José Mário Silva Guedes [EMAIL PROTECTED] mailto:jmarioguedes%40gmail.com escreveu: Então: Eu particularmente não uso e espero nunca usar o Linux, por isso não sei como se instala o PostgreSQL no Linux, porém no Windows, a instalação é muito tranquila, algumas telas e pronto: pode começar a usar. Eu sei que o PostgreSQL no Linux, como qualquer outro servidor, é mais eficiente no Linux. Inclusive consegui colocar o instalador do PostgreSQL dentro dos instaladores dos meus programas. O usuário nem toma conhecimento. Basta chamar o instalador original com uma série de parâmetros. O que queimou o filme do PostgreSQL eram as primeiras versões for windows. Em especial a da DBExperts. Era emulada e o bicho caia toda hora. A partir da versão 8.0 a coisa ficou mais tranquila. Eu usava o Firebird antes de usar o PostgreSQL. Migrei e não sinto falta do Firebird. Mas eu gostava muito do Firebird e não tenho nenhum comentário contra. Em realação à bases grandes, ainda não tive problemas. E tenho tabelas gigantes por aqui também. Acho que peguei uma época boa. [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais.. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46fa61d6154627932339436 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi+Postgre
Pessoal, em uma de minhas aventuras profissionais fiz um concurso público e trabalhei no setor de folha de pagamento da prefeitura da minha cidade (graças a Deus abandonei essa coisa e voltei a trabalhar com programação hehehehe). Buenos, na época o sistema de folha de pagamento utilizava o PostGre, e sinceramente o troço era horrível ... se não fosse feito o tal de Vaccun (acho que é assim q se escreve) o troço em 2 dias ficava uma carroça. Isso porque a base de dados era mesmo gigante. Por esse motivo tenho sérias restrições a utilizar o PostGre, exatamente por esse maldito Vaccun, pois quando precisava rodar essa tranqueira a gente não podia trabalhar. Isso significa que um sistema crítico que precise estar 24h no ar não poderia utilizar o PostGre. Alguém poderia me atualizar? Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Tatu To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 25, 2007 9:54 AM Subject: RES: [delphi-br] Delphi+Postgre nao abra a caixa de pandora.....rsrsrsrsrssrrs Bom, pessoalmente acredito que uma discusão sobre este tema é sempre muito boaClaro, sempre que esteja envolvido o delphi no meio. Utilizo o Postgresl ha 5 anos, migrei meu sistema de automação comercial de todos meus clientes e minha felicidade com ese casamento, delphi, postgresql, Zeoslib he pura alegria. Não pretendo entrar no merito da comparação entre estes 2 bancos de dados, apenas dizer que do lado do postgresl, vc pode durmir tranquilo sem medo de ser feliz. O forum de postgresql nao para de crescer, e tem mais, antes vc falava de postgresql o pessoal perguntava que diabohe isso..Depois torciam o nariz, mas tarde começaram a comparar com o sql server, depois o pessoal do oracle começou a ver ele com certa simpatia, e hoje vc tem sites que fazer comparações entre postgresl x oracle. Resumindo se tiver que entrar na era do postgresql entre sem medo. Santiago. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Hudson Enviada em: terça-feira, 25 de setembro de 2007 09:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi+Postgre Ola gente, Uma certa vez ouvir falar que o PostgreSQL era mais rapido do que o Firebird bom tenho acesso as duas tecnologia, mas estou ainda com o firebird Qual a opnião da lista? - Original Message - From: Ricardo César Cardoso To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Tuesday, September 25, 2007 8:34 AM Subject: Re: [delphi-br] Delphi+Postgre Parabéns pela inicativa. É sempre bom ter mais fontes de pesquisa. Sucesso! Ricardo. José Mário Silva Guedes jmarioguedes@ mailto:jmarioguedes%40gmail.com gmail.com escreveu: Olá! Já eu sou tão fã deste cenário que me atrevi a criar um blog sobre o assunto: Delphi + Zeos + PostgreSQL http://pgviavel. http://pgviavel.blogspot.com blogspot..com Rápido, eficiente. Minha única crítica é criar um processo do postgres.exe para cada conexão. [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [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] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46f90638470381884910057 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi+Postgre
*** isso já tá começando a ficar OFF *** hahahaha Buenos Joel, como disse no post anterior, o sistema que ficava lento não era feito pela minha pessoa, eu apenas era funcionário público e utilizava o bicho. Mas continuo achando um absurdo um banco ficar lento por ter registros deletados. Isso já faz tempo que foi resolvido ... esse problema era duma coisa chamada DBF (dbase/clipper). É um tanto ridículo eu precisar dizer pro banco que aquele registro não deve mais fazer parte das pesquisas. Uma vez um cara me disse que o Vacuum serve para refazer a estrutura dos índices do PostGreSQL. Bem, esse cara trabalhava bastante com PostGreSQL ... baseado nisso não vejo o PostGreSQL como uma maravilha! Atualmente trabalho bastante com MySql, e também mantenho sistemas com Firebird. Sobre o que perguntaste sobre o Firebird reaproveitar os registros deletados, na verdade isso se chama Garbage Collection (em dialeto tupiniquim: Coleta de Lixo). Isso funciona mesmo, mas na verdade só são aproveitados espaços que correspondam a uma ou mais páginas do banco. Ele reaproveita o espaço onde havia os registros deletados e utiliza para novos registros. E no Firebird ou no MySql não tenho problemas se apagar uma quantidade grande de registros. Fiz esse teste uma vez que ia me aventurar no PostGreSQL, e aí que desisti antes mesmo de começar. Criei uma tabela com 500 mil registros ... apaguei aleatoriamente 300 mil e inclui mais 200 mil. Depois fiz uma séria de SELECTs utilizando uma chave pelo campo nome ... credo, ficou muito, mas muito lento no PostGreSQL. Procedi o mesmo teste tanto no Firebird quanto no MySql e não tive problemas de performance. O engraçado é que após rodar o Vacuum as select's ficaram com velocidade consideravelmente boa, mas mesmo assim mais lento que os outros. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Joel Alexandre [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 25, 2007 12:05 PM Subject: Re: [delphi-br] Delphi+Postgre Alessandro, ao contrário do que se possa pensar, o vaccuum é mais amigo do que inimigo. Pelo menos ele tem uma ferramenta pra limpar os lixos causados pelas deleções. Imagime uma tabela grande, como esta que vc mencionou, no Firebird onde vc precise limpar esses registros. Vc teria que fazer um backup e um restore. Ao passo que no vaccuum vc pode realizar em tempo de execução. Se o Postgres está ficando uma carroça em dois dias é porque vc tá utilizando muitas deleções. Eu recomento que vc, ao invés de delecoes, crie um campo onde vc informará que este registro está excluido. Dessa forma vc nunca precisará executar o vaccuum, ok? Ps: Dizem os experts em Firebird que este banco reaproveita os registros deletados. Se alguem confirmar essa informação eu ficaria agradecido. Pessoal, em uma de minhas aventuras profissionais fiz um concurso público e trabalhei no setor de folha de pagamento da prefeitura da minha cidade (graças a Deus abandonei essa coisa e voltei a trabalhar com programação hehehehe). Buenos, na época o sistema de folha de pagamento utilizava o PostGre, e sinceramente o troço era horrível ... se não fosse feito o tal de Vaccun (acho que é assim q se escreve) o troço em 2 dias ficava uma carroça. Isso porque a base de dados era mesmo gigante. Por esse motivo tenho sérias restrições a utilizar o PostGre, exatamente por esse maldito Vaccun, pois quando precisava rodar essa tranqueira a gente não podia trabalhar. Isso significa que um sistema crítico que precise estar 24h no ar não poderia utilizar o PostGre. Alguém poderia me atualizar? []Os Joel -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46f92be06323844214554 -- 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] ShowMessage.
Isso é relacionado a unit Dialogs ... se vc não está usando esta unit no uses o ShowMessage não irá aparecer. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Red Mosquito To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Monday, September 17, 2007 5:51 PM Subject: [delphi-br] ShowMessage. Por que as vezes o ShowMessage aparece no CTRL+Barra espaço, e as vezes não ? Consequentemente dá erro na compilação. Isto está relacionado a que ? ao tipo de formulário ? a procedure/função ? Obrigado Junior [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46eeea5d949062013611652 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] AcroPDFLib_TLB
Faça vc mesmo! No Delphi 7 basta vc ir no menu Component / Import ActiveX Control e selecionar o Adobe Acrobat ... e criar as units. Alessandro DUARTE de Moraes - Original Message - From: Evaldo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 11, 2007 10:29 AM Subject: [delphi-br] AcroPDFLib_TLB Alguém tem ou sabe onde encontro a AcroPDFLib_TLB do Adobe Reader 8.0? Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46e6984c869793827817435 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Saída Repentina
Eu tive esse problema uma vez por um problema com a DLL de acesso ao banco ... acho que deu algum vírus na bichinha ... Isso acontece em todos os computadores? Testa em outros? Sabe como é o Windows né ... Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: lucaoliveira7 To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 04, 2007 2:37 PM Subject: [delphi-br] Saída Repentina Pessoal, Preciso de uma ajuda. Minha aplicação no cliente está tendo problema de sair abruptamente sem mais nem menos; não dá mensagens de erros, simplesmente cai fora. Estou utilizando Delphi 6.0 Componentes DOA, e Oracle 10g. Grato -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46dd985262388104316812 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sub-Select
Acho que agora estás no caminho certo! O ideal é exatamente isso, achar o ponto de ligação para apresentar as informações. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Filippe Maymone To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 30, 2007 5:59 PM Subject: Re: [delphi-br] Sub-Select Estou pensando em mais uma opção .. rs.rs Eu estou fazendo um master/details .. O mestre é a tabela de clientes .. por que todo o meu Where é encima do cliente ... Ai Pedidos seria o detalhe 1 ... e Notasfiscais Seria detalhe 2 .. fazer mestre-details com 3 niveis .. tb funciona né ?? Abraços Filippe Ventura Maymone (Analista de Suporte / Desenvolvedor) WEB - HTML/ASP/JavaScript Windows - Delphi Banco - SQL Server/Firebird 2.0 Servidor - Windows / Debian / RedHat MSN: [EMAIL PROTECTED] - Original Message - From: Rodrigo Pires To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 30, 2007 6:00 PM Subject: Re: [delphi-br] Sub-Select é... mas nao seria mais facil fazer 2 querys separadas? ou Select (select das notas) as notas, (selectdos pedidos) as pedidos from rdb$database pq depois fica complicado entender colunas com significados diferentes... de qualquer maneira vai ter q usar left join tb From: Filippe Maymone [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Sub-Select Date: Thu, 30 Aug 2007 17:52:50 -0300 O Union tem que ter o mesmo numero de colunas ?? Mesmo que elas não se relacionem ?? Tipo assim: TABELA 1 campo1,campo2,campo3 tabela 2 Campo1,campo25,campo55 é isso ?? Abraços.. Filippe Ventura Maymone (Analista de Suporte / Desenvolvedor) WEB - HTML/ASP/JavaScript Windows - Delphi Banco - SQL Server/Firebird 2.0 Servidor - Windows / Debian / RedHat MSN: [EMAIL PROTECTED] - Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 30, 2007 5:48 PM Subject: Re: [delphi-br] Sub-Select Cara, estão o que tu precisas é fazer o famoso UNION, já que queres duas coisas que não necessariamente se combinam. Explicando melhor, precisas todos os pedidos + todas as NF ... Para fazer UNION sugiro que busques instrução nos manuais, pois precisarás ter o mesmo nro de colunas em ambas as querys para o UNION não dar problema. *** se ainda tiver dúvidas tenta escrever com mais nitidez, pois esta teu detalhamento tá uma bagunça *** *** outra coisa, traz do verbo trazer é com Z ... por favor pessoal, procurem escrever o português correto, pois todo mundo pega do pé dos programadores devido aos erros de português grosseiros. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Filippe Maymone To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 30, 2007 5:26 PM Subject: Re: [delphi-br] Sub-Select Na verdade olha qual é o meu problema Eu as tabelas Pedidos e PedidosItens e Tabelas NotasFiscais e NotasFiscaisLinhas As tabelas da seguinte forma PEDIDO PEDIDOSITENS Chave CodPedido Chave CodPedido Chave Complemento Chave Complemento Data Status CodCancel Chave CodProduto etc... Quantidade NotasFiscais NotasFiscaisLInhas Chave NumNota Chave NumNota Chave Serie Chave Serie Chave Subserie Chave Subserie Data Chave Sequencia StatusNF CodProduto Etc.. CodPedido Complemento Quantidade Preço Eu precisava fazer um query, onde me tras Todos os Pedidos com ou sem notasFiscais. e me traga, também as notas fiscais mesmo se não tiver pedido. Filippe Ventura Maymone (Analista de Suporte / Desenvolvedor) WEB - HTML/ASP/JavaScript Windows - Delphi Banco - SQL Server/Firebird 2.0 Servidor - Windows / Debian / RedHat MSN: [EMAIL PROTECTED] - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 30, 2007 4:36 PM Subject: Re: [delphi-br] Sub-Select Apenas um campo para ser o ID que vai unir as duas tabelas... TAB1 codigo, descricao TAB2 codigo, codigoTAB1, etc select tab1.descricao, tab2.etc from tab1, tab2 where tab2.codigoTAB1=tab1.codigo; Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: Filippe Maymone To: Delphi-BR ; Lista-Delphi Sent: Thursday, August 30, 2007 3:31 PM Subject: [delphi-br] Sub-Select Galera, Alguem tem alguma apostila de SQL que fala de SUB Select ??? Eu estou precisando fazer um mais naum estou conseguindo... Se eu
Re: [delphi-br] Sub-Select
Cara, estão o que tu precisas é fazer o famoso UNION, já que queres duas coisas que não necessariamente se combinam. Explicando melhor, precisas todos os pedidos + todas as NF ... Para fazer UNION sugiro que busques instrução nos manuais, pois precisarás ter o mesmo nro de colunas em ambas as querys para o UNION não dar problema. *** se ainda tiver dúvidas tenta escrever com mais nitidez, pois esta teu detalhamento tá uma bagunça *** *** outra coisa, traz do verbo trazer é com Z ... por favor pessoal, procurem escrever o português correto, pois todo mundo pega do pé dos programadores devido aos erros de português grosseiros. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Filippe Maymone To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 30, 2007 5:26 PM Subject: Re: [delphi-br] Sub-Select Na verdade olha qual é o meu problema Eu as tabelas Pedidos e PedidosItens e Tabelas NotasFiscais e NotasFiscaisLinhas As tabelas da seguinte forma PEDIDO PEDIDOSITENS Chave CodPedido Chave CodPedido Chave Complemento Chave Complemento Data Status CodCancel Chave CodProduto etc... Quantidade NotasFiscais NotasFiscaisLInhas Chave NumNota Chave NumNota Chave Serie Chave Serie Chave Subserie Chave Subserie Data Chave Sequencia StatusNF CodProduto Etc.. CodPedido Complemento Quantidade Preço Eu precisava fazer um query, onde me tras Todos os Pedidos com ou sem notasFiscais. e me traga, também as notas fiscais mesmo se não tiver pedido. Filippe Ventura Maymone (Analista de Suporte / Desenvolvedor) WEB - HTML/ASP/JavaScript Windows - Delphi Banco - SQL Server/Firebird 2.0 Servidor - Windows / Debian / RedHat MSN: [EMAIL PROTECTED] - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 30, 2007 4:36 PM Subject: Re: [delphi-br] Sub-Select Apenas um campo para ser o ID que vai unir as duas tabelas... TAB1 codigo, descricao TAB2 codigo, codigoTAB1, etc select tab1.descricao, tab2.etc from tab1, tab2 where tab2.codigoTAB1=tab1.codigo; Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: Filippe Maymone To: Delphi-BR ; Lista-Delphi Sent: Thursday, August 30, 2007 3:31 PM Subject: [delphi-br] Sub-Select Galera, Alguem tem alguma apostila de SQL que fala de SUB Select ??? Eu estou precisando fazer um mais naum estou conseguindo... Se eu tiver nas 2 tabelas um campo igual .. eu ja consigo fazer a sub-Select ??? Os 2 select te mque ter os mesmo campos ?? ou pode ser tudo diferente .. e ter apenas 1 (no meu caso são 2 campos) que se relacionam nas 2 tabelas ?? obrigado.. Filippe Ventura Maymone (Analista de Suporte / Desenvolvedor) WEB - HTML/ASP/JavaScript Windows - Delphi Banco - SQL Server/Firebird 2.0 Servidor - Windows / Debian / RedHat MSN: [EMAIL PROTECTED] [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] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46d729da548841895617647 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Comando VB similar no Delphi.
Acho que o que estás precisando é usar as funções FindFirst, FindNext ... dá uma olhada no help do Delphi para estas funções que irá mostrar como fazer. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Rodrigo de Moura To: delphi-br@yahoogrupos.com.br Sent: Friday, August 03, 2007 9:53 AM Subject: [delphi-br] Comando VB similar no Delphi. Bom dia Pessoal, Existe na Delphi Language um comando similar ao Dir$ do VB? Estou convertendo um sistema em VB para Delphi e me deparei com esse comando. Segundo o que pesquisei na net, Dir$ retorna o exato nome do arquivo, se existir, ou um nulo, se não existir. E mesmo passando o nome parcial do arquivo ele retorna o nome exato do mesmo. abaixo segue um trecho do código: s = Dir$(UserId \ PED*.Txt) Essa linha retorna com base no nome parcial (PED*.Txt) o nome completo (PED20070308_158795.txt). Inclusive, se houver mais de um arquivo PED*.Txt no diretório ele pega por meio de um laço os arquivos e joga num array, assim: While Not oIsEmpty(s) ArrayAdd v, s s = Dir$ (aqui joga em s o nome completo do próximo arquivo, se houver) Wend Sei que posso fazer do jeito tradicional que seria colocar um opendialog e por meio dele pegar o(s) arquivo(s) um a um, mas devido grande número de arquivos o modo descrito acima é a melhor forma pois os usuários clicam no botão uma vez e importa todos os arquivos que houverem no diretório. É isso ae, qualquer ajuda será bem vinda!! Rodrigo de Moura [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46b325b9365331917620412 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ACESSO FIREBIRD
Buenos, dá para acessar utilizando o IBexpress (que originalmente serve para acessar o Interbase) mas não te aconselho a usar esse método por questões de compatibilidades futuras. Eu utilizo o ZeosDBO (http://sourceforge.net/projects/zeoslib/). Abraços Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Adevaldo Oliveira To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 31, 2007 5:40 PM Subject: [delphi-br] ACESSO FIREBIRD Ola!!! Uso o delphi com paradox, estou migrando para firebird 2.0 com ibexpert, tenho a seguinte duvida, no delphi versao 7, quais sao os componentes que eu uso para acessar o banco. Gratos. Alertas do Yahoo! Mail em seu celular. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46af9e47959541161628439 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Subtrair Datas
Buenos, data no Delphi (pascal) na verdade é um número real ... então basta fazer: data - 15. Exemplo: dHoje := Date; dHojeMenosQuize := dHoje - 15; Simples assim Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ricardo Ravelli To: delphi-br@yahoogrupos.com.br Sent: Monday, July 30, 2007 2:44 PM Subject: [delphi-br] Subtrair Datas Boa Tarde, Estou com seguinte problema, tenho uma data que pego direto do servidor e preciso pegar essa data e tirar quinze dias. Ex: 30/01/2007 para 15/01/2007. Alguem sabe como posso fazer isso?? Delphi 5, MySQL. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46ae239b891936874329242 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Alguém sabe o que é ??
Buenos, Inherited faz parte do conceito de herança do Delphi, isto é, vc pode criar uma classe a partir de outra e sobrepor um método, e se precisar executar o código deste método que a classe pai tinha basta usar esse inherited. Dá até para fazer outras coisa com o inherited, mas o básico é isso. Já o Instance, pelo menos no Delphi 7 não faz parte do padrão ... Qual Delphi estás usando? Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Sandro Ricardo To: Undisclosed-Recipient:;@mx1.vetorial.net Sent: Monday, July 16, 2007 9:57 AM Subject: [delphi-br] Alguém sabe o que é ?? Olá pessoal, Vi em alguns códigos aqui, os seguintes comandos: INHERITED; INSTANCE Abraços, Sandro Ricardo [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,469b6857506951256210819 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente no DELPHI 6
Buenos, foi como eu disse isso é um problema de PATH. Vai no menu Tools/Enviroment Options, na aba Library e vê se o diretório da BPL está no Library Path. É nesse path que as BPLs deve estar. Eu uso assim e dá certo. Alessandro DUARTE de Moraes - Original Message - From: Leonardo Felipe de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Wednesday, July 11, 2007 8:53 AM Subject: Re: [delphi-br] Componente no DELPHI 6 Alessandro, se tem outra forma, seria melhor, aqui usamos controle de versões, inclusive para componentes e temos assim um diretório específico das bibliotecas, se fosse possível fazer funcionar sem colocar as bpls localmente seria interessante. Abraços, Leonardo - Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 10, 2007 5:04 PM Subject: Re: [delphi-br] Componente no DELPHI 6 Blz, então teu problema era o path para a BPL. Mas deixa assim, se funcionou dessa forma é melhor. Alessandro DUARTE de Moraes - Original Message - From: Leonardo Felipe de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 10, 2007 3:14 PM Subject: Re: [delphi-br] Componente no DELPHI 6 Alessandro, Agora funcionou. Muito obrigado! Abraços, Leonardo - Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 10, 2007 11:43 AM Subject: Re: [delphi-br] Componente no DELPHI 6 Copia essa BLP para o diretório das BPLs do Delphi ( C:\Arquivos de programas\Borland\Delphi6\Projects\Bpl ) para ver se resolve. Alessandro DUARTE de Moraes - Original Message - From: Leonardo Felipe de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 10, 2007 11:27 AM Subject: Re: [delphi-br] Componente no DELPHI 6 Alessandro, Já fiz isso, mas nem preciso abrir o projeto que já da erro: 'Can't Load Package...' O diretórios onde esta o componente esta ativo, esta tudo certo. Ai tenho que entrar em Component Install Packages, tem vários componentes que não estão checados, então eu clico em ADD e adiciono uma das BPL's que no caso é a DclRxDb6.bpl, as demais que era dependentes dessa consigo adicionar. Depois disso consigo utilizar o Delphi normalmente, abro qualquer projeto, mas é só eu ter que fechar que tenho que fazer esse processo todo novamente. Abraços, Leonardo - Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 10, 2007 10:58 AM Subject: Re: [delphi-br] Componente no DELPHI 6 Faz o seguinte: 1) Feche todos os projetos; 2) Instale os novos pacotes; 3) Entre no menu Component/Install Packages 4) Confira se todos os pacotes estão selecionados, e marque o checkbox Default na parte de baixo da janela; 5) Para garantir, feche o Delphi; 6) Apague os arquivos de configuração do projeto que o Delphi cria (*DOF; *.CFG; *.DSK) 7) Abra o Delphi e verifique se os pacotes estão disponíveis. Isso deve dar certo. Alessandro DUARTE de Moraes - Original Message - From: Leonardo Felipe de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 10, 2007 9:27 AM Subject: [delphi-br] Componente no DELPHI 6 Olá Pessoal, Aqui na empresa trabalhamos com componentes de terceiros. Estamos com um problema que ainda não consegui detectar: Apesar de ter instalado o componente no Delphi, sempre que ele é fechado e abro novamente, ele perde algumas pakcages e tenho que adicionar novamente. Alguém sabe como acertar isso? Abraços, Leonardo [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46937dfc789117218916900 [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.10.2/893 - Release Date: 9/7/2007 17:22 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46939984756086105482325 [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.10.2/893 - Release Date: 9/7/2007 17:22 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem
Re: [delphi-br] Comunicação entre aplicações
Procure por OLE Automation Delphi no Google. Creio q isso possa resolver teu problema. Também tem alguns componentes para isso na JediVCL. Alessandro DUARTE de Moraes - Original Message - From: prrg28 To: Delphi-BR Sent: Monday, July 09, 2007 9:48 AM Subject: [delphi-br] Comunicação entre aplicações Saudações amigos. Necessito fazer comunicação entre dois aplicativos rodando simultaneamente na mesma máquina. De imediato descarto o uso de arquivos ponte, como txt, ou banco de dados, bem como comunicação usando os recursos de rede. Há alguns anos atrás encontrei um exemplo que rodava dois aplicativos onde um transmitia as informações de posição do mouse para o outro, mas na época não possuia aplicação direta, hoje isso vem ao encontro do que preciso. Se algum amigo já trabalhou com algo assim, por favor, compartilhe a informação. Obrigado Um abraço PGomes -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,4692a70d689681097117276 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente no DELPHI 6
Faz o seguinte: 1) Feche todos os projetos; 2) Instale os novos pacotes; 3) Entre no menu Component/Install Packages 4) Confira se todos os pacotes estão selecionados, e marque o checkbox Default na parte de baixo da janela; 5) Para garantir, feche o Delphi; 6) Apague os arquivos de configuração do projeto que o Delphi cria (*.DOF; *.CFG; *.DSK) 7) Abra o Delphi e verifique se os pacotes estão disponíveis. Isso deve dar certo. Alessandro DUARTE de Moraes - Original Message - From: Leonardo Felipe de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 10, 2007 9:27 AM Subject: [delphi-br] Componente no DELPHI 6 Olá Pessoal, Aqui na empresa trabalhamos com componentes de terceiros. Estamos com um problema que ainda não consegui detectar: Apesar de ter instalado o componente no Delphi, sempre que ele é fechado e abro novamente, ele perde algumas pakcages e tenho que adicionar novamente. Alguém sabe como acertar isso? Abraços, Leonardo [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46937dfc789117218916900 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente no DELPHI 6
Copia essa BLP para o diretório das BPLs do Delphi ( C:\Arquivos de programas\Borland\Delphi6\Projects\Bpl ) para ver se resolve. Alessandro DUARTE de Moraes - Original Message - From: Leonardo Felipe de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 10, 2007 11:27 AM Subject: Re: [delphi-br] Componente no DELPHI 6 Alessandro, Já fiz isso, mas nem preciso abrir o projeto que já da erro: 'Can't Load Package...' O diretórios onde esta o componente esta ativo, esta tudo certo. Ai tenho que entrar em Component Install Packages, tem vários componentes que não estão checados, então eu clico em ADD e adiciono uma das BPL's que no caso é a DclRxDb6.bpl, as demais que era dependentes dessa consigo adicionar. Depois disso consigo utilizar o Delphi normalmente, abro qualquer projeto, mas é só eu ter que fechar que tenho que fazer esse processo todo novamente. Abraços, Leonardo - Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 10, 2007 10:58 AM Subject: Re: [delphi-br] Componente no DELPHI 6 Faz o seguinte: 1) Feche todos os projetos; 2) Instale os novos pacotes; 3) Entre no menu Component/Install Packages 4) Confira se todos os pacotes estão selecionados, e marque o checkbox Default na parte de baixo da janela; 5) Para garantir, feche o Delphi; 6) Apague os arquivos de configuração do projeto que o Delphi cria (*..DOF; *.CFG; *.DSK) 7) Abra o Delphi e verifique se os pacotes estão disponíveis. Isso deve dar certo. Alessandro DUARTE de Moraes - Original Message - From: Leonardo Felipe de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 10, 2007 9:27 AM Subject: [delphi-br] Componente no DELPHI 6 Olá Pessoal, Aqui na empresa trabalhamos com componentes de terceiros. Estamos com um problema que ainda não consegui detectar: Apesar de ter instalado o componente no Delphi, sempre que ele é fechado e abro novamente, ele perde algumas pakcages e tenho que adicionar novamente. Alguém sabe como acertar isso? Abraços, Leonardo [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46937dfc789117218916900 [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.10.2/893 - Release Date: 9/7/2007 17:22 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,46939984756086105482325 [As partes desta mensagem que não continham texto foram removidas]
