RES: [delphi-br] Dbcombobox, Style = csDropDow n , não funciona
Pelo que consegui entender do seu post, você está utilizando o DBComboBox de forma incorreta. O DBCombobox vai alterar o registro corrente cada vez que você selecionar algo. Tente popular um Combobox, então no seu evento OnChange faça uma pesquisa SQL com LIKE, pegando Items[i] e passando como parâmetro para sua consulta SQL. Isso deve resolver o problema. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rogerio Rios Pessanha Enviada em: segunda-feira, 4 de agosto de 2008 21:38 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Dbcombobox, Style = csDropDown , não funciona Antes de postar procurei e nao achei. Sei que é simples para quem sabe. Sou iniciante em DELPHI. Quero que minha consulta ( query - Select ) , seja filtrada pelo nome do paciente de acordo com a escolha feita no DBCOMBOBOX( sei que deveria pegar a chave primaria ) mas é um exemplo para dar na aula para alunos iniciantes. Configurei - DATASOURCE E DATAFIELD, aí ele mostra o nome de acordo com o registo atual.Mas mesmo assim nada é selecionado e o fica itemindex=-1 Daí entao fui alterar a propriedade Style = csDropDown. Então nda aparece no DBCOMBOBOX. A solução de abastecer o DBCOMBOBOX com while not table1.Eof do begin dbcombobox1.Items.Add(table1.FieldValues['nomepac']); table1.Next ; end; Eu já fiz, mas queria que só na configuração das propriedades do componente eu fizesse funcionar. Uso o table, datasource . A query vai chamar um relatorio para exemplo. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Debugger WebService - Como fazer?
Não, não fiz. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luciano Calenzani Simões Enviada em: terça-feira, 5 de agosto de 2008 08:21 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Debugger WebService - Como fazer? Alguém já fez isso? Luciano Calenzani Simões - Mensagem original De: Luciano Calenzani Simões [EMAIL PROTECTED] mailto:simoesluciano%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 4 de Agosto de 2008 14:00:11 Assunto: [delphi-br] Debugger WebService - Como fazer? Pessoal, como fazer para debugar um WebService? Tenho um webservice desenvolvido em Delphi. Tenho uma página html e asp que consome esse webservice. Precisso debugar o webservice, mas não estou sabendo faze-lo. Obrigado. Luciano Calenzani Simões Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Evento Tiburón[Feedback ao Andr eano]
Caramba! Você tirou o post dos meus dedos! Risos (eu ia exatamente escrever sobre isso) De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo César Cardoso Enviada em: sexta-feira, 1 de agosto de 2008 14:51 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Evento Tiburón[Feedback ao Andreano] Pois é tecnicamente é muito simples a migração qualquer que seja a versão. O problema maior é justificar o investimento numa equipe de desenvolvedores. Quem por exemplo fez um investimento no D2007 pode nem ter pago esse investimento e já se vê tendo que fazer um novo investimento, no Delphi 2009 / Tiburón para conseguir uma melhor produtividade em determinado aspecto ou atender a algum avanço tecnológico. Analise pra ver o quão complexo é equilibrar esta balança. Atte, Ricardo. --- Em sex, 1/8/08, Bruno Lichot [EMAIL PROTECTED] mailto:bruno.lichot%40borland.com escreveu: De: Bruno Lichot [EMAIL PROTECTED] mailto:bruno.lichot%40borland.com Assunto: RE: [delphi-br] Evento Tiburón[Feedback ao Andreano] Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Sexta-feira, 1 de Agosto de 2008, 14:37 Meu amigo, Os fontes são compatíveis entre as versões de Delphi e você não perde o que foi desenvolvido numa versão anterior, o esforço de migração é sempre mínimo. Toda empresa de software evolui e lança novas versões de seus produtos e não é diferente na CodeGear. Até memsoos pequenos desenvolvedores lançam novas versões de seus produtos para poder se manter e expandir seu mercado. A CodeGear está trabalhando para melhorar, aprimorar e evoluir seus produtos, principalmente o Delphi. Estão sempre se movendo para o futuro respeitando o passado. Se dúvida é em começar usando N-tier no RAD 2007, não precisa ter dúvida, pode começar, pois o DataSnap permanece compatível, ou seja você não perderá o investimento e na nova versão os terá e mais todos os novos recursos que esta versão promoverá. Não existem versões diferentes, mas sim a evolução do Delphi. Evolução esta que é natural e esperada. Do contrário seria difícil ter melhorias, novos recursos, e etc. Imagina se ainda trabalhássemos com o Delphi 1? Abs BL From: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] On Behalf Of Jhosef Marks Sent: sexta-feira, 1 de agosto de 2008 14:29 To: [EMAIL PROTECTED] os.com.br Subject: Re: [delphi-br] Evento Tiburón[Feedback ao Andreano] Soh me responde uma coisa, pq a CodeGear (borland) ta sempre lançando versão diferente... tipo, tenho uma aplicativo q desenvolvi, caso queira os novos recursos, preciso reestruturar meu sistema a cada atualização... Ia começar um software novo, agora to em duvida se dou inicio nele agora com Rad Studio q eu já tenho ou se espero o lançamento do 2009. 2008/8/1 Bruno Lichot bruno.lichot@ borland.com mailto:bruno. lichot%40borland .com Eu discordo disso, pois já no Delphi 2007 você tem um gestor de memória bem superior ao do Delphi 7, a compilação é mais rápida, muitos recursos para gestão de projetos e eventos de builds. Possui também relatório de memory leak, o novo DBExpress com pool e trace de conexão nativo e bem mais rápido que o anterior. Só em compilar no Delphi 2007 aplicações provenientes do Delphi 7 já se tem um ganho de performance considerável. Sem falar no suporte a windows vista sem perder a compatibilidade com as outras versões do windows. Além disso tem UML 1.5 e 2.0 totalmente integrada e totalmente live source. Possui geração automática de documentação e engenharia reversa de código, um ótimo recurso para quem não tem documentação do sistema. Isso e muito mais pode ser visto no vídeo do Andreano sobre por que migrar para Delphi 2007 no Delphi Day On Line: http://dn.codegear. com/article/ 37460 A nova versão do Delphi nem se fala. Pessoal, o novo DataSnap por si só já seria motivo de sobra para migrar. Para quem já utilizava o DataSnap e já sabia dos benefícios de segurança, velocidade, facilidade muito superior que modelo Client/Server, pode perceber quão robusto ficou. Sem falar em todas as outras novidades apresentadas pelo Andreano, a melhorias na linguagem, o UNICODE que simplesmente é de mais! A evolução da VCL, novos componentes, etc. O que eu não consigo ver é justificativa técnica para não migrar para o Delphi 2007 e agora o Tiburón. Abs BL Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Off-Topic..... Go Global
Já ligou para o suporte do representante? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vinicius da Silva Pinto Enviada em: quinta-feira, 31 de julho de 2008 09:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Off-Topic. Go Global Salve a todos. Alguem da lista já utilizou ou esta utilizando o Go Global que possa me passar algumas informações. Baixei uma versão demo, recebi uma licença para 30dias mais ainda não instalei. Pretendo utilizar da seguinte forma... Banco Interbase e Delphi 7. Banco fica na matrix e tem duas filiais. Será que este software atendo como se fosse uma VPN?? Obrigado [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Aplicativo interrompido usando ProcessMessage
Ficaria mais interessante ainda se você criasse uma Thread para esse loop, liberando assim as mensagens enviadas ao formulário. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: quarta-feira, 30 de julho de 2008 16:46 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Aplicativo interrompido usando ProcessMessage Olá. o Application.ProcessMessages não interrompe um loop, ele apenas libera a aplicaçao para processar as mensagens e evitar que a mesma congele durante o loop, você precisa criar uma variável de controle e dentro do loop checar o valor dessa variável.. se tiver determinado valor sai do loop. 2008/7/30 Flavio [EMAIL PROTECTED] mailto:fqs21%40yahoo.com.br Olá pessoal, boa tarde, minha aplicação permite interromper um processo de decodificação de dados usando o procedimento ProcessMessage dentro de um loop. Quando o user clica no botão para continuar a aplicação, sai do loop e então continua normal... O problema é quando ele interrompe a aplicacação e daí entra no loop do ProcessMessage e então ele tenta fechar a aplicação. Sendo assim, a aplicação não é fechada. O código do loop está abaixo: while(interrompido = true) ProcessMessage; Alguém sabe como poderia possibilitar o fechamento do aplicativo mesmo estando dentro do loop. Imaginei em colocar um if dentro do loop perguntando se o tipo de mensagem q está na fila é do tipo WM_CLOSE e, se for, daí chama o close do form principal. Alguma coisa do tipo. Obrigado pela atenção de todos, Flávio. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] TSQLDataset - não responde
Você está usando % ?? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de stainle2003 Enviada em: quarta-feira, 30 de julho de 2008 17:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] TSQLDataset - não responde Boa tarde, estou às voltas com um problema que não consigo mesmo solucionar; ou seja: coloquei um TSQLDataset com a sentença select codcl, noc from clien where noc like :pnome', liguei um TDataSetProvider à ele e posteriormente um TClientDataSet ao TDataSetProvider; fiz 'fetch param' e enxerguei o parâmento no CDS, porém quando faço : CDS1.Close; CDS1.Params[0].AsString := Edit1.Text; CDS1.Open; nenhum registro aparece no DBGRID, porque será que não funciona ??? se alguém passou por isso, me ajude. grato Stainle [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
A diferença está na ligação direta com a CodeGear e o maior contato com os bugs do produto. Apesar de eu já ter visitado o site da CodeGear, com certeza os dois tem muito mais experiência na história de bugs da ferramenta. Pois isto não poderia ser um bug conhecido ? Mas tudo bem, aparentemente estão ignorando esta thread, pois vejo posts do Andreano ao mesmo tempo que corre esta thread, mas nenhuma manifestação. Infelizmente eu não tenho um ambiente 64 bits para depurar. Estamos trabalhando nesse sentido. Até lá estou tentando fazer o possível para descobrir o que está ocasionando o erro. To vendo que no fim das contas vou acabar fazendo uma DLL em Visual Studio para matar esse leão. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao Morais Enviada em: terça-feira, 29 de julho de 2008 08:00 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits Davi Eduardo Borges Wall wrote: Uma manifestação do Andreano ou do Bruno seria interessante neste assunto! Não entendo qual a diferença para qualquer outra pessoa que conheça o Delphi. E os meus $0,02 são o seguinte: liga informações de debug em tudo que estiver ao seu alcance, inclusive em Project | Options | Use debug DCU, e logo que ocorrer a exceção veja o backtrace/callstack/alt+f3. Isso pode ajudar. Joao Morais [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Com muito orgulho informo que achei a solução para o problema. Como meu amigo Rubem sempre diz: Quem procura acha! http://qc.codegear.com/wc/qcmain.aspx?d=21249 Aqui está um Sample do problema: TRIO.IntfStubs (private) is allocated on Heap. If the processor is DEP enabled, executing the method stub will raise an exception (incorrectly shown as write violation). You need a DEP processor, not software DEP (enabled with XP SP2). I discovered it by having a SOAP call in an Windows installer custom action (DLL), therefore having DEP enabled. By default DEP is enabled only for Windows components, so you have to enable for all programs to reproduce the problem. The simple (but pretty BAD) solution is to allow execution on allocated memory. The good solution is to allocate special executable block (similar to clases.MakeObjectInstance). Esse problema foi resolvido no Delphi 9/10 (de acordo com o que é comentado nesse caso), claro que nós usuários do magnífico D7 não veremos esta correção, muito provavelmente. Basicamente, S.O's 64 bits possuem um careta chamado DEP (Data Execution Prevention) que previne um código malicioso, de executar códigos existentes na memória. Basta desligar esse careta para a sua aplicação que usa SOAP e o tudo funciona magicamente. Gostaria de agradecer os esforços dos colegas da lista! Que venha o próximo leão! (risos) []'s Davi. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Davi Eduardo Borges Wall Enviada em: terça-feira, 29 de julho de 2008 08:27 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits A diferença está na ligação direta com a CodeGear e o maior contato com os bugs do produto. Apesar de eu já ter visitado o site da CodeGear, com certeza os dois tem muito mais experiência na história de bugs da ferramenta. Pois isto não poderia ser um bug conhecido ? Mas tudo bem, aparentemente estão ignorando esta thread, pois vejo posts do Andreano ao mesmo tempo que corre esta thread, mas nenhuma manifestação. Infelizmente eu não tenho um ambiente 64 bits para depurar. Estamos trabalhando nesse sentido. Até lá estou tentando fazer o possível para descobrir o que está ocasionando o erro. To vendo que no fim das contas vou acabar fazendo uma DLL em Visual Studio para matar esse leão. []'s 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 Joao Morais Enviada em: terça-feira, 29 de julho de 2008 08:00 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits Davi Eduardo Borges Wall wrote: Uma manifestação do Andreano ou do Bruno seria interessante neste assunto! Não entendo qual a diferença para qualquer outra pessoa que conheça o Delphi. E os meus $0,02 são o seguinte: liga informações de debug em tudo que estiver ao seu alcance, inclusive em Project | Options | Use debug DCU, e logo que ocorrer a exceção veja o backtrace/callstack/alt+f3. Isso pode ajudar. Joao Morais [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Olá, Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para consulta CEP's. Cliente atualizou servidor para 64 bits e agora o dito cujo dá AV. Só acontece em máquinas com S.O. 64 bits. Talvez alguém já tenha passado por isso ? []'s Davi. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Exatamente! Este é o código da unit!
cepwsdlPortType = interface(IInvokable)
['{3E7EC10C-CAC0-3F39-B591-CA8F8E9208FB}']
procedure ConsultarCEP(const user: WideString; const pass: WideString;
const cep: WideString; out endereco: WideString; out bairro: WideString; out
cidade: WideString; out uf: WideString); stdcall;
procedure ObterCEP(const user: WideString; const pass: WideString; const
endereco: WideString; const cidade: WideString; const uf: WideString; const
startrecord: integer; out qtdrecords: integer; out cep_1: WideString;
out bairro_1: WideString; out endereco_1: WideString;
out cep_2: WideString; out bairro_2: WideString; out
endereco_2: WideString; out cep_3: WideString; out bairro_3: WideString; out
endereco_3: WideString); stdcall;
end;
function GetcepwsdlPortType(UseWSDL: Boolean=System.False; Addr: string='';
HTTPRIO: THTTPRIO = nil): cepwsdlPortType;
function GetcepwsdlPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO):
cepwsdlPortType;
const
defWSDL = 'http://www.meusite.com/wscep.php?wsdl';
defURL = 'http://www.meusite.com/wscep.php';
defSvc = 'cepwsdl';
defPrt = 'cepwsdlPort';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as cepwsdlPortType);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:46
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta
Fornece mais detalhes sobre teu SOAPHTTPClient. Deduzo eu que tu codificastes
um aplicativo pra acessar um webservice. Se for, tu usas uma unit que traduz as
chamadas ao webservice?
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 15:39:11 -0300
Subject: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Olá,
Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para
consulta CEP's.
Cliente atualizou servidor para 64 bits e agora o dito cujo dá AV.
Só acontece em máquinas com S.O. 64 bits.
Talvez alguém já tenha passado por isso ?
[]'s
Davi.
__
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/ http://www.amigosdomessenger.com.br/
[As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Sim! O endereço é fictício.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:58
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta
Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo
IE e ... nem tchum!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 15:52:00 -0300
Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Exatamente! Este é o código da unit!
cepwsdlPortType = interface(IInvokable)
['{3E7EC10C-CAC0-3F39-B591-CA8F8E9208FB}']
procedure ConsultarCEP(const user: WideString; const pass: WideString; const
cep: WideString; out endereco: WideString; out bairro: WideString; out cidade:
WideString; out uf: WideString); stdcall;
procedure ObterCEP(const user: WideString; const pass: WideString; const
endereco: WideString; const cidade: WideString; const uf: WideString; const
startrecord: integer; out qtdrecords: integer; out cep_1: WideString; out
bairro_1: WideString; out endereco_1: WideString;
out cep_2: WideString; out bairro_2: WideString; out endereco_2: WideString;
out cep_3: WideString; out bairro_3: WideString; out endereco_3: WideString);
stdcall;
end;
function GetcepwsdlPortType(UseWSDL: Boolean=System.False; Addr: string='';
HTTPRIO: THTTPRIO = nil): cepwsdlPortType;
function GetcepwsdlPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO):
cepwsdlPortType;
const
defWSDL = 'http://www.meusite.com/wscep.php?wsdl
http://www.meusite.com/wscep.php?wsdl ';
defURL = 'http://www.meusite.com/wscep.php http://www.meusite.com/wscep.php ';
defSvc = 'cepwsdl';
defPrt = 'cepwsdlPort';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as cepwsdlPortType);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
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 Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:46
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta
Fornece mais detalhes sobre teu SOAPHTTPClient. Deduzo eu que tu codificastes
um aplicativo pra acessar um webservice. Se for, tu usas uma unit que traduz as
chamadas ao webservice?
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 15:39:11 -0300
Subject: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Olá,
Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para
consulta CEP's.
Cliente atualizou servidor para 64 bits e agora o dito cujo dá AV.
Só acontece em máquinas com S.O. 64 bits.
Talvez alguém já tenha passado por isso ?
[]'s
Davi.
__
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack http://www.msn.com.br/emoticonpack
[As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Entendo!
Mas estou dizendo que neste exato momento eu abro esta aplicação em um ambiente
32 bits e a consulta procede sem erros.
Se neste exato momento eu testar em um ambiente 64 bits acontece o dito cujo do
AV.
De qualquer forma te passei os endereços em PVT.
[]'s
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:07
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta
Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu
num consigo ver como fazer isso sem o endereço real!
Já aviso logo que se for o endereço do webservice dos correios, ele foi
desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De
repente, pode ser alguma mudança no próprio webservice que necessite regerar a
unit, mas pra isso tem que ter o endereço real do webservice pra poder
verificar isso!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 16:04:51 -0300
Subject: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Sim! O endereço é fictício.
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 Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:58
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta
Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo
IE e ... nem tchum!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 15:52:00 -0300
Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Exatamente! Este é o código da unit!
cepwsdlPortType = interface(IInvokable)
['{3E7EC10C-CAC0-3F39-B591-CA8F8E9208FB}']
procedure ConsultarCEP(const user: WideString; const pass: WideString; const
cep: WideString; out endereco: WideString; out bairro: WideString; out cidade:
WideString; out uf: WideString); stdcall;
procedure ObterCEP(const user: WideString; const pass: WideString; const
endereco: WideString; const cidade: WideString; const uf: WideString; const
startrecord: integer; out qtdrecords: integer; out cep_1: WideString; out
bairro_1: WideString; out endereco_1: WideString;
out cep_2: WideString; out bairro_2: WideString; out endereco_2: WideString;
out cep_3: WideString; out bairro_3: WideString; out endereco_3: WideString);
stdcall;
end;
function GetcepwsdlPortType(UseWSDL: Boolean=System.False; Addr: string='';
HTTPRIO: THTTPRIO = nil): cepwsdlPortType;
function GetcepwsdlPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO):
cepwsdlPortType;
const
defWSDL = 'http://www.meusite.com/wscep.php?wsdl
http://www.meusite.com/wscep.php?wsdl ';
defURL = 'http://www.meusite.com/wscep.php http://www.meusite.com/wscep.php
';
defSvc = 'cepwsdl';
defPrt = 'cepwsdlPort';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as cepwsdlPortType);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
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 Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:46
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta
Fornece mais detalhes sobre teu SOAPHTTPClient. Deduzo eu que tu codificastes
um aplicativo pra acessar um webservice. Se for, tu usas uma unit que traduz as
chamadas ao webservice?
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 15:39:11 -0300
Subject: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Olá,
Tenho um Soap Http Client implementado e funcionando em D7 a um bom tempo para
consulta CEP's.
Cliente atualizou servidor para 64 bits e agora o dito cujo dá AV.
Só acontece em máquinas com S.O. 64 bits.
Talvez alguém já tenha
RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Seria isso!
Uma manifestação do Andreano ou do Bruno seria interessante neste assunto!
GetcepwsdlPortType.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade,
uf);
showmessage(endereco + #13#10 +
bairro + #13#10 +
cidade + #13#10 +
uf + #13#10);
Obrigado pela atenção!
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:31
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64
Bits
Prioridade: Alta
Manda um código de exemplo da chamada de método do WS que tá com problema. De
repente, sei lá, talvez seja necessário alguma diretiva de compilação pra que o
código possa rodar em ambiente 64 bits. Mas é apenas uma dedução. Alguém da
Borland/CodeGear/Embarcadero/sei-lá-mais-qual-outro-nome-vai-ser pode dar uma
luz aqui? Eu não tenho contato com ambientes 64 bits, por isso não tenho como
ajudar muito!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 16:12:18 -0300
Subject: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Entendo!
Mas estou dizendo que neste exato momento eu abro esta aplicação em um ambiente
32 bits e a consulta procede sem erros.
Se neste exato momento eu testar em um ambiente 64 bits acontece o dito cujo do
AV.
De qualquer forma te passei os endereços em PVT.
[]'s
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 Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:07
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta
Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu
num consigo ver como fazer isso sem o endereço real!
Já aviso logo que se for o endereço do webservice dos correios, ele foi
desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De
repente, pode ser alguma mudança no próprio webservice que necessite regerar a
unit, mas pra isso tem que ter o endereço real do webservice pra poder
verificar isso!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 16:04:51 -0300
Subject: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Sim! O endereço é fictício.
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 Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:58
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta
Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo
IE e ... nem tchum!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 15:52:00 -0300
Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Exatamente! Este é o código da unit!
cepwsdlPortType = interface(IInvokable)
['{3E7EC10C-CAC0-3F39-B591-CA8F8E9208FB}']
procedure ConsultarCEP(const user: WideString; const pass: WideString; const
cep: WideString; out endereco: WideString; out bairro: WideString; out cidade:
WideString; out uf: WideString); stdcall;
procedure ObterCEP(const user: WideString; const pass: WideString; const
endereco: WideString; const cidade: WideString; const uf: WideString; const
startrecord: integer; out qtdrecords: integer; out cep_1: WideString; out
bairro_1: WideString; out endereco_1: WideString;
out cep_2: WideString; out bairro_2: WideString; out endereco_2: WideString;
out cep_3: WideString; out bairro_3: WideString; out endereco_3: WideString);
stdcall;
end;
function GetcepwsdlPortType(UseWSDL: Boolean=System.False; Addr: string='';
HTTPRIO: THTTPRIO = nil): cepwsdlPortType;
function GetcepwsdlPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO):
cepwsdlPortType;
const
defWSDL = 'http://www.meusite.com/wscep.php?wsdl
http://www.meusite.com/wscep.php?wsdl ';
defURL = 'http://www.meusite.com/wscep.php http://www.meusite.com/wscep.php
';
defSvc = 'cepwsdl';
defPrt = 'cepwsdlPort';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr
RES: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Em teoria é a mesma coisa! Mas vou tentar por desencargo e dou retorno para
lista!
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem
Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:54
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation
em 64 Bits
Prioridade: Alta
Eu, particularmente, faria o código da seguinte maneira:
var
lWsCEP: cepwsdlPortType;
endereco, bairro, cidade, uf: string;
begin
lWsCEP := GetcepwsdlPortType();
try
try
lWsCEP.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade, uf);
except
on E: Exception do
begin
ShowMessage('Erro ao chamar WS: ' + E.Message);
exit;
end;
end;
showmessage(endereco + #13#10 + bairro + #13#10 + cidade + #13#10 + uf +
#13#10);
finally
lWsCEP := nil;
end;
end;
Veja se isso já não ajuda em algo!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 16:38:29 -0300
Subject: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em
64 Bits
Seria isso!
Uma manifestação do Andreano ou do Bruno seria interessante neste assunto!
GetcepwsdlPortType.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade,
uf);
showmessage(endereco + #13#10 +
bairro + #13#10 +
cidade + #13#10 +
uf + #13#10);
Obrigado pela atenção!
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 Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:31
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64
Bits
Prioridade: Alta
Manda um código de exemplo da chamada de método do WS que tá com problema. De
repente, sei lá, talvez seja necessário alguma diretiva de compilação pra que o
código possa rodar em ambiente 64 bits. Mas é apenas uma dedução. Alguém da
Borland/CodeGear/Embarcadero/sei-lá-mais-qual-outro-nome-vai-ser pode dar uma
luz aqui? Eu não tenho contato com ambientes 64 bits, por isso não tenho como
ajudar muito!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 16:12:18 -0300
Subject: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Entendo!
Mas estou dizendo que neste exato momento eu abro esta aplicação em um ambiente
32 bits e a consulta procede sem erros.
Se neste exato momento eu testar em um ambiente 64 bits acontece o dito cujo do
AV.
De qualquer forma te passei os endereços em PVT.
[]'s
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 Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:07
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta
Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu
num consigo ver como fazer isso sem o endereço real!
Já aviso logo que se for o endereço do webservice dos correios, ele foi
desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De
repente, pode ser alguma mudança no próprio webservice que necessite regerar a
unit, mas pra isso tem que ter o endereço real do webservice pra poder
verificar isso!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 16:04:51 -0300
Subject: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Sim! O endereço é fictício.
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 Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 15:58
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta
Bom, pra começar esse endereço do websrvice não existe! Tentei acessá-lo pelo
IE e ... nem tchum!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 15:52:00 -0300
Subject: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Exatamente! Este é o código da unit!
RES: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Tentei! Não funcionou!
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Davi
Eduardo Borges Wall
Enviada em: segunda-feira, 28 de julho de 2008 16:59
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation
em 64 Bits
Em teoria é a mesma coisa! Mas vou tentar por desencargo e dou retorno para
lista!
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 Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:54
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation
em 64 Bits
Prioridade: Alta
Eu, particularmente, faria o código da seguinte maneira:
var
lWsCEP: cepwsdlPortType;
endereco, bairro, cidade, uf: string;
begin
lWsCEP := GetcepwsdlPortType();
try
try
lWsCEP.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade, uf);
except
on E: Exception do
begin
ShowMessage('Erro ao chamar WS: ' + E.Message);
exit;
end;
end;
showmessage(endereco + #13#10 + bairro + #13#10 + cidade + #13#10 + uf +
#13#10);
finally
lWsCEP := nil;
end;
end;
Veja se isso já não ajuda em algo!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 16:38:29 -0300
Subject: RES: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em
64 Bits
Seria isso!
Uma manifestação do Andreano ou do Bruno seria interessante neste assunto!
GetcepwsdlPortType.ConsultarCEP('', '', edCEP.Text, endereco, bairro, cidade,
uf);
showmessage(endereco + #13#10 +
bairro + #13#10 +
cidade + #13#10 +
uf + #13#10);
Obrigado pela atenção!
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 Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:31
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64
Bits
Prioridade: Alta
Manda um código de exemplo da chamada de método do WS que tá com problema. De
repente, sei lá, talvez seja necessário alguma diretiva de compilação pra que o
código possa rodar em ambiente 64 bits. Mas é apenas uma dedução. Alguém da
Borland/CodeGear/Embarcadero/sei-lá-mais-qual-outro-nome-vai-ser pode dar uma
luz aqui? Eu não tenho contato com ambientes 64 bits, por isso não tenho como
ajudar muito!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 16:12:18 -0300
Subject: RES: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Entendo!
Mas estou dizendo que neste exato momento eu abro esta aplicação em um ambiente
32 bits e a consulta procede sem erros.
Se neste exato momento eu testar em um ambiente 64 bits acontece o dito cujo do
AV.
De qualquer forma te passei os endereços em PVT.
[]'s
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 Rubem Nascimento da Rocha
Enviada em: segunda-feira, 28 de julho de 2008 16:07
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: RE: RES: RES: [delphi-br] SOAPHTTPClient - Access Violation em 64 Bits
Prioridade: Alta
Sim, mas como é que vai ser pra validar essa unit com um endereço fictício? Eu
num consigo ver como fazer isso sem o endereço real!
Já aviso logo que se for o endereço do webservice dos correios, ele foi
desativado faz uma pá de tempo! Cadê o endereço real pra poder avaliar? De
repente, pode ser alguma mudança no próprio webservice que necessite regerar a
unit, mas pra isso tem que ter o endereço real do webservice pra poder
verificar isso!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
mailto:davi.wall%40mult.com.br
Date: Mon, 28 Jul 2008 16:04:51 -0300
Subject: RES: RES: [delphi-br] SOAPHTTPClient - Access
RES: [delphi-br] duvidas sobre strings
Essa função não considera número negativo ? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Nicolas Enviada em: sexta-feira, 25 de julho de 2008 16:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] duvidas sobre strings Desculpe pessoal, de tanto usar já tava achando que era função nativa, tá aqui o fonte da função: Function IsNumeric(const s: string): boolean; var i: integer; begin Result := True; for i:=1 to length(s) do if not (s[i] in ['0'..'9']) then begin Result := False; Break; end; end; []s Alexandre - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, July 25, 2008 3:43 PM Subject: RE: [delphi-br] duvidas sobre strings Em qual unit tá definida essa função? Já revirei o help do Delphi de cabo a rabo e num achei nada! Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:nicolas%40qualitysystem.com.br Date: Fri, 25 Jul 2008 15:39:42 -0300 Subject: Re: [delphi-br] duvidas sobre strings Ops, é isnumeric( ) alexandre - Original Message - From: fabio giro To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, July 25, 2008 3:32 PM Subject: Re: [delphi-br] duvidas sobre strings Onde está a função IsNumber? --- Em sex, 25/7/08, Nicolas [EMAIL PROTECTED] mailto:nicolas%40qualitysystem.com.br escreveu: De: Nicolas [EMAIL PROTECTED] mailto:nicolas%40qualitysystem.com.br Assunto: Re: [delphi-br] duvidas sobre strings Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Sexta-feira, 25 de Julho de 2008, 14:11 e eu ainda acrescentaria: if (isnumber(Edit1. text) ) and (Length(Edit1. text)=Edit1. MaxLenght) then showmessage( 'é igual´); []s alexandre - Original Message - From: Luciano Calenzani Simões To: [EMAIL PROTECTED] os.com.br Sent: Friday, July 25, 2008 1:47 PM Subject: Res: [delphi-br] duvidas sobre strings if Length(Trim( Edit1.Tex) ) = Edit1.MaxLength then showmessage( 'É igual!') Luciano Calenzani Simões - Mensagem original De: Leonardo Baldino Para: Grupo_Delphi Enviadas: Sexta-feira, 25 de Julho de 2008 10:12:01 Assunto: [delphi-br] duvidas sobre strings eu tenho um edit e eu preciso verificar se todos os espaço disponivel dentro do edit foi preenchido por numero inteiros, por isso eu gostaria de saber se alguem sabe como eu posso fazer isso -- Leonardo Carlos Baldino - The Highlander __ 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 http://mobile.live.com/signup/signup2.aspx?lc=pt-br No virus found in this incoming message. Checked by AVG - http://www.avg.com http://www.avg.com Version: 8.0.138 / Virus Database: 270.5.6/1572 - Release Date: 25/7/2008 06:51 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] [1/2 Off] Será Del phi realmente bom para se criar e manter um ERP?
Concordo Ricardo, O custo de desenvolvimento é muito maior. Principalmente quando falamos em uma empresa de 100 programadores por exemplo, onde o custo e tempo de desenvolvimento são diminuídos utilizando uma tecnologia framework própria. Tenho um exemplo muito clássico de uma das maiores empresas de ERP do Brasil que possuía/possui o seu ERP escrito em Delphi desktop, e está desde 2002 escrevendo seu novo ERP que em teoria seria 100% web em JAVA e ainda não conseguiram terminar. Os caras não são fracos. Dizem as más bocas que já investiram algo em torno de 36 milhões no projeto (se não mais). O Delphi, especificamente falando, realmente ajuda a diminuir o custo e tempo de desenvolvimento isso é verdade. Temos um ERP corporativo aqui com conceito AHL e escrevemos algumas telas (inclusão e consulta) camada de interface em Web. A usabilidade é infinitamente melhor em um programa desktop. Além do que a Web não roda sem o sistema desktop (camadas HL) por baixo para fazer a parte pesada. Ou seja, tendo a WEB você ainda precisa do desktop para fazer a parte grossa da coisa. Acredito que futuramente o caminho será a Web, mas ainda não. Desktop ainda vai sobreviver por pelo menos 20 ou 30 anos. Essas novas tecnologias 3 camadas/go-global/meframes irão dar uma boa sobrevida para os desktops. A cultura da maioria das empresas ainda é desktop, você não muda uma arquitetura ou plataforma (como queiram) sem mudar a cabeça de quem vai comprar. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo César Cardoso Enviada em: sexta-feira, 25 de julho de 2008 16:40 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] [1/2 Off] Será Delphi realmente bom para se criar e manter um ERP? Fiz essa busca antes de afirmar o que disse e por isso mesmo reafirmo que tecnicamente É POSSÍVEL (os links provam) mas é VIÁVEL? Quando digo VIÁVEL me refiro a realidade NACIONAL. Você bancaria um ERP inteiramente Web num cliente no interior de São Paulo? Ou do Rio Grande do Sul? Ou no interior do Amazonas? Se for para rodar numa rede interna a viabilidade é grande mas ainda sim vc vai ter que se desdobrar mais do que numa aplicação desktop. Por que é TECNICAMENTE possível fazer. Mas e manter? Será que terá mão de obra qualificada no mesmo nível? Agora se for pensar em ERP integrando filiais, não acho viável colocar todos os processos na Web. Apenas processos passivos como consultas e relatórios. Quem sabe algum processo ativo com baixa complexidade/importancia. Possível, em informática, tudo é. Agora nem sempre uma solução é viável. Mesmo que possível tecnicamente. Atte, Ricardo. --- Em sex, 25/7/08, Luiz ESCobar [EMAIL PROTECTED] mailto:escobar%40megasistema.com.br escreveu: De: Luiz ESCobar [EMAIL PROTECTED] mailto:escobar%40megasistema.com.br Assunto: Re: RES: [delphi-br] [1/2 Off] Será Delphi realmente bom para se criar e manter um ERP? Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Sexta-feira, 25 de Julho de 2008, 15:16 http://www.weberp. org/HomePage http://sourceforge. net/projects/ web-erp http://www.soniq. com.br/erp/ http://pt.wikipedia .org/wiki/ WebERP http://www.nabble. com/webERP- accounting- f4406.html 10seconds em www.google.com. br E é mesmo, quem é Leandro ? hehehehhe []s Luiz Escobar - Analista/Desenvolve dor: 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 1.0.0rc2 Intl. (Rev. 8941) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 53a) - 2008.07.07 - - - - - - Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] fast Reports
Podes começar procurando no www.google.com.br http://www.google.com.br/ Ou talvez quem sabe no próprio site da fast reports? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de BandaLemuel Enviada em: quinta-feira, 24 de julho de 2008 08:50 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] fast Reports Lista Estou precisando fazer um relatório = ao de baixo com o fast Reports e não tenho idéia por onde começar... vc's sabem como posso faze-lo.. ?? NOME FUNCIONARIO Items comprados no mes Banana 1,00 Mamão 1,50 Total 2,50 NOME DO OUTRO FUNCIONARIO Items comprados no mes Cana 1,00 Limão 0,50 Total 1,50 Total Geral 4,00 Desde já agradeço... Wesley [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] [1/2 Off] Será Delphi rea lmente bom para se criar e manter um ERP?
Concordo plenamente! Aliás, quem ainda não teve a chance de conhecer o Go-Global, que o faça! É uma tecnologia sensacional, não abre sessão no servidor, não é tecnologia de sobreposição de imagem, as licenças são baratíssimas comparando com os metaframes do mercado. Eles simplesmente passam as mensagens através da internet até seu computador, o que é muito mais rápido comparado com um metaframe. PS: funciona em qualquer plataforma também! []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marlon David de Souza Enviada em: quinta-feira, 24 de julho de 2008 09:00 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [1/2 Off] Será Delphi realmente bom para se criar e manter um ERP? Eu não acho tão problemático essa questão de desenvolvimento Web no Delphi (apesar do excelente suporte para ASP.NET 2) pelo seguinte. Hoje existem excelentes produtos que publicam aplicações Desktop na Web (WTS 2008, Go-Global, Citrix, etc). Então, desse modo, os analistas e programadores podem se concentrar no desenvolvimento de um aplicativo Delphi para Desktop, com todos os seus recursos (e sem as limitações de uma aplicação Web), e permitir que os usuários acessem esse aplicativo via Browse, Palms, Celulares, etc. Sem mais, Marlon David de Souza Desenvolvimento Sysmo Informática Ltda Marcelo Moacir Florindo escreveu: Concordo com você. Mas vá em uma empresa e pergunte e verás que a resposta é normalmente esta. Como você mesmo disse existem pessoas que aceitam uma ferramenta pelo marketing, pela indicação, por gostar e tem empresas que optam por uma linguagem que atenda em todos os niveis (ou ao menos dar a entender). E não estou misturando programação web e desktop..muito pelo contrário estou aqui a dizer que muitas empresas preferem trabalhar com programação web, e isto é uma realidade. E não adianta tampar os olhos, sou delpheiro a anos e adoro esta linguagem, mas que precisamos de uma melhoria e avanço com estrutura voltadas para web, isto sim. É uma verdade. Espero que o Embarcadero aproveite esta realidade e dê uma roupagem nova neste sentido. Abraços, Marcelo [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [1/2 Off] Será Delphi rea lmente bom para se criar e manter um ERP?
Cara, o que eu mais vejo na minha região é ERP feito em Delphi. Aí vão alguns... www.Benner.com.br http://www.benner.com.br/ www.Senior.com.br http://www.senior.com.br/ www.mult.com.br http://www.mult.com.br/ Sênior é uma as 3 ou 5 maiores do Brasil (não recordo agora). Benner está listada naquelas 100 maiores empresas da info EXAME (se não me engano são 100). Mult lançou ERP coporativo a 1 ano todo feito em Delphi e com mudularização e conceito A H L (3 camadas). []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe Henrique Enviada em: quarta-feira, 23 de julho de 2008 13:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] [1/2 Off] Será Delphi realmente bom para se criar e manter um ERP? Amigos, estive agora pensando.. após uma pesquisa na internet, sobre empresas que produzem software, principalmente ERP, vi que quase nenhuma delas usam Delphi, vi em: C++, Java (principalmente), mas em Delphi!? Só conheço a RM Sistemas, porém já tá mudando pra C#. Minha questão é a seguinte: O Delphi é realmente indicado para projetos grandes como um ERP? É melhor de se criar e MANTER um sistema neste porte em delphi? Se for, porque será que não vemos ERP em delphi no mercado? []s -- _ .-. T.·.F.·.A.·. /v\ Fellipe Henrique // \\ http://www.linkedin.com/in/fellipehenrique http://www.linkedin.com/in/fellipehenrique /( )\ Sou a FAVOR da lei 0607/2007. ^^-^^ [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] Erro do DBExpress, depois de migrar do FB 1.5 para o FB 2.1
www.FireBase.com.br http://www.firebase.com.br/ lá está a solução para seus problemas. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo - yahoo Enviada em: quarta-feira, 23 de julho de 2008 17:22 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Erro do DBExpress, depois de migrar do FB 1.5 para o FB 2.1 Pessoal: Tenho um sistema feito em Delphi 7 (SETE), que rodava bem com o FireBird 1.5, acessando com o DBExpress e driver InterBase Migrei para o FireBird 2.1, e agora está aparecendo o seguinte problema: a) Ao fazer algum SELECT que não tenha a cláusula WHERE (porque todos os dados da tabela são necessários naquela rotina), aparece o seguinte erro: SQL Error: Error mapping failed b) Descobri, por tentativa e erro, que se eu incluir a cláusula WHERE no comando, funciona bem: SELECT * FROM TBFERIADOS WHERE DATFERIADO IS NOT NULL (neste caso, o campo DATFERIADO é chave, e por isso nunca é nulo - o que faz o comando trazer todos os dados) c) Isso acontece com qualquer SELECT onde não exista a cláusula WHERE (são vários, espalhados pelo sistema, pois há vários processos que utilizam TODOS os registros da tabela - geralmente são tabelas pequenas ou com dados temporários, por isso não tenho problema com performance em trazer todos os registros) Pergunta: - Gostaria de saber se alguém já passou por este problema, usando DBExpress do Delphi 7 (SETE) e se há alguma outra solução, além de eu ter de forçar a presença da cláusula WHERE em todos os comandos onde hoje ela não existe. Eu digo forçar porque, como no exemplo acima, ela seria dispensável (tanto que, com o FireBird 1.5, esse problema não existia). Grato pela atenção de todos Paulo [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] SQLTraceDesc limitado a 1024 caracteres?
Olá pessoal, Estava eu trabalhando na implementação de um monitor SQL, quando me deparei com o seguinte problema.. SQLTraceDesc encodes information about a message that passes between a dbExpress driver and a database server. Unit SqlExpr Delphi syntax: type SQLTRACEDesc = packed record pszTrace : array [0..1023] of Char; -- 1024 ??? por quê ?? eTraceCat: TRACECat; ClientData : Integer; uTotalMsgLen : Word; end; pSQLTRACEDesc = ^SQLTRACEDesc; A propriedade do record que irá me trazer a string do SQL está limitado para 1024 caracteres ? Ou seja se eu tiver um SQL maior que 1024 vai truncar no monitor! É isso mesmo? Alguém já viu isso ? tem alguma explicação?? PS: Utilizando Delphi 7, dbExpress, SQLConnection, TSQLCallbackEvent Obrigado, []'s Davi. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Exclusão dbgrid!!
Você associa um DataSet ao grid pelo DataSource.
Basta fazer, Grid.DataSource.DataSet.Delete;
[]'s
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Douglas
Takahara
Enviada em: quinta-feira, 17 de julho de 2008 15:22
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Exclusão dbgrid!!
Bom..
Agora que percebi..
na verdade ele sempre apaga o primeiro registro que esta no dbgrid
eu gostaria que ele apagasse a determinada linha selecionada
--- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ,
Douglas Takahara
[EMAIL PROTECTED] escreveu
Rubem,
Com relação a primeira pergunta , acredito que realmente o selected
field n corresponde ao campo que contém cpf..
Quanto a segunda pergunta..
sim , eu abro e fecho novamente a consulta...
--- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ,
Rubem Nascimento da Rocha
djpardalrocha@ escreveu
Acho que vc está cometendo um equivoco. Vc usa DBGrid.SelectedField
para pegar o valor da chave (por assim dizer) que será usada para a
exclusão, mas será que o SelectedField do DBGrid, no momento da
deleção, corresponde mesmo ao campo que contém o CPF? Outra coisa,
depois da deleção, vc fecha e depois abre a consulta do DBGrid?
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: douglashideki@
Date: Wed, 16 Jul 2008 17:07:55 +
Subject: [delphi-br] Exclusão dbgrid!!
Boa tarde,
Estou tentando excluir uma linha do dbgrid por um button, coloquei o
seguinte:
if MessageDlg ('Tem certeza que deseja excluir a
informação?',mtConfirmation,[mbYes,mbNo],0)= mrYes then begin
with DataModule.SQLQuery do begin
close;
sql.Clear;
SQL.Add('DELETE FROM TABLE WHERE CPF =
'+QuotedStr(DBGrid.SelectedField.AsString)+' ');
ExecSQL;
Close;
end;
Showmessage('Registro excluído com sucesso!');
end
Else
Showmessage('Operação cancelada!');
Gostaria de quando o usuario clicasse neese buton fosse deletado a
linha selecionada... Acontece que deletar até deleta, mas ás
vezes nao
delete a linha que está selecionada...
essa parte +QuotedStr(DBGrid.SelectedField.AsString)+' eh assim
mesmo?
__
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS
para o Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack http://www.msn.com.br/emoticonpack
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Conexao+Download de arquivos XML vi a Delphi através do IP (com usuario e senha)
Quem guarda na caixinha é colecionador! Estais colecionando Delphi? =) Desconheço tal componente =( De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de dangra2008 Enviada em: sexta-feira, 18 de julho de 2008 09:09 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Conexao+Download de arquivos XML via Delphi através do IP (com usuario e senha) Preciso fazer um aplicativo que: 1. Conecte a um compartilhamento de uma máquina Ex: \\111.111.111.1 \Rede\Teste (sendo que 111.111.111.1 requer usuario e senha) 2. Fazer o download dos arquivos disponíveis desse local de origem para a máquina do usuário 3. Quando encerrar o download renomear os arquivos no local de origem Mas tudo isso de forma oculta, sem que o usuário veja de onde ele está fazendo o download. O aplicativo funciona desde que eu informe somente o ip \\111.111.111.1 no qual aparece a tela ao usuário de login e senha. Se informar o caminho completo, às vezes funciona, mas geralmente trava ou dá falha de conexão. Existe um componente no Delphi 7 (já que meu RAD Studio ainda tá na caixinha rsrsr) para esse tipo de serviço? Graça [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Acervo sobre Programação
Pois faça como eu já fiz muitas vezes... Vou na biblioteca acho o livro que quero, tiro fotocópia dos capítulos que irei estudar durante a semana e volto na semana que vem para pegar o restante. Com um pouquinho de criatividade e força de vontade você vai lonnge. (e gasta muito menos dinheiro) []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Janderson Braz Enviada em: sexta-feira, 18 de julho de 2008 09:39 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Acervo sobre Programação Caro Colega, Bibliotecas EMPRESTAM livros por um período máximo de 10 dias APROXIMADAMENTE. Eu procuro algo que eu possa ler e estudar com calma e profundidade. Por estes motivos não posso utilizar bibliotecas. Pois, além de ter a possibilidade de não achar o livro que quero pq alguém já fez o EMPRÉSTIMO, também teria que devolver rápido. Atenciosamente, Janderson Braz Analista Programador Fone: (11) 3146 - 8709 [EMAIL PROTECTED] mailto:jbraz%40assist-card.com.br mailto:[EMAIL PROTECTED] mailto:fadura%40assist-card.com.br cid:image002.jpg@01C8DDD0.E5E204B0 mailto:image002.jpg%4001C8DDD0.E5E204B0 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 Davi Eduardo Borges Wall Enviada em: quinta-feira, 17 de julho de 2008 16:24 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Acervo sobre Programação Po cara! Já procurasse numa Biblioteca??? 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 Janderson Braz Enviada em: quinta-feira, 17 de julho de 2008 15:32 Para: [EMAIL PROTECTED] mailto:java-br%40yahoogrupos.com.br mailto:java-br%40yahoogrupos.com.br ; [EMAIL PROTECTED] mailto:lista-delphi%40yahoogrupos.com.br mailto:lista-delphi%40yahoogrupos.com.br ; [EMAIL PROTECTED] mailto:codificandodotnet%40yahoogrupos.com.br mailto:codificandodotnet%40yahoogrupos.com.br ; [EMAIL PROTECTED] mailto:oficina-vb%40yahoogrupos.com.br mailto:oficina-vb%40yahoogrupos.com.br ; [EMAIL PROTECTED] mailto:DevASPNET%40yahoogrupos.com.br mailto:DevASPNET%40yahoogrupos.com.br ; [EMAIL PROTECTED] mailto:DevSQL%40yahoogrupos.com.br mailto:DevSQL%40yahoogrupos.com.br ; [EMAIL PROTECTED] mailto:javacampinas%40yahoogrupos.com.br mailto:javacampinas%40yahoogrupos.com.br ; [EMAIL PROTECTED] mailto:PensandoEmJava%40yahoogrupos.com.br mailto:PensandoEmJava%40yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ; [EMAIL PROTECTED] mailto:Microsoft_Visual_Basic%40yahoogrupos.com.br mailto:Microsoft_Visual_Basic%40yahoogrupos.com.br ; [EMAIL PROTECTED] mailto:C_MaisMais%40yahoogrupos.com.br mailto:C_MaisMais%40yahoogrupos.com.br ; [EMAIL PROTECTED] mailto:mysql-br%40yahoogrupos.com.br mailto:mysql-br%40yahoogrupos.com.br Assunto: [delphi-br] Acervo sobre Programação Galera, Boa Tarde, Alguém sabe onde eu encontro livros, apostilas ou tutoriais sobre Java, VB, ASP, SQL e linguagens de programação em geral ??? Só que eu gostaria de encontrar livros, apostilas ou tutoriais preferencialmente em PDF e que sejam de graça... rsrs. Outro requisito é que seja um material com conteúdo bem aprofundado sobre essas linguagens. Já encontrei um monte de material pesquisando no Google , mas tudo era muito superficial e eu não estou com grana pra comprar bom livros sobre o tema. Será que mesmo depois de todas essas exigências alguém ainda pode me ajudar ???... rsrsrs... Grato, Janderson [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG - http://www.avg.com http://www.avg.com Version: 8.0.138 / Virus Database: 270.5.0/1558 - Release Date: 17/07/2008 09:56 [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] Acervo sobre Programação
Po cara! Já procurasse numa Biblioteca??? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Janderson Braz Enviada em: quinta-feira, 17 de julho de 2008 15:32 Para: [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED] Assunto: [delphi-br] Acervo sobre Programação Galera, Boa Tarde, Alguém sabe onde eu encontro livros, apostilas ou tutoriais sobre Java, VB, ASP, SQL e linguagens de programação em geral ??? Só que eu gostaria de encontrar livros, apostilas ou tutoriais preferencialmente em PDF e que sejam de graça... rsrs. Outro requisito é que seja um material com conteúdo bem aprofundado sobre essas linguagens. Já encontrei um monte de material pesquisando no Google , mas tudo era muito superficial e eu não estou com grana pra comprar bom livros sobre o tema. Será que mesmo depois de todas essas exigências alguém ainda pode me ajudar ???... rsrsrs... Grato, Janderson [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] Re: Como acessar arquivos num disco compartilhado na rede?
Exatamente isso que o Eduardo disse! Exemplo: ServidorBancoDados:d:\BaseFireBird\Banco.Mdb De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: quarta-feira, 16 de julho de 2008 14:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Como acessar arquivos num disco compartilhado na rede? Independente de ser Win98 ou XP pra conectar ao FireBird tem que ser IP ou Nome do PC:caminho do arquivo no servidor (caminho real) 2008/7/16 Carlos Negrão [EMAIL PROTECTED] mailto:blacksun%40inmail24.com : Acabou sendo algo bobo. Com o servidor no windows 98, o programa aceitava o IP do servidor e o caminho da unidade mapeada, como \\servidor\k\caminho\arquivo.fdb No windows XP, foi só colocar o caminho real do arquivo no servidor e funcionou. De resto, o primeiro teste era se o banco de dados conectava, que estava me dando um erro do tipo host not found que mascarava o problema (O firebird tentava 192.168.0.1:\\servidor\k\caminho\arquivo.fdb o que não funciona). --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu 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/ http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Firebird X Vista
Uma máquina que não tem placa de rede não vai ser acessar por uma rede, ou seja, você vai acessar localmente. Para acessar um máquina local você utiliza LOCALHOST ou 127.0.0.1 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de valdir Enviada em: quarta-feira, 16 de julho de 2008 14:10 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Firebird X Vista Olá, Uma aplicação que utiliza o Firebird como SGDB e for instalada no vista, ou se instala o Firebird como aplicaçao (não como serviço) ou se faz a conexão do SQLConnection com o arquivo de dados via comunicação IP, correto? 192.168.10.1:C\PastaInstalacao\Dados\Banco.fdb Numa máquina que não tenha placa de rede, não vai ter IP. Obviamente isso é raro acontecer, mas ainda existe. Pergunto: como proceder nesses casos? O micro necessariamente teria que ter placa de rede e IP configurado? obrigado Valdir [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] Comunicação entre aplicação
DDE até onde eu sei é comunicação entra aplicações rodando na mesma máquina. Se a aplicação estiver no servidor você não consegue acessar via DDE (Acredito eu). De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Evandro Ricardo Silvestre Enviada em: quinta-feira, 10 de julho de 2008 14:21 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Comunicação entre aplicação Helder Marques wrote: Veja este exemplo http://delphi.about.com/od/windowsshellapi/a/wm_copydata.htm?nl=1 http://delphi.about.com/od/windowsshellapi/a/wm_copydata.htm?nl=1 How to Send Information (String, Image, Record) Between Two Applications --- Grande Helder, Acho que isso vai solucionar o meu problema. Vou testar. Obrigado Evandr [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Dúvida com Record
Muito legal as perguntas e respostas! Eu ainda diria para você tomar de costume sempre que possível inicializar variáveis. É uma boa prática de programação e evita problemas futuros. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao Morais Enviada em: sexta-feira, 4 de julho de 2008 15:37 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Dúvida com Record Guionardo Furlan wrote: TReg = record private FInicializado: Boolean; FData: array of string; function GetCount: Integer; function SetCount(const Value: Integer); public property Count: Integer read GetCount write SetCount; property Data[Index: Integer] read GetData write SetData; end; snip 1. Quando eu defino uma variável com o tipo TReg, o campo FInicializado Booleano é *sempre* criado como False? Ao instanciar uma classe, sim. Record eu me arrisco a dizer que não, uma vez que ele não tem uma rotina de inicialização como uma classe. Se a variável desse record for global, possivelmente ele será inicializado. Se for dentro de uma procedure, function ou method, mais provável que não. 2. Após vários processos em que o tamanho da array de strings FData é modificado, pode ocorrer vazamento de memória? Não. Array dinâmico possui contagem de referência e ele é destruído tão logo saia de escopo, assim como acontece com ansi strings. Num sistema, criei um record similar a este, e depois disso, começaram a aparecer mensagens do FastMM falando sobre vazamento de memória com tipos string, que não estou conseguindo identificar. Você cria alguma coisa dinamicamente, tal como instância de classes ou através da procedure new? Talvez a string esteja em um array, e este array esteja associado a alguma outra área de memória, tal como um objeto ou uma variável dinâmica? No NG, recebi dicas para utilizar classes ao invés de records, mas foi o que me pareceu mais econômico, já que as variáveis record serão acessadas localmente, dentro de outras classes. A única economia ao utilizar record é não precisar instanciar, e seus métodos receberem um parâmetro a menos (que no caso da classe é o ponteiro da instância) mas será que realmente vale a economia? Joao Morais [As partes desta mensagem que não continham texto foram removidas]
RES: [OT] - Re: [delphi-br] Função para Atualizar Estoque
Isso é um tremendo absurdo! Esse seu post é um tiro no próprio pé. É por esses pensamentos generalistas, absurdos e sem falta de critério que entramos nessas discussões bestas. Eu programo desde os 16 anos de idade e sempre fui atrás do que quis saber! Sempre pesquisei, nunca pedi NADA de mão beijada. Se alguém me dava algo de mão beijada eu enchia o saco da pessoa até que ela me explicasse o que fez por que eu QUERO APRENDER. Realmente ninguém sabe tudo, mas para trabalhar nessa área você tem que saber o básico. E percebe-se que algumas pessoas nem o básico sabem. Como você vai dar uma dica para uma pessoa que não entende algo básico? Dica não vai resolver, assim como não resolveu para seu problema de importação. Programador medíocre com seus códigos absurdos, cara você já se olhou no espelho? Já revisou aquela rotina de importação que o Rubem REFEZ para você. Aquela que tentei ajudar e você ainda me soltou os cachorros dizendo Você deu a dica e não testou!. (Achas que tenho tempo para testar uma dica que você não entendeu?) Aquilo sim era um código medíocre. Agora nem quero imaginar como deve ser esse sistema. Aliás MAIS MAS. Além de ajudar as pessoas, muitas delas, temos que nos esforçar para entender seus hieróglifos portugueses. Outros escrevem como pensam e não relêem o que escrevem. Dificultando ainda mais quando tenta-se ajudar. Então meu amigo Itamar, reveja seus conceitos e corra atrás de seus problemas e não simplesmente jogue seus problemas no HELP DESK DELPHI-BR. PS: Existe uma regra no fórum que diz que a língua oficial é português e não dialetos portugueses. E tenho dito. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Itamar Souza Enviada em: quarta-feira, 2 de julho de 2008 08:30 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [OT] - Re: [delphi-br] Função para Atualizar Estoque Minha sincera opinião. O pessoal da área de informática, principalmente os programadores são sempre assim, todo mundo acha que sabe muito, mais sabe apenas aquilo que sempre fez, tem muito programador experiente que escreve muitas linhas de código para fazer coisas simples e só ele consegue entender o que fez. Aqui neste fórum basta ter uma pergunta que a maioria acha simples ou não coerente para que muitos usem isso como ponto para criticas, porque não vão tentar ajudar? Porque não perdem o seu valioso tempo com coisas úteis? Participo de outros fóruns e posso afirma que este e muito bom mais esta longe de ser o melhor, porque tem muita gente aqui que se acha o rei da cocada preta. O que mais tem e programador medíocre com seus códigos absurdos e sistemas lixo, sem documentação e sem padrão algum. E péssimo ter que falar estas coisas, pois sei que tem muita gente boa que realmente ajuda muito, mais a maioria não contribui em nada, apenas fica na espera da próxima vitima. Acho que está faltando está regra no fórum. Critica não vai ser a melhor solução, pois uma coisa que pode simples para alguns pode ser complexa para outros, ninguém sabe tudo. As pessoas que vencem neste mundo são as que procuram as circunstâncias de que precisam e, quando não as encontram, as criam. Bernard Shaw Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Função para Atualizar Estoque
Super Hyper MegaBOGA! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alexandre Rodrigues Enviada em: terça-feira, 1 de julho de 2008 17:33 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Função para Atualizar Estoque Amigo, não sei se você é novato, mas não existe e nunca vai existir uma função para atualizar estoque de forma genérica. Essa função quem tem e deve fazer é você. Só você sabe como seu sistema funciona, quais as tabelas, etc. Mas é claro que para criar uma função dessa é necessário saber programar e ter algum conhecimento de SQL. Não sei se é o seu caso, mas tem muita gente ai que acha que é programador por que sabe colocar 1/2 duzia de DBEdits em um formulário, liga-los a um datasource e este a um dataset. Ai quando coisa a aperta vem aqui pedir uma função ou componente de modo a resolver os seus problemas. Não me entenda mau, mas para ser um programador deve-se estudar muito, ler muito, dedicar-se muito. Sempre estamos dispostos a ajudar, principalmente os programadores novatos, mas para isso esqueça que sempre existe uma função ou componente que de maneira mágica ira resolver todos os seus problemas. Lucas Silva escreveu: Boa Tarde Gostaria de saber se alguem tem uma função no postgre ou mesmo no delphi para atualizar estoque. Fiz uma no meu sistema, mas dá pau, não funciona. Estou usando as seguintes tabelas e dados. O campo em vermelho é o que deve ser atualizado altomaticamente pela função. TABLE Produto Codigo_Produto INTEGER NOT NULL, Descricao_Produto VARCHAR(60) NOT NULL, Estoque_Minimo NUMERIC(8,2) NOT NULL, Preco_Unitario NUMERIC(8,2) NOT NULL, Estoque NUMERIC(8,2) NOT NULL, PRIMARY KEY (Codigo_Produto) TABLE Movimento Codigo_Movimento INTEGER NOT NULL, Data_Movimento DATE NOT NULL, Tipo_Movimento CHAR(1) NOT NULL, Codigo_Pessoa INTEGER NULL, PRIMARY KEY (Codigo_Movimento), FOREIGN KEY (Codigo_Pessoa) REFERENCES Pessoa TABLE Itens_Movimento Codigo_Itens_Movimento INTEGER NOT NULL, Qtde_Produto NUMERIC(8,2) NOT NULL, Preco_Produto NUMERIC(8,2) NOT NULL, Codigo_Movimento INTEGER NOT NULL, Codigo_Produto INTEGER NOT NULL, PRIMARY KEY (Codigo_Itens_Movimento) FOREIGN KEY (Codigo_Produto) REFERENCES Produto, FOREIGN KEY (Codigo_Movimento) REFERENCES Movimento Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: Res: [delphi-br] Detalhe so funciona se ouver pelo menos um registro no detalhe
Uma constraint não necessariamente é uma foreing key. Foreing Key é um tipo de constraint. Uma constraint é uma restrição que pode ser de vários tipos. A referida na mensagem APARENTEMENTE indica que está você está jogando valor NULL para PK que é naturalmente NOT NULL. Depure seu código e certifique-se disto. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Evaldo Enviada em: quinta-feira, 26 de junho de 2008 10:04 Para: delphi-br@yahoogrupos.com.br Assunto: Res: Res: [delphi-br] Detalhe so funciona se ouver pelo menos um registro no detalhe Bom dia, A chave estrangeira eh criada da seguinte forma: ALTER TABLE IDENTIFICACAO_FUNC ADD CONSTRAINT FK_IDENTIFICACAO_FUNC FOREIGN KEY (ID_FUNC) REFERENCES FUNCIONARIO (ID) ON DELETE CASCADE; e a chave primaria: ALTER TABLE IDENTIFICACAO_FUNC ADD CONSTRAINT PK_IDENTIFICACAO_FUNC PRIMARY KEY (ID); Parte da primeira para a segunda tabela. Obrigado pela atenção. -- Atenciosamente: Evaldo Avelar Marques Debian GNU/Linux. Pelo Prazer de ser Livre .~. / v \ / ( ) \ ^^-^^ - Mensagem original De: Willian Jhonnes Lara dos Santos [EMAIL PROTECTED] mailto:willianjhonnes%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 26 de Junho de 2008 9:50:34 Assunto: Res: [delphi-br] Detalhe so funciona se ouver pelo menos um registro no detalhe Olá, Evaldo... Seguinte: existe uma definição para chave estrangeira? Como ela seria? Parte da primeira para a segunda tabela ou vice-versa? Não uso firebird, mas geralmente erros como este estão vinculados à violação de chaves em campos-filho mandatórios. Pode ser este o seu problema... []'s - - - - --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolve dor Object/Free Pascal willianjhonnes@ yahoo.com. br - - - - --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 - - - - --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom - - - - --- - Mensagem original De: Evaldo evaldoavelar@ yahoo.com. br Para: [EMAIL PROTECTED] os.com.br Enviadas: Quinta-feira, 26 de Junho de 2008 9:32:10 Assunto: [delphi-br] Detalhe so funciona se ouver pelo menos um registro no detalhe Bom dia a todos, Estou com um problema muito estranho. tenho duas tabelas da seguinte forma: FUNCIONARIO( id, nome,telefone, endereco ); IDENTIFICACAO_ FUNC( ID, ID_FUNC, IMAGEM , BIOMETRIA, BIOMETRIA_OBRIGATOR IA ) Ate ai tudo bem, mas esse relacionamento só funciona se houver pelo menos um registro na tabela IDENTIFICACAO_ FUNC. Caso Contrário, caso contrario, quando a tabela IDENTIFICACAO_ FUNC esta vazia, não consigo gravar nada e recebo a seguinte mensagem de erro: SQL Error: validation error for column ID_FUNC, value *** null ***. Error Code: -625. The insert failed because a column definition includes validation constraints. The SQL: INSERT INTO IDENTIFICACAO_ FUNC (ID,ID_FUNC, IMAGEM,BIOMETRIA ,BIOMETRIA_ OBRIGATORIA) VALUES (?,?,?,?,?); Se houver pelo menos um registro , funciona perfeitamente. a estrutura é a seguinte: firebird 2.0, zeos e delphi 7 -- Atenciosamente: Evaldo Avelar Marques Debian GNU/Linux. Pelo Prazer de ser Livre .~. / v \ / ( ) \ ^^-^^ 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] 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] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [MAF] TComboBox no estilo csOwnerDrawFixed
Em vez de usar CsOwnerDrawFixed use CSDropDownList isto resolverá seu problema. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcos Abreu Ferreira Enviada em: quarta-feira, 25 de junho de 2008 22:23 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] [MAF] TComboBox no estilo csOwnerDrawFixed Pessoal, estou com um problema. Tenho um combobox com estilo csOwnerDrawFixed para que os usuário não possa digitar nada diferente das opções. Acontece que num campo na tabela esta somente salvo 'A' para ativo e 'I' para inativo, e quando vou fazer a seguinte opção if campo = 'A' cbComboBox.Text := 'Ativo' else cbComboBox.Text := 'Inativo'; não funciona, simplesmente ele traz em branco. Alguém saberia me dizer como posso resolver isso? Att, Marcos Ferreira [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Hint
Muito facil de explicar isso. Var Teste: integer; Begin Teste := 0; Teste := 1; End; Faça uma aplicação nova e coloque este codigo lá, vc verá que a mesma mensagem irá ocorrer. Ou seja, pra que atribuir 0 se vai atribuir 1 logo após? Se o compilador for inteligente o suficiente ele vai abstrair a primeira atribuição, caso contrário irá gerar uma atribuição desnecessária. Aconselho a não desligar warnings, elas são muito úteis para lembrar que você pode estar fazendo o que não deve. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Berdam Enviada em: quinta-feira, 26 de junho de 2008 11:49 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Hint obrgiado pela resposta pessoal, na verdade, essa variável eu uso, inicializei ela com zero e depois o record count da query. Não entendi o porque, mas quando tirei a linha de atribuição de zero para a variável, o hint parou de ser mostrado. Usando apenas o recordcount, funcnionou perfeitamente. Aliás, alguém sabe desse erro do recordCount no compoente TSQLQuery??? ContaEmpresas := 0; ContaEmpresas := dmCnx.qrExtras. RecordCount; -- Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com http://passandoveneno.blogspot.com -- --- Em qui, 26/6/08, Daniel Bastos [EMAIL PROTECTED] mailto:danbastos%40gmail.com escreveu: De: Daniel Bastos [EMAIL PROTECTED] mailto:danbastos%40gmail.com Assunto: Re: [delphi-br] Hint Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Quinta-feira, 26 de Junho de 2008, 11:42 Na verdade, um hint é apenas um aviso. E não tem relação com futuros erros. Neste caso, o hint te diz que o valor que foi atribuido a variável ContaEmpresas não foi utilizado. Então, se uma variável contem um valor que não será utilizado, pra que esta variável é necessária? 2008/6/26 Berdam berdamzinho@ yahoo.com. br: Galera, eu tenho a variável ContaEmpresas, do tipo Integer, quando compilo aparece um Hint dizendo Value assigned to 'ContaEmpresas' never used Como que posso retirar essas msg da compilação, certa vez ouvi falar que isso pode vir a ocasionar problema futuros. Confere isso?? ContaEmpresas := 0; ContaEmpresas := dmCnx.qrExtras. RecordCount; - - - - - - Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricul ar.com.br/ berdam Visite http://passandovene no.blogspot. com - - - - - - Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] -- Abs Daniel A. Bastos Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] erro no consulta Union
APARENTEMENTE, você está usando collation diferente para o campo nome em cada tabela. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alexsandro Enviada em: quinta-feira, 26 de junho de 2008 12:16 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] erro no consulta Union Boa tarde pessoal, Eu fiz uma Views Union, e esta dando o erro quando eu acrescento o campo 'nome' SELECT TipodeConta,data,nome FROM dbo.v_FluxPg1 UNION ALL SELECT TipodeCota,data,nome FROM dbo.V_FluxPR1 ERRO: Implicit Conversion of char value to char cannot be performed because the collation of the value is unresolved due to a collation conflict. Alguem conhece esse erro? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Qual a diferença entre as duas questões?
Olha cara a forma correta é a seguinte Var FrmTeste: TFrmTeste; Begin FrmTEste := TFrmTeste.Create(nil); Dessa forma você está instanciando o form e jogando o ponteiro para a variável. a outra forma está errada. Agora por que? Deixo a palavra para nosso amigo João Morais... De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe Henrique Enviada em: quinta-feira, 26 de junho de 2008 17:13 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Qual a diferença entre as duas questões? Olá amigos, qual a diferença de eu fazer: type Tteste = TFrmTeste; (..) Tteste := TFrmTeste.Create(nil); (..) de FrmTeste := TFrmTeste.Create(nil); (...) A primeira eu crio um tipo do Form, e crio normalmente, a segunda eu nao crio o tipo. Existe diferença entre os dois, além claro da forma de programar? []s -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com Sou a favor da lei LEI 607/2007 [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] Componente SaveDialog no Windows XP
Só um detalhe Adailson, O componente TSaveDialog não salva arquivo nenhum. Ele te traz uma caixa de diálogo bonitinha para o usuário informar o local na qual quer salvar o arquivo. Após isso o componente armazena o caminho escolhido pelo usuário em uma de suas propriedades. Através desta propriedade você consegue pegar o nome do arquivo e aí então salvar usando utilizando métodos savetofile. Ex: StringList.SaveToFile(); MemoryStream.SaveToFile(); Se há algum erro na hora que você salvar o arquivo, muito provavelmente é um erro de lógica do seu programa ou um erro de permissão do windows (sendo que este ultimo não deveria retornar AV). []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adailson Reis Rocha Enviada em: sexta-feira, 20 de junho de 2008 08:26 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Componente SaveDialog no Windows XP Estou gerando um aquivo .txt para importação e utilizo o savedialog para salvar o arquivo, na minha maquina (Windons 2000) o arquivo é salvo sem problema, mas, no XP da um erro de Access Violation. Eu debuguei o código e é realmente o componente que não consegue salvar o arquivo, fiz o teste usando o comando AssignFile(F, 'C:\teste.txt') e o arquivo é criado sem problema.Tenho quase certeza que tem haver com as permissões do Windows. Já verifiquei isso, fui na aba Segurança do diretório e dei controle total ao usuario e continua dando o mesmo erro.Se alguem souber como resolver isso fico muito agradecido att Adailson RochaProgramador __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br http://www.amigosdomessenger.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] TaskScheduler 2.0
Alguém da lista possui este arquivo taskschd.h ? ou talvez sua tradução para pascal? []'s Davi. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] TaskScheduler 2.0
Olá Rubem, Este arquivo eu já tenho e é referente a versão 1.0 (mstask.h) do TaskScheduler traduzido para pascal. Estou procurando o arquivo da versão 2.0 (taskschd.h) para traduzir para pascal, pois ainda não encontrei a forma traduzida. Thank you Anyways! []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: sexta-feira, 20 de junho de 2008 11:31 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] TaskScheduler 2.0 Prioridade: Alta ftp://ftp.delphi-jedi.org/api/TaskScheduler.zip ftp://ftp.delphi-jedi.org/api/TaskScheduler.zip Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br Date: Fri, 20 Jun 2008 10:04:08 -0300 Subject: [delphi-br] TaskScheduler 2.0 Alguém da lista possui este arquivo taskschd.h ? ou talvez sua tradução para pascal? []'s Davi. __ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack http://www.msn.com.br/emoticonpack [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Adeus, Windows XP...
Eduardo, Tenho vários amigos com essa mesma configuração de notebook que você falou, e nenhum deles reclama de lentidão. (eles reclamam de outras coisas rs..) Talvez, após rechea-lo com Office, Visual studio, Delphi e outros más deve ficar um pouco lento sim. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: sexta-feira, 20 de junho de 2008 15:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Adeus, Windows XP... é uma pena mesmo, testei o vista em um notebook hp core2duo com 2gb... meu deus.. muuuito lento. 2008/6/20 by Kohl (R) - Yahoo [EMAIL PROTECTED] mailto:bykohl%40yahoo.com.br : Pra quem tinha dúvidas sobre as intenções da Microsoft sobre o XP, leiam aqui: http://newsbykohl.blogspot.com/2008/06/windows-xp-descanse-em-paz.html http://newsbykohl.blogspot.com/2008/06/windows-xp-descanse-em-paz.html by Kohl (R) Blog: NewsByKohl.com http://newsbykohl.com/ http://newsbykohl.com/ Messenger: [EMAIL PROTECTED] mailto:byKohl%40Hotmail.com byKohl%40Hotmail.com Phone: +55-27-8837-5528 Vitoria - ES - Brazil [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Adeus, Windows XP...
Peraí, qualquer coisa é melhor que Win9x/ME, essa não foi uma boa comparação rs. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe Henrique Enviada em: sexta-feira, 20 de junho de 2008 16:29 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Adeus, Windows XP... Gente.. o negócio - acredito eu - que infelizmente é ir pro Vista, principalmente nós desenvolvedores... é como programar em Win98 pra WinXP... não tem como... vamos ter que acabar indo pro vista sim.. isso não tem como mudar, agora falar que o XP morreu, isso nunca... na minha cidade, tem gente ainda com o 95... fazer o que né!?! []s 2008/6/20 Luiz ESCobar [EMAIL PROTECTED] mailto:escobar%40megasistema.com.br : Só sabe configura-lo direitinho que ele não fica tão lento e nem tão chato. []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. (Rev. 8479) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 52) - 2008.05.26 -- From: Rubem Nascimento da Rocha Sent: Friday, June 20, 2008 4:09 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: RE: [delphi-br] Adeus, Windows XP... Meu humilde Acer Aspire 5570-2052 (a.k.a. Aspire 5570Z) veio com o Windows Vista. Não contei conversa. Formatei e instalei o Windows XP SP2. Atualmente ele tem o SP3. 100 vezes melhor do que aquela lerdeza do Vista, que alias quero tê-lo a perder de vista do meu notebook. Rodo nele Delphi, Office 2003, NetBeans e Eclipse. Detalhe, tem um Pentium dual-core de 1.73GHz e 1 GB de memória. Espero poder colocar 2GB de memória nele. Aí é que eu num quero saber de Windows Vista tão cedo! Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:adriano.tupa%40yahoo.com.br adriano.tupa%40yahoo.com.br Date: Fri, 20 Jun 2008 16:01:45 -0300 Subject: Re: [delphi-br] Adeus, Windows XP... O loko.. eu tenho o vista no meu note toshiba dual core... nao é nem core 2 duo... com 2Gb tbm e é rapido... - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, June 20, 2008 3:51 PM Subject: Re: [delphi-br] Adeus, Windows XP... é uma pena mesmo, testei o vista em um notebook hp core2duo com 2gb... meu deus.. muuuito lento. 2008/6/20 by Kohl (R) - Yahoo [EMAIL PROTECTED] mailto:bykohl%40yahoo.com.br bykohl%40yahoo.com.br : Pra quem tinha dúvidas sobre as intenções da Microsoft sobre o XP, leiam aqui: http://newsbykohl.blogspot.com/2008/06/windows-xp-descanse-em-paz.html http://newsbykohl.blogspot.com/2008/06/windows-xp-descanse-em-paz.html by Kohl (R) Blog: NewsByKohl.com Messenger: [EMAIL PROTECTED] mailto:byKohl%40Hotmail.com byKohl%40Hotmail.com Phone: +55-27-8837-5528 Vitoria - ES - Brazil __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com Sou a favor da lei LEI 607/2007 [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] Problema DBExpress
Cara essas DLL's não são ActiveX Libraries! Elas não tem esse ponto de entrada. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Filippe Maymone Enviada em: quinta-feira, 19 de junho de 2008 11:43 Para: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Problema DBExpress Eu coloquei e mesmo assim nada .. Se eu tentar registrar na maquina esta apresentando a seguinte mensagem: C:\WinNT\System32\dbxmss30.dll was loaded, but the DLlRegisterServer Entry Point Was not Found. DLlRegisterServer may not be exported, or a corrupt version of C:\WinNT\System32\dbxmss30.dll may be in memory. Cosider using PView to detect and remove it Pelo que eu entendi ele carregou mais o ponto de entrada não foi encontrado ... Alguem consegue me ajudar ??? abraços - Original Message - From: Jean Barreiros To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thursday, June 19, 2008 11:23 AM Subject: Res: [delphi-br] Problema DBExpress Cara tenta colocar as dlls na pasta system32... Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] mailto:jean%40comerciofsa.com.br e-mail: [EMAIL PROTECTED] mailto:delphijean%40gmail.com - Mensagem original De: Filippe Maymone [EMAIL PROTECTED] mailto:filippe_info%40globo.com Cc: [EMAIL PROTECTED] mailto:lista-delphi%40yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 19 de Junho de 2008 9:49:53 Assunto: [delphi-br] Problema DBExpress Galera bom dia, Estou tendo problemas com um sistema que esta conectando com o banco SQL SERVER via DBExpress. Ele funciona certinho em todas as maquinas XP, tem algumas maquinas Windows2000 Pro que não esta abrindo, fala que naum pode ser executado. As DLL´s ficam na mesma pasta do EXE, mesmo executando as DLL´s na marra, apresenta o problema. Alguem sabe me ajudar ??? Abraços, Filippe Maymone [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/ http://br.mail.yahoo.com/ [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]
RES: [delphi-br] Conexão externa em texto
Eu to tentando entender o que o COM tem a ver com carregar os parâmetros de conexão de um arquivo texto. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de itasouza Enviada em: terça-feira, 17 de junho de 2008 11:11 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Conexão externa em texto Bom dia a todos Para que eu possa ter uma conexão externa em texto e conseguir altera sem compilar novamente a aplicação posso delegar ao evento onCreate do DataModulo, a capacidade de ler um arquivo contendo parâmetros de configuração. Quando uso um serviço com, consigo fazer isso, mais estou usando DBExpress + SQLDataSet1 + DataSetProvider1 + ClientDataSet1 no mesmo datamodulo. Como eu conseguiria altera estas informações de forma que funcione sem o uso de um serviço com +? procedure TDataModulo.FormCreate(Sender: TObject); var caminho : String; begin caminho:= ExtractFileDir(ComServer.ServerFileName); SQLConn.Params.LoadFromFile(caminho + '\Conexao.txt'); end; Agradeço de alguém poder ajudar!! [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Conexão externa em texto
Ita, você está muito enrolado amigo! Eu sei que é COM e sei como carregar informações de conexão de um arquivo texto para o SQLCOnnection. O que eu não sei é por que você está misturando os dois? Pode ser só eu, mas não to entendendo exatamente o que você quer fazer. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de itasouza Enviada em: terça-feira, 17 de junho de 2008 11:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Conexão externa em texto Amigo bom dia Com e um serviço que roda no windows, e usado para separa a camada de acesso a dados da aplicação, o mesmo gera uma Dll, no data modulo eu posso colocar uma instrução que faz a leitura de um arquivo de configuração externo, a qual se refere a minha pergunta. Se você poder ajudar agradeço. Muito obrigado!! [As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: [delphi-br] Conexão externa em texto
Não esclareceu nada. Mas vou chutar uma solução... procedure TDataModulo.FormCreate(Sender: TObject); var caminho : String; begin caminho:= ExtractFileDir(Aplication.ExeName); SQLConn.Params.LoadFromFile(caminho + '\Conexao.txt'); end; é isso que você quer? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de itasouza Enviada em: terça-feira, 17 de junho de 2008 15:47 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: [delphi-br] Conexão externa em texto Blz... se você sabe o que e com e veriificar a minha 1 mensagem vai ver que eu tambem sei fazer esta conexao, a minha dúvida é, não estou usando COM com a apliacação atual, mais gostaria de fazer o mesmo processo de leitura de arquivo externo. Espero ter esclarecido. Agradeço [As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: RES: [delphi-br] Conexão externa em texto
Meu sapato preto!! Eu me descabelo pra tentar entender o que o cara está falando, ajudo ele, e ainda tenho que ler essas coisas! É João... você é o Rei da paciência! []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de itasouza Enviada em: terça-feira, 17 de junho de 2008 17:53 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: RES: [delphi-br] Conexão externa em texto Value Joao Morais Deu certo, realmente a falta de uso do help mais quem sabe sabe.. Muito grato!! [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Aí! 500 pila a solução pronta.
Aproveita que hoje estou generoso! Pode depositar nessa conta HSBC -
018-112888-8
function TFormMain.RegisterActiveXServer(const ServerLocation: string;
Register: Boolean): Boolean;
var
ServerDllRegisterServer: function: HResult; stdcall;
ServerDllUnregisterServer: function: HResult; stdcall;
ServerHandle: THandle;
procedure UnloadServerFunctions;
begin
@ServerDllRegisterServer := nil;
@ServerDllUnregisterServer := nil;
FreeLibrary(ServerHandle);
end;
function LoadServerFunctions: Boolean;
begin
Result := False;
ServerHandle := SafeLoadLibrary(ServerLocation);
if (ServerHandle 0) then
begin
@ServerDllRegisterServer := GetProcAddress(ServerHandle,
'DllRegisterServer');
@ServerDllUnregisterServer := GetProcAddress(ServerHandle,
'DllUnregisterServer');
if (@ServerDllRegisterServer = nil) or (@ServerDllUnregisterServer = nil)
then
UnloadServerFunctions
else
Result := True;
end;
end;
begin
Result := False;
try
if (LoadServerFunctions) then
try
case (Register) of
False: Result := ServerDllUnregisterServer = S_OK;
True: Result := ServerDllRegisterServer = S_OK;
end;
finally
UnloadServerFunctions;
end;
except
end;
end;
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem
Nascimento da Rocha
Enviada em: sexta-feira, 13 de junho de 2008 11:04
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Prioridade: Alta
Então, verifique um projeto de exemplo na pasta $(DELPHI)\Demos\ActiveX chamadp
TRegExpr.dpr. O código fonte desse projeto tem o que vc precisa pra fazer o
registro de DLLs (lógico, desde que as DLLs sejam do tipo COM!).
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:jericssonsup%40gmail.com
Date: Fri, 13 Jun 2008 01:10:14 -0300
Subject: Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Eu já estou usando dessa forma, mas como são 4 DLL e estou usando o registro
simultâneo em vários processos, está apresentando problemas e em algumas não
sei porque mesmo usando o /s esta aparecendo a msg para o usuário confirma.
2008/6/12 Rubem Nascimento da Rocha [EMAIL PROTECTED]
mailto:djpardalrocha%40hotmail.com :
Mas se ele fizer assim:
WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de
diálogo!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Thu, 12 Jun 2008 17:58:58 -0300
Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Para fazer isso sem chamar o executável vc tem que chamar o procaddress
referente ao método DLLRegisterServer da DLL que vc quer registrar.
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
Jorge Ericsson
Enviada em: quinta-feira, 12 de junho de 2008 17:01
Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi
Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa,
mas não gostaria de utilizar o comando
WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
Porque nesse caso registra mais fica a tela de confirmação pro usuário.
Se não me engano tem uma utni que faz isso, mas não estou encontrando a
danada...
Alguém já passou por esse problema e poderia ajudar-me ???
Valew,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
--
Att,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
__
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Before Save Project
Básico, Mantenha sempre o Sqlconnection como False, e de um true dentro da aplicação. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Juliano Silva - Yahoo Enviada em: quinta-feira, 12 de junho de 2008 13:28 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Before Save Project Pessoal Não sei se a pergunta é idiota, mas vamos lá, olha só existe alguma forma de informar que seja executado alguma coisa antes de salvar os fontes de meu projeto? Por exemplo quero setar a propriedade Conect := False de um componente TSQLConnection antes de salvar meu projeto, estou falando dos fontes mesmo, algumas vezes em produção por fazer testes etc... minha conexão com o banco termina ficando ativa, assim quanto gero um executável e vou colocar em outro terminal tenho um erro de conexão pois os caminhos do banco não são os mesmos... Sei que existe outras formas de fazer isso, como por exemplo no evento BeforeOpen do componente desconecta-lo... att. Juliano [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] URGENTE: Registrar DLL pelo delphi
Para fazer isso sem chamar o executável vc tem que chamar o procaddress
referente ao método DLLRegisterServer da DLL que vc quer registrar.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jorge
Ericsson
Enviada em: quinta-feira, 12 de junho de 2008 17:01
Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi
Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa,
mas não gostaria de utilizar o comando
WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
Porque nesse caso registra mais fica a tela de confirmação pro usuário.
Se não me engano tem uma utni que faz isso, mas não estou encontrando a
danada...
Alguém já passou por esse problema e poderia ajudar-me ???
Valew,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
[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] Quantidade de dias entre duas datas.
Dejavou! Se eu fizer uma data menos a outra, eu não vou ter uma nova data mas sim a quantidade dias entre elas. Ou seja! Não adianta vc converter 30 dias para uma Data! Pq 30 dias não é uma data! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alison Zen Enviada em: quarta-feira, 11 de junho de 2008 13:39 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Quantidade de dias entre duas datas. Oi Rubens oq acontece é o seguinte. Eu tenho um stringGrid onde que está informada as datas, oq eu tenho q fazer é o seguinte: É pegar essa data, que está como string, transformar para TDate calcular e depois apresentar como string novamente. Mais oq acontece é o seguinte, quando eu converto de string para data e subtraio, e depois converto de de data para string, o calculo me retorna o valor formatado como data, por exemplo: Data 1 = 01/01/2008 Data 2 = 31/01/2008 Subtraindo as duas datas, eu vou ter o valor de 30, quando eu converto novamente de string para data, ele me retorna o valor formatado, sendo 30/11/1899. Espero q eu tenha explicada de meneira correto e que vcs consiga entender. Abraços Alison Zen Em 11/06/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] mailto:djpardalrocha%40hotmail.com escreveu: Pq vc simplesmente não subtrai uma data da outra? Isso já te retorna a diferença em dias! Qual o problema em se fazer isso? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:galvaozen%40gmail.com galvaozen%40gmail.com Date: Wed, 11 Jun 2008 13:23:14 -0300 Subject: [delphi-br] Quantidade de dias entre duas datas. Boa tarde a todos, tudo bem? Trabalhamos com Delphi 5, e estamos precisando saber a quantidade de dias entre duas datas. Ex: Data 1 = 01/01/2008 Data 2 = 31/01/2008 Diferença entra datas de 30 dias. Fizemos alguns testes aqui e vimos que no delphi 5, não existe a conversão do tipo Data para Inteiro. No Delphi 7 sabemos que existe a função Daysbetween onde que a mesma retorna a quantidade de dias entre duas data, mais no delphi 5 não tem. Bom esperamos um retorna. Desde já muito obrigado. __ 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 -- -- Alison Galvão Zen Analista Desenvolvedor - Visionnaire - Virtus [EMAIL PROTECTED] mailto:alison%40visionnaire.com.br Visionnaire - Virtus Rua Engenheiro Roberto Fischer, 208 Parque de Software Prédio Central - Setor 2 - CIC Curitiba, PR 81250-025 Tel/Fax: +55 (41) 3337-1000 Brasil http://www.visionnaire.com.br http://www.virtus-ti.com.br -- [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] Autenticação do Usuário no De lphi
Defina NADA FUNCIONA, qual erro?
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andre
Farias
Enviada em: quarta-feira, 11 de junho de 2008 13:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Autenticação do Usuário no Delphi
ninguém sabe?
2008/6/11 algf103 [EMAIL PROTECTED] mailto:agfarias%40gmail.com :
E ai Pessoal,
Estou desenvolvendo uma aplicação Delphi que precisa autenticar o
usuário cada vez que roda o programa, mas não estou conseguindo.
Já chamei a função LogonUser, ADsOpenObject e LogonUserSSPI e nada
funciona.
LogonUser(Pchar(edUserID.Text),Pchar(edEnderIP.Text),
Pchar(edPassword.Text),
LOGON32_LOGON_INTERACTIVE,
LOGON32_PROVIDER_DEFAULT,
handle);
hr:=ADsOpenObject('LDAP://ENDERECOIP/CN=' + 'Users'
+ ',DC=CONTROLADOR_DO_ DOMINIO', NomUsu, SenUsu,
ADS_PROMPT_CREDENTIALS, IADs, obj);
O sistema operacional do servidor é windows 2003 server e a
aplicação cliente roda no windows xp professional.
Que pode estar acontecendo? Teria alguma maneira de chamar o prompt
do Windows Authentication para fazer essa autenticação?
Qualquer ajuda é bem-vinda.
Obrigado
André
[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] Padronização de Código
Para saber padronização de fonte, nada melhor do ler a VCL do Delphi! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcos Douglas Enviada em: terça-feira, 10 de junho de 2008 10:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Padronização de Código Giovanny, Segue os links do estilo Pascal de programar: http://dn.codegear.com/article/10280 http://dn.codegear.com/article/27983 Eu não utilizo este estilo. Prefiro o estilo Ruby de programar. Abraços Marcos Douglas 2008/6/10 Giovanny Carvalho [EMAIL PROTECTED] mailto:giovannycarvalho%40yahoo.com.br : Alguém sabe onde eu posso baixar ou encontrar informações sobre a padronização de códigos fonte utilizado pelo delphi. Eu já dei uma pesquisada básica e ví que ela utiliza o Infix Caps e Camel Caps. Na revista ClubeDelphi Nº 39 da umas dicas legais mais eu queria saber se há algo mais... Para aqueles que trabalham em equipe é uma boa dica utilizar essa padronização!!! Um abraço a todos... Giovanny Carvalho www.acmeinformatica.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [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] criar evento dinamicamente
Cara, o método pintar deve estar dentro de uma classe.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de felipe
govoni
Enviada em: segunda-feira, 9 de junho de 2008 14:26
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] criar evento dinamicamente
ja tentei de varias maneiras continua dando erro
acho q voce nao entendeu o meu erro vou tentar explicar
mais detalhadamente:
tenho um form chamado frmmonitorar
nele eu tenho um dbgrid q eu preciso q determinadas linhas
troquem de cor.
coloquei o seguinte codigo no onclick do botao:
dmGeral.qryBaixa.Close;
dmGeral.qryBaixa.Parameters.ParamByName('re_tecnico').Value := re;
dmGeral.qryBaixa.OnCalcFields := pintar;
dmGeral.qryBaixa.Open;
no mesmo form criei a seguinte procedure:
procedure Pintar(Dataset: TDataset);
begin
...
end;
a query esta num datamodule chamado dmgeral.
nao sei onde declarar isso
TdmGeral = class(TDataModule)
dentro da classe dmgeral pois esta tudo no frmmonitorar
apenas a query esta no datamodule.
desculpem a minha ignorancia!!!
[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] Ajuda numa função que retorna D ataSet.
Ai ai ai ai, ta faltando teoria Felipe! Só botar a mão na massa sem entender o
que está fazendo é perigoso.
Você vai ter que retirar aquele CQ.FREE de dentro de sua função.
Na outra ponta você faz assim:
Var
MeuDataSet: TDataSet;
Begin
MeuDataSet := RetDados('SELECT BLA FROM BLA');
try
//faço o que tenho que fazer
finally
MeuDataSet.Free;
End;
Felipe vc precisa de mais entendimento da linguagem e de ponteiros, que é
necessário para praticar uma boa programação.
Sugiro a você comprar algum livro de Delphi e estudar mais.
[]'s
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe
Henrique
Enviada em: segunda-feira, 9 de junho de 2008 15:56
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda numa função que retorna DataSet.
Mas Rubem, isso eu havia entendido, porém.. se eu der um RetDados.Free;
estarei liberando meu cQ que está dentro da função? E tipo, não tem como eu
passar os dados, fechar a Query, liberar ela, e os dados permanecerem não?
Minha preocupação é com o desenrolar do sistema, muitas querys abertas sem
fechar..
[]s
2008/6/9 Rubem Nascimento da Rocha [EMAIL PROTECTED]
mailto:djpardalrocha%40hotmail.com :
É óbvio que tá dando erro! Preste atenção! Vc está liberando uma consulta
que está sendo o retorno da sua função. Se vc libera a consulta, logo vai
estar liberando o retorno! Esse é o erro! A consulta não deve ser liberada!
Atente para isso!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com
Date: Mon, 9 Jun 2008 15:47:04 -0300
Subject: [delphi-br] Ajuda numa função que retorna DataSet.
Olá amigos, estou criando uma função, que me retorne um DataSet, com o
resultado de um SQL passado como parametro, porém não estou conseguindo..
estou fazendo assim:
function RetDados(sSQL: string): TDataSet;
var
cQ: TIBCQuery;
cT: TIBCTransaction;
begin
cT := TIBCTransaction.Create(nil);
cT.AddConnection(DM.Conexao);
cQ := TIBCQuery.Create(nil);
cQ.Transaction := cT;
cQ.UpdateTransaction := cT;
cQ.UniDirectional := True;
try
cQ.SQL.Text := sSQL;
cQ.Open;
Result := cQ;
finally
cQ.Free;
cT.Free;
end;
end;
Porém, sempre me retorna NIL, pois de qualquer forma passa no cQ.Free, e
estou achando que quando faz isso eu perco o resultado. Seria isso mesmo?
Se
for, como concerto isso?
Desde já agradeço.
[]s
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com
Sou a favor da lei LEI 607/2007
__
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
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com
Sou a favor da lei LEI 607/2007
[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] criar evento dinamicamente
Isso se deve ao fato que você não ter esse método implementado, você só possui
a declaração.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de felipe
govoni
Enviada em: segunda-feira, 9 de junho de 2008 15:57
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] criar evento dinamicamente
mas da o seguinte erro:
unsafistied foward or external declaration: 'TfrmMonitorar.pintar'
2008/6/9 Joao Morais [EMAIL PROTECTED] mailto:post%40joaomorais.com.br :
felipe govoni wrote:
tenho um form chamado frmmonitorar
nele eu tenho um dbgrid q eu preciso q determinadas linhas
troquem de cor.
coloquei o seguinte codigo no onclick do botao:
dmGeral.qryBaixa.Close;
dmGeral.qryBaixa.Parameters.ParamByName('re_tecnico').Value := re;
dmGeral.qryBaixa.OnCalcFields := pintar;
dmGeral.qryBaixa.Open;
no mesmo form criei a seguinte procedure:
procedure Pintar(Dataset: TDataset);
begin
...
end;
Aí é que está o erro. altere a declaração para isto aqui:
procedure TSeuForm.Pintar(Dataset: TDataset);
begin
...
end;
e dentro do seu form, na área private, declare isso aqui:
private
procedure Pintar(Dataset: TDataset);
end;
É isto.
--
Joao Morais
a query esta num datamodule chamado dmgeral.
nao sei onde declarar isso
TdmGeral = class(TDataModule)
dentro da classe dmgeral pois esta tudo no frmmonitorar
apenas a query esta no datamodule.
--
Felipe Govoni
-
Programador
Fone 8472-8718
[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] Ajuda numa função que retorna D ataSet.
Você pode fazer isso mas de qualquer forma vc vai ter que liberar essa memória.
with RetDados('select * from cliente') do
begin
ShowMessage(FieldByName('RAZAO').AsString);
Free; ß AKI
end;
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe
Henrique
Enviada em: segunda-feira, 9 de junho de 2008 16:11
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda numa função que retorna DataSet.
Davi, na verdade queria usar algo simples, sem ter que declarar nada, no
estilo:
with RetDados('select * from cliente') do
begin
ShowMessage(FieldByName('RAZAO').AsString);
end;
Seria pra facilitar, visto que, já tenho uma função que faz isso, porém
tenho que declarar variavel, igual vc me mostrou, mas queria simplificar,
claro se for possível.. :o)
[]s
2008/6/9 Davi Eduardo Borges Wall [EMAIL PROTECTED]
mailto:davi.wall%40mult.com.br :
Ai ai ai ai, ta faltando teoria Felipe! Só botar a mão na massa sem
entender o que está fazendo é perigoso.
Você vai ter que retirar aquele CQ.FREE de dentro de sua função.
Na outra ponta você faz assim:
Var
MeuDataSet: TDataSet;
Begin
MeuDataSet := RetDados('SELECT BLA FROM BLA');
try
//faço o que tenho que fazer
finally
MeuDataSet.Free;
End;
Felipe vc precisa de mais entendimento da linguagem e de ponteiros, que é
necessário para praticar uma boa programação.
Sugiro a você comprar algum livro de Delphi e estudar mais.
[]'s
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br] Em nome de
Fellipe Henrique
Enviada em: segunda-feira, 9 de junho de 2008 15:56
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda numa função que retorna DataSet.
Mas Rubem, isso eu havia entendido, porém.. se eu der um RetDados.Free;
estarei liberando meu cQ que está dentro da função? E tipo, não tem como eu
passar os dados, fechar a Query, liberar ela, e os dados permanecerem não?
Minha preocupação é com o desenrolar do sistema, muitas querys abertas sem
fechar..
[]s
2008/6/9 Rubem Nascimento da Rocha [EMAIL PROTECTED]
mailto:djpardalrocha%40hotmail.com djpardalrocha%40hotmail.commailto:
djpardalrocha%40hotmail.com djpardalrocha%2540hotmail.com :
É óbvio que tá dando erro! Preste atenção! Vc está liberando uma consulta
que está sendo o retorno da sua função. Se vc libera a consulta, logo vai
estar liberando o retorno! Esse é o erro! A consulta não deve ser
liberada!
Atente para isso!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:fellipeh%40gmail.com
fellipeh%40gmail.com mailto:
fellipeh%40gmail.com fellipeh%2540gmail.com fellipeh%40gmail.com
Date: Mon, 9 Jun 2008 15:47:04 -0300
Subject: [delphi-br] Ajuda numa função que retorna DataSet.
Olá amigos, estou criando uma função, que me retorne um DataSet, com o
resultado de um SQL passado como parametro, porém não estou conseguindo..
estou fazendo assim:
function RetDados(sSQL: string): TDataSet;
var
cQ: TIBCQuery;
cT: TIBCTransaction;
begin
cT := TIBCTransaction.Create(nil);
cT.AddConnection(DM.Conexao);
cQ := TIBCQuery.Create(nil);
cQ.Transaction := cT;
cQ.UpdateTransaction := cT;
cQ.UniDirectional := True;
try
cQ.SQL.Text := sSQL;
cQ.Open;
Result := cQ;
finally
cQ.Free;
cT.Free;
end;
end;
Porém, sempre me retorna NIL, pois de qualquer forma passa no cQ.Free, e
estou achando que quando faz isso eu perco o resultado. Seria isso mesmo?
Se
for, como concerto isso?
Desde já agradeço.
[]s
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com
mailto:fellipeh%40gmail.comfellipeh%2540gmail.com
fellipeh%40gmail.com
Sou a favor da lei LEI 607/2007
__
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
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com
mailto:fellipeh%40gmail.comfellipeh%2540gmail.com
Sou a favor da lei LEI 607/2007
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com
Sou a favor da lei LEI 607/2007
[As partes desta mensagem
RES: [delphi-br] Ajuda numa função que retorna D ataSet.
Como falei, Fellipe, vc tem que estudar mais o mecanismo de acesso a dados,
para entender o porque dessas coisas.
Perdão pela franqueza, mas fica difícil dar aula de Delphi em um grupo de
discussão.
Você realmente tem que aprender certas coisas estudando, testando e tentando.
Todas as suas dúvidas de perguntas recentes você poderia ter sanado criando um
programinha e testando separadamente.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem
Nascimento da Rocha
Enviada em: segunda-feira, 9 de junho de 2008 16:30
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] Ajuda numa função que retorna DataSet.
Prioridade: Alta
Uma coisa é liberar uma instância de um objeto de consulta. Outra coisa é
finalizar uma transação.
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:fellipeh%40gmail.com
Date: Mon, 9 Jun 2008 16:28:50 -0300
Subject: Re: [delphi-br] Ajuda numa função que retorna DataSet.
Beleza galera, valeu.. minha duvida era se eu dar o Free no RetDados, ele
iria dar no cQ de dentro da função.. :D...
O problema agora, é a transacao... quando eu der o Free na funcao RetDados,
tudo nela é liberado, inclusive a transacao?
[]s
2008/6/9 Joao Morais [EMAIL PROTECTED] mailto:post%40joaomorais.com.br :
Fellipe Henrique wrote:
Davi, na verdade queria usar algo simples, sem ter que declarar nada, no
estilo:
with RetDados('select * from cliente') do
begin
ShowMessage(FieldByName('RAZAO').AsString);
end;
with RetDados('select * from cliente') do
try
ShowMessage(FieldByName('RAZAO').AsString);
finally
Free;
end;
Sugestão da casa: economize nos with, use com moderação.
--
Joao Morais
Seria pra facilitar, visto que, já tenho uma função que faz isso, porém
tenho que declarar variavel, igual vc me mostrou, mas queria simplificar,
claro se for possível.. :o)
[]s
2008/6/9 Davi Eduardo Borges Wall [EMAIL PROTECTED]
mailto:davi.wall%40mult.com.br
:
Ai ai ai ai, ta faltando teoria Felipe! Só botar a mão na massa sem
entender o que está fazendo é perigoso.
Você vai ter que retirar aquele CQ.FREE de dentro de sua função.
Na outra ponta você faz assim:
Var
MeuDataSet: TDataSet;
Begin
MeuDataSet := RetDados('SELECT BLA FROM BLA');
try
//faço o que tenho que fazer
finally
MeuDataSet.Free;
End;
Felipe vc precisa de mais entendimento da linguagem e de ponteiros, que
é
necessário para praticar uma boa programação.
Sugiro a você comprar algum livro de Delphi e estudar mais.
[]'s
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
40yahoogrupos.com.br] Em nome de
Fellipe Henrique
Enviada em: segunda-feira, 9 de junho de 2008 15:56
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
40yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda numa função que retorna DataSet.
Mas Rubem, isso eu havia entendido, porém.. se eu der um RetDados.Free;
estarei liberando meu cQ que está dentro da função? E tipo, não tem como
eu
passar os dados, fechar a Query, liberar ela, e os dados permanecerem
não?
Minha preocupação é com o desenrolar do sistema, muitas querys abertas
sem
fechar..
[]s
2008/6/9 Rubem Nascimento da Rocha [EMAIL PROTECTED]
mailto:djpardalrocha%40hotmail.com
djpardalrocha%40hotmail.com :
É óbvio que tá dando erro! Preste atenção! Vc está liberando uma
consulta
que está sendo o retorno da sua função. Se vc libera a consulta, logo
vai
estar liberando o retorno! Esse é o erro! A consulta não deve ser
liberada!
Atente para isso!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:fellipeh%40gmail.com
fellipeh%40gmail.com
Date: Mon, 9 Jun 2008 15:47:04 -0300
Subject: [delphi-br] Ajuda numa função que retorna DataSet.
Olá amigos, estou criando uma função, que me retorne um DataSet, com o
resultado de um SQL passado como parametro, porém não estou
conseguindo..
estou fazendo assim:
function RetDados(sSQL: string): TDataSet;
var
cQ: TIBCQuery;
cT: TIBCTransaction;
begin
cT := TIBCTransaction.Create(nil);
cT.AddConnection(DM.Conexao);
cQ := TIBCQuery.Create(nil);
cQ.Transaction := cT;
cQ.UpdateTransaction := cT;
cQ.UniDirectional := True;
try
cQ.SQL.Text := sSQL;
cQ.Open;
Result := cQ;
finally
cQ.Free;
cT.Free;
end;
end;
Porém, sempre me retorna NIL, pois de qualquer forma passa no cQ.Free,
e
estou achando que quando faz isso eu perco o resultado. Seria isso
mesmo?
Se
for, como concerto isso?
Desde já agradeço.
[]s
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com
2540gmail.com
Sou a favor da
RES: [delphi-br] MDIChilds alternando como alt+tab
Cara, acho que existe uma tecla padrão..não to lembrado agora.. Tenta ... Ctrl tab ou shift tab De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Dival @ QS Enviada em: sexta-feira, 6 de junho de 2008 08:50 Para: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br Assunto: [delphi-br] MDIChilds alternando como alt+tab Se uma aplicação MDI necessita abrir vários forms MDIChild, e todos ocupam a tela toda, existe algum jeito de se alternarem entre um e outro, assim como o ALT+TAB do windows ? Dival Zambon Junior Quirius Sistemas de Informática Ltda [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] Calc a qtd de dias,horas,min, entre duas datas ??
Quando vc subtrai 2 datetime’s, vc já tem essa informação De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Flavio Enviada em: sexta-feira, 6 de junho de 2008 09:05 Para: Grupo_Delphi Assunto: [delphi-br] Calc a qtd de dias,horas,min, entre duas datas ?? Olá pessoal, bom dia, o meu problema é o seguinte: tenho duas datas e obtenho a diferença entre elas (isso é ocorrido no sql e é retornado um campo com o resultado dessa diferença). Agora desejo obter a qtd de dias,hora,min desse valor retornado pelo sql. Acredito eu q os dias eu obtenho atribuindo a um inteiro esse valor. Nesse caso, ele atribui os dias desse valor. Agora as horas,min eu não tenho idéia... Alguém sabe como proceder nessa situação ? Obrigado pela atenção de todos, Abraços, Flávio. 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] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Serviço não Inicia
Cara, leia o código do Consultores Software e entenda o que ele codificou.
Se você entender, vc vai perceber que aquilo ali simula um timer.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael
Marques
Enviada em: sexta-feira, 6 de junho de 2008 13:35
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Serviço não Inicia
mas no meu caso terei q usar o Timer, pq d uma em uma hora terei q enviar
registros de um BD pra outro local.
- Original Message -
From: Consultores Software
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, June 06, 2008 1:19 PM
Subject: Re: [delphi-br] Serviço não Inicia
No OnExecute, tente fazer algo assim, ao invés de usar Timer :
const
Segundos = 60;
begin
while not Terminated do begin
Sender.ServiceThread.ProcessRequests(false);
// Escreva aqui o que o serviço deve fazer
Sleep(Segundos * 1000);
end; // while not Terminated
Sender.ReportStatus;
Para usar o ShowMessage, se não me engano, você deve ir nas propriedades do
serviço no painel de controle e permitir que ele interaja com a área de
trabalho.
2008/6/6 Rafael Marques [EMAIL PROTECTED]
mailto:rafael.matriz%40terra.com.br :
oi!!
eu fiz o comando abaixo e funcionou blzz, aparece como registrado e
funcionando na lista de servicos, mas o mesmo n funciona
eu coloquei só pra testar um Timer com showmessage (d 30 em 30 segundos).
Coloquei pra habilitar o timer no OnExecute. e nada!!! rs
vc tem ideia do q pode ser?!?!?
- Original Message -
From: Consultores Software
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
Sent: Friday, June 06, 2008 10:09 AM
Subject: Re: [delphi-br] Serviço não Inicia
Tente colocar a seguinte procedure no evento AfterInstall : (acrescentar
Registry no uses)
procedure TServico.ServiceAfterInstall(Sender: TService);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create(KEY_READ or KEY_WRITE);
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\' + Name, false) then
begin
Reg.WriteString('Description', descricao_do_servico);
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;
2008/6/6 Rafael Marques [EMAIL PROTECTED]
mailto:rafael.matriz%40terra.com.br rafael.matriz%40terra.com.br
:
apos eu dar o comando de install nao aparece msg nenhuma, o sinistro é q
em algumas dessas vzs q tentei dar o comando, imediatamente eu dava o
Ctrl +
Alt + Del pra verificar na lista d processos, aí ele apareceria mas sumia
da
lista em 1 ou 2 segundos.
- Original Message -
From: Consultores Software
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br
Sent: Friday, June 06, 2008 8:35 AM
Subject: Re: [delphi-br] Serviço não Inicia
Colega, verifique o seguinte:
1. Após o comando nome_do_servico /install deverá aparecer uma mensagem
dizendo que o serviço foi instalado com sucesso
2. Após o passo anterior, vá em Painel de Controle - Ferramentas
Administrativas - Serviços e veja se o serviço está lá. O nome do
serviço é o mesmo da propriedade DisplayName
3. Tente iniciar o serviço. Normalmente, se der erro, o windows mostra
uma
mensagem avisando e gera uma entrada no log de eventos.
2008/6/6 Rafael Marques [EMAIL PROTECTED]
mailto:rafael.matriz%40terra.com.br rafael.matriz%40terra.com.br
rafael.matriz%40terra.com.br
:
Bom Dia
estou tentando desenvolver aq um programa, q funcionará como um serviço
no
windows, para pegar dados d um BD. O mesmo não terá forms.
meu problema é o seguinte: este serviço não está iniciando no windows.
Mesmo eu dando o comando c:\x.exe /install, Eu vou ver e n tem
nada
iniciado. No delphi eu pedi Service Application para desenvolver.
alguem sabe o pq
mto obrigado
Rafael
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Atualizado em 05/06/2008
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Atualizado em 06/06/2008
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Atualizado em 06/06/2008
[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] Serviço não Inicia
Rafael,
Serviços não deveriam ter interação com usuário, ou seja, você não pode dar
showmessage pois vai travar sua aplicação.
Por que você não pega um exemplo na internet de como criar um serviço para
Windows utilizando Delphi,
tenho certeza que você vai encontrar vários exemplos. É muito mais fácil do que
ficar perguntando para lista a cada passo que você dá.
Procure também literatura sobre serviços do Windows para saber o que deve ou
não deve ser feito.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael
Marques
Enviada em: sexta-feira, 6 de junho de 2008 15:24
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Serviço não Inicia
eu coloquei aq o while conforme me passou no exemplo (e um showmessage dentro)
, mas o mesmo só aparece qdo paro o serviço la na janela d serviços do
windows!!! meu processo só é executado qdo eu paro tudo ! rs
o q será q pode ser?!??!
- Original Message -
From: Rafael Marques
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, June 06, 2008 2:23 PM
Subject: Re: [delphi-br] Serviço não Inicia
hmmm desculpe-me eu n havia entendido direito o funcionamento do while not
Terminated
agora sim ficou claro
mto obrigado
- Original Message -
From: Consultores Software
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, June 06, 2008 1:59 PM
Subject: Re: [delphi-br] Serviço não Inicia
Mas assim mesmo, o Sleep pode servir como timer.
No exemplo que te mandei, o serviço fica dormindo por 1 minuto até
executar o próximo laço.
Se você quer executar os passos de hora, basta multiplicar por 60 o
parâmetro que está sendo passado para o Sleep.
Eu tb uso esse serviço para envio de dados entre bancos diferentes em
servidores diferentes. Apenas que, no meu caso, há um horário ( no formato
hh:mm ) configurado para o processo iniciar, e, a cada minuto, o serviço
compara a hora corrente com o horário configurado para saber se deve
executar.
2008/6/6 Rafael Marques [EMAIL PROTECTED]
mailto:rafael.matriz%40terra.com.br :
mas no meu caso terei q usar o Timer, pq d uma em uma hora terei q
enviar registros de um BD pra outro local.
- Original Message -
From: Consultores Software
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
Sent: Friday, June 06, 2008 1:19 PM
Subject: Re: [delphi-br] Serviço não Inicia
No OnExecute, tente fazer algo assim, ao invés de usar Timer :
const
Segundos = 60;
begin
while not Terminated do begin
Sender.ServiceThread.ProcessRequests(false);
// Escreva aqui o que o serviço deve fazer
Sleep(Segundos * 1000);
end; // while not Terminated
Sender.ReportStatus;
Para usar o ShowMessage, se não me engano, você deve ir nas propriedades do
serviço no painel de controle e permitir que ele interaja com a área de
trabalho.
2008/6/6 Rafael Marques [EMAIL PROTECTED]
mailto:rafael.matriz%40terra.com.br rafael.matriz%40terra.com.br
:
oi!!
eu fiz o comando abaixo e funcionou blzz, aparece como registrado e
funcionando na lista de servicos, mas o mesmo n funciona
eu coloquei só pra testar um Timer com showmessage (d 30 em 30 segundos).
Coloquei pra habilitar o timer no OnExecute. e nada!!! rs
vc tem ideia do q pode ser?!?!?
- Original Message -
From: Consultores Software
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br
Sent: Friday, June 06, 2008 10:09 AM
Subject: Re: [delphi-br] Serviço não Inicia
Tente colocar a seguinte procedure no evento AfterInstall : (acrescentar
Registry no uses)
procedure TServico.ServiceAfterInstall(Sender: TService);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create(KEY_READ or KEY_WRITE);
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\' + Name, false) then
begin
Reg.WriteString('Description', descricao_do_servico);
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;
2008/6/6 Rafael Marques [EMAIL PROTECTED]
mailto:rafael.matriz%40terra.com.br rafael.matriz%40terra.com.br
rafael.matriz%40terra.com.br
:
apos eu dar o comando de install nao aparece msg nenhuma, o sinistro é
q
em algumas dessas vzs q tentei dar o comando, imediatamente eu dava o
Ctrl +
Alt + Del pra verificar na lista d processos, aí ele apareceria mas
sumia
da
lista em 1 ou 2 segundos.
- Original Message -
From: Consultores Software
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br
Sent: Friday, June 06, 2008 8:35 AM
Subject: Re: [delphi-br] Serviço não Inicia
Colega, verifique o seguinte:
1. Após o comando nome_do_servico /install deverá aparecer uma
mensagem
RES: [delphi-br] Deletar .DCU / .~pas e tc...
Ola Sandro, Essa procedure lista os arquivos de um diretório de acordo com a mascara informada e te retorna em um stringlist. ListarArquivos(aMask: string; aSt: TStringList); var sr: TSearchRec; begin aSt.Clear; if FindFirst(aMask, faAnyFile - faDirectory, sr) = 0 then begin try repeat aSt.Add(sr.Name); until FindNext(sr) 0; finally FindClose(sr); end; end; end []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Sandro Ricardo Enviada em: sexta-feira, 6 de junho de 2008 15:42 Para: Undisclosed-Recipient:; Assunto: [delphi-br] Deletar .DCU / .~pas e tc... Prioridade: Alta Olá amigos Delphianos, Queria pedir uma ajuda, que me indicassem o 'caminho das pedras', 'pelo que procurar', que aí eu corro atrás. O problema é o seguinte: para mandar o projeto para o controle de versões, é exigido que eu 'delete' todos os arquivos . dcu os .exe e todos os de backup(.~pas , .~dfm...). Sei que posso salvar em pastas diferentes, mas são muitos projetos e muitas subpastas já feitos. Pensei em criar um programa em que eu desse a pasta inicial e ele fosse verificando as pastas abaixo e deletando esses arquivos. Agradeço Abraços Sandro Ricardo [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] Por que não consigo utilizar o de lphi com projetos em um PenDrive U3?
Novamente esse assunto? Por que você não salva os arquivos normalmente no seu HD e depois copia pro teu PEN-DRIVE? Só pra te lembrar um Pen-Drive tem vida útil. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe Henrique Enviada em: quinta-feira, 5 de junho de 2008 08:31 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Por que não consigo utilizar o delphi com projetos em um PenDrive U3? Amigos, tinha um pendrive normal, e usava normalmente com um projeto nele, abria no delphi sem problemas, agora que mudei pra um pen-drive com tecnologia U3, simplesmente o delphi não gosta dele... ao salvar vem erro falando que não consegue renomear Arquivo.$$$ pra Arquivo.pas ou .dfm...uma bagunça... porque disso? Uso windows xp sp3... e não tenho segurança nenhuma de usuários e tals.. []s -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com Sou a favor da lei LEI 607/2007 [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] Problemas com o Componente TXmlDocument
Ai ai ai ai ... isso é problema de lógica, faltou o laço.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de
icefusion11
Enviada em: quinta-feira, 5 de junho de 2008 10:21
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Problemas com o Componente TXmlDocument
Olá...gostaria de gerar algo do tipo!
--
cobranca
fatura
numero1/numero
valorOriginal,00/valorOriginal
valorDesconto0/valorDesconto
valorLiquido,00/valorLiquido
/fatura
duplicata
numero1/A/numero
vencimento2008-06-15/vencimento
valor,00/valor
/duplicata
duplicata
numero1/B/numero
vencimento2008-06-30/vencimento
valor,00/valor
/duplicata
/cobranca
porém quando faço isso com o componente ele só pega o último valor da
duplicata!!!
o meu código está desta forma!!!
--
procedure TF_Nfe.BitBtn1Click(Sender: TObject);
var
xml : TXMLDocument;
no_cobranca : IXMLNode;
begin
xml:=TXMLDocument.Create(nil);
xml.Active:=TRUE;
no_cobranca:=xml.DocumentElement.AddChild('cobranca');
no_cobranca.ChildNodes['fatura'].ChildNodes['numero'].NodeValue:=edCobNumNF.Text;
no_cobranca.ChildNodes['fatura'].ChildNodes['valorOriginal'].NodeValue:=edCobValorTotal.Text;
no_cobranca.ChildNodes['fatura'].ChildNodes['valorDesconto'].NodeValue:=edCobDesconto.Text;
no_cobranca.ChildNodes['fatura'].ChildNodes['valorLiquido'].NodeValue:=edCobVlLiquido.Text;
no_cobranca.ChildNodes['duplicata'].ChildNodes['numero'].NodeValue:=edCobDuplicata1.Text;
no_cobranca.ChildNodes['duplicata'].ChildNodes['vencimento'].NodeValue:=edCobVencto1.Text;
no_cobranca.ChildNodes['duplicata'].ChildNodes['valor'].NodeValue:=edCobParValor1.Text;
no_cobranca.ChildNodes['duplicata'].ChildNodes['numero'].NodeValue:=edCobDuplicata2.Text;
no_cobranca.ChildNodes['duplicata'].ChildNodes['vencimento'].NodeValue:=edCobVencto2.Text;
no_cobranca.ChildNodes['duplicata'].ChildNodes['valor'].NodeValue:=edCobParValor2.Text;
no_cobranca.ChildNodes['duplicata'].ChildNodes['numero'].NodeValue:=edCobDuplicata3.Text;
no_cobranca.ChildNodes['duplicata'].ChildNodes['vencimento'].NodeValue:=edCobVencto3.Text;
no_cobranca.ChildNodes['duplicata'].ChildNodes['valor'].NodeValue:=edCobParValor3.Text;
no_cobranca.ChildNodes['duplicata'].ChildNodes['numero'].NodeValue:=edCobDuplicata4.Text;
no_cobranca.ChildNodes['duplicata'].ChildNodes['vencimento'].NodeValue:=edCobVencto4.Text;
no_cobranca.ChildNodes['duplicata'].ChildNodes['valor'].NodeValue:=edCobParValor4.Text;
empresa:=cbCodEmpresa.Items[cbCodEmpresa.ItemIndex];
nome_arquivo:='G:\NotaNet\nfe\nota\'+empresa+'_'+edNumeroNF.Text+'.xml';
xml.SaveToFile(nome_arquivo);
xml.Active:=False;
xml:=nil;
end;
--
com esse código ele gera tudo corretamente, apenas quando existe
repetição igual no caso da duplicata.ou se houver vários
produtos...quando é 1 só ele gera normal...certinho!!!
É claro que ae só estão as informações de fatura da nota fiscal...tem
o corpo da nota, cabeçalho, rodapétudo certinho...
desde já obrigado!!
--
o resultado do código acima é o seguinte:
cobranca
fatura
numero1/numero
valorOriginal,00/valorOriginal
valorDesconto0/valorDesconto
valorLiquido,00/valorLiquido
/fatura
duplicata
numero1/B/numero
vencimento2008-06-30/vencimento
valor,00/valor
/duplicata
/cobranca
[As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Gravar caminho de imagens no registro do windows
Eu não entendi. Que parâmetro? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de itasouza Enviada em: quinta-feira, 5 de junho de 2008 16:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Gravar caminho de imagens no registro do windows Amigos.. Apos determinar o caminho da pasta onde será gravado as imagens tenho em uma outra tela um comando de inserir a imagem. Onde consigo gravar a imagem na pasta configurada no parametro. O problema e que o sistema só reconhece uma alteração feita no parametro se fechar o sistema e abri-lo novamente, alguém saberia como fazer esta atualização de forma automática? Agradeço a ajuda!! [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] - Resolvido...Questão do XmlDocument...
Mas amigo vc não ta criando mais 1 nó.
Se o nó numero não existir ele vai criar, se existir ele vai alterar. Ou seja,
vc está sempre alterando o mesmo nó, então com certeza vai aparecer somente o
último.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de
icefusion11
Enviada em: quinta-feira, 5 de junho de 2008 15:33
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] - Resolvido...Questão do XmlDocument...
ao invés de colocar
for i:=1 to 4 do begin
no_cobranca.ChildNodes['fatura'].ChildNodes['numero'].NodeValue:=inttostr(i);
end;
ou colocar
no_cobranca.ChildNodes['fatura'].ChildNodes['numero'].NodeValue:=inttostr(1);
no_cobranca.ChildNodes['fatura'].ChildNodes['numero'].NodeValue:=inttostr(2);
no_cobranca.ChildNodes['fatura'].ChildNodes['numero'].NodeValue:=inttostr(3);
no_cobranca.ChildNodes['fatura'].ChildNodes['numero'].NodeValue:=inttostr(4);
--
eu posso colocar assim:
no_cobranca.AddChild('fatura').ChildNodes['numero'].NodeValue:=inttostr(1);
no_cobranca.AddChild('fatura').ChildNodes['numero'].NodeValue:=inttostr(2);
no_cobranca.AddChild('fatura').ChildNodes['numero'].NodeValue:=inttostr(3);
no_cobranca.AddChild('fatura').ChildNodes['numero'].NodeValue:=inttostr(4);
--
ou assim
for i:=1 to 4 do begin
no_cobranca.AddChild('fatura').ChildNodes['numero'].NodeValue:=inttostr(i);
end;
--
Obrigado a todos!!!
[As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: [delphi-br] Gravar caminho de imagens no registro do windows
Ué, altere o sistema para reconhecer a alteração sem precisar ser reiniciado? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Itamar Souza Enviada em: quinta-feira, 5 de junho de 2008 16:57 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: [delphi-br] Gravar caminho de imagens no registro do windows Desculpa, não expressei bem.. O que quis dizer e o seguinte.. após gravar o novo caminho para armazenar as imagens, o sistema só reconhece esta alteração apos ser reiniciado. alguém saberia como fazer esta atualização de forma automática? Davi Eduardo Borges Wall [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br escreveu: Eu não entendi. Que parâmetro? 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 itasouza Enviada em: quinta-feira, 5 de junho de 2008 16:24 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Gravar caminho de imagens no registro do windows Amigos.. Apos determinar o caminho da pasta onde será gravado as imagens tenho em uma outra tela um comando de inserir a imagem. Onde consigo gravar a imagem na pasta configurada no parametro. O problema e que o sistema só reconhece uma alteração feita no parametro se fechar o sistema e abri-lo novamente, alguém saberia como fazer esta atualização de forma automática? Agradeço a ajuda!! [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] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Compra de Delphi 2007 Win32 e Delphi For PHP 2.0 no exterior. [off-topic] - [offt] - [offtopic] - [ot]
Minha nossa senhora do guape! (como diz minha vó) Quem aqui disse que o D7 é melhor de D2007? Isso não tem nada a ver com a thread! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael Jorge Enviada em: terça-feira, 3 de junho de 2008 18:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Compra de Delphi 2007 Win32 e Delphi For PHP 2.0 no exterior. [off-topic] - [offt] - [offtopic] - [ot] cara.. dizer que o delphi 7 é melhor que o 2007? tipo.. um carro 1999 é melhor que um carro de 2007? sera que nao houve melhorias? sera que nao existem coisas novas? coisas mais faceis? ou so pq o painel do novo carro o conta giro é do outro lado vou ficar no meu mesmo de 1999? só meu ponto de vista.. t+ 2008/6/3 Bruno Lichot [EMAIL PROTECTED] mailto:bruno.lichot%40codegear.com : http://dn.codegear.com/article/37460 From: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Davi Eduardo Borges Wall Sent: terça-feira, 3 de junho de 2008 17:59 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: RES: [delphi-br] Compra de Delphi 2007 Win32 e Delphi For PHP 2.0 no exterior. [off-topic] - [offt] - [offtopic] - [ot] Opa! Acho que você se enganou! Eu não uso D5 ... uso D7. Quem usa D5 é o Paulo do Batalhão. Adoro D7 =) já utilizei o D2007Trial e não gostei muito. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: terça-feira, 3 de junho de 2008 17:55 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Assunto: Re: [delphi-br] Compra de Delphi 2007 Win32 e Delphi For PHP 2.0 no exterior. [off-topic] - [offt] - [offtopic] - [ot] Oque ha de errado com seu Delphi 5 Davi? ja testou o Delphi 2007? 2008/6/3 Davi Eduardo Borges Wall [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br davi.wall%40mult.com.br mailto:davi.wall%40mult.com.br davi.wall%2540mult.com.br mailto: davi.wall%40mult.com.br davi.wall%2540mult.com.br : Cuida com a alfandega! De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Paulo Batalhão Enviada em: terça-feira, 3 de junho de 2008 17:17 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Compra de Delphi 2007 Win32 e Delphi For PHP 2.0 no exterior. [off-topic] - [offt] - [offtopic] - [ot] Prioridade: Alta Amigos, boa tarde! Em outubro irei para os EUA e Canada (estudos de duas semanas) e pretendo comprar por lá as licenças do delphi 2007 win32 (pro) e do delphi for php 2.0 ... o que vocês acham ? lá é muito melhor (mais barato) do que aqui para adquirir estas licenças ? será que em NY (USA) / Toronto/Quebec (canada) acho lojas que comercializam os produtos Borland/CodeGear/Embarcadero ??? Por que meu Delphi 5 tá ph*da! Desde já agradeço. Att' Paulo Batalhão [EMAIL PROTECTED] mailto:batalhao%40live.com batalhao%40live.commailto:batalhao%40live.combatalhao%2540live.com mailto:batalhao%40live.com batalhao%2540live.com batalhao%40live.com mailto:batalhao%40live.com batalhao%2540live.combatalhao%2540live.com www.cogira.com - www.leafhost.net - www.fusame.com.br - www.saudeamericana.com.br - www.google.com.br * Compra de Delphi 2007 Win32 e Delphi For PHP 2.0 no exterior. [off-topic] - [offt] - [offtopic] - [ot] 0101010100101101010101010 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27
RES: [delphi-br] Oracle:Query gigante não é ex ecutada.Erro:'fim de arquivo no canal de comun icação' PQ ?
Só uma coisa... você chegou a ver se o tablespace não está cheio ? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Flavio Enviada em: quarta-feira, 4 de junho de 2008 15:47 Para: Grupo_Delphi; [EMAIL PROTECTED] Assunto: [delphi-br] Oracle:Query gigante não é executada.Erro:'fim de arquivo no canal de comunicação' PQ ? Olá pessoal, boa tarde, uma query é construída no meu sistema e adicionada ao TOraQuery (+- = ao TADOQuery), porém, quando é chamado o método Prepare() antes de executá-la, fica processando muito e gera dois tipos de mensagem de erro: Erro ORA-04031: não é possível alocar 20 bytes de memória compartilhada (shared pool,SELECT ,sql area,logdef : apaclg). e Erro ORA-03113: fim de arquivo no canal de comunicação. Essa query é imensamente grande, então peguei o sql q é criado em tempo de execução e tentei executá-lo fora do meu sistema, diretamente no Oracle 9i. Gerou uma mensagem falando que 'não serão mais lidos dados do sockete'. Mas quando coloco menos informações na query para diminuí-la, ocorre tudo corretamente. Acredito que seja por causa do tamanho da query q é executada tudo de uma vez só. Alguém tem alguma solução, dica, sugestão, ou algo que possa me ajudar ? É crucial isso para mim estar funcionando. Obrigado pela atenção de todos, Abraços, Flávio. 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] [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Sockets
Eu não sou nenhum especialista em programação TCP. Mas o que eu imagino é que você pode descender do TSocketServer criar uma propriedade TimeOut. Onde você de tempos em tempos cria uma thread que da um ping em todas as conexões para verificar quais estão ativas. Aquelas que não responderem dentro do tempo de TimeOUt estão desconectadas. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alisson Enviada em: segunda-feira, 2 de junho de 2008 18:09 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Sockets Se não existe essa propriedade, existe alguma maneira de configurar o timeout? Neste componente não existe essa propriedade. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Listando computadores na Rede usando WNetOpenEnum e WNetEnumResource
Olá pessoal, Temos uma rotina que lista os computadores da rede. Ela já existe a algum tempo e basicamente testamos no WinXP onde funciona sem maiores problemas. Fomos pegos de surpresa quando tentamos utilizar esta rotina em um Win2003 SERVER. Ela não funciona. Retorna HResult = 259 que indica ERROR_NO_MORE_ITEMS. O que não está correto. Já corri no MSDN, dn.codegear e os códigos lá encontrados não deram a luz que eu precisava! Alguém da lista já utilizou as API's WNetOpenEnum e WNetENumResource? Precisava trocar umas idéias a respeito. []'s Davi Wall. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Calcular o módulo de um NUM em SQL
ABS(); De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Flavio Enviada em: terça-feira, 3 de junho de 2008 16:18 Para: [EMAIL PROTECTED]; Grupo Sql Server 2000; Grupo_Delphi Assunto: [delphi-br] Calcular o módulo de um NUM em SQL Olá galera, bom dia, quero obter o módulo de um número calculado em um comando sql. Por exemplo, '2' ou '-2' é '2'. Alguém conheçe alguma função para isso ?! Abraços, Flávio. 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] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Compra de Delphi 2007 Win32 e Delphi For PHP 2.0 no exterior. [off-topic] - [offt] - [offtopic] - [ot]
Cuida com a alfandega! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo Batalhão Enviada em: terça-feira, 3 de junho de 2008 17:17 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Compra de Delphi 2007 Win32 e Delphi For PHP 2.0 no exterior. [off-topic] - [offt] - [offtopic] - [ot] Prioridade: Alta Amigos, boa tarde! Em outubro irei para os EUA e Canada (estudos de duas semanas) e pretendo comprar por lá as licenças do delphi 2007 win32 (pro) e do delphi for php 2.0 ... o que vocês acham ? lá é muito melhor (mais barato) do que aqui para adquirir estas licenças ? será que em NY (USA) / Toronto/Quebec (canada) acho lojas que comercializam os produtos Borland/CodeGear/Embarcadero ??? Por que meu Delphi 5 tá ph*da! Desde já agradeço. Att' Paulo Batalhão [EMAIL PROTECTED] mailto:batalhao%40live.com www.cogira.com - www.leafhost.net - www.fusame.com.br - www.saudeamericana.com.br - www.google.com.br * Compra de Delphi 2007 Win32 e Delphi For PHP 2.0 no exterior. [off-topic] - [offt] - [offtopic] - [ot] 0101010100101101010101010 [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] vb x Delphi
Não precisar reescrever rotinas novamente a cada nova versão da ferramenta. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de fabio_giro Enviada em: terça-feira, 3 de junho de 2008 17:38 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] vb x Delphi Por favor, só respondam quem conhece estas duas ferramentas. Trabalho com delphi há 11 anos (fiz o curso de Delphi2 e desde então venho trabalhando com esta ferramenta) e a 3 anos a empresa que trabalho se juntou a outra que tem alguns sistemas em VB. Hoje o gerente veio me perguntar quais as vantagens do Delphi em relação ao VB (acho que ele quer converter os programas para Delphi). Disse dos componentes, que o programa pode que roda em desktop, pode rodar em internet (via tcp/ip), não precisa gerar instalador sempre que coloca um componente novo, mostrei o sqlconnection, escreve-se menos, multi-camadas. Só que programo sozinho fazendo sistemas desktop e não sei todas vantagens do Delphi. Amanhã vou ter uma reunião com ele e gostaria de ir com mais argumentos para convencê-lo. Poderiam me ajudar. REPETINDO: Por favor, só respondam quem conhece estas duas ferramentas. Agradço antecipadamente. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] vb x Delphi
Não é possível criar DLL's nativas no VB ? tem certeza? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 3 de junho de 2008 17:53 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] vb x Delphi Prioridade: Alta . Desenvolvimento em camadas variado e praticamente nativo dentro do Delphi - Não ficamos apenas na opção de usar DCOM, no caso do VB. Com Delphi, podemos usar DCOM, comunicação via Sockets, SOAP(webservice) ou CORBA; . Delphi permite criar DLLs estáticas de 32 bits e DLLs do tipo COM: no VB, só se consegue criar DLLs do tipo COM; . Linguagem fortemente baseada em orientação a objetos - o VB não contempla verdadeiramente alguns conceitos importantíssimos que em Delphi se consegue implementar, como herança e polimorfismo; . Variedade de subsídios para desenvolvimento RAD visual para web - ActiveForms e VCL for the Web(a.k.a. IntraWeb) para desenvolvimento web em plataforma Win32 e desenvolvimento em ASP.NET usando Delphi language. Para plataformas win32, desenvolvimento web em VB é improdutivo; . Código gerado com totalmente nativo e de alta performance - Muitas aplicações VB necessitam de run-time para efetuar o deploy; . Grande variedade de projetos free/open source para Delphi em relação ao VB. A priori, são as que eu consigo me lembrar no momento. Já desenvolvi em VB 6 pro mais de 2 anos. Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:fabio_giro%40yahoo.com.br Date: Tue, 3 Jun 2008 20:38:07 + Subject: [delphi-br] vb x Delphi Por favor, só respondam quem conhece estas duas ferramentas. Trabalho com delphi há 11 anos (fiz o curso de Delphi2 e desde então venho trabalhando com esta ferramenta) e a 3 anos a empresa que trabalho se juntou a outra que tem alguns sistemas em VB. Hoje o gerente veio me perguntar quais as vantagens do Delphi em relação ao VB (acho que ele quer converter os programas para Delphi). Disse dos componentes, que o programa pode que roda em desktop, pode rodar em internet (via tcp/ip), não precisa gerar instalador sempre que coloca um componente novo, mostrei o sqlconnection, escreve-se menos, multi-camadas. Só que programo sozinho fazendo sistemas desktop e não sei todas vantagens do Delphi. Amanhã vou ter uma reunião com ele e gostaria de ir com mais argumentos para convencê-lo. Poderiam me ajudar. REPETINDO: Por favor, só respondam quem conhece estas duas ferramentas. Agradço antecipadamente. __ 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 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Compra de Delphi 2007 Win32 e Delphi For PHP 2.0 no exterior. [off-topic] - [offt] - [offtopic] - [ot]
Opa! Acho que você se enganou! Eu não uso D5 ... uso D7. Quem usa D5 é o Paulo do Batalhão. Adoro D7 =) já utilizei o D2007Trial e não gostei muito. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: terça-feira, 3 de junho de 2008 17:55 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Compra de Delphi 2007 Win32 e Delphi For PHP 2.0 no exterior. [off-topic] - [offt] - [offtopic] - [ot] Oque ha de errado com seu Delphi 5 Davi? ja testou o Delphi 2007? 2008/6/3 Davi Eduardo Borges Wall [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br : Cuida com a alfandega! De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Paulo Batalhão Enviada em: terça-feira, 3 de junho de 2008 17:17 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Compra de Delphi 2007 Win32 e Delphi For PHP 2.0 no exterior. [off-topic] - [offt] - [offtopic] - [ot] Prioridade: Alta Amigos, boa tarde! Em outubro irei para os EUA e Canada (estudos de duas semanas) e pretendo comprar por lá as licenças do delphi 2007 win32 (pro) e do delphi for php 2.0 ... o que vocês acham ? lá é muito melhor (mais barato) do que aqui para adquirir estas licenças ? será que em NY (USA) / Toronto/Quebec (canada) acho lojas que comercializam os produtos Borland/CodeGear/Embarcadero ??? Por que meu Delphi 5 tá ph*da! Desde já agradeço. Att' Paulo Batalhão [EMAIL PROTECTED] mailto:batalhao%40live.com batalhao%40live.com mailto:batalhao%40live.combatalhao%2540live.com www.cogira.com - www.leafhost.net - www.fusame.com.br - www.saudeamericana.com.br - www.google.com.br * Compra de Delphi 2007 Win32 e Delphi For PHP 2.0 no exterior. [off-topic] - [offt] - [offtopic] - [ot] 0101010100101101010101010 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [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] Dúvida.
Olá, Bom, o pessoal deu aí algumas dicas de como fazer o que você está com dúvidas. Ainda eu aconselharia a você dar uma olhada em Normalização de tabelas. Existem 5 regras básicas de normalização que seria ideal você seguir em seu projeto. Procure na web você vai encontrar bastante assunto sobre isso. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de nullycampos2 Enviada em: sexta-feira, 30 de maio de 2008 17:09 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Dúvida. Espero que possam me ajudar, ficaria muito agradecida. Tenho algumas dúvidas referentes, a alguns campos de tabela. Estou desenvolvendo um Sistema de Gerenciamento de um Escola. Eu teria que criar uma tabela Endereço para Endereço do Aluno, e outra tabela Endereço para Endereço dos Professores? Ou poderia na mesma tabela inserir dois Campos Endereco_Aluno e Endereco-Professor? Desde já agradeço. Estou utilizando as tabelas do Interbase. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criar arquivo Auto-Extract para gerar uma instalação
Olá! Gostaria de saber se alguém tem alguma dica de pesquisa para este assunto. Comecei meus trabalhos em um instalador e estou fazendo pesquisas na internet a respeito da geração de um auto-descompactador. Conversei com um colega sobre o assunto. A idéia básica aparentemente seria criar um software gerador, onde eu iria vincular o arquivo que quero descompactar ao do RES de um arquivo executável (auto-extract) pré criado. Onde esse arquivo pré criado teria a capacidade de retirar esse arquivo de seu próprio RES e gerá-lo em algum diretório. Encontrei uma biblioteca chamada Bind2Exe que faz exatamente isso! Mas por duas razões eu não gostaria de utilizá-la. 1) Ela é paga; 2) Eu gostaria de aprender a fazer; Se alguém já teve experiência com esse assunto ou sabe onde possa pesquisar tal coisa já ajudaria! []'s [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Criar arquivo Auto-Extract para ger ar uma instalação
Perfect! É exatamente isso que eu queria. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: segunda-feira, 2 de junho de 2008 10:03 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Criar arquivo Auto-Extract para gerar uma instalação Prioridade: Alta http://delphi.about.com/od/objectpascalide/a/stub.htm http://www.delphi3000.com/articles/article_3419.asp Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Date: Mon, 2 Jun 2008 09:48:51 -0300 Subject: Re: [delphi-br] Criar arquivo Auto-Extract para gerar uma instalação O Componente TBackFile da EC Software faz isso e é free, da um pesquisada ai se nao achar te anvio. 2008/6/2 Davi Eduardo Borges Wall [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br : Olá! Gostaria de saber se alguém tem alguma dica de pesquisa para este assunto. Comecei meus trabalhos em um instalador e estou fazendo pesquisas na internet a respeito da geração de um auto-descompactador. Conversei com um colega sobre o assunto. A idéia básica aparentemente seria criar um software gerador, onde eu iria vincular o arquivo que quero descompactar ao do RES de um arquivo executável (auto-extract) pré criado. Onde esse arquivo pré criado teria a capacidade de retirar esse arquivo de seu próprio RES e gerá-lo em algum diretório. Encontrei uma biblioteca chamada Bind2Exe que faz exatamente isso! Mas por duas razões eu não gostaria de utilizá-la. 1) Ela é paga; 2) Eu gostaria de aprender a fazer; Se alguém já teve experiência com esse assunto ou sabe onde possa pesquisar tal coisa já ajudaria! []'s [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Criar arquivo Auto-Extract p ara gerar uma instalação
Ooops! Obrigado! =) De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: segunda-feira, 2 de junho de 2008 10:36 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] Criar arquivo Auto-Extract para gerar uma instalação Prioridade: Alta De nada! :-( Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br Date: Mon, 2 Jun 2008 10:09:35 -0300 Subject: RES: [delphi-br] Criar arquivo Auto-Extract para gerar uma instalação Perfect! É exatamente isso que eu queria. 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 Rubem Nascimento da Rocha Enviada em: segunda-feira, 2 de junho de 2008 10:03 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RE: [delphi-br] Criar arquivo Auto-Extract para gerar uma instalação Prioridade: Alta http://delphi.about.com/od/objectpascalide/a/stub.htm http://www.delphi3000.com/articles/article_3419.asp Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Date: Mon, 2 Jun 2008 09:48:51 -0300 Subject: Re: [delphi-br] Criar arquivo Auto-Extract para gerar uma instalação O Componente TBackFile da EC Software faz isso e é free, da um pesquisada ai se nao achar te anvio. 2008/6/2 Davi Eduardo Borges Wall [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br : Olá! Gostaria de saber se alguém tem alguma dica de pesquisa para este assunto. Comecei meus trabalhos em um instalador e estou fazendo pesquisas na internet a respeito da geração de um auto-descompactador. Conversei com um colega sobre o assunto. A idéia básica aparentemente seria criar um software gerador, onde eu iria vincular o arquivo que quero descompactar ao do RES de um arquivo executável (auto-extract) pré criado. Onde esse arquivo pré criado teria a capacidade de retirar esse arquivo de seu próprio RES e gerá-lo em algum diretório. Encontrei uma biblioteca chamada Bind2Exe que faz exatamente isso! Mas por duas razões eu não gostaria de utilizá-la. 1) Ela é paga; 2) Eu gostaria de aprender a fazer; Se alguém já teve experiência com esse assunto ou sabe onde possa pesquisar tal coisa já ajudaria! []'s [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... __ 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 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Sockets
Imagino que por esse motivo existe o Connection TimeOut? Ou seja se houver inatividade por um determinado tempo (que pode ser configurado) vc dropa a conexão desse indivíduo. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de lucaoliveira7 Enviada em: segunda-feira, 2 de junho de 2008 15:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Sockets Pessoal, É o seguinte estou usando o SeverSocket da paleta Internet do Delphi para criar um programa que receba pacotes. Até aí tudo beleza, recebe envia resposta tudo tranquilo. O problema é que fiz um teste e nele percebi que seu eu for o computador client e tirar o cabo da rede não consigo ver que o client desconectou, caso eu simplesmente feche o client, a aplicação server me dá uma mensagem de desconexão, ou seja, se for desconectado por vias normais eu vejo o server me avisando caso contrário simplesmente some e não vejo nada. E o pior, se vou no prompt e digito netstat -n percebo que a conexão ainda está lá. Bom as duvidas são: tem como eu descobrir que um client foi desconectado msm ser for via anormal. tem como eu saber o número da conexão e por ultimo, tem como eu liberar do windows as conexões inativas. Grato. [As partes desta mensagem que não continham texto foram removidas]
RES: Res: [delphi-br] Criando dm
OU TALVEZ... o pessoal está tão ocupado trabalhando e não tem tempo pra responder??? Type TipoDM = (tdCadastro, tdConsultas, tdRelatorios, tdCustom, tdBla); Procedure CriaMeuDM(MeuDM: TipoDM); Begin Case meuDM of tdCadastro: Begin CriarDMCadastro; end; tdConsultas: Begin CriarDMConsultas; end; tdRelatorios: Begin CriarDMRelatorios; end; ... ... end; End; De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Berdam Enviada em: sexta-feira, 30 de maio de 2008 11:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Res: [delphi-br] Criando dm será que isso é tão difícil assim galera, ou o pessoal que sabe não quer responder?? Jean Barreiros [EMAIL PROTECTED] mailto:delphijean%40yahoo.com.br escreveu: Cara aho que basta você usar isso: if not Assigned(dmCadastros) then dmCadastros := TdmCadastros. Create(Self) ; Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] mailto:jean%40comerciofsa.com.br e-mail: [EMAIL PROTECTED] mailto:delphijean%40gmail.com - Mensagem original De: Berdam [EMAIL PROTECTED] mailto:berdamzinho%40yahoo.com.br Para: Delphi delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 30 de Maio de 2008 9:46:01 Assunto: [delphi-br] Criando dm Galera, eu tenho que testar se o dm está criado ou não, eu fiz essa função abaixo, tem alguma maneira de fazer isso genérico?? Será que não tem alguma maneira de criar o dm apenas passando nome, eu até fiz a função, mas não fui pra frente no momento em que testo o tipo dele (Tdatamodule) , alguém por favor pode dar uma ajuda?? procedure TFSinprod.CriaDm( dm:String) ; begin if dm = 'dmcadastros' then if not Assigned(dmCadastro s) then begin dmCadastros := TdmCadastros. Create(Self) ; end end; - - - - - - Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe - - --- http://www.curricul ar.com.br/ berdam Visite http://passandovene no.blogspot. com - - - - - - - - --- 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! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe - http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com -- - 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]
RES: [delphi-br] Como utilizar o BackTrace ?
Na verdade não é um conceito mas uma feature que a IDE provê. Acredito que o que o joão ta se referindo é o Call stack do Delphi. CTRL+ALT+S. Muito útil na resolução de problemas. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Flavio Enviada em: quinta-feira, 29 de maio de 2008 08:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Como utilizar o BackTrace ? Olá pessoal, bom dia, O João Morais comentou nesse tópico sobre o backtrace. Para mim é um conceito novo, mas procurei ele e não consegui localizar na IDE do Delphi. Alguém pode resumir para que serve, onde está e como utilizar ele ? Alguém pode me auxiliar nessa ferramenta ? Obrigado pela atenção de todos. Flávio. Joao Morais [EMAIL PROTECTED] mailto:post%40joaomorais.com.br escreveu: Flavio wrote: Olá pessoal, boa tarde, necessito saber a linha que ocorreu a exceção em determinada parte do programa. É possível ? Através do programa madExcept consigo, porém se tiver algum try e catch na parte do programa que está sendo executada, a janela do madExcept não exibe, ou seja, preciso comentar manualmente todos os trys e catchs, o que é aborrecedor. Alguém sabe uma maneira simples e prática ? pq deve existir... O meu programa processa muita informação, então debugar de uma determinada parte do programa é totalmente inviável. Alguém me auxilia nessa questão ? Ou se existe algum outro modo de poder debugar à partir de onde gera a exceção ? Quando você tem informações de debug na unit que causa o erro e você define que quer parar a aplicação a cada exceção, a ide abre a unit e posiciona na linha em que o erro ocorre. Tendo feito isto, você ainda pode ver um backtrace que é a oitava maravilha do mundo para entender o porque do erro. O que mais você precisa? Joao Morais - 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]
RES: [delphi-br] Re: Socket Server
Dica: faça threads para cada conexão. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de lucaoliveira7 Enviada em: quarta-feira, 28 de maio de 2008 10:16 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Socket Server José Mário, Eu não estou usando threads. Não sei se deveria usar. 95% da lógica está no evento OnClientRead do Serversocket. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Socket Server
Se você não utilizar threads, quando uma requisição estiver sendo processada, as outras ficaram esperando e provavelmente irão cair por time out (dependendo do tamanho do problema) O ideal seria sempre criar 1 thread por conexão. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Davi Eduardo Borges Wall Enviada em: quarta-feira, 28 de maio de 2008 10:22 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Socket Server Dica: faça threads para cada conexão. 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 lucaoliveira7 Enviada em: quarta-feira, 28 de maio de 2008 10:16 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Re: Socket Server José Mário, Eu não estou usando threads. Não sei se deveria usar. 95% da lógica está no evento OnClientRead do Serversocket. [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] Componente ou classe para manipular Sql's
Só pra te ajudar na procura. Isso pode ser encontrado por Parser SQL. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo Lima Enviada em: quarta-feira, 28 de maio de 2008 12:04 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Componente ou classe para manipular Sql's Alguem conhece algum componente ou classe para manipular Sql's, por exemplos adicionar clausulas where, order by etc... Obrigado. At. Ricardo Lima [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Linha da Exceção ?
Assertion não captura erro. Ele é usado para capturar comportamento fora do padrão na sua rotina. Por exemplo. Você sabe que certa rotina não pode gerar um certo dado maior que o numero 30. Você introduz um Assert indicando que certa variável deve ser menor que 30. Quando acontecer de determinada variável ser maior que 30 ele joga um Assertion Failure, Indicando a linha do Assert. O que não pesquisei e também não sei é o que ele traz de ganhos sobre um teste normal. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Berdam Enviada em: quarta-feira, 28 de maio de 2008 17:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Linha da Exceção ? eu posso estar enganado, mas n tem um negócio chamado assertions que mostra em que linha o erro ocorre?? Andrei Luís [EMAIL PROTECTED] mailto:compuvale.software%40gmail.com escreveu: Essa seria uma boa questão para alguém da Borland/CodeGear/Embarcadero se manifestar. Já fui atrás disso a um tempo atrás e bati no mesmo madExcept ou outros programas. Seria que o Andreano ou o Bruno poderiam nos apontar alguma solução que pudéssemos implementar ao invés de usar programas de terceiros? [] Andrei 2008/5/28 Flavio [EMAIL PROTECTED] mailto:fqs21%40yahoo.com.br : Olá pessoal, boa tarde, necessito saber a linha que ocorreu a exceção em determinada parte do programa. É possível ? Através do programa madExcept consigo, porém se tiver algum try e catch na parte do programa que está sendo executada, a janela do madExcept não exibe, ou seja, preciso comentar manualmente todos os trys e catchs, o que é aborrecedor. Alguém sabe uma maneira simples e prática ? pq deve existir... O meu programa processa muita informação, então debugar de uma determinada parte do programa é totalmente inviável. Alguém me auxilia nessa questão ? Ou se existe algum outro modo de poder debugar à partir de onde gera a exceção ? Obrigado pela atenção de todos. Flávio. [As partes desta mensagem que não continham texto foram removidas] -- Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe - http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com -- - 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]
RES: [delphi-br] Erro maluco nas minhas bases, BDE , Delphi, ou sei lá.
Qual banco? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adriano Santos (Yahoo) Enviada em: quarta-feira, 28 de maio de 2008 14:45 Para: Delphi-br Assunto: [delphi-br] Erro maluco nas minhas bases, BDE, Delphi, ou sei lá. Pessoal, Preciso de uma ajudinha da galera, por favor. Estou com um erro bem maluco. Olhem só: Geneal SQL Error connection rejected by remote interface BDE error: 13059 : [$33] [$ 3] Esse erro ocorre ao tentar adicionar campos ao FieldsEditor da Query ou ao tentar abrir o aliás no BDE. Hoje, estou tendo que adicionar os campos que preciso no meu DataModule, todos no braço. No .pas e no .dfm. Abaixo mais infos: BDE version: 5.01 Delphi 6.0 Build 6.240 Update Pack 2 Windows XP - Atualizaçções no talo Firebird 2.1.0.16780* *Já testei com todas as outras versões do FB No IBO Console ou IBExpert, a base abre normalmente. Vlw, abs -- Adriano Santos --- Editor Técnico Revista ClubeDelphi e WebMobile http://www.delphitodelphi.blogspot.com http://www.adrianosantos.pro.br http://www.devmedia.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Erro maluco nas minhas bases, BDE , Delphi, ou sei lá.
Foi mal não tinha visto o banco FireBird J De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Davi Eduardo Borges Wall Enviada em: quarta-feira, 28 de maio de 2008 17:56 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Erro maluco nas minhas bases, BDE, Delphi, ou sei lá. Qual banco? 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 Adriano Santos (Yahoo) Enviada em: quarta-feira, 28 de maio de 2008 14:45 Para: Delphi-br Assunto: [delphi-br] Erro maluco nas minhas bases, BDE, Delphi, ou sei lá. Pessoal, Preciso de uma ajudinha da galera, por favor. Estou com um erro bem maluco. Olhem só: Geneal SQL Error connection rejected by remote interface BDE error: 13059 : [$33] [$ 3] Esse erro ocorre ao tentar adicionar campos ao FieldsEditor da Query ou ao tentar abrir o aliás no BDE. Hoje, estou tendo que adicionar os campos que preciso no meu DataModule, todos no braço. No .pas e no .dfm. Abaixo mais infos: BDE version: 5.01 Delphi 6.0 Build 6.240 Update Pack 2 Windows XP - Atualizaçções no talo Firebird 2.1.0.16780* *Já testei com todas as outras versões do FB No IBO Console ou IBExpert, a base abre normalmente. Vlw, abs -- Adriano Santos --- Editor Técnico Revista ClubeDelphi e WebMobile http://www.delphitodelphi.blogspot.com http://www.adrianosantos.pro.br http://www.devmedia.com.br [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] Erro maluco nas minhas bases, BDE , Delphi, ou sei lá.
Dei uma procurar no Google com esse erro e achei vários registros. Maioria em inglês. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Davi Eduardo Borges Wall Enviada em: quarta-feira, 28 de maio de 2008 17:57 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Erro maluco nas minhas bases, BDE, Delphi, ou sei lá. Foi mal não tinha visto o banco FireBird J 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 Davi Eduardo Borges Wall Enviada em: quarta-feira, 28 de maio de 2008 17:56 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Erro maluco nas minhas bases, BDE, Delphi, ou sei lá. Qual banco? 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 Adriano Santos (Yahoo) Enviada em: quarta-feira, 28 de maio de 2008 14:45 Para: Delphi-br Assunto: [delphi-br] Erro maluco nas minhas bases, BDE, Delphi, ou sei lá. Pessoal, Preciso de uma ajudinha da galera, por favor. Estou com um erro bem maluco. Olhem só: Geneal SQL Error connection rejected by remote interface BDE error: 13059 : [$33] [$ 3] Esse erro ocorre ao tentar adicionar campos ao FieldsEditor da Query ou ao tentar abrir o aliás no BDE. Hoje, estou tendo que adicionar os campos que preciso no meu DataModule, todos no braço. No .pas e no .dfm. Abaixo mais infos: BDE version: 5.01 Delphi 6.0 Build 6.240 Update Pack 2 Windows XP - Atualizaçções no talo Firebird 2.1.0.16780* *Já testei com todas as outras versões do FB No IBO Console ou IBExpert, a base abre normalmente. Vlw, abs -- Adriano Santos --- Editor Técnico Revista ClubeDelphi e WebMobile http://www.delphitodelphi.blogspot.com http://www.adrianosantos.pro.br http://www.devmedia.com.br [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]
RES: [delphi-br] Erro ao Gravar imagens no FB 2.1 com DBX
Tu desenvolveu um banco de dados ? pra concorrer com o Oracle/SQL Server ? botei fé De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de galvao_em Enviada em: terça-feira, 27 de maio de 2008 15:35 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Erro ao Gravar imagens no FB 2.1 com DBX Olá, desenvolvi um banco de dados onde tenho um campo imagem do tipo BLOB SUB_TYPE 0 SEGMENT SIZE 100, mas na hora que vou inserir um registro via delphi 2007 com dbexpress utilizando o drive do interbase dá o seguinte erro raised execption class TDBXError with message 'Incorrect values within SQLDA structure'. como devo proceder, lembro que quero gravar as imagems no banco, é o logotipo das empresas, são quatro empresas que serão cadastradas. Usando o Firebird 2.0 não acontecia este erro. Att. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Converter Ascii para String
Eu não entendi NADA! Tente ler o que vc escreveu, acho que você não vai entender Tb. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alan Vieceli Enviada em: sexta-feira, 23 de maio de 2008 14:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Converter Ascii para String até seria..só que seguinte... tenho uma rotina q fazer um criptografia aqui.dai ela genra um monte de caracteres...tipo... #$4#45#$54f5'b'... dai se grava esse falar no banco de dados..só que...isso não são strings são ascci..dai qunado chegar no #0 ele não ta gravando e da um monte de problema..dai queria conversar isso tudo pra string q resolvia meu problema Vinicius Santos - MSI escreveu: Agh ?? Pra que isso cara ? Não seria mais fácil, vc fazer: wVar = 'teste#13+#0'; Direto ?? Vinicius dos Santos Blog: http://tuplas.blogspot.com http://tuplas.blogspot.com http://www.msisolucoes.com.br http://www.msisolucoes.com.br - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, May 23, 2008 2:07 PM Subject: [delphi-br] Converter Ascii para String Alguem sabe como eu faço pra converter uns caracteres Ascii para string? tipo: wVar := 'teste'+#13+#0 dai o conteudo dessa variavel ser: wVar = 'teste#13+#0'; [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] Parar Execução
Utilize Showmodal; De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Felipe Nunes Enviada em: quarta-feira, 21 de maio de 2008 10:33 Cc: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED] Assunto: [delphi-br] Parar Execução Ola Senhores, estou com uma duvida sobre Parar uma Execução do delphi: Tenho um botão que chama meus objetos: exemplo CALCULA_TOTAL(); CALCULA_TRIBUTAÇÃO(); CALCULA_GERAL(); Acontece que entre o CALCULA_TOTAL() e o CALCULA_TRIBUTAÇÃO() eu chamo uma tela para informar algumas dados que serão usados no CALCULA_TRIBUTAÇÃO() . Acontece que Delphi processa os objetos direto. Existe algum comando ou modo, que eu parei a execução e depois executo denovo, como exemplo uma thread? Atenciosamente, http://www.vienasistemas.com.br/assinatura.png Felipe Nunes Analista T.I. - Atacado/Distribuidor - Bacharel em Ciências da Computação * MG: (37) 3213-4855 DF: (61) 3561-1188 BA: (71) 3341-8714 * [EMAIL PROTECTED] mailto:felipe%40vilesoft.com.br * http://www.vilesoft.com.br/ www.vilesoft.com.br O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. [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] Erro ao Compilar
Abra o DPR e procure por esse path e excluía. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cesar - Informatica Enviada em: terça-feira, 20 de maio de 2008 08:18 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Erro ao Compilar Pessoal estou com um erro acontecendo nas minhas aplicações. o erro é esse abaixo : [Fatal Error] File not found: 'C:\Arquivos de programas\FastReports\FastReport 4\LibD6\Unit1.pas' realmente não tem essa Unit1.pas no diretório reclamado, mas a questão é que esse diretório se trata do ultimo caminho que está postado na Library Path, ou seja, basta eu tirar esse cara de lá q automaticamente ele apresenta o mesmo erro na ultima linha que sobrou... não sei se consegui ser claro. Detalhe : posso mudar de aplicação, q o erro continua Será que alguém poderia me ajudar. Desde já agradeço, César Eduardo T. Silva Ober S/A - Ind. e Com. Programador [EMAIL PROTECTED] mailto:cesar.silva%40ober.com.br mailto:[EMAIL PROTECTED] mailto:cesar.silva%40ober.com.br (19) 3466-9200 [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] Gravar e visualizar imagem do banco de dados
Basta colocar a imagem em um caminho de rede comum para todas as maquinas
De: delphi-br@yahoogrupos.com.br [mailto:[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 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] mailto:spam%40vetorial.net
Chave de Identificação: 54568,4831dc66542791418011894
[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] Fontes disponíveis... ...
Pessoal POR FAVOR solicitem o arquivo EM PVT! Imaginem se todos solicitarem o arquivo 1 por 1! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Wandarlei Michelon Enviada em: terça-feira, 20 de maio de 2008 08:45 Para: delphi-br@yahoogrupos.com.br Assunto: ENC: [delphi-br] Fontes disponíveis.. Pro favor me envie também no e-mail: [EMAIL PROTECTED] mailto:wandarlei%40yahoo.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 MarcioCC® Enviada em: terça-feira, 20 de maio de 2008 08:11 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Fontes disponiveis.. Bom dia amigo , manda pra mim no e-mail : [EMAIL PROTECTED] mailto:itabyte%40itabyte.com mailto:itabyte%40itabyte.com ...t+ JESUS TE AMA !! * MarcioCC® - Analista/Programador - Delphi,PHP,ASP * [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] Verificar conexao de internet
How can I detect an active Internet connection? http://groups.google.com.br/group/borland.public.delphi.internet.winsock/browse_thread/thread/d4d39511d534ec88/e14ab38d85baae0e?hl=pt-BRlnk=stq=windows+API+check+internet+connection#e14ab38d85baae0e Grupo: borland.public.delphi.internet.winsock http://groups.google.com.br/group/borland.public.delphi.internet.winsock?hl=pt-BRlnk=sg When you are connected to the internet, you have the internet as an extension to you LAN. What you can easily check is if your own computer has a direct connection to the internet (for example a DUN), altough you have to build a function for each method to connect to the internet, using the API for the particular ... 31 ago 2001 de Francois Piette - 5 mensagens - 5 autores Primeira pagina de pesquisa... De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alisson Enviada em: terça-feira, 20 de maio de 2008 09:50 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Verificar conexao de internet Preciso saber se uma determinada máquina em acesso à internet. Procurei sobre o assunto na internet e encontrei algumas funções que verificam isso através de pesquisa de registros do Windows, mas não funcionam. Alguém sabe se é possível fazer isso? ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Alguém poderia me explicar o porq ue disto dá erro?!
De qualquer forma essa não é uma explicação para o SQL não funcionar em minúsculo. Eu não tenho esse tipo de problema e utilizo firbird direto. Tenta fazer um programinha para rodar um SQL e veja se isto realmente acontece. Ou ainda procure na internet a causa disso. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo César Cardoso Enviada em: terça-feira, 20 de maio de 2008 15:56 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Alguém poderia me explicar o porque disto dá erro?! Repito o que já afirmei... Mesmo assim quem disse/garantia que era 100% compatível? O lançamento do FB 1 não foi um mero copy and paste do IB 6. Já havia algum código de outros bancos (Yaffil, se não me engano) que foi aproveitado junto do código do IB 6. Atte, Ricardo. Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com escreveu: Meu amigo, este erro dá desde a versão 1.0 do Firebird, o qual era compativel. []s 2008/5/20 Ricardo César Cardoso [EMAIL PROTECTED] mailto:ricardo_engsoft%40yahoo.com.br : Hehehe.. mas quem disse q o Driver p/ Interbase é 100% compatível com o FB2.x , ainda por cima? Sds, Ricardo. Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com escreveu: Olá amigos, usando DBExpress no Delphi7, com driver do Interbase, com banco de dados Firebrid 2.1. Pois bem, todos os meus SQL, sem exclusão, devem ser escrito em UpperCase... senão dá erro, fala que o field não existe, que tabela não existe e etc... gente.. o padrão Ansi SQL não é minúsculo!? porque o DBX quer, obrigar a ser maiúculo? []s -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com Sou a favor da lei LEI 607/2007 [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] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com Sou a favor da lei LEI 607/2007 [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] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Gravar e visualizar imagem do banco de dados
Muito simples, coloque as fotos em um diretório comum para todos na rede.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Carlos
Enviada em: segunda-feira, 19 de maio de 2008 16:58
Para: delphi-br@yahoogrupos.com.br
Assunto: [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
[As partes desta mensagem que não continham texto foram removidas]
