Re: [delphi-br] QuickReport Layout Criado em runtime
ehhh mostra ai tambem achei interresante !! Marcio.
RES: [delphi-br] integrando bases de dados
Olá Cícero.
Tá correto. É isso mesmo.
Agora no outro Project você tem que tratar isso. Se precisar de repente
saber de onde é essa chave pra você poder fazer coisas diferentes lá, pois
as chaves podem ser diferentes, cria mais um parâmetro (ou quantos precisar)
pra informar o outro Project daquilo que você precisa.
Tipo, passar o nome da tabela e o nome do campo chave junto com o valor:
f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' + f_clientes.RzDBEdit3.text + +
NomeTabela NomeCampo ,sw_normal);
Lá no outro projeto o param(1) vai ser o valor.. o param(2) será o nome da
tabela e o param(3) será o nome do campo.
Com essas informações você pode lá tomar decisões sobre como tratar.
Um detalhe.. se o valor do campo (f_clientes.RzDBEdit3.text) for texto e
tiver mais de uma palavra, deve ser enviado entre aspas. Na verdade essa
regra vale para qualquer parâmetro criado. Se preferir manter um padrão,
envie todos sempre com aspas. Mas se todos forem campos de uma palavra só,
sem problemas deixar sem.
Abraço.
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fios e Cabos
Enviada em: domingo, 4 de outubro de 2009 23:52
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olha o código que estou tentando ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
desde já obrigado pela ajuda
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
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 Claudiney - Listas
Enviada em: domingo, 4 de outubro de 2009 00:08
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Neste caso os dois são projetos diferentes, executáveis diferentes, conexões
diferentes ao banco de dados. Não vejo uma forma de comunicação direta entre
os dois. A única maneira que vejo é você passar na linha de comando, como
parâmetro na hora da chamada do Project1, o registro que você selecionou no
Project e lá no Project1 você buscar esse registro. Não vejo outra saída.
Tipo:
No momento da chamada no project você usar: project1.exe chavedoregistro
(ex: project1.exe 1534)
No Project um quando abrir fazer o select pra buscar o registro, algo como:
cdsTabela.CommandText := Select * from tabela where chave = +
paramStr(1);
ou
qryTabela.Sql := Select * from tabela where chave = + paramStr(1);
ou posicionar a tabela:
Locate('chave', paramStr(1), [loPartialKey]);
ParamStr(1) retorna para você o primeiro parâmetro passado na linha de
comando.
ParamStr(2) retorna o segundo e assim por diante.
ParamStr(0) retorna o nome do executável chamado.
Pode ser que assim você resolva. Não conheço outra maneira, mas pode ser que
alguém da lista conheça.
Um abraço
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Fios e Cabos
Enviada em: sábado, 3 de outubro de 2009 22:43
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] integrando bases de dados
Minha duvida é a sgte tenho um Project.exe que chama outro modulo
projec1.exe ...
Como posso fazer para um form do project1 acessar uma base de dados com o
ponteiro definido no Project.
Ou seja ... kero abrir o form do project1 no registro definido pelo Project
Tudo está funcionando ... porém qdo abro o sistema 2 ele está no primeiro
registro do banco ...
Obrigado
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47)
RES: [delphi-br] Subversion
Eu uso o tortoiseSVN ele é em inglês mas você pode baixar no site dele o patch para tradução em português. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Braytiner Enviada em: sábado, 3 de outubro de 2009 09:35 Para: Delphi-BR Assunto: [delphi-br] Subversion Olá pessoal, eu usava o JVCS para fazer controle de versão, mas estou querendo migrar para Subversion + Tortoise Ao baixar o subversion, encotrei algumas opções e estou meio perdido na diferença entre uma e outra: CollabNet (Certified binaries) Tigris.org (Apache 2.2-compatible binaries; if you know you need them, Apache 2.0-compatible binaries are also available) SlikSVN: 32 and 64 bit client MSI VisualSVN (VisualSVN Server) Qual vcs normalmente usam? E por acaso alguém tem o help do Tortoise em português? Vlw! Braytiner Como o homem imagina em seu coração, assim ele é Braytiner [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] integrando bases de dados
Tentei ... mas não roda ... não funciona ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe 234',sw_normal);
end;
Se eu colocar o nro da chave manualmente o soft roda perfeitamente ... o q
kero fazer é transformar esse numero em uma variável
No outro .exe já está funcionando ... o problema está no parâmetro
identificar: chave := f_clientes.RzDBEdit3.text; como sendo uma variável
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Claudiney - Listas
Enviada em: segunda-feira, 5 de outubro de 2009 08:33
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Tá correto. É isso mesmo.
Agora no outro Project você tem que tratar isso. Se precisar de repente
saber de onde é essa chave pra você poder fazer coisas diferentes lá, pois
as chaves podem ser diferentes, cria mais um parâmetro (ou quantos precisar)
pra informar o outro Project daquilo que você precisa.
Tipo, passar o nome da tabela e o nome do campo chave junto com o valor:
f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' + f_clientes.RzDBEdit3.text + +
NomeTabela NomeCampo ,sw_normal);
Lá no outro projeto o param(1) vai ser o valor.. o param(2) será o nome da
tabela e o param(3) será o nome do campo.
Com essas informações você pode lá tomar decisões sobre como tratar.
Um detalhe.. se o valor do campo (f_clientes.RzDBEdit3.text) for texto e
tiver mais de uma palavra, deve ser enviado entre aspas. Na verdade essa
regra vale para qualquer parâmetro criado. Se preferir manter um padrão,
envie todos sempre com aspas. Mas se todos forem campos de uma palavra só,
sem problemas deixar sem.
Abraço.
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
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 Fios e Cabos
Enviada em: domingo, 4 de outubro de 2009 23:52
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olha o código que estou tentando ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
desde já obrigado pela ajuda
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br mailto:cicero%40fiosecabos.ind.br
mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Claudiney - Listas
Enviada em: domingo, 4 de outubro de 2009 00:08
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Neste caso os dois são projetos diferentes, executáveis diferentes, conexões
diferentes ao banco de dados. Não vejo uma forma de comunicação direta entre
os dois. A única maneira que vejo é você passar na linha de comando, como
parâmetro na hora da chamada do Project1, o registro que você selecionou no
Project e lá no Project1 você buscar esse registro. Não vejo outra saída.
Tipo:
No momento da chamada no project você usar: project1.exe chavedoregistro
(ex: project1.exe 1534)
No Project um quando abrir fazer o select pra buscar o registro, algo como:
cdsTabela.CommandText := Select * from tabela where chave = +
paramStr(1);
ou
qryTabela.Sql := Select * from tabela where chave = + paramStr(1);
ou posicionar a tabela:
Locate('chave', paramStr(1), [loPartialKey]);
ParamStr(1) retorna para você o primeiro parâmetro passado na linha de
comando.
ParamStr(2) retorna o segundo e assim por diante.
ParamStr(0) retorna o nome do executável chamado.
Pode ser que assim você resolva. Não conheço outra maneira, mas pode ser que
alguém
Re: [delphi-br] Dados para Array
Como não foi informado o erro, vou supor que seja um Access Violation. Inicie a variável i com 0 (zero). Deu pau na bola de cristal aqui... () [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] fastreport
bom dia como faço para diminuir o tamanho da fonte no fastreport, em um relatorio para matricial? ja tentei colocar como condensado mas nao adianta, o que devo fazer? -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dados para Array
Xiii, depois que respondi eu vi que já tinha solucionado. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] fastreport
Bom dia Felipe, Existe várias maneiras, e uma delas é usando o Objeto: Dot-Matrix Command Object no inicio do relatório com o seguinte comando: #27#15#27#48. Lembrando que na tela de opção de impressão (onde você escolhe o tipo da impressora, qtde de páginas etc.), você deverá setar o Escape Commands para EPSON GENERIC. (Isso pode ser feito via código também). Esse procedimento funcionou até agora com todas as impressoras que eu testei, pois a maioria segue o padrão EPSON. From: felipe govoni Sent: Monday, October 05, 2009 11:17 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] fastreport bom dia como faço para diminuir o tamanho da fonte no fastreport, em um relatorio para matricial? ja tentei colocar como condensado mas nao adianta, o que devo fazer? -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Anexos Indy9
Bom dia Pessoal Estou com um problema com o envio de anexo via Indy9 os anexo vão anexados porem a marcação de anexo não chega(aquele clips) alguem ja passou por isso se puderem compartilhar sua experiencia agradeço. Detalhe no outlook 2003 coloca a marcação e hotmail tambem. desde ja agradeço a atenção de todos Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Intraweb path arquivos
Colegas, Eu estou desenvolvendo um projeto piloto em intraweb, porém estou com este problema: se eu faço isto: 127.0.0.1:/EXEC/Files/nome_css.css (ELE APARECE) Se eu fazer isto: 127.0.0.1:/EXEC/Files/css/nome_css.css (não aparece) dá erro 404 not found, porém o diretório existe no meu projeto Os arquivos só funcionam na raiz, se eu coloco uma subpasta não funciona, pq? Abraços a todos, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br
[delphi-br] Re: Subversion
Eu recomendo o binário gerado pela CollabNet, vc baixa a versão para windows no site da CollabNet, instala, e dpois baixa e instala o TortoiseSVN pra gerenciar o SVN. --- Em delphi-br@yahoogrupos.com.br, Braytiner brayti...@... escreveu Olá pessoal, eu usava o JVCS para fazer controle de versão, mas estou querendo migrar para Subversion + Tortoise Ao baixar o subversion, encotrei algumas opções e estou meio perdido na diferença entre uma e outra: CollabNet (Certified binaries) Tigris.org (Apache 2.2-compatible binaries; if you know you need them, Apache 2.0-compatible binaries are also available) SlikSVN: 32 and 64 bit client MSI VisualSVN (VisualSVN Server) Qual vcs normalmente usam? E por acaso alguém tem o help do Tortoise em português? Vlw! Braytiner Como o homem imagina em seu coração, assim ele é Braytiner [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Imprimir codigo de barras entre asteristico
ja resolvi amigo usei o report builder e fi exatamente o que eu queira nem precisou dos asteristicos valeu pela força --- Em qui, 1/10/09, Ricardo César Cardoso ricardo_engs...@yahoo.com.br escreveu: De: Ricardo César Cardoso ricardo_engs...@yahoo.com.br Assunto: Re: [delphi-br] Imprimir codigo de barras entre asteristico Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 1 de Outubro de 2009, 20:13 SE não me engano tem uma fonte que permite fazer / montar o código de barras desse jeito que vc diz necessitar. Não me lembro o nome, mas lembro que no trabalho tenho ela instalada. Abraço, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em seg, 28/9/09, jose silva da costa sudscr...@yahoo. com.br escreveu: De: jose silva da costa sudscr...@yahoo. com.br Assunto: [delphi-br] Imprimir codigo de barras entre asteristico Para: delphi...@yahoogrup os.com.br Data: Segunda-feira, 28 de Setembro de 2009, 22:33 Olá Pessoal boa noite td bem gostaria da ajudas de vcs aqui pra mais uma bronca que estou tentando resolvera aqui a dias e nao estou conseguindo é o seguindo estou tentando imprimir uma etiquetas no que report usando uma fonte propria de codigo de barra mais o leitor so reconhece o codigo se estiver entre 2 * e nao estou conseguindo fazer imprimir com esses dois asteristico alguem ja passou por , que possa mim dar uma luz? *1236544* _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Código de Barras 2D
Bom dia a todos, Preciso gerar um código de barras 2D do tipo PDF417 ou QrCode no Delphi, alguém já trabalhou com esse formato? ou conhece algum componente ou biblioteca? Se eu conseguir gerar e salvar como JPG ou algum outro formato. ^^ = No meu caso vou pegar os dados de um contrato (valor do contrato, dados pessoais) e transformar em um código 2D e imprimir no contrato. É difícil achar esse tipo de material. Desde já agradeço. Att: Gabriel Rocha Barcelos
[delphi-br] Delphi - Acessando WS em PHP
Bom dia! Tenho um aplicativo em Delphi e preciso atualizar uma base de dados em MySql em um determinado site e estou tentando fazer isso através de acesso à uma WS que fiz em PHP. Nesse serviço recebo parametro com dados para atualizar a base de dados. Acontece que só consigo enviar esse parametro se for uma string, e pra mandar vários registros eu precisaria de um array contendo os vários registros e campos da tabela origem. Alguém poderia me ajudar informando como posso proceder... Não deve ser algo tão complexo, mas tenho pouca experiência no que diz respeito a trabalhos com WebService. Agradeço a compreensão e colaboração dos companheiros! sds Adjalma Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Anexos Indy9
Marcelo escreveu: Bom dia Pessoal Estou com um problema com o envio de anexo via Indy9 os anexo vão anexados porem a marcação de anexo não chega(aquele clips) alguem ja passou por isso se puderem compartilhar sua experiencia agradeço. Detalhe no outlook 2003 coloca a marcação e hotmail tambem. desde ja agradeço a atenção de todos Faz um teste com esse demo [http://sites.google.com/site/silvioprogbs/downloads/eMailSender.zip?attredirects=0]; -- Silvio Clecio -- O sábio não satiriza o ignorante, esclarece-o fraternalmente.
Re: [delphi-br] fastreport
ola matheus fiz oq vc disse mas noa sei onde colocar o Escape Commands. 2009/10/5 Matheus matheus_...@hotmail.com Bom dia Felipe, Existe várias maneiras, e uma delas é usando o Objeto: Dot-Matrix Command Object no inicio do relatório com o seguinte comando: #27#15#27#48. Lembrando que na tela de opção de impressão (onde você escolhe o tipo da impressora, qtde de páginas etc.), você deverá setar o Escape Commands para EPSON GENERIC. (Isso pode ser feito via código também). Esse procedimento funcionou até agora com todas as impressoras que eu testei, pois a maioria segue o padrão EPSON. From: felipe govoni Sent: Monday, October 05, 2009 11:17 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: [delphi-br] fastreport bom dia como faço para diminuir o tamanho da fonte no fastreport, em um relatorio para matricial? ja tentei colocar como condensado mas nao adianta, o que devo fazer? -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi Conference Brasil - convite para submeter palestras
Amigos da comunidade Delphi é com grande satisfação que convido a todos para submeter palestras para o 1º Delphi Conference Brasil, o evento mais importante do ano para a comunidade Delphi e 100% técnico, a ser realizado no final do mês de novembro em São Paulo capital, em mais alguns dias estaremos informando local e data. Todos os detalhes para submeter sua palestra podem ser encontrados aqui - http://www.andreanolanusse.com/blogpt/delphi-conference-brasil-convite-para-submeter-palestras/ []'s Andreano Lanusse Product Line Manager Latin America Caribbean Embarcadero Technologies, Inc. | www.embarcadero.comhttp://www.embarcadero.com/ CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] dbMemo
Olá estou fazendo a seguinte coisa, tenho um DBMEMO, e estou colocando dados nele e gostaria de q ele pulasse linha apos um determinado dado inserido: exemplo: dbmemo.text := qryItensDecricao.asstring + ', ' aqui eu queria q pulasse pra linha seguinte pra poder colocar outro valor + qryitensTotal.asstring;
Re: [delphi-br] Anexos Indy9
nem me fala mai em indy !!! com o Indy9 , meu provedor colocava os email todo como Spam , nao teve jeito intalei o Indy10 resolvi este problema , entao comecou erros com autenticacao mais uma novela .. meus problemas acabaram qundo comecei a usar os pas do Synapse .. é isso ai .. foi dica de um companheiro aqui da lista .. boa sorte Marcio.
Re: [delphi-br] fastreport
Olá Felipe, Você adicionou o objeto TfrxDotMatrixExport? Pois é com ele que você define a saída de escape da impressora. Via código o nome da propriedade do Objeto acima é EscModel, sendo assim, você definiria: Objeto.EscModel := 1; (1 = Epson); Entendeu? From: felipe govoni Sent: Monday, October 05, 2009 1:29 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] fastreport ola matheus fiz oq vc disse mas noa sei onde colocar o Escape Commands. 2009/10/5 Matheus matheus_...@hotmail.com Bom dia Felipe, Existe várias maneiras, e uma delas é usando o Objeto: Dot-Matrix Command Object no inicio do relatório com o seguinte comando: #27#15#27#48. Lembrando que na tela de opção de impressão (onde você escolhe o tipo da impressora, qtde de páginas etc.), você deverá setar o Escape Commands para EPSON GENERIC. (Isso pode ser feito via código também). Esse procedimento funcionou até agora com todas as impressoras que eu testei, pois a maioria segue o padrão EPSON. From: felipe govoni Sent: Monday, October 05, 2009 11:17 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: [delphi-br] fastreport bom dia como faço para diminuir o tamanho da fonte no fastreport, em um relatorio para matricial? ja tentei colocar como condensado mas nao adianta, o que devo fazer? -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: dbMemo
Ja encontrei galera... é só por isso #13#10 T+ --- Em delphi-br@yahoogrupos.com.br, rzzanatta rzzana...@... escreveu Olá estou fazendo a seguinte coisa, tenho um DBMEMO, e estou colocando dados nele e gostaria de q ele pulasse linha apos um determinado dado inserido: exemplo: dbmemo.text := qryItensDecricao.asstring + ', ' aqui eu queria q pulasse pra linha seguinte pra poder colocar outro valor + qryitensTotal.asstring;
Re: [delphi-br] dbMemo
Já tentou #13? ou #10#13? From: rzzanatta Sent: Monday, October 05, 2009 4:07 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] dbMemo Olá estou fazendo a seguinte coisa, tenho um DBMEMO, e estou colocando dados nele e gostaria de q ele pulasse linha apos um determinado dado inserido: exemplo: dbmemo.text := qryItensDecricao.asstring + ', ' aqui eu queria q pulasse pra linha seguinte pra poder colocar outro valor + qryitensTotal.asstring; [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi - Acessando WS em PHP
também não consegui fazer isso em delphi e php. mas passei e recebi os registros como string, separando os registros com alguma sequencia de caracteres, tipo: 001/;joao da silva/;rua de cima/;50/;/#002/;maria da silva/;rua x/;44/#003/*jose da silva/*rua 10/*s/n mas, acho que deve ter jeito, veja em complex-type, ou, alguma classe que receba xml. marcelo luiz stefaniak - Original Message - From: Adjalma Costa To: delphi-br@yahoogrupos.com.br Sent: Monday, October 05, 2009 12:44 PM Subject: [delphi-br] Delphi - Acessando WS em PHP Bom dia! Tenho um aplicativo em Delphi e preciso atualizar uma base de dados em MySql em um determinado site e estou tentando fazer isso através de acesso à uma WS que fiz em PHP. Nesse serviço recebo parametro com dados para atualizar a base de dados. Acontece que só consigo enviar esse parametro se for uma string, e pra mandar vários registros eu precisaria de um array contendo os vários registros e campos da tabela origem. Alguém poderia me ajudar informando como posso proceder... Não deve ser algo tão complexo, mas tenho pouca experiência no que diz respeito a trabalhos com WebService. Agradeço a compreensão e colaboração dos companheiros! sds Adjalma __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Mais sobre o KBM
Enfim um material didático sobre este pacote: http://www.components4programmers.com/products/videos/index.htm -- José Mário Silva Guedes Analista Programador Delphi [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Unexpected Subelement
Olá a todos, Estou usando o Delphi 2007, e com o wsdl importer eu gerei a classe de importação para um wsdl. Porém, na hora que eu executo (depois de preencher todos os campos do envio e tudo mais, eme me dá o seguinte erro: exception class ERemotableException with message 'org.apache.axis2.databinding.ADBException: Unexpected subelement codigoOrigem'. on de codigoOrigem é um dos campos sendo enviados. Alguém já passou por isso? Alguém poderia me ajudar, por favor? Abraços, Leslyn Fernandes 55-11-9159-3837 Analyst and Developer Integra Solutions Ltda. Fracassos são restrições de consciência; Explosões são paliativos da ignorância; Arrependimentos são iluminações que vieram tarde demais. - Joseph Campbell msn: leslyn_jas_fernan...@hotmail.com twitter: http://twitter.com/leslynfernandes BLOG: http://oleitordelivros.blogspot.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] integrando bases de dados
Alguem pode me dar uma ajuda ...
To me batendo com isso um monte e não consigo ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
Não consigo fazer o Delphi 7 entender que a chave é uma variável
Se eu substituir manualmente o termo +chave pelo numero de algum registro
... tudo funciona perfeitamente mas preciso que o sistema capture
automaticamente o numero da cada registro.
Help
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fios e Cabos
Enviada em: domingo, 4 de outubro de 2009 23:52
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olha o código que estou tentando ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
desde já obrigado pela ajuda
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
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 Claudiney - Listas
Enviada em: domingo, 4 de outubro de 2009 00:08
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Neste caso os dois são projetos diferentes, executáveis diferentes, conexões
diferentes ao banco de dados. Não vejo uma forma de comunicação direta entre
os dois. A única maneira que vejo é você passar na linha de comando, como
parâmetro na hora da chamada do Project1, o registro que você selecionou no
Project e lá no Project1 você buscar esse registro. Não vejo outra saída.
Tipo:
No momento da chamada no project você usar: project1.exe chavedoregistro
(ex: project1.exe 1534)
No Project um quando abrir fazer o select pra buscar o registro, algo como:
cdsTabela.CommandText := Select * from tabela where chave = +
paramStr(1);
ou
qryTabela.Sql := Select * from tabela where chave = + paramStr(1);
ou posicionar a tabela:
Locate('chave', paramStr(1), [loPartialKey]);
ParamStr(1) retorna para você o primeiro parâmetro passado na linha de
comando.
ParamStr(2) retorna o segundo e assim por diante.
ParamStr(0) retorna o nome do executável chamado.
Pode ser que assim você resolva. Não conheço outra maneira, mas pode ser que
alguém da lista conheça.
Um abraço
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Fios e Cabos
Enviada em: sábado, 3 de outubro de 2009 22:43
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] integrando bases de dados
Minha duvida é a sgte tenho um Project.exe que chama outro modulo
projec1.exe ...
Como posso fazer para um form do project1 acessar uma base de dados com o
ponteiro definido no Project.
Ou seja ... kero abrir o form do project1 no registro definido pelo Project
Tudo está funcionando ... porém qdo abro o sistema 2 ele está no primeiro
registro do banco ...
Obrigado
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br mailto:cicero%40fiosecabos.ind.br
mailto:cicero%40fiosecabos.ind.br
mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
[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]
[As partes desta mensagem que não
[delphi-br] Re: integrando bases de dados
Desculpe se estou escrevendo besteiras
chave := f_clientes.RzDBEdit3.text -- este RzDBEdit3 não esta passando
caracteres em branco,(espaços), tente aplicar um Trim().
Tive problemas em outras funções, e era isso.
Boia sorte
Zucchi
--- Em delphi-br@yahoogrupos.com.br, Fios e Cabos cic...@... escreveu
Alguem pode me dar uma ajuda ...
To me batendo com isso um monte e não consigo ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
Não consigo fazer o Delphi 7 entender que a chave é uma variável
Se eu substituir manualmente o termo +chave pelo numero de algum registro
... tudo funciona perfeitamente mas preciso que o sistema capture
automaticamente o numero da cada registro.
Help
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@...
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fios e Cabos
Enviada em: domingo, 4 de outubro de 2009 23:52
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olha o código que estou tentando ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
desde já obrigado pela ajuda
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@... mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
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 Claudiney - Listas
Enviada em: domingo, 4 de outubro de 2009 00:08
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Neste caso os dois são projetos diferentes, executáveis diferentes, conexões
diferentes ao banco de dados. Não vejo uma forma de comunicação direta entre
os dois. A única maneira que vejo é você passar na linha de comando, como
parâmetro na hora da chamada do Project1, o registro que você selecionou no
Project e lá no Project1 você buscar esse registro. Não vejo outra saída.
Tipo:
No momento da chamada no project você usar: project1.exe chavedoregistro
(ex: project1.exe 1534)
No Project um quando abrir fazer o select pra buscar o registro, algo como:
cdsTabela.CommandText := `Select * from tabela where chave = ` +
paramStr(1);
ou
qryTabela.Sql := `Select * from tabela where chave = ` + paramStr(1);
ou posicionar a tabela:
Locate('chave', paramStr(1), [loPartialKey]);
ParamStr(1) retorna para você o primeiro parâmetro passado na linha de
comando.
ParamStr(2) retorna o segundo e assim por diante.
ParamStr(0) retorna o nome do executável chamado.
Pode ser que assim você resolva. Não conheço outra maneira, mas pode ser que
alguém da lista conheça.
Um abraço
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Fios e Cabos
Enviada em: sábado, 3 de outubro de 2009 22:43
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] integrando bases de dados
Minha duvida é a sgte tenho um Project.exe que chama outro modulo
projec1.exe ...
Como posso fazer para um form do project1 acessar uma base de dados com o
ponteiro definido no Project.
Ou seja ... kero abrir o form do project1 no registro definido pelo Project
Tudo está funcionando ... porém qdo abro o sistema 2 ele está no primeiro
registro do banco ...
Obrigado
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br
RES: [delphi-br] integrando bases de dados
Claiudiney .. antecipadamente meus agradecimentos ...
O que acontece com winexec ('\cicero\diauni\project1.exe' +
f_clientes.RzDBEdit3.text + +
NomeTabela NomeCampo ,sw_normal);
é que o programa roda .. mas quando executo a rotina nada acontece ... o
programa simplesmente não faz nada ...
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Claudiney - Listas
Enviada em: segunda-feira, 5 de outubro de 2009 08:33
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Tá correto. É isso mesmo.
Agora no outro Project você tem que tratar isso. Se precisar de repente
saber de onde é essa chave pra você poder fazer coisas diferentes lá, pois
as chaves podem ser diferentes, cria mais um parâmetro (ou quantos precisar)
pra informar o outro Project daquilo que você precisa.
Tipo, passar o nome da tabela e o nome do campo chave junto com o valor:
f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' + f_clientes.RzDBEdit3.text + +
NomeTabela NomeCampo ,sw_normal);
Lá no outro projeto o param(1) vai ser o valor.. o param(2) será o nome da
tabela e o param(3) será o nome do campo.
Com essas informações você pode lá tomar decisões sobre como tratar.
Um detalhe.. se o valor do campo (f_clientes.RzDBEdit3.text) for texto e
tiver mais de uma palavra, deve ser enviado entre aspas. Na verdade essa
regra vale para qualquer parâmetro criado. Se preferir manter um padrão,
envie todos sempre com aspas. Mas se todos forem campos de uma palavra só,
sem problemas deixar sem.
Abraço.
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
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 Fios e Cabos
Enviada em: domingo, 4 de outubro de 2009 23:52
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olha o código que estou tentando ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
desde já obrigado pela ajuda
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br mailto:cicero%40fiosecabos.ind.br
mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Claudiney - Listas
Enviada em: domingo, 4 de outubro de 2009 00:08
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Neste caso os dois são projetos diferentes, executáveis diferentes, conexões
diferentes ao banco de dados. Não vejo uma forma de comunicação direta entre
os dois. A única maneira que vejo é você passar na linha de comando, como
parâmetro na hora da chamada do Project1, o registro que você selecionou no
Project e lá no Project1 você buscar esse registro. Não vejo outra saída.
Tipo:
No momento da chamada no project você usar: project1.exe chavedoregistro
(ex: project1.exe 1534)
No Project um quando abrir fazer o select pra buscar o registro, algo como:
cdsTabela.CommandText := Select * from tabela where chave = +
paramStr(1);
ou
qryTabela.Sql := Select * from tabela where chave = + paramStr(1);
ou posicionar a tabela:
Locate('chave', paramStr(1), [loPartialKey]);
ParamStr(1) retorna para você o primeiro parâmetro passado na linha de
comando.
ParamStr(2) retorna o segundo e assim por diante.
ParamStr(0) retorna o nome do executável chamado.
Pode ser que assim você resolva. Não conheço outra maneira, mas pode ser que
alguém da lista conheça.
Um abraço
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/
RES: [delphi-br] integrando bases de dados
Consegui
Agradeço a ajuda de todos ...
Ficou assim ...
Em vez de usar o WinExec usei:
ShellExecute(Handle, 'open','\cicero\diauni\project1.exe', PChar(chave),
nil, SW_SHOWNORMAL);
Deu certo
o Project.exe manda abrir o project1.exe e localiza a chave do
registro que eu estou trabalhando no Project
Valeu amigos ...
Infelismente com o WinExec não consegui fazer com que ele entenda o
parâmetro como uma variável
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fios e Cabos
Enviada em: segunda-feira, 5 de outubro de 2009 17:44
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] integrando bases de dados
Alguem pode me dar uma ajuda ...
To me batendo com isso um monte e não consigo ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
Não consigo fazer o Delphi 7 entender que a chave é uma variável
Se eu substituir manualmente o termo +chave pelo numero de algum registro
... tudo funciona perfeitamente mas preciso que o sistema capture
automaticamente o numero da cada registro.
Help
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
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 Fios e Cabos
Enviada em: domingo, 4 de outubro de 2009 23:52
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olha o código que estou tentando ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
desde já obrigado pela ajuda
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br mailto:cicero%40fiosecabos.ind.br
mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Claudiney - Listas
Enviada em: domingo, 4 de outubro de 2009 00:08
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Neste caso os dois são projetos diferentes, executáveis diferentes, conexões
diferentes ao banco de dados. Não vejo uma forma de comunicação direta entre
os dois. A única maneira que vejo é você passar na linha de comando, como
parâmetro na hora da chamada do Project1, o registro que você selecionou no
Project e lá no Project1 você buscar esse registro. Não vejo outra saída.
Tipo:
No momento da chamada no project você usar: project1.exe chavedoregistro
(ex: project1.exe 1534)
No Project um quando abrir fazer o select pra buscar o registro, algo como:
cdsTabela.CommandText := Select * from tabela where chave = +
paramStr(1);
ou
qryTabela.Sql := Select * from tabela where chave = + paramStr(1);
ou posicionar a tabela:
Locate('chave', paramStr(1), [loPartialKey]);
ParamStr(1) retorna para você o primeiro parâmetro passado na linha de
comando.
ParamStr(2) retorna o segundo e assim por diante.
ParamStr(0) retorna o nome do executável chamado.
Pode ser que assim você resolva. Não conheço outra maneira, mas pode ser que
alguém da lista conheça.
Um abraço
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
Re: [delphi-br] fastreport
coloquei esse componente e coloquei 1 no escmodel, porem não resolveu. nao estou imprimindo pois não tenho impressora matricial, estou apenas tentando visualizar no preview do relatorio. 2009/10/5 Matheus matheus_...@hotmail.com Olá Felipe, Você adicionou o objeto TfrxDotMatrixExport? Pois é com ele que você define a saída de escape da impressora. Via código o nome da propriedade do Objeto acima é EscModel, sendo assim, você definiria: Objeto.EscModel := 1; (1 = Epson); Entendeu? From: felipe govoni Sent: Monday, October 05, 2009 1:29 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] fastreport ola matheus fiz oq vc disse mas noa sei onde colocar o Escape Commands. 2009/10/5 Matheus matheus_...@hotmail.com matheus_nab%40hotmail.com Bom dia Felipe, Existe várias maneiras, e uma delas é usando o Objeto: Dot-Matrix Command Object no inicio do relatório com o seguinte comando: #27#15#27#48. Lembrando que na tela de opção de impressão (onde você escolhe o tipo da impressora, qtde de páginas etc.), você deverá setar o Escape Commands para EPSON GENERIC. (Isso pode ser feito via código também). Esse procedimento funcionou até agora com todas as impressoras que eu testei, pois a maioria segue o padrão EPSON. From: felipe govoni Sent: Monday, October 05, 2009 11:17 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Subject: [delphi-br] fastreport bom dia como faço para diminuir o tamanho da fonte no fastreport, em um relatorio para matricial? ja tentei colocar como condensado mas nao adianta, o que devo fazer? -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: integrando bases de dados
Obrigado ...
Já postei a solução ... mas agradeço muito sua colaboração
Creio q com o winexec não seja possivel ...
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de lidio.zucchi
Enviada em: segunda-feira, 5 de outubro de 2009 17:59
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: integrando bases de dados
Desculpe se estou escrevendo besteiras
chave := f_clientes.RzDBEdit3.text -- este RzDBEdit3 não esta passando
caracteres em branco,(espaços), tente aplicar um Trim().
Tive problemas em outras funções, e era isso.
Boia sorte
Zucchi
--- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
, Fios e Cabos cic...@... escreveu
Alguem pode me dar uma ajuda ...
To me batendo com isso um monte e não consigo ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
Não consigo fazer o Delphi 7 entender que a chave é uma variável
Se eu substituir manualmente o termo +chave pelo numero de algum registro
... tudo funciona perfeitamente mas preciso que o sistema capture
automaticamente o numero da cada registro.
Help
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@...
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
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 Fios e Cabos
Enviada em: domingo, 4 de outubro de 2009 23:52
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olha o código que estou tentando ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
desde já obrigado pela ajuda
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@... mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Claudiney - Listas
Enviada em: domingo, 4 de outubro de 2009 00:08
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Neste caso os dois são projetos diferentes, executáveis diferentes,
conexões
diferentes ao banco de dados. Não vejo uma forma de comunicação direta
entre
os dois. A única maneira que vejo é você passar na linha de comando, como
parâmetro na hora da chamada do Project1, o registro que você selecionou
no
Project e lá no Project1 você buscar esse registro. Não vejo outra saída.
Tipo:
No momento da chamada no project você usar: project1.exe chavedoregistro
(ex: project1.exe 1534)
No Project um quando abrir fazer o select pra buscar o registro, algo
como:
cdsTabela.CommandText := `Select * from tabela where chave = ` +
paramStr(1);
ou
qryTabela.Sql := `Select * from tabela where chave = ` + paramStr(1);
ou posicionar a tabela:
Locate('chave', paramStr(1), [loPartialKey]);
ParamStr(1) retorna para você o primeiro parâmetro passado na linha de
comando.
ParamStr(2) retorna o segundo e assim por diante.
ParamStr(0) retorna o nome do executável chamado.
Pode ser que assim você resolva. Não conheço outra maneira, mas pode ser
que
alguém da lista conheça.
Um abraço
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[delphi-br] Erro Componentes Indy
Alguem sabe o motivo desse erro?? Coloquei os componentes em um formulario: MailMessage: TIdMessage; IdAntiFreeze: TIdAntiFreeze; SMTP: TIdSMTP; mas, ao compilar o projeto ele da um erro: Build [Fatal Error] MainUnit.pas(10): Unit IdCommandHandlers was compiled with a different version of IdComponent.TIdComponent e aponta p/ uses adicionada ao formulario IdExplicitTLSClientServerBase Uso D7 + Indy 10 Obrigado pela atenção!!! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] integrando bases de dados
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
//teste esse ou o outro
winexec (PAnsiChar('\cicero\diauni\project1.exe' +chave) ,sw_normal);
winexec (PAnsiString('\cicero\diauni\project1.exe' +chave) ,sw_normal);
end;
Em Mon, 05 Oct 2009 17:43:53 -0300, Fios e Cabos
cic...@fiosecabos.ind.br escreveu:
Alguem pode me dar uma ajuda ...
To me batendo com isso um monte e não consigo ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
Não consigo fazer o Delphi 7 entender que a chave é uma variável
Se eu substituir manualmente o termo +chave pelo numero de algum registro
... tudo funciona perfeitamente mas preciso que o sistema capture
automaticamente o numero da cada registro.
Help
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fios e Cabos
Enviada em: domingo, 4 de outubro de 2009 23:52
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olha o código que estou tentando ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
desde já obrigado pela ajuda
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
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 Claudiney - Listas
Enviada em: domingo, 4 de outubro de 2009 00:08
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Neste caso os dois são projetos diferentes, executáveis diferentes,
conexões
diferentes ao banco de dados. Não vejo uma forma de comunicação direta
entre
os dois. A única maneira que vejo é você passar na linha de comando, como
parâmetro na hora da chamada do Project1, o registro que você selecionou
no
Project e lá no Project1 você buscar esse registro. Não vejo outra saída.
Tipo:
No momento da chamada no project você usar: project1.exe chavedoregistro
(ex: project1.exe 1534)
No Project um quando abrir fazer o select pra buscar o registro, algo
como:
cdsTabela.CommandText := ‘Select * from tabela where chave = ‘ +
paramStr(1);
ou
qryTabela.Sql := ‘Select * from tabela where chave = ‘ + paramStr(1);
ou posicionar a tabela:
Locate('chave', paramStr(1), [loPartialKey]);
ParamStr(1) retorna para você o primeiro parâmetro passado na linha de
comando.
ParamStr(2) retorna o segundo e assim por diante.
ParamStr(0) retorna o nome do executável chamado.
Pode ser que assim você resolva. Não conheço outra maneira, mas pode ser
que
alguém da lista conheça.
Um abraço
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Fios e Cabos
Enviada em: sábado, 3 de outubro de 2009 22:43
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] integrando bases de dados
Minha duvida é a sgte tenho um Project.exe que chama outro modulo
projec1.exe ...
Como posso fazer para um form do project1 acessar uma base de dados com o
ponteiro definido no Project.
Ou seja ... kero abrir o form do project1 no registro definido pelo
Project
Tudo está funcionando ... porém qdo abro o sistema 2 ele está no primeiro
registro do banco ...
Obrigado
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 -
[delphi-br] migrar para Delphi 2010
Boa tarde a todos! Alguém já conseguiu migrar de algum delphi =2007 para 2010? Sei que tem que trocar de string para AnsiString, mas, alguém conseguiu com sucesso? Atenciosamente Rod -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: [delphi-br] migrar para Delphi 2010
Rod, Você tem que fazer isso em situações muita específicas, exemplo: manipulanção de tamanho de strings em bytes ou acesso direto a API do Windows. Se este não é o seu caso, você não terá problema. -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of rod Sent: Monday, October 05, 2009 12:24 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] migrar para Delphi 2010 Boa tarde a todos! Alguém já conseguiu migrar de algum delphi =2007 para 2010? Sei que tem que trocar de string para AnsiString, mas, alguém conseguiu com sucesso? Atenciosamente Rod -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message.
