Re: [delphi-br] Mensagem
Em 13/04/2010 13:53, Gestão - Premium escreveu: Boa tarde Coloquei uma chave na coluna de CGC em uma cadastro de fornecedores Para nao cadastrar em duplicidade a mesma empresa. Minha duvida a mensagem de erro de chave volta em ingles pelo delphi, teria como eu alterar esta mensagem??? e colocar algo mais simples Atenciosamente, Sérgio E. Santo Sérgio, boa tarde. A mensagem retornada é fornecida pelo banco de dados (aliás, qual você usa?). Basta você capturar a exceção retornada e tratá-la na aplicação usando um bloco try/except. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- Antes de perguntar: http://www.istf.com.br/perguntas/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Envio E-Mail
Em 05/04/2010 14:59, Eduardo Suruagy escreveu: Pessoal, muito obrigado pelas informações, mas, ainda não estou conseguindo. Estou usando Delphi 7 com indy10.1.5_d7, estou tentando usar minha conta do gmail como servidor de smtp mas, sempre ocorre erro de autenticação. Estou usando as dll libeay32 e a ssleay32, mesmo assim não vai... Se alguem tiver um exemplo funcionando e puder compartilhar por favor envie o e-mail para o mesmo da lista, obrigado pela atenção!!! Só uma pergunta óbvia, mas pertinente: Sua conta no GMail está configurada para usar clientes SMTP? []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- Antes de perguntar: http://www.istf.com.br/perguntas/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Nota fiscal eletronica
Em 15/03/2010 15:28, Eny Urias escreveu: Salve todos! Gente, eu estou com um sistema onde vou precisar colocar pra rodar a nota fiscal eletronica. Eu fiz uma busca na net e achei o componente ACBr. Alguém utiliza? Podem me dar um aval sobre esse componente? Ele só roda em Delphi 7 mesmo? Ou se alguem tiver outra solução, eu gostaria de trocar uma idéia... Estou um pouco perdida. Agradeço a todos desde já! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles Olá, Eny, boa tarde... Aqui usamos o projeto Cooperar (do qual o ACBrNFe é derivado), em Delphi 7, por tratar-se de classes e não componentes. O SVN dele está em [1]. Mas, contudo, o componente ACBrNFe implementa tudo o que você precisa em relação à NFe. []'s [1] - http://projetocooperar.googlecode.com/svn/trunk -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- Antes de perguntar: http://www.istf.com.br/perguntas/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] PostgreSQL 8.4, não conecta com zeus
Em 04/03/2010 14:20, Eduardo escreveu: Ola pessoal, Preciso me conectar a um db postgreSQL, então baixei o pg8.4 e instalei no meu winxp-sp3. uso Delphi 2007 e uso o zeus6.6.4 com mysql5 sem problemas, mas com o pg8.4 não funciona, ou melhor dizendo não sei fazer funcionar, se alguem puder ajuda fico grato desde já. Na realidade preciso apenas fazer um programa muito simples de migração do pg para mysql, mas antes tenho que conectar ao pg8.4 Obrigado a todos Eduardo. Olá, Eduardo. Bom, primeiro, que componente é esse? Eu só conheço o ZEOS... E, ainda assim, a varsão mais atual é a 6.6.6. Segundo, o PostgreSQL está rodando? O serviço subiu, o pgAdmin III consegue se conectar numa boa? Se sim, o ZEOS vai se conectar tranquilamente, basta indicar o protocolo como postgresql-8 e boa. Logicamente, a porta é a 5432. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Cartões Smart Card (Car tões com chip)
Pesquisem sobre componentes e métodos PKCS11. Minha sugestão: componentes SecureBlackbox (Eldos). Em 04/03/2010 17:00, Carlos Daniel escreveu: Boa tarde, Também estou com o mesmo problema, se conseguir alguma coisa e puder me passar agradeço, caso eu encontro algo também posto aqui. Carlos --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Roberto wa...@... escreveu Necessito fazer uma aplicação para estes cartões e gostaria de receber alguma ajuda dos colegas de como os entender alguns links, e mesmo fornecedor. Comprei um leitor omnikey 3021 USB para dar a partida. e agora? Agradeço as dicas, preferivelmente em delphi. Roberto -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Função para envio de email
Em 03/03/2010 07:24, Gilvan Costa escreveu: Olá Srs, alguém tem uma boa função para envio de email ou mesmo algum link atualizado sobre o assunto, tenho procurado na net, mas os artigos que tenho encontrado são muito antigo. Obs : uso o Delphi 2010 Certo da colaboração desde já agradeço Gilvan Costa Olá Gilvan, bom dia. Pesquise sobre o projeto Synapse (http://www.synapse.ararat.cz/). Aqui (http://www.synapse.ararat.cz/doku.php/features) você pode encontrar uma lista das funcionalidades do projeto. Em minhas aplicações, substituiu completamente o Indy, suprindo todas as minhas necessidades. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Resoluçao
Em 01/03/2010 14:16, nillgolv escreveu: Pessoal, trabalho com a resolução da tela do pc em 1280x960... faço o form principal com a propriedade WindowState wsMaximized. Existe a condição para que nao desarrume o visual dos componentes, ao abrir este form em um pc com a resolução da tela 1024x768? Já fiz várias buscas e o que achei não resolveu. Desde já fico grato pela ajuda. Usar âncoras? []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sugestão de componente p/ verificação contínua de existência de arquivo.
Em 25/02/2010 16:47, Albuquerque escreveu: Dentro de um novo projeto a ser desenvolvido preciso do seguinte: De 1 em 1 segundo, durante todo o dia, o aplicativo tem que verificar se numa pasta HÁ um determinado arquivo. Há no Delphi 7 algum componente dele que faça isso ? Se não houver, alguém pode indicar um bom componente que faça isso ? Desde já agradeço a atenção dispensada Albuquerque Albuquerque, Não é melhor executar este processo através de uma thread? Acredito que seja a maneira mais eficiente (e barata, em termos de recursos) de se fazer. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como gerar etiquetas com código de barras no Rave em runtime?
Olá a todos, bom dia. Preciso criar uma rotina que gere etiquetas com códigos de barras, no padrão EAN13, no Rave Reports em runtime. Para criar os textos, uso a seguinte rotina: with TRaveText.Create(FRaveSystem.BaseReport) do begin Truncate := False; FontJustify := pjLeft; Text := FEtiquetas[vI][vI2].Value; Left := (CurCol + FEtiquetas[vI][vI2].Left) / 25.4; Top := CurRow + FEtiquetas[vI][vI2].Top; Print(FRaveSystem.BaseReport); Free; end; Gostaria de fazer a mesma coisa com os códigos de barras. Tentei encontrar algo na internet sobre isso, mas encontro apenas a criação de códigos de barras em designtime. Alguém sabe como posso fazê-lo? Quais units do Rave devo usar e qual a classe que instancia os barcodes? []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] VirtualTreeView
Em 17/2/2010 12:55, netmidia escreveu: Pessoal o componente instala de forma correta no meu Delphi 6. Quando coloco um VTtreeview num form vazio, ao compilar / executar obtenho o seguinte erro: Exception EReadError in module Project1.exe at 0001FB57. Error reading VirtualStringTree1.Header.DefaultHeight: Property DefaultHeight does not exist. preciso de uma orientação. desde já obrigado amilcar Amilcar, bom dia... Por que voce nao entra em contato diretamente com o Luiz (desenvolvedor do componente)? Ele eh super acessivel e garanto que vai ficar feliz com o seu feedback. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF] IBExpert para MySQL?
Em 12/02/2010 08:52, Iran Lima escreveu: Olá Alguém ai conhece alguma ferramenta para administração de banco MySQL pelo menos parecida com o IBExpert??? Não gosto do PHPMyAdmin Valeu!! Olá Iran, boa tarde... Recomendo o TOAD for MySQL Freeware da Quest Software (http://www.quest.com/toad-for-mysql/). Completíssimo. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- [As partes desta mensagem que não continham texto foram removidas]
Re: [Bulk] [delphi-br] Delphi + SQLExpress
Em 10/02/2010 10:43, Daniel de Oliveira escreveu: Caros amigos alguém já trabalhou com essa dupla?? Existe alguma outra limitação no SQL fora o tamanho de 4GB??? Olá Daniel... Bom, além da limitação dos tablespaces, tem a limitação em relação ao hardware, pois as versões Xpress só funcionam em servidores monoprocessados. Mas, uma questãozinha bem particular: se você vai sair do Firebird, que é um SGBD livre, não seria mais vantagem ter outro SGBD, também livre, só que mais robusto? MySQL, por incrível que possa parecer, é uma excelente opção, pois nos testes do TPC (http://www.tpc.org/tpch/results/tpch_perf_results.asp), ele aparece na frente do SQL Server 2008 Enterprise x64 em bancos com 100GB de tablespace e do Oracle 10g Release 2 Enterprise em bancos com 300GB (!) de tabespace. Há ainda o PostgreSQL, ainda mais robusto que o MySQL, só que ele não é avaliado pelo TPC (só ainda não descobri o porquê, afinal, ele é muito mais estável e seguro que o SQL Server e tão robusto quanto o Sybase e o Oracle). []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] e-mail delphi
Em 10/02/2010 16:44, Marcelo escreveu: Alguem sabe se tem algum componente ou maneira de eu armazenar os e-mails enviados. Desde já agradeço a atenção de todos. Olá Marcelo... Um bom exemplo de como isso é feito é observar o comportamento do Mozilla Thunderbird. Ele usa o SQLite para armazenar as mensagens enviadas, ou seja, um banco de dados. Ou seja, você pode criar algo no banco de dados que o sistema use para guardar estas mensagens. A vantagem é a organização, pois é muito mais fácil e rápido para se montar o catálogo de mensagens enviadas, pois, armazenadas em banco de dados, você pode consultá-las por instrução SQL, inclusive usando LIKE... []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPIC] Servidor Web
Em 04/02/2010 12:55, nillgolv escreveu: Fiz tudo certo, abro a página na própria máquina no localhost, mas não consigo acessar de outras máquinas na rede interna e nem pela internet. Olá, boa tarde... Bem, pra poder ajudar você, com certeza precisamos de mais detalhes, coisas insignificantes como Sistema Operacional, versão do Apache, versão do PHP, coisinhas assim, que não fazem diferença... Outro detalhe: como você está tentando fazer o acesso ao servidor Apache? Pelo IP? Pelo nome da máquina? Mais informações, respostas mais eficientes... []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPIC] Servidor Web
Em 04/02/2010 13:59, nillgolv escreveu: Sistema Operacional: Windows XP Professional - Service Pack 2 Ok, sem problemas com o SO. Versão do Apache: apache_1.3.31-win32-x86-no_src Versão do PHP: php-5.0.3-Win32 Precisa usar uma versão tão antiga do Apache??? Qual o propósito do servidor? Na mesma máquina digito: http://localhost/phpinfo http://localhost/phpinfo (o teste funciona) Na outra maquina que está em rede eu digito o endereço que configurei no site: No-IP (nao funciona) Digito o IP da máquina (o teste funciona) O IP de sua rede? (Ex.: http://192.168.0.1/phpinfo) Se sim, não há nada errado com seu servidor Apache. O problema é outro. Quanto ao No-IP, existe uma coisa chamada propagação, que é o que os servidores DNS fazem para poder atualizar sua lista de endereços e nomes. Até o DNS do No-IP fazer a sua, você, eu, ou qualquer pessoa ficará impossibilitada de acessar seu servidor. Não sei quanto tempo leva esta propagação, se é de hora em hora, se é imediata, mas assim que ela for feita, você provavelmente poderá acessar o servidor sem problemas (a não ser que você tenha algum firewall ou seu provedor de acesso/operadora de telefonia bloqueando a porta 80). []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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 13.0 Kernel 2.6.32.6-i686-core2quad --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPIC] TEF no Linux com Lazarus
Em 27/01/2010 14:31, silvioprog escreveu: Por favor não deixem de ver - [http://www.lazarus.freepascal.com.br/viewtopic.php?f=11t=505start=0 http://www.lazarus.freepascal.com.br/viewtopic.php?f=11t=505start=0]; Abraços, -- Silvio Clécio Corrigindo o link que o Silvio passou... http://lazarus.freepascal.com.br/viewtopic.php?f=11t=505 http://lazarus.freepascal.com.br/viewtopic.php?f=11t=505 -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010
bSectorCountReg := 1; bSectorNumberReg := 1; // if Win32Platform=VER_PLATFORM_WIN32_NT then bDriveHeadReg := $A0 // else bDriveHeadReg := $A0 or ((bDriveNum and 1) shl 4); bDriveHeadReg:= $A0; bCommandReg := $EC; end; end; If not DeviceIoControl( hDevice, $0007c088, @SCIP, SizeOf(TSendCmdInParams) - 1, @aIdOutCmd, SizeOf(aIdOutCmd), cbBytesReturned, nil) Then Exit; Finally CloseHandle(hDevice); end; With PIdSector(@IdOutCmd.bBuffer)^ Do Begin ChangeByteOrder( sSerialNumber, SizeOf(sSerialNumber) ); (PChar(@sSerialNumber)+SizeOf(sSerialNumber))^ := #0; Result := PChar(@sSerialNumber); end; end; [/1]-- [2]-- function GetCPUID: String; var A, B, C, D: LongWord; begin try asm mov eax,1 // eax registeri cpuid komutunun parametresidir db $0F, $A2 // cpuid komutu mov a,EAX mov b,EBX mov c,ECX mov d,EDX end; Result := IntToHex(A, 8) + '-' + IntToHex(B, 8) + '-' + IntToHex(C, 8) + '-' + IntToHex(D, 8); Except Result := 'ERRO!'; //'-D342-F921-M068'; end; end; [/2]-- []'s --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@yahoo.com.br mailto:willianjhonnes%40yahoo.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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pasta ProgramData
Em 21/01/2010 12:36, snakesjb escreveu: Como buscar a pasta ProgramData usando o Delphi, preciso saber onde fica a pasta dos atalhos do menu iniciar independente da versão do windows para poder saber se existe um determinado icone e trocá-lo Cara, isso fica na Documents and Settings (XP) ou na Users (Vista/Windows 7), e pode depender do usuário (Ex.: c:\DS\Administrador\Menu Iniciar) ou uma geral (Ex.: c:\DS\All Users\Menu Iniciar). []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Thread atrasando carregamento de pacotes
Olá a todos.
Tenho uma aplicação 3 camadas que, em sua camada de servidor, está
modularizadas em pacotes (BPLs). Um destes pacotes contém uma Thread que
varre um diretório em busca de arquivos de integração. Por
conveniência e pelo fato desta Thread não necessitar da intervenção do
usuário, ela é inicializada juntamente com o pacote. O problema é que,
durante a inicialização do pacote, a Thread trava a inicialização do
restante dos pacotes. Tenho certeza disto pois removi a Thread da
inicialização do pacote e todos foram carregados perfeitamente. E quando
a Thread é inicializada com o pacote, sou obrigado a efetuar o
carregamento dos pacotes 2 vezes. Mas antes que alguém questione, a
Thread funciona perfeitamente, não gerando nenhuma exceção.
A chamada da inicialização está em [1] e o método Execute da Thread está
em [2].
Alguém tem alguma idéia do que posso fazer para acertar esta situação?
[]'s
[1]
initialization
TFileProcessing.Initialize;
[2]
procedure TFileProcessing.Execute;
begin
inherited;
sFiles := TStringList.Create;
cIntgParams := TIntgParams.Create('', 0);
while not Terminated do
begin
try
cIntgParams.LoadParams;
if FindFiles then
ProcessFiles;
finally
sFiles.Clear;
end;
Sleep(cIntgParams.Interval);
end;
end;
--
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
willianjhon...@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.2
Kernel 2.6.27.8-i686-core2
---
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Thread atrasando carregamento de pacotes
Ah, sim, claro! Esqueci de colocar o construtor da Thread! []'s constructor TFileProcessing.Initialize; begin Create(False); FreeOnTerminate := True; Priority := tpLowest; Execute; end; -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Thread atrasando carregamento de pacotes
Em 21/01/2010 15:51, Silvio Clecio escreveu: Se nao funfar, monitore com o debugger em qual etapa esta travando. E aí, Silvio... É, não rolou... O problema é que o debbuger não vai ajudar nesta questão, haja visto que ele vai causar o atraso na carga dos pacotes da mesma maneira (é, eu já tentei debugar). Vou continuar tentando encontrar uma solução... []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [Resolvido] Thread atrasando carregamento de pacotes
Pessoal, resolvi o problema. Descobri que a chamada ao método Execute na inicialização da Thread não se fazia necessária. Removi a chamada. Porém, com isso, a Thread me retornava uma exceção relativa ao CoInitialize. Dada esta informação, introduzi no método Execute da Thread a chamada ao CoInitialize (CoInitialize(nil);), fazendo com que a Thread voltasse a funcionar perfeitamente. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: [Bulk] Re: [delphi-br] Porquê as pessoa s não colocam no assunto a sua dúvida ou problema diretamente???
Aproveitando o gancho, vou propor a thread Por que as pessoas não removem o conteúdo inútil das mensagens?... []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente externo (DLL) matando programa
Em 19/01/2010 08:28, Alemão escreveu: Willian, mesmo estando em threads diferentes ele poderia ocorrer este problema? Acredito que não. Só vi esta manifestação do mal quando os TDataSet tinham métodos executados na mesma rotina, e somente um imediatamente após o outro. Estou desconfiado que seja algum erro retornado da DLL oracle que esteja fechando. Não sei se é exatamente isso. A OCI é uma biblioteca bem estável. Ela pode retornar uma exceção não tratada pelo ADO/dbGo (lembre-se que o ADO foi desenvolvido pela Microsoft), e esta exceção causar uma Falha catastrófica (vide, na Desciclopédia, o artigo sobre POG), encerrando a aplicação. A OCI trabalha muito bem com outros objetos de conexão, como o Zeos, por exemplo. Então, não acredito que seja ela o problema. A propósito, qual a versão do Oracle e qual driver ODBC você está usando? Uso o delphi 2006. Mal sinal. Você já fez todas as atualizações do BDS 2006? Não sei se existe algo no relatório de bugs do BDS 2006 sobre este caso em específico, mas não custa dar uma olhada. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [APLICACAO OFF-LINE]
Em 19/01/2010 11:07, Marcio Luis escreveu: Ola pessoal , preciso desenvolver uma aplicacao para vendas off-line, ou seja o representante comercial vai até o cliente, digita o pedido e mais tarde transmite o pedido a fabrica. vou preciar criar uma base de dados no cliente. o que fica melhor ?? dados em txt ? xml ? banco(qual). qual componete devo utilizar para fazer a comunicacao/sincronizacao dos dados ?? se alguem algum material para estudar , algumas dicas .. o que nao fazer .. att. Marcio Boa tarde, Marcio... Vc pode optar por 2 estruturas distintas: 1) Uma aplicação rodando sobre o Firebird (ou até mesmo o Access, caso vc não queira obrigar o representante a instalar um servidor de banco de dados em sua máquina) nos notebooks dos representantes, gerando um arquivo XML com o pedido off-line, que pode ser processado quando o representante voltar à fábrica; 2) Disponibilizar aos representantes um WebService que forneça um arquivo XML com os produtos e trate o arquivo XML criado no cenário 1 quando ele estiver em um cliente com conexão web. No caso do banco de dados local, ele deverá ser atualizado com uma determinada frequencia, dependendo, claro, da frequencia com que os cadastros essenciais para as vendas (produtos, clientes, etc.) vão sendo alimentados na fábrica. Minha sugestão é utilizar as 2 estruturas. Quando o representante tiver uma conexão com a internet, já alimente o pedido via WebService, caso contrário, faça a alimentação quando retornar à fábrica. Espero ter ajudado. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] FormatDateTime
Em 19/01/2010 15:19, Evaldo escreveu:
stFormatoData = 'dd/mm/' ;
query.ParamByName('data').AsDate := StrToDate ( FormatDateTime(
stFormatoData, Now) );
query.ParamByName('data').AsDate := Date;
Não seria mais simples usar isso?
--
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
willianjhon...@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.2
Kernel 2.6.27.8-i686-core2
---
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente externo (DLL) matando programa
Em 18/01/2010 13:29, Alemão escreveu: Olá pessoal, tudo joia? Estou com um problema um tanto quanto estranho e dificil de pegar e controlar no meu sistema. Tenho um programa de BD, que grava informações em um banco de dados Oracle. Além de gravar ele também faz seleção em alguns dados, criados por outros programas. Até aí tudo bem. Ocorre que muitas vezes quando faço o select em algumas tabelas (não é sempre) o meu programa simplesmente sai do ar. Ele some. Como se eu tivesse matado pelo gerenciador de tarefas. Não sei o que ocorre, mas é sempre quando faço select no banco. Estou desconfiado que o client do oracle está matando meu programa. Penso isso, pois ja aconteceu o contrario comigo, desenvolvi uma dll que em um determinado momento um bug jogava uma exception não tratada que matava o programa que o chamava. Acredito que esteja ocorrendo o mesmo com a dll do client do oracle. Alguem aqui já passou por isso? Como posso evitar este tipo de problema? Existe alguma maneira de tratar essa exception e não deixar matar o meu programa? Obrigado a todos Alemao ___ Boa tarde, Alemão. Seguinte: qual suíte de componentes de conexão com o Oracle você usa? BDE, ADO, ODAC, UniDAC, Zeos... O BDE, em experiências passadas, me trouxe este problema com o Oracle quando 2 descendentes TDataSet eram executados em sequência, matando a aplicação. Detalhe: não exibia qualquer exceção. Simplesmente matava a aplicação. A única alternativa foi trocar a suíte para o ODAC para poder continuar usando as Stored Procedures. Nos dê mais algumas informações sobre o seu problema e talvez possamos ajudá-lo. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente externo (DLL) matando programa
Em 18/01/2010 17:25, Alemão escreveu: Olá william, Estou usando ADO. Sei que é um pouco ultrapassado, mas meu sistema é todo baseado nessa tecnologia. Pretendo mudar, mas não consigo agora. Ele trabalha com multi-tarefa, criando um componente de conexão para cada tarefa. Nunca tinha tido esse tipo de problema. Alem do oracle, o sistema trabalha tb com sql server e arquivos textos. Todos em ADO. O caso que você relatou é exatamente a mesma coisa que acontece comigo. A aplicação some, não da mensagem de erro nem nada. Obrigado Alemão, alles gut? Verifica se vc não está na mesma encruzilhada que eu já passei. Debuga tua aplicação e verifica se não é exatamente o caso de executar métodos em dois descendentes TDataSet (TADOQuery, TADOTable, etc.) consecutivamente. Exemplo: TADOQeury1.Open; TADOQuery2.Open; O meu problema residia aí. Isso usando o Delphi7. Aliás, qual versão do Delphi vc usa??? []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: [Bulk] [delphi-br] Dica de conexão
Em 13/01/2010 09:50, Nazareno Neto escreveu: Pessoal Hoje atualmente trabalho com delphi 7 + ibx + firebird 1.5 baixei a versao demo do delphi 2010 e gastaria de umas dicas: 1)estou querendo testar o sql server 2005, posso usar a versao express que é free? 2)na opniao de vcs qual seria a melhor conexao: ADO ou DBX? 3)se falei alguma besteira que me falem para nao perder todo o meu trabalho depois. Felicidades Bom dia, Nazareno... Respondendo às suas perguntas: 1) Sim, pode. As limitações das versões Express dos bancos maiores estão mais ligadas ao hardware do que ao SGBD em si. 2) Entre as duas o DBX. ADO usa ODBC! 2.1) Você pode optar por um objeto de conexão mais flexível se preferir. Temos o Zeos (GPL) e o mais completo da categoria, o UniDAC (pago). 3) Não. Até agora, nenhuma. ;) []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DeleteFile não funciona no Vista Busine ss
Boa tarde a todos... Estou tendo alguns problemas com a função DeleteFile no Windows Vista Ultimate. Ela sisplesmente não apaga os arquivos. O diretório onde os arquivos estão armazenados tem permissão de escrita para TODOS os usuários, assim como os arquivos, mas a aplicação não consegue apagá-los. O pior é que a função DeleteFile não captura a exceção da exclusão, só retorna Verdadeiro ou Falso. Alguém tem alguma idéia do que possa ser??? []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Olá, Evaldo... TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; Bem, pra começar, que tal você trocar essas Strings por WideStrings??? Variáveis do tipo String realmente dão problemas em DLLs... -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@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.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] [OFF] Referente a nova lei...
Acho que não, pois não há a pessoa do proprietário do software livre. Geralmente a pessoa nesse caso é a comunidade criada em torno do produto. Sei que dependendo da licença vc pode pegar uma versão livre, acrescentar recursos e funcionalidades, fechar o software tornando-o comercial. Agora se vc só pegou um software livre, e quer revendê-lo, torça para o cliente não ficar sabendo que poderia ter obtido a mesma coisa sem custo. Não sei se fui claro. Ricardo, só um adendo ao seu comentário: Software Livre, como já foi dito, não é a mesma coisa que Software Grátis. Um exemplo é a RedHat, que vende seu sistema Enterprise, mas mantém a filosofia SL (o conceito das 4 liberdades criado por Richard Stallman). A questão Livre se refere à customização, adaptação, redistribuição, reutilização e todo o mais que não se pode nem mesmo sonhar quando se fala em software proprietário. Livre, repito, não é gratuíto. Esse mercado não é composto do produto, pois, teoricamente, ele não tem valor. Ele é composo pelo serviço (implantação e/ou suporte) agregado ao produto. Os profissionais desse mercado têm seu pão de cada dia advindos disso. Exemplo: o Adempière, um ERP desenvolvido em Java, pode ser baixado e customizado da maneira que se fizer necessária. Os desenvolvedores não cobram 1 centavo pelo produto, mas se você precisar de qualquer suporte em relação à implantação, configuração ou customização, aí sim, há a cobrança. O Compière, projeto derivado do Adempière, segue a mesma filosofia. Mas, enfim, sabe como se pode ganhar dinheiro com estes sistemas? Cobrando pela consultoria de implantação, suporte e customização, que dá um retorno mais rápido do que o desenvolvimento. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal e PHP willianjhon...@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.2 Kernel 2.6.30.5-core2 ---
Re: [delphi-br] MDI para SDI
A 'limitação' não tem a ver com o Linux em si, e sim com o Lazarus, que até o momento, não disponibiliza o MDI e as Heranças de Forms, em Design-Time. Fellipe, só uma pequena correção: a herança de formulários em design time já estava disponível a partir da versão 0.9.24. O suporte a MDI ainda não está disponível na versão 0.9.26.2, mas está no TODO do projeto. Cristiano, o seu problema vai depender, basicamente, do sistema gráfico adotado. Com o KDE, por exemplo, todos os forms vão para a barra de tarefas, assim como no Gnome. Já tive situações em que necessitei do mesmo comportamento no Windows e, para isso, limitei o número de formulários abertos por vez. Já usando IceWM, Fluxbox, Blackbox, XFCE, BlanesWM ou WindowMaker, controlar esses forms passa a ser um pouco mais complexo. No mais, a dica do Alisson é bem interessante. O que talvez te prejudique no momento da migração é o uso de alguns componentes inexistentes no Lazarus, como o ClientDataSet, por exemplo, sem contar os componentes de terceiros. Mas, qualquer dúvida, estamos aí... Sucesso na portagem... -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal e PHP willianjhon...@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.2 Kernel 2.6.30.5-core2 ---
Re: [delphi-br] [OFF] Referente a nova lei...
EmbarcaDelphi: Destaquei três pontos a discutir sobre sua mensagem... Primeiro ponto: Sem ataques pessoais. A pessoa que investiu nos estudos devem ter mais credibilidade do que um semi-analfabeto da vida. Essa sua frase soa um tanto pessoal demais, não acha??? Ah, um outro exemplo: Não estudar é um incentivo para que outros siga seu exemplo e não estudem, basta fazer um curso técnico e dizer que são programadores. O fato de eu não ter me graduado em qualquer curso de nível superior na área de informática não quer dizer que eu não tenha estudado ou seja um semianalfabeto. Sou engenheiro elétrico, formado por um dos maiores polos de tecnologia do país, mas escolhi ser programador por paixão. E isso também não me eximiu dos estudos. Mesmo que eu não tenha uma formação ortodoxa como se espera, passei mais tempo sobre livros depois de formado do que durante os 5 anos da engenharia. Por isso, pense bem antes de falar qualquer coisa. Você não conhece a pessoa na outra ponta da discussão. Segundo ponto: Brasil - ame-o ou deixe-o. Nunca uma frase da época da ditadura se encaixou tão bem a um contexto atual... Isso é um absurdo, é porisso que o Brasil está nessa M No Japão, temos o exemplo que todos os alunos estudam o seu idioma e mais outros dois, um deles a língua comercial. Ótimo! Mude-se para o Japão, se ele é tão melhor que o Brasil. Não perca seu tempo discutindo maneiras de melhorá-lo, afinal, não tem mais jeito mesmo, não é? Se você não está disposto a isso, deixe espaço para quem está. O Brasil é muito maior do que se imagina e enaltecer a mediocridade do país ou de seu povo não nos levará a lugar nenhum. Terceiro ponto: Você não precisa dos papeis, quem precisa são os clientes! Por que? Para eximir a culpa por contratar um profissional que, depois de contratado, se mostra incompetente? Isso não é argumento nem para começar uma discussão. Profissionais de TI não lidam com vidas. Não precisam manipular enormes quantias de dinheiro de terceiros ou defendê-los ou acusá-los em um tribunal. Eles não decidem o rumo da vida das pessoas. Por isso não precisamos de papéis. Ou você, quando leva seu carro a um mecânico, exige que ele seja formado em engenharia... Sem mais, e dando o assunto por encerrado de minha parte. -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal e PHP willianjhon...@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.2 Kernel 2.6.30.5-core2 ---
Re: [delphi-br] [OFF] Referente a nova lei...
Eu comparo qualquer carreira como a carreia de um Medico.. para mim tem a mesma importancia, e acho q todas deveriam existir exames igual a OAB.. onde mesmo a universidade sendo boa ou uma merda soh seriam liberados a exercer a profissao quem passasse pelos teste do conselho.. minha opniao! Leandro... Partindo do seu ponto de vista, nosso mercado se esvaziaria. Há nele profissionais competentíssimos sem graduação e inúmeros graduados de uma incompetência absurda. Posso citar inúmeros casos em que eu trabalhei desfazendo artifícios técnicos de profissionais graduados (alguns com as malditas certificações Microsoft, inclusive) mesmo sem ser graduado na área. Quando iniciei neste mercado, ele era muito valorizado e eram poucos os profissionais competentes. Hoje a história é diferente... Os profissionais competentes ainda são difíceis de se encontrar e, por conta disso, o mercado se desvalorizou. Hoje, qualquer um pode cursar Sistemas da Informação e se tornar analista de sistemas sem assiistir a uma aula sequer, apenas pela internet. E, pior, sem escrever uma linha de código, sem configurar uma rede ou sequer trabalhar na área! Isto é um insulto a quem investiu seu tempo estudando, trabalhando, perdendo noites de sono em busca de soluções e aprendeu a resolver problemas de maneira eficiente e rápida. Não questiono a capacidade de ninguém aqui, mas corroboro da opinião do Rubem. Esta lei é um insulto, sim! Não por regulamentar a profissão, mas por tirar do mercado quem, por muitas vezes, demonstrou ser mais competente que os profissionais graduados. -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal e PHP willianjhon...@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.2 Kernel 2.6.30.5-core2 ---
Re: [delphi-br] [OFF] Referente a nova lei...
Citação A lei não vai tirar ninguém do mercado. Veja os artigos abaixo: Veja o q diz os artigos 3 e 4: Art. 2º Poderão exercer a profissão de Analista de Sistemas no país: ... III - os que, na data de entrada em vigor desta Lei, tenham exercido, comprovadamente, durante o período de, no mínimo, cinco anos, a função de Analista de Sistemas; Art. 3º Poderão exercer a profissão de Técnico de Informática: ... II - os que, na data de entrada em vigor desta Lei, tenham exercido, comprovadamente, durante o período de, no mínimo, quatro anos, a função de Técnico em Informática; Fonte: http://legis.senado.gov.br/mate-pdf/64268.pdf http://legis.senado.gov.br/mate-pdf/64268.pdf André F. Moraes /Citação Analisando os incisos III do Artigo 2º e II do Artigo 3º, é que se nota a exclusão. Sem contar a necessidade da diplomação (inciso I de cada artigo), caso ela não exista, é necessária a comprovação do exercício. Como se dará essa comprovação? Os autônomos e microempresários fazem esta comprovação através de que documentos? O projeto de lei do Sr. Expedito Júnior foi muito mal concebido. A matéria é muito pobre e nem mesmo conta com a aprovação unânime da classe. A lei é excludente, sim! Ela não visa a modernização, mas a burocratização do sistema. Sou engenheiro, não exerço a profissão porque a carreira que escolhi me dá mais prazer. Nunca usei meu CREA para nada, mas o CREA continua me mandando os boletos para o pagamento do registro. Nesta questão, me sinto lesado. Lesado como profissional e microempresário. Lesado, sentindo-me insultado profissionalmente. Afinal, minha carreira como desenvolvedor não me serviu de nada nestes últimos 13 anos, correto??? Não estou aqui para discutir esta questão, afinal, para quem tem o curso universitário, a vida está ganha, não é? Opa, não está, afinal, tenho curso universitário e não poderei exercer a profissão que escolhi... Sem mais. -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal e PHP willianjhon...@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.2 Kernel 2.6.30.5-core2 ---
Re: [delphi-br] [OFF] Referente a nova lei...
acho q vc n conhece toda a lei certo! procure se informar O pior é que acompanho o projeto desde abril do ano passado, na segunda votação da CCJ... Acho que isso não me deu subsídio suficiente pra discutir o projeto... e q bom q esvaziá-se ne! assim seria valorizado como no exterior q faltam mao de obra e tbm eu n teria mais problemas de chegar num cliente e ter q convercer ele de q eu nao sou mais um dos programador mentiroso e 171 q ta cheio no mercado vendendo m**da de softwares ERP a miseros 600 reais até 200 ja achei rsrs.. Este foi um comentário ao seu raciocínio... Não me preocuparia com a concorrência, ainda mais se ela não existisse. Agora, os programadores 171 podem ter diploma universitário e mais certificações que você, eu, ou qualquer outro profissional na área. Ele pode é não ter competência para exercer a profissão. Quanto aos preços dos ERPs, aí, vai da prostituição nossa de cada dia... e tenho certeza q se vc eh um bom profissional experiente nao terá nenhuma dificuldade em adquirir um curso profissionalizante ou de graduação para ter mais credibilidade ainda e valorizacao no mercado.. Mas essa não é minha necessidade. Não preciso de papéis que comprovem minha competência. Isso eu faço no meu dia a dia, com o atendimento que dou a meus clientes. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal e PHP willianjhon...@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.2 Kernel 2.6.30.5-core2 ---
[delphi-br] Componente DBGrid com ClientDataSet e DataSource embutidos
Olá a todos... Criei um componente descendente do TDBGrid que tem embutido em si um componente TClientDataSet e um componente TDataSource. Criar os dois componentes não foi nenhum problema, assim como linká-los. Meu problema reside, mais especificamente, no ClientDataSet: preciso adicionar nele os campos que serão exibidos/manipulados pelo DBGrid em tempo de design, porém não consigo adicionar um DataSetEditor ao componente para que ele faça este trabalho. Criei uma propriedade Fields (do tipo TFields) e gostaria que nela fosse vinculado o DataSetEditor. Ainda, como um plus, gostaria que o menu de contexto do componente apresentasse, além da opção que é própria do DBGrid (Columns Editor), também exibisse a opção referente ao ClientDataSet (Fields Editor). Já dei uma boa vasculhada na net e não consegui encontrar nada que desse um auxílio relevante. Alguém já desenvolveu algo nesse sentido ou sabe como posso realizar esta tarefa? []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- 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 ---
[delphi-br] Problemas com WebService Datasul
Boa tarde a todos...
Estou tendo problemas para enviar arquivos XML para um WebService da
Datasul. Com uma ferramenta exemplo desenvolvida em Java pelo pessoal da
Datasul o arquivo é enviado perfeitamente. Já usando o componente
HTTPRIO, ele retorna um erro de mensagem não assinada. Quem tiver
alguma idéia ou já tenha trabalhado com os WebServices da Datasul e
puder ajudar, eu agradeceria muito.
Seguem abaixo o código da unit e do dfm responsáveis pelo envio do XML.
//Código da Unit
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, InvokeRegistry, StdCtrls, Rio, SOAPHTTPClient, SOAPDomConv,
OPToSOAPDomConv, WSDLIntf, SOAPPasInv, SOAPHTTPPasInv, DB, DBClient,
SOAPConn;
type
TForm1 = class(TForm)
HTTPRIO1: THTTPRIO;
OpenDialog1: TOpenDialog;
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Label1: TLabel;
OPToSoapDomConvert1: TOPToSoapDomConvert;
procedure Button2Click(Sender: TObject);
procedure percorreArquivoTexto ( nomeDoArquivo: String );
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Texto : TStringList;
implementation
uses
ComObj, EaiWebService1;
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var
Servico : EaiWebService;
begin
if Edit1.Text '' then
begin
servico := httPrio1 as EaiWebService;
Texto := TStringList.Create;
Texto.Clear;
percorreArquivoTexto(Edit1.Text);
texto.Text := UTF8Encode(StringReplace(StringReplace(texto.Text,
#13, '', [rfReplaceAll]), #10, '', [rfReplaceAll]));
Label1.Caption := UTF8Decode(Servico.sendMessage(Texto.Text));
ShowMessage(Label1.Caption);
end;
end;
procedure TForm1.percorreArquivoTexto ( nomeDoArquivo: String );
var
arq: TextFile;
linha: String;
i : integer;
begin
AssignFile ( arq, nomeDoArquivo );
Reset ( arq );
ReadLn ( arq, linha );
linha := StringReplace(StringReplace(linha, #13, '', [rfReplaceAll]),
#10, '', [rfReplaceAll]);
while not Eof ( arq ) do
begin
Texto.Add(trim(linha));
ReadLn ( arq, linha );
linha := StringReplace(StringReplace(linha, #13, '',
[rfReplaceAll]), #10, '', [rfReplaceAll]);
end;
CloseFile ( arq );
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
Edit1.Text := OpenDialog1.FileName;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
caminho : string;
begin
caminho := ExtractFilePath( Application.ExeName );
caminho := caminho + 'EaiWebService.wsdl';
HTTPRIO1.WSDLLocation := caminho;
end;
end.
//Código do dfm
object Form1: TForm1
Left = 278
Top = 200
Width = 651
Height = 483
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 168
Width = 103
Height = 24
Caption = 'RETORNO'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Button1: TButton
Left = 48
Top = 80
Width = 129
Height = 25
Caption = 'carregar Arquivo XML'
TabOrder = 0
OnClick = Button1Click
end
object Edit1: TEdit
Left = 48
Top = 56
Width = 417
Height = 21
TabOrder = 1
end
object Button2: TButton
Left = 464
Top = 120
Width = 145
Height = 25
Caption = 'Enviar'
TabOrder = 2
OnClick = Button2Click
end
object HTTPRIO1: THTTPRIO
WSDLLocation =
'C:\Documents and Settings\Cliente\Desktop\TESTE WEBSERVICE\EaiWe' +
'bService.wsdl'
Service = 'EaiWebServiceService'
Port = 'EaiWebService'
HTTPWebNode.Agent = 'Borland SOAP 1.2'
HTTPWebNode.UseUTF8InHeader = True
HTTPWebNode.InvokeOptions = [soIgnoreInvalidCerts,
soAutoCheckAccessPointViaUDDI]
Converter = OPToSoapDomConvert1
Left = 8
Top = 8
end
object OpenDialog1: TOpenDialog
Filter = 'XML|*.xml'
Title = 'Selecione o arquivo XML'
Left = 40
Top = 8
end
object OPToSoapDomConvert1: TOPToSoapDomConvert
Options = [soSendMultiRefObj, soTryAllSchema, soRootRefNodesToBody,
soUTF8InHeader, soCacheMimeResponse, soUTF8EncodeXML]
Encoding = 'utf-8'
Left = 120
Top = 8
end
end
--
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
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
---
[delphi-br] Sniffer SQL com ODAC 6.25 p/ Oracle 10g
Bom dia a todos... Tenho, em minhas aplicações, uma classe que gerencia minhas conexões com o Oracle em runtime utilizando o ODAC. Nesta classe, são instanciados, também em runtime, objetos TOraStoredProc para as interações com o BD. Minha necessidade é a seguinte: preciso criar um sniffer SQL que monitore, à partir do SID do usuário, todas as instruções passadas ao BD, mesmo em PL/SQL. Como uso ODAC, e o suporte da Devart deixa muito a desejar, não consegui nada, nem deles (Devart), nem da internet, que me ajudasse. Enfim, minha necessidade é algo muito parecido com o SQL Trace, usado para monitorar o SQL Server. Alguém sabe como resolver isto utilizando o ODAC ou conhece algum componente que faça esta operação? Em tempo: este monitoramento não será realizado nas aplicações distribuídas aos usuários, mas na aplicação que gerencia as atualizações destas aplicações, sendo que apenas a equipe de desenvolvimento poderá utilizá-la. Utilizo Delphi 7, ODAC 6.25, Oracle 10g e Oracle Client 9.0. --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- 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 ---
[delphi-br] [OFF-TOPIC] Oferta de emprego
Bom dia a todos: A empresa em que trabalho necessita do seguintes profissionais: * Programador Delphi (1 vaga) * Analista de sistemas (1 vaga) Requisitos: Programador: - Experiência em programação Delphi (preferência para Delphi 3 e 7); - Desenvolvimento PL/SQL (preferencialmente Oracle); - Conhecimentos intermediários de linguagem SQL; - Facilidade de comunicação; - Pró-atividade. Desenvolvimento em POO e modulado em BPLs são desejáveis e um diferencial para a contratação. Analista: - Formação superior na área; - Experiência em análise para desenvolvimento de sistemas; - Geração de documentação para desenvolvimento; - Facilidade de comunicação; - Pró-atividade. Experiência em desenvolvimento, principalmente em Delphi, é desejável. As vagas são para a região de Curitiba. O salário para ambas as vagas é negociável conforme a experiência dos candidatos. Quem tiver interesse ou possa indicar um candidato, favor enviar o currículo pessoal, nos formatos .pdf, .odt ou .doc, ou link UCN para o e-mail [EMAIL PROTECTED] com o título da vaga e pretensão salarial. Abraços... -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- 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 ---
[delphi-br] Erro ao montar repositório no Delphi 2007
Bom dia a todos... Estou com o seguinte problema: quando crio meus objetos para herança para um projeto no Delphi 2007, tudo vai muito bem, obrigado. Porém, se tento salvá-los no repositório, ele me dá um erro, dizendo que não pode renomear o arquivo C:\Documents and settings\willian\Dados de aplicativos\Borland\BDS\5.0\ObjectRepository.xml para '' (não lembro exatamente o nome do arquivo, pois o D2k7 fica no meu escritório, não no trabalho). Já verifiquei as permissões de escrita do arquivo, mudei os atributos do diretório para leitura/escrita e nada. Só consigo adicionar os objetos ao repositório se renomear o arquivo de extensão .$$$ para .xml ou editar o arquivo xml e reiniciar o D2k7. Muita mão de obra... Alguém tem idéia doq seja este problema e como resolvê-lo? []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- 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 ---
[delphi-br] Método Add do TStringList não adici ona string...
Bom dia a todos...
Tenho uma rotina do tipo Parse String que usa um TStringList para
retornar o resultado. O parse é feito corretamente, mas quando vou
executar a adição da string resultante, meu stringlist permanece vazio!
Eis o código amaldiçoado (graças ao dia das bruxas):
procedure proDividirStringDelimitada(const pStringList: TStringList;
const pStr, pDelimitador: String);
var
rPos, rLargura: Integer;
rParsed, rStr : String;
begin
rLargura := Length(pDelimitador);
rStr := pStr + pDelimitador;
pStringList.BeginUpdate;
try
if Assigned(pStringList) then
pStringList.Clear;
try
while Length(rStr) 0 do
begin
rPos := Pos(pDelimitador, rStr);
rParsed := Copy(rStr, 0, rPos - 1);
pStringList.Add(rParsed) ;
rStr := Copy(rStr, rPos + rLargura, MaxInt);
end;
finally
pStringList.EndUpdate;
end;
except
ShowMessage('Erro!');
end;
end;
Alguém tem alguma idéia do porquê desta maldição?
--
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
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
---
[delphi-br] Leitor/gravador de smart cards PertoSmart
Boa tarde, galera... Seguinte: alguém já desenvolveu alguma solução utilizando o leitor/gravador de smart cards da Perto? Pesquisei por componentes para PC/SC, mas só consegui encontrar 1 que somente faz a leitura, mas não a gravação. Então, se alguém souber de algo que eu possa usar para implementar a escrita dos SCs, ficaria muito agradecido. []'s -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- 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 ---
[delphi-br] Erro instanciando classe em componente
;
FColors := TColors.Create;
FMsgs := TMaskEditMessages.Create;
FCharForBlanks := #32;
FSaveLiterals := False;
FControlMask := 0;
end;
-
[3] - { TTutorialDateEdit }
TTutorialDateEdit = class(TEdit)
private
{ Private declarations }
FMinDate,
FMaxDate: TDate;
FMandatoryState,
FMandatory,
FShowMessages,
FColorize,
FRequired: Boolean;
FMask: String;
FMsgs: TDateEditMessages;
FMsgType: TMessageType;
FColors: TColors;
function GetDate: TDate;
procedure SetDate(D: TDate);
procedure SetMessages(Value: TDateEditMessages);
procedure SetColors(Value: TColors);
procedure SetColorize(Value: Boolean);
procedure SetRequired(Value: Boolean);
protected
{ Protected declarations }
procedure KeyPress(var Key: Char); override;
procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure DoEnter; override;
procedure DoExit; override;
procedure Change; override;
public
{ Public declarations }
published
{ Published declarations }
constructor Create(AOwner: TComponent);
property DateValue: TDate read GetDate write SetDate;
property MinDate: TDate read FMinDate write FMinDate;
property MaxDate: TDate read FMaxDate write FMaxDate;
property Mandatory: Boolean read FMandatory write FMandatory;
property ShowMessages: Boolean read FShowMessages write FShowMessages;
property Colorize: Boolean read FColorize write SetColorize;
property Required: Boolean read FRequired write SetRequired;
property Mask: String read FMask;
property Messages: TDateEditMessages read FMsgs write SetMessages;
property MessageType: TMessageType read FMsgType write FMsgType;
property Colors: TColors read FColors write SetColors;
end;
..
..
..
constructor TTutorialDateEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FRequired := True;
FColorize := True;
FColors := TColors.Create;
FMsgs := TDateEditMessages.Create;
FMask := 'DD/MM/';
SetDate(Date);
FMsgType := mtAlert;
end;
--
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
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
---
[delphi-br] Erro no BDE ao fechar 2 objetos TStoredProc ou TQuery consecutivamente
Olá, galera... Seguinte: o problema é cascudo! Em uma determinada aplicação desenvolvida em Delphi3 tenho objetos TStoredProc e TQuery manipulando informações no BD (Oracle 10g Enterprise) via Oracle Client 9.0. Até aí, tudo bem. A aplicação é legada e NÃO há como migrá-la para uma versão mais atual do Delphi sem impactar em nosso cronograma. Digo isso para que respostas como muda pro Delphi 2007 ou usa o ODAC, as quais não ajudam em nada, não apareçam. Voltando ao caso, em 'n' formulários tenho objetos TQuery e TStoredProc instanciados e trabalhando normalmente. Porém, em certas situações, eles teimam em causar problemas. Em certas máquinas, a execução de dois métodos Close em dois componentes distintos (TQuery ou TStoredProc, isso independe) simplesmente encerra a aplicação! Isso sem nenhuma mensagem de exceção. Debugando a aplicação, me deparei com uma mensagem *INFORMATIVA* de violação de acesso! O texto da mensagem é este: access violation at 0x4da2ed3d: read of address 0xffaaadcc 83 3A 00 74 63 E8 39 10 00 00 64 8B Exatamente como aparece na caixa de mensagem. Após clicar em ok, a aplicação é encerrada. Em uma consulta ao google, a pesquisa pelo código de erro me retornou isto [1]. Alguém tem alguma idéia de como resolver (ou contornar, mesmo com POG) este problema? Reitero: respostas como muda pro Delphi 2007 ou usa o ODAC não ajudam. Dentre uma das tentativas, tentamos compilar a aplicação em Delphi7, mas o problema persiste. Tenho a alternativa de usar o ODAC, mas, como já disse, o impacto no nosso cronograma seria gigantesco, pois esta é a maior de todas as nossas aplicações em produção. Abraços e espero ter sido claro o suficiente (se não fui, me desculpem e, por favor, me questionem)... [1] - http://www.google.com.br/search?hl=pt-BRrlz=1G1GGLQ_PT-BRBR293q=0x4da2ed3dbtnG=Pesquisarmeta= -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- 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 ---
[delphi-br] Problemas Zeos + Stored Procedures
Olá a todos... Estou enfrentando problemas em implementar o uso de Stored Procedures com o Zeos. Utilizando o BDE ou ADO, consigo utilizá-las normalmente, tanto com Oracle quanto com PostgreSQL ou MySQL, porém, com o Zeos ele me retorna o erro Operation not suported, tanto em tempo de design quanto em tempo de execução. A versões são: Zeos 6.6.2-RC, Oracle 10g, PostgreSQL 8.2.3 e MySQL 5.0.51b. Utilizo Delphi 7 e BDS 2006. []'s --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] ---
Re: RES: [delphi-br] Mas alguem na lista usa java tb???
FHNa verdade, o Free Pascal, é o compilador.. a IDE parecida com Delphi e Kylix é o Lazarus E que, por sinal, está num estágio bem interessante de evolução. A aposta nessa IDE no meio SL é tão interessante que até a equipe desenvolvedora dos componentes Zeos criou um pacote para ela. Ainda existem alguns mínimos problemas aqui e acolá, como um melhor suporte nativo a banco de dados, mas aí entra o pessoal da Zeos... Juntamente com a IDE temos uma ferramenta de migração de projetos Delphi para Lazarus, a qual ainda não está totalmente aperfeiçoada, mas quebra um bom galho em aplicações de pequeno porte. E, pra ajudar, temos a IDE para Windows exatamente igual a do Linux e nela não precisamos setar diretivas de compilação como na dupla Delphi/Kylix ou escolher esta ou aquela paleta de componentes. E a IDE Linux conta também com um compilador cross-plataform, o que permite escrever o código usando o Linux e compilá-li para Windows, sem a necessidade de se ter Windows instalado. A interface dos programas é baseada na biblioteca GTK2, nativa no Linux, mas que, no caso do Wildows, deve ser distribuída juntamente com a aplicação. Uso o Lazarus há 2 anos e até hoje não encontrei dificulades em desenvolver minhas aplicações para Linux ou portar as que desenvolvi para Windows. Lógico que o projeto não está completo, mas quanto mais desenvolvedores o utilizarem e detectarem suas falhas, maior será o feedback para o projeto e mais rapidamente o projeto evoluirá. []'s Willian
Re: [delphi-br] Programar para LInux...O que fazer??
Na verdade, o maior problema em usar o Kylix é o fato de não se ter suporte ao kernel 2.6. Desenvolver em sistemas como o Conectiva 8 é o fim da picada... Se realmente a Borland/Code Gear decidir lançar novas atualizações para o Kylix, espero q a primeira seja o suporte ao kernel 2.6. Porém, para uma melhor compatibilidade com o CLX devemos regredir ao Delphi7 ou, quem sabe, o Delphi6. Java não é a solução de todos os problemas. A portabilidade é excepcional, mas a conta é cara... Java exige muito dos recursos da máquina em que roda. Desenvolver em Java significa investir alto em hardware, em uma boa suíte de desenvolvimento (temos a Eclipse, totalmente free, para Linux, Windows e Mac) e em tempo para aprender a linguagem (a não serque já saibamos usá-la ou tenhamos um bom conhecimento de C++). Ou seja, migrar de Object Pascal para Java custa muito caro... Alternativas existem, como usar o Lazarus (projeto livre baseado no FreePascal), ou usar a linguagem que é nativa do Linux e com a qual a maioria dos programas é desenvolvida: o C. Em Linux, via de regra, aplicações gráicas para o KDE e o Gnome são desenvolvidas em C++ com interfaces XML ou SGML (KDevelop e GTKBuilder). E, só para relembrar, está é a única maneira totalmente livre de desenvolvimento. Ter de aprender por aprender, para usar o Linux, a melhor alternativa é o C++... []'s Willian
Re: Res: [delphi-br] Problemas com DLL... (resolvido)
Sou grato a todos os que tentaram ajudar enviando suas sugestões. Obrigado. Porém, por mais incrível que possa parecer, a solução do meu problema veio de um manual para a utilização de uma DLL fornecida pela Bematech. Lendo o manual, pude perceber que, para aplicações e bibliotecas em linguagens diferentes, a indexação das rotinas se fazia necessário e que, como o Delphi dá suporte a strings longas (acima de 255 caracteres), todos os retornos deveriam ser do tipo ShortString (principalmente por causa do C, que não tem o tipo string). Feito isso, o problema se resolveu. Agradeço a todos os que tentaram colaborar. Para quem quiser ver o resultado, é só baixar o pacote em http://ntitecnologiacombr.t5.com.br/downloads/crypto.zip e testá-lo. Qualquer sugestão é bem-vinda. []'s Willian
