[delphi-br] Como rodar o GBAK DO firebird no win 7
Bom dia pessoal, Alguém poderia me ajudar a rodar o gbak no win7. Não consegui rodar nenhum utilitário de backup no win7. Se alguém tiver algum utilitário de backup que rode no win7 por favor poderia me passar. Atte. DBSOFT INFORMÁTICA LTDA OURO FINO - MG TEL:(35)3441-5254 DIMAS BOLOGNANI CEL:9978-8540 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Valor Ponto de Função Delphi
Elaine, Procure por APFplus é um aplicativo onde vc pode calcular seus projetos e já tem algum valores para varias linguagem de programação. Atte. Dimas De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Elaine Cristina Rocha de Oliveira Enviada em: sábado, 3 de julho de 2010 15:29 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Valor Ponto de Função Delphi Olá Colegas, Alguém sabe me informar o valor do ponto de função para programação delphi!? Ou algum site que possua esta referência!? Estou precisando para finalizar a proposta tecnológica do meu tcc Desde já, obrigada. Atenciosamente, Elaine Cristina Programadora Delphi / Webmaster Cel: (027) 8184-2656 www.crystaldesenvolvimento.com.br P Antes de imprimir, veja se realmente é necessário e pense em seu compromisso com o meio ambiente. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] NFe com ACBR
Bom dia a todos, Alguém usa ACBR para NFe para exportação? Não consegui achar a tag UFEmbarq e xLocEmbarq alguém sabe me dizer se tem estas propriedades no ACBR NFe? Outra coisa alguém já usa o ACBR NFe na versão 2.0 do XML? Atte. Dimas [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Firebird Embedded
Bom dia Utilizo Delphi 7, Firebird 1.5.2 e IBO 4.8. Fiz alguns testes com a versao do Windows 7 Home Edition e não rodou meu programa. Preciso criar uma aplicação que rode o FireBird Embedded, vi um exemplo na DevMedia, porem não é com IBO e ao fazer aqui ocorre um erro ao ler FBCLIENT.DLL Quem puder me ajudar, eu agradeço. Dimas Fernando. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Rave, passar parametro para campo Memo
Bom dia Trabalho com Delphi 7 e Rave Report versao 5.0.04 (VCL7) Criei um relatório onde passo varios parametros. Um destes parametros é para uma campo Memo. O meu problema é que não consigo passar para o campo Memo o conteudo de um arquivo Texto que precisa ser impresso. Qual a melhor forma de se passar um parametro para um campo Memo ? Obrigado [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Rave, passar parametro para campo Memo
Oi Murilo. Eu utilizo um arquivo de nome Relatorio.RAV onde não tem nada de banco de dados, apenas passo os parametros que desejo como Nome, Endereco etc e depois preciso imprimir uma pequena Carta que esta em um campo Memo. O que eu preciso fazer é poder alterar as informações da Carta sem ter que ficar alterando manualmente o arquivo RAV. Por isso eu tenho um arquivo Texto que deve ser lido antes de imprimir o relatorio e alterar o conteudo do campo Memo. Obrigado. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Zeos ou IBO?
Não sei não, eu uso IBO , ele é bem complexo por ter muitas funcionalidades, e qdo se aprende a utiliza-lo facilita bastante o trabalho. Opnião minha. Abraçosss _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: sexta-feira, 25 de julho de 2008 04:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Zeos ou IBO? Nee esse IBO não rola. Já usei uma vez e odiei. Complicado de configurar, lento, pesadão.. Sai fora!! []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol. mailto:wchagasj%40bol.com.br com.br http://delphitocorp http://delphitocorporerm.blogspot.com/ orerm.blogspot.com/ http://twitter. http://twitter.com/wchagas com/wchagas MSN: whitesockets@ mailto:whitesockets%40hotmail.com hotmail.com SKYPE: WalterChagasJr - Original Message - From: Fabiano Almeida To: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Thursday, April 22, 2010 9:38 PM Subject: [delphi-br] Zeos ou IBO? Conectar Delphi 2007 com Firebird 2.0, melhor Zeos ou IBO? atualmente uso o Zeos e gostei da simplicidade e não necessidade de distribuir infindáveis DLLs pra funcionar, apenas a aplicação em si. Porém tenho lido que IBO tem performance muito superior, que é rápido, lava, passa e faz café num instante... E aí, qual vcs me recomendam? Sds, Fabiano [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] Abreviar nomes de Componentes
Obrigado pela resposta. Seguindo uma mesma nomenclatura é mais facil para outros Programadores entenderem o código fonte. Seguir uma padronização facilita muito posteriormente. Até maiss. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quinta-feira, 22 de abril de 2010 11:51 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Abreviar nomes de Componentes Prioridade: Alta Não existe uma lista padronizada, o que existe é um padrão de nomenclatura, chamado trigramação, que consiste em utilizar as iniciais mais significativas de uma entidade (ou classe) para compor o nome de um atributo (ou de um objeto). Existem na Internet sugestões de nomenclatura de componentes, mas nenhuma delas é padronizada, oficializada por assim dizer. Portanto, o que você quer, na realidade, não é uma lista com nomes abreviados de componentes Delphi, e sim um padrão para nomenclatura. Sendo assim, sugiro que informe-se mais sobre o tema trigramação na Internet e monte seu próprio padrão de nomenclatura de componentes. Boa sorte. Sds. De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Dimas Enviada em: quarta-feira, 21 de abril de 2010 10:29 Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: [delphi-br] Abreviar nomes de Componentes Oi pessoal Preciso de uma lista com os nomes abreviados dos componentes em Delphi. Exemplo: TComboBox = Cbx Sei que tem uma lista com todos os nomes Abreviados para seguir uma padronizaão. Obrigado. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Abreviar nomes de Componentes
Oi pessoal Preciso de uma lista com os nomes abreviados dos componentes em Delphi. Exemplo: TComboBox = Cbx Sei que tem uma lista com todos os nomes Abreviados para seguir uma padronizaão. Obrigado. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Abreviar nomes de Componentes
Achei esta lista, mas no DBGRID eu costumo usar DBG_ . 9. Componentes PADRONIZAR NOS DOS COMPONENTES O nome interno (propriedade NAME dos componentes) deverá seguir os critérios da Notação Húngara conforme descrito na tabela, abaixo, algum componente que não constar na mesma deverá ser consultado, para definir e incluir o mesmo neste documento. Prefixo Tipo de Objeto bar ProgressBar, StatusBar, TrackBar bat BatchMove btn Button, BitBtn, SpeedButton bvl Bevel cal Calendar cbx ComboBox, DBComboBox chd ChechDoc chk CheckBox, DBCheckBox dbs DataBase dcc DDEClientConv dci DDEClientItem dir Directory OutLine dlg Dialogs (Open, Save, Font, Color, Print, PrintSetup, Find, Replace) drv DriveComboBox dsc DDEServerConv dsi DDEServerItem dtm DataModule dts DataSource edt Edit, DBEdit, SpintEdit fcb FilterComboBox frm Form ftp FTP ( Internet File Transfer Protocol) gge Gauge grd ColorGrid, DrawGrid, DBGrid, DBControlGrid, StringGrid grf ChartFX, VCFistImpression, GraphicsServer grp GroupBox hdr HeaderControl, Header hot HotKey htm HTML (Internet Web Browser) htt HTTP (Send, Reciver or Search HTML Documents) ibe IBEventAlerter img Image, DBImage lbl Label, DBText lst ListBox, DBListbox, DirectoryListBox, FileListBox, ImageList luc DBLookUpComboBox, DBLookUpCombo lul DBLookUpListBox, DBLookList lvw ListView med MediaPlayer mmo Memo, DBMemo, RichEdit mni MenuItem mnu MainMenu msk MaskEdit nav DBNavigator nbk NoteBook, TabbedNoteBook nnt NNTP (Internet NetWork NewsGroup Acess) ole OLEContainer out OutLine pbx PaintBox pge PageControl pgm PageManager pgp PageProxies pnl Panel pop POP ( Internal Post Office Protocol to Receive E-mail ) pum PopUpMenu qrb QRBand qrc QRCalc qrd QRSysData qrg QRGroup qrl QRDetailLink qrm QRMEmo qrp QuckReport qrs QrShape qrt QrLabel, QRDBText qrv QrPreview qry Query rad RadioButton rgp RadioGroup, DBRadioGroup rpt Report sbr ScrollBar sbx ScrollBox shp Shape sht VCFormulaOne smt SMTP ( Internal Simple Mail Transport ) spl VCSpeller spn SpinButton, UpDown ssn Session stp StoreProc swt Swithc tab TabControl, TabSet tbl Table Tcp TCP ( Internal Data Exchange ... like a telephone ) Tmr Timer Ter TreeView Udp UDP (Internet Data Broadcast... like a radio ) Ups UpDateSQL REPORT BUILDER Pbc ppBarCode, ppDBBarCode Ppa ppArchiveReader Ppg Region Ppj JITPipeLline Ppl DBPipeLine Ppq ppQueryWizard Ppr ReportBuilder Pps SubReport Ppv ppViewer Ppx TextPipeLine Prb Bandas ( Detail, Header, Footer,... ) Prc ppCalc, ppDBCalc Prl ppLabel, ppDBLabel Prm ppRichText, ppMemo, ppDBRichText, ppDBMemo Psh ppLine, ppShape GRAFICOS Cht Chart, DBChart Chs BarSeries _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dimas Enviada em: quarta-feira, 21 de abril de 2010 11:29 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Abreviar nomes de Componentes Oi pessoal Preciso de uma lista com os nomes abreviados dos componentes em Delphi. Exemplo: TComboBox = Cbx Sei que tem uma lista com todos os nomes Abreviados para seguir uma padronizaão. Obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Abrir duas ou mais vezes o mesmo formulario.
Bom dia pessoal. Utilizo Delphi 7. Preciso abrir um formulario de Agenda duas ou tres vezes, pesquisar por Periodo e mostrar em um DbGrid o resultado. Tenho uma rotina que faz isto POREM, o que faço em um formulario reflete automaticamente no outro, ou seja, ate abre varias Agendas mas fica sempre o mesmo resultado em todas. Preciso que em cada uma tenha o seu proprio resultado. Rotina para abrir a Agenda: With TFrmAgenda.Create(Self) do begin Show ; Windows.SetParent(handle, Self.handle ) ; end ; Observação: já coloquei no formulario no evento onClose Action := caFree; Obrigado. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Abrir duas ou mais vezes o mesmo formulario.
Oi Luciano. Eu tenho um formulario que é uma Agenda de Horarios com opções para Incluir, Alterar e Excluir. Eu preciso chamar esta formulário duas vezes e usando ShowModal ele abre somente uma vez. Da forma como eu mencionei antes, ate consigo abrir duas vezes porem, a pesquisa que eu faço em um reflete automaticamente no outro. Eu quero poder deixar aberto os dois com resultados diferentes na pesquisa. Tente abrir os forms usando objetos locais, assim: // aqui é no botão de pesquisa do FormCadastro var vFrmPesquisa : TFormPesquisa; begin vFrmPesquisa := TFormPesquisa.Create; vFrmPesquisa.ShowModal; FormCadastro.edtResultPesquisa.Text := vFrmPesquisa.ResultPesquisa; FreeAndNil(vFrmPesquisa); end; No vFrmPesquisa, você cria property ResultPesquisa para transportarem suas informações para o formcadastro. Desta forma cada formcadastro terá sua própria instância de formpesquisa, totalmente independente. Luciano C. Simões --- Em delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br, Dimas dimasbr...@... escreveu Bom dia pessoal. Utilizo Delphi 7. Preciso abrir um formulario de Agenda duas ou tres vezes, pesquisar por Periodo e mostrar em um DbGrid o resultado. Tenho uma rotina que faz isto POREM, o que faço em um formulario reflete automaticamente no outro, ou seja, ate abre varias Agendas mas fica sempre o mesmo resultado em todas. Preciso que em cada uma tenha o seu proprio resultado. Rotina para abrir a Agenda: With TFrmAgenda.Create(Self) do begin Show ; Windows.SetParent(handle, Self.handle ) ; end ; Observação: já coloquei no formulario no evento onClose Action := caFree; Obrigado. [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] RES: Abrir duas ou mais vezes o mesmo formulario.
Eu agradeço Luciano sua ajuda. Mas o que eu preciso é abrir a Agenda duas vezes. Obrigado. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de simoesluciano Enviada em: quarta-feira, 14 de abril de 2010 09:31 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] RES: Abrir duas ou mais vezes o mesmo formulario. Não foi isso que tentei passar. O exemplo que escrevi, é para manipulação da tela de pesquisa. A sua tela de cadastro (agenda) continuaria da forma que é hoje, com show. Desta forma cada form de cadastro (agenda), ao clicar em pesquisa, terá sua própria instância da classe de pesquisa. Luciano C. Simões --- Em delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br, Dimas dimasbr...@... escreveu Oi Luciano. Eu tenho um formulario que é uma Agenda de Horarios com opções para Incluir, Alterar e Excluir. Eu preciso chamar esta formulário duas vezes e usando ShowModal ele abre somente uma vez. Da forma como eu mencionei antes, ate consigo abrir duas vezes porem, a pesquisa que eu faço em um reflete automaticamente no outro. Eu quero poder deixar aberto os dois com resultados diferentes na pesquisa. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] RES: Abrir duas ou mais vezes o mesmo formulario.
Oi Ricardo Vou analisar o que voce mencionou, pq o meu formulário faz uso de 6 tabelas diferentes com varios DataSet terei que ver como fazer o Clone dos DataSet´s Obrigado. _ Não tenho como te passar passo-a-passo pois estou sem o Delphi pra testa e sem muito tempo, portanto vou apenas te dar as diretrizes para que vc possa fazer pesquisas complementares pra poder continuar, ok? Minha sugestão é que a cada vez que vc abrir esse formulário, que vc crie um clone do DataSet ao qual ele está ligado. O problema que vc tem de todas as alterações estarem sincronizadas ocorre porque todas as novas instâncias do seu formulário de Agenda apontam para o mesmo DataSet. Com a estratégia que propus (criar um clone do DataSet assim que abrir uma segunda instância do formulário) vc realiza um merge do clone para o DataSet original assim que fechar o formulário e confirmar que deseja aplicar as mudanças. Espero ter sido claro e que isso lhe ajude! Abraço, Ricardo Cardoso. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Abrir duas ou mais vezes o mesmo formulario.
Exatamente, todos meus formulários usam um DataModule onde ficam as procedures, tabelas, dataset etc. Para qualquer componente faço referencia ao Datamodule. Depois irei fazer um teste criando outro formulario e colocando as tabelas, dataset.. etc e ver qual sera o resultado. Pensei que seria mais facil resolver..mas.. fazer o que rs Obrigado. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dirlei Enviada em: sábado, 21 de novembro de 2009 15:29 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Abrir duas ou mais vezes o mesmo formulario. Provavelmente o formulário que você cria mais de uma vez usa um dataset que está em um datamodule/formulário geral para a aplicação. Se for isso, você precisa que o dataset esteja dentro do formulário que será aberto múltiplas vezes para que sejam criadas múltiplas instâncias do dataset também. Dirlei. Em Qua, 2010-04-14 às 08:23 -0300, Dimas escreveu: Bom dia pessoal. Utilizo Delphi 7. Preciso abrir um formulario de Agenda duas ou tres vezes, pesquisar por Periodo e mostrar em um DbGrid o resultado. Tenho uma rotina que faz isto POREM, o que faço em um formulario reflete automaticamente no outro, ou seja, ate abre varias Agendas mas fica sempre o mesmo resultado em todas. Preciso que em cada uma tenha o seu proprio resultado. Rotina para abrir a Agenda: With TFrmAgenda.Create(Self) do begin Show ; Windows.SetParent(handle, Self.handle ) ; end ; Observação: já coloquei no formulario no evento onClose Action := caFree; Obrigado. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Procedure para calcular idade no firebird 1.5
Oi pessoal Trabalho com FireBird 1.5 e Delphi 7. Preciso fazer um Select de uma tabela de pessoas e um dos campos de retorno precisa ser a idade da pessoa. (exemplo: 4 anos , 5 meses ) Na minha tabela eu tenho a data de nascimento. Agradeço sugestões. Obrigado.
RES: [delphi-br] Procedure para calcular idade no firebird 1.5
Oi Moacir A rotina em Delphi eu tenho, quero criar uma procedure no FireBird que eu posso chamar atraves de um Select e ele me calcular a idade da pessoa, ou calcular qquer coisa que eu passe como parametro a Data e a procedure calcula com a data atual do servidor. Exemplo: Select PESSOA.NOME, PESSOA.DATA_NASC, CalculaIdade( PESSOA.DATA_NASC) Neste caso vai me retornar 3 campos, sendo o terceiro o calculo da idade. Obrigado. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Procedure para calcular idade no firebird 1.5
Obrigado Moacir, esta funcionando. A procedure que voce fez pode-se passar duas datas e comparar a diferença entre elas, achei muito bom. A rotina que eu tenho envolve 3 Functions, calculando qdo for ano Bissexto. Todas em Delphi... Function Bissexto(AYear: Integer): Boolean; begin Result := (AYear mod 4 = 0) and ((AYear mod 100 0) or (AYear mod 400 = 0)); end; Function DiasDoMes(AYear, AMonth: Integer): Integer; const DaysInMonth: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); begin Result := DaysInMonth[AMonth]; if (AMonth = 2) and Bissexto(AYear) then Inc(Result); end; Function Idade(DataNasc : TDate) : String; Var Ano1, Mes1, Dia1 : Word; Ano2, Mes2, Dia2 : Word; Ano, Mes, Dia : Word; Idade : String; AuxDia1, AuxDia2 : Integer; begin if DataNasc = 0 then begin Result := '' ; Exit ; end; Idade := ''; DecodeDate(DataNasc, Ano1, Mes1, Dia1); DecodeDate(Date, Ano2, Mes2, Dia2); AuxDia1 := Dia1; AuxDia2 := Dia2; if (Dia1 Dia2) And ((Mes2 - Mes1) = 1) then begin Dia2 := Dia2 + DiasDoMes(Ano1, Mes1); Mes1 := Mes2; end else if (Dia1 Dia2) And (Mes1 Mes2) then begin Dia2 := Dia2 + DiasDoMes(Ano1, Mes1); end else if (Mes1 = Mes2) And (Dia1 Dia2) And (Ano1 Ano2) then begin Dia2 := Dia2 + DiasDoMes(Ano1, Mes1); Mes2 := Mes2 + 11; Ano1 := Ano1 + 1; end; if (Mes1 Mes2) And (AuxDia1 = AuxDia2) then begin Ano1 := Ano1 + 1; Mes2 := Mes2 + 12; end else if (Mes1 Mes2) And (AuxDia1 AuxDia2) then begin Ano1 := Ano1 + 1; Mes2 := Mes2 + 11; end; Ano := Ano2 - Ano1; Mes := Mes2 - Mes1; Dia := Dia2 - Dia1; if Ano 1 then Idade := IntToStr(Ano) + ' a ' // ' Anos' else if Ano = 1 then Idade := IntToStr(Ano) + ' a ' ; // ' Ano'; if Mes 1 then Idade := Idade + ', ' + IntToStr(Mes) + 'm' //' Meses ' else if Mes 0 then Idade := Idade + ', ' + IntToStr(Mes) + 'm' ; // ' Mês '; If Ano = 0 then Delete(Idade, 1, 1); // NAO COLOQUEI O NUMERO DE DIAS.. { if Dia 1 then Idade := Idade + ' e ' + IntToStr(Dia) + ' Dias' else if Dia 0 then Idade := Idade + ' e ' + IntToStr(Dia) + ' Dia'; } if (Mes = 0) And (Ano = 0) then Delete(Idade, 1, 3); if (Ano1 = Ano2) And (Mes1 = Mes2) And (Dia1 Dia2) then Idade := '0'; Result := Idade; end; [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] IDE Fix Pack 3.0
Realmente, parentBackground = false, eu coloquei True, mudei para False novamente e voltou a funcinar corretamente em outros computadores. O interessante é que no meu, por ter o Delphi, a mudança de cor de fundo não ocorria. Fiz o teste em outros computadores e mudava a cor. Obrigado pela dica... Abraços.. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: sábado, 27 de março de 2010 13:59 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] IDE Fix Pack 3.0 O DelphiSpeed só interage com a IDE, o executável gerado em nada é modificado, veja a propriedade parentBackground do form. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 26 de março de 2010 16:43, Dimas dimasbr...@uol.com.br escreveu: Oi pessoal. Eu baixei o programa DelphiSpeedUpV28.zip para o Delphi 7.0 (Build 4.453) Aparentemente no meu computador funcionou bem. Compilei um programa, rodei no meu pc e tudo foi bem, rodei o programa em outro computador e a cor do fundo das telas assume a cor de fundo da area de trabalho do usuario.. Não entendi porque isto esta acontecendo. Já desinstalei o DelphiSpeedUpV28 , Compilei e no meu pc tudo certo mas no outro computador, continua assumindo a cor de fundo do pc. Agradeço qquer ajuda. Obrigado _ De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: terça-feira, 16 de março de 2010 21:01 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br; delphi-br-especialis...@yahoogrupos.com.brdelphi-br-especialistas%40yahoogr upos.com.br; delphi-to...@yahoogrupos.com.br delphi-total%40yahoogrupos.com.br; n...@yahoogrupos.com.br nddv%40yahoogrupos.com.br Assunto: [delphi-br] [off-topic] IDE Fix Pack 3.0 Graças a boa vontade de nosso ilustre amigo Andreas HausladenAndreas.Hausladen@ mailto:Andreas.Hausladen%40gmx.deAndreas.Hausladen%2540gmx.de gmx.de?subject=Blog, não teremos mais que suportar os Bug's no Object Inspector O que parece tão difícil da Embarcadero corrigir o Andreas faz e sem os fontes. quem tiver interesse, segue o link http://andy. http://andy.jgknet.de/blog/?p=781 jgknet.de/blog/?p=781 Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.comeduardo.drd%2540gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com.br/ mas.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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[delphi-br] IDE Fix Pack 3.0
Oi pessoal. Eu baixei o programa DelphiSpeedUpV28.zip para o Delphi 7.0 (Build 4.453) Aparentemente no meu computador funcionou bem. Compilei um programa, rodei no meu pc e tudo foi bem, rodei o programa em outro computador e a cor do fundo das telas assume a cor de fundo da area de trabalho do usuario.. Não entendi porque isto esta acontecendo. Já desinstalei o DelphiSpeedUpV28 , Compilei e no meu pc tudo certo mas no outro computador, continua assumindo a cor de fundo do pc. Agradeço qquer ajuda. Obrigado _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: terça-feira, 16 de março de 2010 21:01 Para: delphi-br@yahoogrupos.com.br; delphi-br-especialis...@yahoogrupos.com.br; delphi-to...@yahoogrupos.com.br; n...@yahoogrupos.com.br Assunto: [delphi-br] [off-topic] IDE Fix Pack 3.0 Graças a boa vontade de nosso ilustre amigo Andreas HausladenAndreas.Hausladen@ mailto:Andreas.Hausladen%40gmx.de gmx.de?subject=Blog, não teremos mais que suportar os Bug's no Object Inspector O que parece tão difícil da Embarcadero corrigir o Andreas faz e sem os fontes. quem tiver interesse, segue o link http://andy. http://andy.jgknet.de/blog/?p=781 jgknet.de/blog/?p=781 Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com.br/ mas.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] ACBR C/ NFe em contigencia SCAN
Bom dia a todos Alguém já usou o ACBR p/ NFe em Contingência no SCAN? Quais configurações precisa fazer para transmissão p/ SCAN? Atte. DBSOFT INFORMÁTICA LTDA OURO FINO - MG TEL:(35)3441-5254 DIMAS BOLOGNANI CEL:9978-8540 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ler arquivo RTF no Delphi 7
Oi pessoal, agradeço a ajuda de todos, Usei o TMemo para alterar o arquivo .RTF e salvar com outro nome. Memo_Arquivo.Lines.Clear ; Memo_Arquivo.Lines.LoadFromFile(arquivo.rtf); Memo_Arquivo.Lines.CommaText := AnsiReplaceStr( Memo_Arquivo.Lines.CommaText , 'CIDADE' , São Paulo ) ; Memo_Arquivo.Lines.CommaText := AnsiReplaceStr( Memo_Arquivo.Lines.CommaText , 'NOME_PESSOA, JOSE CARLOS); Memo_Arquivo.Lines.SaveToFile(NovoArquivo.rtf); Esta funcionando... com TSTringList acredito que de o mesmo resultado. Obrigado novamente... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ler arquivo RTF no Delphi 7
Utilizo Delphi 7 e preciso abrir um arquivo formato .rtf feito no Word, trocar algumas palavras como CIDADE por nome da cidade, PESSOA por nome da pessoa e salvar Mas sem perder a formatação das margens esquerda e direita. Tentei com o componente TRichEdit porem com este as margens são perdidas. Agradeço
RES: [delphi-br] ajuda em sql
Outra solução provavel voce poderia ter 3 campos na tabela de cientes, onde ira gravar o numero da ultima compra, data e valor (exemplos). Depois vc apenas seleciona os clientes que deseja. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Miguel Franco Galego Enviada em: sábado, 20 de fevereiro de 2010 14:03 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] ajuda em sql Pode ser feito o select dessa maneira: select a.id_cliente, a.cliente , ( select max(b.dta_compra) from compras b where b.id_cliente = a.id_cliente ) as dta_compra from cliente a / Dessa forma lista todos clientes e suas respectiva data de ultima compra, caso o cliente nunca tenha comprado o campo será nulo, Espero ter ajudado, Em 20 de fevereiro de 2010 07:05, alessandra porto alessandraport...@yahoo.com.br escreveu: esta é uma parte de uma pesquisa grande onde estou meio com duvidas preciso de uma ajudinha é o seguinte tenho 2 tabelas compras cliente id_compras id_cliente id_cliente cliente dta_compra preciso selecionar somente a ultima compra (dta_compra) dos clientes que possuem compras. Pode existir cliente que nunca comprou e deve retornar na pesquisa que ele possui (zero) compras. Portanto possui 70.000 clientes e 30.000 compras sendo que parte destes clientes comprou mais de uma vez e só preciso que retorne na pesquisa a ultima compra dele. E os demais que nunca compraram preciso listar eles como zero(compra) Grata pela atenção dos amigos que colaborarem __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- M I G U E LF R A N C OG A L E G O INFORMARK / VIRTUALAGE Analista de Sistema mig...@infomark.com.br / gale...@gmail.com Av. Paraíba, 1959, Fundos / Rua José Rodrigues Brianez, 111-A Cianorte - PR / 87.200-000 (44) 3619-4555 ramal 4727 (44) 9985-1449 celular (44) 3019-1449 residencial [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[delphi-br] NFe c/ ACBR
Bom dia pra todos, Estou com um problema ao transmitir as Notas para SEFAZ de MG, me retorna o seguinte: Nota(s) não confirmadas 907-Rejeição Certificado assinatura erro no acesso a LCR. 908-Rejeição Certificado assinatura erro no acesso a LCR. 909-Rejeição Certificado assinatura erro no acesso a LCR. 910-Rejeição Certificado assinatura erro no acesso a LCR. Alguém poderia me dar luz do problemas? Atte. Dimas Bolognani DBSOFT INFORMATICA [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] NFe c/ ACBR
Boa tarde Muito obrigado Marcelo Luiz e Alisson pela informação. Blz. Atte. Dimas De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcelo Luiz Onhate Enviada em: terça-feira, 19 de janeiro de 2010 08:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] NFe c/ ACBR Chave:= Copy(NFe.NotasFiscais.Items[i].NFe.infNFe.ID, 4); Numero:= NFe.NotasFiscais.Items[i].NFe.Ide.cNF; Serie:= NFe.NotasFiscais.Items[i].NFe.Ide.serie; Em 19/01/2010 08:20, Dimas Bolognani escreveu: Preciso capturar o numero da NFE e chave gerada. Como faço? Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.432 / Banco de dados de vírus: 270.14.149/2630 - Data de Lançamento: 01/19/10 07:34:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] NFe c/ ACBR
Bom dia a todos Quem trabalha com a NFe da ACBR poderia me ajudar? Neste momento quando vou transmitir e imprimir a NFe preciso capturar a chave gerada pelo componente para incluir na minha tabela de notas fiscais, como faço para capturar esta chave? for i := 0 to ACBrNFe1.NotasFiscais.Count -1 do Begin if ACBrNFe1.NotasFiscais.Items[i].Confirmada then begin ACBrNFe1.NotasFiscais.Items[i].Imprimir; ACBrNFe1.NotasFiscais.Items[i].ImprimirPDF; Aqui a cada nota transmitida quero colocar a chave na minha tabela de notas Preciso capturar o numero da NFE e chave gerada. Como faço? end; end; Atte. Dimas Nenhum vírus encontrado nessa mensagem enviada. Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.432 / Banco de dados de vírus: 270.14.149/2630 - Data de Lançamento: 01/18/10 07:35:00
[delphi-br] Hint em StatusBar
Qual a forma correta para que os Hints de todos os compomentes possam aparecer em uma StatusBar ? Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Hint em StatusBar
Vou explicar o problema que esta acontecendo. Meu StatusBar contem duas colunas em todos os formulários e trabalho com Delphi 7. Criei um projeto novo que por sua vez ao clicar em um botão chama um segundo formulário com ShowModal. Os hint´s aparecem no StatusBar.Panels[0] somente do formulário em destaque, como sugerido por EmbarcaDelphi. (Esta funcionando) No meu projeto que por sua vez chama vários outros módulos, coloquei ApplicationEvents1Hint como sugerido pelo CRM. Os hints do formulário principal aparecem de forma correta. Os hints dos outros formulários não aparecem no StatusBar do formulário (ex: cadastro de clientes), os hints aparecem no StatusBar do formulário principal. No meu programa, a janela principal pega a tela toda do computador e as demais abrem no centro. O que eu preciso é fazer com que os hints de cada formulário apareça somente no próprio formulário. (como fiz no projeto exemplo) De alguma forma tem alguma rotina que não deixa mostrar os hints caso eu não utilize ApplicationEvents1Hint Obrigado pelas respostas. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de CRM Desenvolvimentos Enviada em: sexta-feira, 18 de dezembro de 2009 10:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Hint em StatusBar Use o componente ApplicationEvents. procedure TForm1.ApplicationEvents1Hint(Sender: TObject); begin StatusBar1.Panels[0].text := Application.Hint; end; [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] Ordenar TIBOQuery
No IBO qdo vc abre o IB_Query tem uma aba Ordering, nela vc pode escolher os campos que podera ordenar em tempo de execução. Depois, qdo estiver rodando seu programa e vc estiver usando um TIB_Grid os campos que podem ser ordenados já aparecem com um simbolo diferente após o nome do titulo. Voce pode ordenar em tempo de execução uma tabela da seguinte forma: IB_qry_SuaTabela. OrderingItemNo := 2 (podera fazer isso se voce criou os campos para serem ordenados como falei no inicio). Um detalhe legal do IBO é que os campos que podem ser ordenados voce podera grava-los em um arquivo .INI por exemplo, que pode ser alterado manualmente por voce caso precise acrescentar ou tirar algum campo da ordenação (sem ter que alterar o executavel). _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Felipe Yahoo Enviada em: terça-feira, 15 de dezembro de 2009 13:46 Para: Felipe Yahoo Assunto: [delphi-br] Ordenar TIBOQuery Boa Tarde Senhores Queria saber como faço pra ordenar o componente TIBOQuery. No ClientDataSet uso ClientDataSet.IndexFieldName := 'CAMPO' ; Obrigadi [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] Ordenar TIBOQuery
Muito interessante sua observação, geralmente eu trabalho com procedures, acredito que a ordenação se faça em memoria e somente dos registros que aparecem na tela, ou seja, ele não volta ao banco de dados para ordenar. Mas vou pesquisar melhor. Obrigado _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quarta-feira, 16 de dezembro de 2009 14:18 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Ordenar TIBOQuery Prioridade: Alta Sugiro monitorar esse recurso do IBOQuery pra ver se ele não reenvia o SELECT acrescido de ORDER BY. Se fizer isso, vc terá perda considerável de performance. Sds. De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Dimas Enviada em: quarta-feira, 16 de dezembro de 2009 12:16 Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: RES: [delphi-br] Ordenar TIBOQuery No IBO qdo vc abre o IB_Query tem uma aba Ordering, nela vc pode escolher os campos que podera ordenar em tempo de execução. Depois, qdo estiver rodando seu programa e vc estiver usando um TIB_Grid os campos que podem ser ordenados já aparecem com um simbolo diferente após o nome do titulo. Voce pode ordenar em tempo de execução uma tabela da seguinte forma: IB_qry_SuaTabela. OrderingItemNo := 2 (podera fazer isso se voce criou os campos para serem ordenados como falei no inicio). Um detalhe legal do IBO é que os campos que podem ser ordenados voce podera grava-los em um arquivo .INI por exemplo, que pode ser alterado manualmente por voce caso precise acrescentar ou tirar algum campo da ordenação (sem ter que alterar o executavel). _ De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Felipe Yahoo Enviada em: terça-feira, 15 de dezembro de 2009 13:46 Para: Felipe Yahoo Assunto: [delphi-br] Ordenar TIBOQuery Boa Tarde Senhores Queria saber como faço pra ordenar o componente TIBOQuery. No ClientDataSet uso ClientDataSet.IndexFieldName := 'CAMPO' ; Obrigadi [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] rave report com IBO
Caso voce faça algum relatorio manualmente no Rave, entao podera usar o IBO como voce faz no Delphi. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Evandro Siqueira Enviada em: quinta-feira, 10 de dezembro de 2009 12:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] rave report com IBO Leonardo, Se vc está se referindo ao TIB_Query com TIB_Datasource, a resposta é não. Para trabalhar com o rave vc terá que utilizar o TIBOQuery com o TDatasource nativo do delphi. Leonardo Baldino escreveu: alguem sabe se o rave report consegue trabalhar com os componentes do IBO, porque eu estou tentando e naum to conseguindo fazer aparecer as informações no relatorio quando eu rodo ele -- []s. Evandro Siqueira Programador de Sistemas Lessentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[delphi-br] Componente para ver xml
Boa tarde pessoal, Alguém conhece algum componente para carregar um XML em uma grid onde pudesse navegar pelos registros? Atte. DBSOFT INFORMÁTICA LTDA OURO FINO - MG TEL:(35)3441-5254 DIMAS BOLOGNANI CEL:9978-8540 LOGO_DBSOFT [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ACBR - Nfe
Pra mim esta funcionando perfeitamente. Muito bom. Atte. Dimas De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Juliano Silva - Yahoo Enviada em: segunda-feira, 28 de setembro de 2009 13:03 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ACBR - Nfe Pessoal, boa tarde Algum desenvolvedor já utilizou o componente ACBR-Nfe? Teria algo a dizer sobre este componente? Atenciosamente Juliano Silva [As partes desta mensagem que não continham texto foram removidas] Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.409 / Banco de dados de vírus: 270.13.113/2400 - Data de Lançamento: 09/28/09 05:51:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] NF-E
Ola pessoal, Fiz uma atualização do ACBr 3.97 e mudou tudo.. Preciso colocar A Fatura, Transportador, Volumes e não consegui achar pra preencher. Atte. Dimas [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] NFe
Boa tarde a todas, Estou enviando o XML para o contador e falou que esta faltando esta parte do XML no arquivo das NFe autorizadas. Quem usa o componente ACBR NFe teve este problema? Como faço para incluir a autorização da NFe no XML ? protNFe versao=1.10 - infProt tpAmb1/tpAmb verAplic1.10/verAplic chNFe3109041901587400014055001332/chNFe dhRecbto2009-04-01T15:22:56/dhRecbto nProt131090016920357/nProt digValc/Z3yMtN/BZgQMkXxlf0E+lX6Rw=/digVal cStat100/cStat xMotivoAutorizado o uso da NF-e/xMotivo /infProt /protNFe /nfeProc Atte. DBSOFT INFORMÁTICA LTDA OURO FINO - MG TEL:(35)3441-5254 DIMAS BOLOGNANI CEL:9978-8540 LOGO_DBSOFT [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] NFe
Ola Marcos, Acredito não. Os XML são gerados e enviados e assim q recebo um ok é impresso DANFE. Ai na pasta de retorno tem o XML gerado e um outro com 31090903754648000141550014011911-sit.xml aqui tem a utorização mas no XML gerado não tem. 31090903754648000141550014011911-nfe.xml – este teria q ter a autorização no final dele. Será q estou fazendo algumas coisa? Atte, Dimas De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcos Douglas Enviada em: sexta-feira, 11 de setembro de 2009 15:52 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] NFe Dimas, O XML com a autorização vem do WebService. Será que vc está mandando para o contador somente o XML _antes_ de enviar para o WebService? Marcos Douglas 2009/9/11 Dimas Bolognani di...@dbsoftinformatica.com.br mailto:dimas%40dbsoftinformatica.com.br Boa tarde a todas, Estou enviando o XML para o contador e falou que esta faltando esta parte do XML no arquivo das NFe autorizadas. Quem usa o componente ACBR NFe teve este problema? Como faço para incluir a autorização da NFe no XML ? protNFe versao=1.10 - infProt tpAmb1/tpAmb verAplic1.10/verAplic chNFe3109041901587400014055001332/chNFe dhRecbto2009-04-01T15:22:56/dhRecbto nProt131090016920357/nProt digValc/Z3yMtN/BZgQMkXxlf0E+lX6Rw=/digVal cStat100/cStat xMotivoAutorizado o uso da NF-e/xMotivo /infProt /protNFe /nfeProc Atte. DBSOFT INFORMÁTICA LTDA OURO FINO - MG TEL:(35)3441-5254 DIMAS BOLOGNANI CEL:9978-8540 LOGO_DBSOFT [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.409 / Banco de dados de vírus: 270.13.90/2361 - Data de Lançamento: 09/11/09 09:15:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] NF-e com ACBr VALIDAÇÃO DO XML
Ola pessoal, Será q houve alguma mudança na validação do XML do ACBR, Esta me retornando sempre um erro 1871 - Element’{..nfe}-emit’: Missing child elements(s). Expected is ({http://WWW.portalnotafiscal.inf.br/nfe}CNAE ). Oque seria este erro? Existe uma relação com os códigos de todos os erros possível na validação? Por favor se alguém souber alguma coisa a respeito preciso URGENTE pois preciso colocar em produção. Atte. Dimas De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcos Douglas Enviada em: sexta-feira, 28 de agosto de 2009 10:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] NF-e com ACBr e certificado A3 com leitor de cartão. Olá Daniel, Ontem mesmo eu li no fórum do ACBr que tinha que instalar as cadeias... No meu caso, baixei do site de Minas (o sistema será utilizado lá). Depois de reiniciar a máquina, funcionou... Mas, só pra ter certeza, instalei somente o A3 em outra máquina, sem as cadeias, testei e... funcionou! Ou seja, pelo que parece, o WebService estava fora do ar mesmo... Isso pode (poderá) acontecer?! Qual seria a contingência? Abraço Marcos Douglas 2009/8/27 Daniel Sobrinho Laporte daniel.lapo...@gmail.com mailto:daniel.laporte%40gmail.com Pessoal, Quando der esse erro baixei o arquivo cadeiasprodemge.exe e instale. As vezes ocorre isso. Só isso e já resolve o problema! O arquivo está disponível em: https://wwws.prodemge.gov.br/index.php?option=com_content https://wwws.prodemge.gov.br/index.php?option=com_contenttask=viewid=223Itemid=91 task=viewid=223Itemid=91 Abs Daniel. 2009/8/27 Marcos Douglas m...@delfire.net mailto:md%40delfire.net Olá Thiago, Estou utilizando a mesma configuração que vc. Eu consigo achar o certificado (clicando no botão sbtnCaminhoCert, abre uma tela pra escolher o certificado), no entanto estou com o mesmo erro: Inativo ou inoperante... bla bla bla. Vc já conseguiu resolver?!? Abraço Marcos Douglas 2009/8/18 Thiago Menon thime...@yahoo.com.br mailto:thimenon%40yahoo.com.br thimenon%40yahoo.com.br Alguém da lista conhece ou sabe alguém que participou do projeto desse componente? Eu fiz um debug simples e verifique que na classe ACBrNFeConfiguracoes função GetCertificado está gerando o erro. O problema é q não consegue achar o certificado. Minha dúvida é aonde ele busca os certificados instalados na máquina? Pois o certificado aparece no internet explore / opções da internet / conteúdo / aba pessoal Alguém sabe como posso fazer para que o componente identifique ele? Tem alguma coisa para ativar? Estou usuando BDS 2006 ACBrNFePCN VCL CAPICON para validação do certificado Certificado Certisign A3 e-CNPJ com leitor de cartão USB Agradeço pela ajuda de todos Thiago Thiago Menon escreveu: Olá, Alguém ná lista já conseguiu utilizar os componentes da ACBr para nfe para assinar os arquivos com o certificado A3 com leitor de cartao? Já instalei tudo certinho e quando rodo o teste q vem junto com o componente e testo a opção status Serviço apresenta um erro dizendo: -inativo ou inoperante tente novamente. - Certificado Digital não encontrado. Alguém sabe o q posso fazer para que a aplicação ache o certificado? Já setei na propriedade NumeroSerie. Utilizando: BDS 2006 Componentes ACBr baixados com SVN Certificado e-cnpj Certisign com cartao e leitor Gemplus Agradeço a ajuda de todos Thiago msn: thime...@hotmail.com mailto:thimenon%40hotmail.com thimenon%40hotmail.com __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- Daniel Sobrinho Laporte Analista de Sistemas e Desenvolvedor Delphi + Firebird. Colunista e Editor Técnico ClubeDelphi - DevMedia. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.409 / Banco de dados de vírus: 270.13.70/2329 - Data de Lançamento: 08/28/09 06:26:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DANFE sem valor fiscal
Bom dia a todos, Alguém já esta usando o ACBRNFe em PRODUÇÃO? No ambiente de TESTE quando gera o DANFE sai uma tarja na nota NOTA FISCAL SEM VALOR FISCAL quando mudar para ambiente de PRODUÇÃO Esta tarja não vai sair automaticamente ou tenho que mudar alguma coisa no componente? Atte. Dimas Ouro fino DBSoft Informatica [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] msg erro janela
Bom dia a todos, Alguém já teve este tipo de problema ao fechar o programa. De vez enquanto da este erro: System error: Code 1400 O identificador da janela é invalido. Se alguém puder me dar alguma dica do seja agradeço. Atte. Dimas [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] NF-e Status com ACBrNFe
Bom dia, Isto apenas quer dizer que o serviço do estado que vc verificou não esta funcionado no momento. Vai tentando que já vc recebe um OK. Atte. Dimas De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Samuel M. Basso Enviada em: terça-feira, 4 de agosto de 2009 13:36 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] NF-e Status com ACBrNFe Olá pessoal! Estou testando o envio de nota fiscal eletronica com o componente ACBrMonitorNFe e estou tendo um problema ao verificar o status ele me mostra o seguinte erro: WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. - A autoridade de certificação não é válida ou está incorreta - URL: https://homologacao.nfe.sefaz.rs.gov.br/ws/nfestatusservico/NfeStatusServico .asmx- SOAPAction: http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico/nfeStatusServicoNF Verifiquei em diversos sites e me falaram sobre a cadeia de certificados etc, já fiz tudo isso e ainda persiste o erro. Se alguem poder me ajudar agradeço. -- Atenciosamente, Samuel M. Basso Tel: (54) 3463-9114 Cel: (54) 8135-3723 E-mail/MSN: samuelba...@gmail.com mailto:samuelbasso%40gmail.com Web site: www.samuelbasso.com [As partes desta mensagem que não continham texto foram removidas] Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.375 / Banco de dados de vírus: 270.13.42/2279 - Data de Lançamento: 08/05/09 05:57:00 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Abrir o Comprovante Não Fiscal Vinc ulado. ELGIN FIT 1E
Bom dia Você passou os parâmetros corretos e logicamente você tem que tem FORMA DE PAGTO cadastrada na impressora. Ou vai retornar a mensagem de erro Meio de pagto invalido. cFormaPgto := 'Cartao VISA'; cValor := '100,00'; iResultado := Elgin_AbreComprovanteNaoFiscalVinculado( pchar ( cFormaPgto ), pchar(cValor ), pchar( '' ) ); De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de julianoinfo Enviada em: quinta-feira, 9 de julho de 2009 15:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Abrir o Comprovante Não Fiscal Vinculado. ELGIN FIT 1E Boa tarde senhores Tenho 3 clientes que tem a ELGIN FIT 1E e não consigo nem pela DLL nem pelo ACBr Abrir o Comprovante Não Fiscal Vinculado. ele me retorna o seguinte erro Índice do Meio de Pagamento no cupom inválido. algum colega já passou por isso ou faz idéia de como resolver esse problema Grato pela Atenção Juliano Pereira dos Santos Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.375 / Banco de dados de vírus: 270.13.9/2229 - Data de Lançamento: 07/10/09 07:05:00 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ajuda urgente sobre excel com delphi
Tenta estas formatações de células.. Excel.WorkBooks[1].Sheets[1].cells[1,1].Font.Size := 10; Excel.WorkBooks[1].Sheets[1].cells[1,1].Font.Bold := True; Excel.WorkBooks[1].Sheets[1].cells[L,1].NumberFormat := 'dd/mm/aa'; Excel.WorkBooks[1].Sheets[1].cells[L,4].NumberFormat := '#.##0,00'; De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Leonardo Baldino Enviada em: sexta-feira, 19 de junho de 2009 17:46 Para: Grupo_Delphi Assunto: [delphi-br] ajuda urgente sobre excel com delphi eu to usando este codigo para criar arquivos do excel atraves do delphi, só que eu queria saber se alguem sabe como eu posso fazer para ver se um valor que eu to colocando no delphi e numerico, porque se for numerico eu queria saber se alguem sabe como eu faço para mudar a propriedade da celula do excel de tipo geral para tipo numero. esse é uma maneira procedure TForm2.ExportDBGrid(toExcel: Boolean); var bm: TBookmark; col, row: Integer; sline: String; mem: TMemo; ExcelApp: Variant; begin Screen.Cursor := crHourglass; ADOQuery2.Close; ADOQuery2.Open; DBGrid1.DataSource.DataSet.DisableControls; bm := DBGrid1.DataSource.DataSet.GetBookmark; DataSource2.DataSet.First; // create the Excel object if toExcel then begin ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.WorkBooks.Add(xlWBatWorkSheet); ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Teste'; end; // First we send the data to a memo // works faster than doing it directly to Excel mem := TMemo.Create(nil); mem.Visible := false; mem.Parent := Form2; mem.Clear; sline := ''; Gauge1.MaxValue := DataSource2.DataSet.RecordCount; Gauge1.Progress := 1; // add the info for the column names for col := 0 to DBGrid.FieldCount - 1 do begin sline := sline + DBGrid.Fields[col].DisplayLabel + #9; Gauge1.Progress := Gauge1.Progress + 1; end; mem.Lines.Add(sline); // get the data into the memo DataSource2.DataSet.First; for row := 0 to DataSource2.DataSet.RecordCount-1 do begin sline := ''; for col := 0 to DataSource2.DataSet.FieldCount-1 do begin sline := sline + DataSource2.DataSet.Fields[col].AsString + #9; //ShowMessage(DataSource2.DataSet.Fields[row].AsString); end; Gauge1.Progress := Gauge1.Progress + 1; mem.Lines.Add(sline); DataSource2.DataSet.Next; end; Gauge1.Progress := Gauge1.MaxValue; // we copy the data to the clipboard mem.SelectAll; mem.CopyToClipboard; // if needed, send it to Excel // if not, we already have it in the clipboard if toExcel then begin ExcelApp.Workbooks[1].WorkSheets['Teste'].Paste; ExcelApp.Visible := true; end; FreeAndNil(mem); //FreeAndNil(ExcelApp); DataSource2.DataSet.GotoBookmark(bm); DataSource2.DataSet.FreeBookmark(bm); DataSource2.DataSet.EnableControls; Screen.Cursor := crDefault; end; --- e essa é outra ExcelApplicationl := TExcelApplication.Create(nil); ExcelApplicationl.Workbooks.Add(EmptyParam, 0); ExcelApplicationl.Visible[0] := True; Planilha := ExcelApplicationl.WorkBooks[1].WorkSheets[1]; ADOQuery2.Open; for C := l to ADOQuery2.FieldCount do begin Planilha.Cells[l,C].Select; Planilha.Cells[l,C].Font.Bold := True; Planilha.Cells[l,C].Value := ADOQuery2.Fields[C-1].DisplayLabel; end; L := 2; while not ADOQuery2.Eof do begin for C := 1 to ADOQuery2.FieldCount do begin //Planilha.Cells[L,C].Select; Planilha.Cells[L,C].Value := ADOQuery2.Fields [C-1].AsString; end; L := L + 1; ADOQuery2.Next; end; // ADOQuery2.Close; ExcelApplicationl.Free; -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.364 / Banco de dados de vírus: 270.12.80/2187 - Data de Lançamento: 06/19/09 06:53:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Projeto ACBrNFe
Boa tarde pessoal, Vejo muita gente da lista preocupado com a NFe e eu também preciso fazer e nem sei por onde começar. Seria possível falar com o pessoal do ACBR para montar um curso tipo treinamento para uso do componente? Um curso de pelo mesmos uns dois dias de treinamento efetuando todos os passos. Se eu puder ajudar para montar este curso estou a disposição. Atte. Dimas Bolognani Ouro Fino MG Tel:35-3441-5254 De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Maria das Graças . Enviada em: sexta-feira, 5 de junho de 2009 08:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Projeto ACBrNFe [Certificado não encontrado] Fiz um teste usando um outro programa emissor de nfe e não está dando o erro de certificado não autorizado. A diferença é que esse aplicativo foi desenvolvido no Delphi RAD Studio 2007. O erro só ocorre com o ACBrNFe. O que pode ser? Fiz o teste com o ACBrNFe em 2 máquinas distintas, sendo que apenas uma possui o XP atualizado diariamente, tem dot net framework. Mas o erro é o mesmo. A cadeia de certificado do Serasa já instala junto com o certificado. No ACBrNFe consigo visualizar o certificado normalmente. Mas ao clicar em Status do Serviço dá o erro. Portanto, creio que não tem nada a ver com a cadeia de certificado. Deve estar faltando alguma coisa no demo. As dlls capicom foram instaladas. No Conditional/Directory/defines está a capicom também. abaixo o erro: WebService Consulta Status serviço: -Inativo ou Inoperante tente novamente. -The certificate authority is invalid or incorret - URL:httos://hnfe. fazenda.mg. gov.br/nfe/ services/ NfeStatusServico -SOAPAction:http://www.portalfi scal.inf. br/nfe/wsdl/ NFeStatusServico /nfeStatusServic oNF. Graça --- Em qui, 4/6/09, André Moraes - Gmail andrefmor...@gmail.com mailto:andrefmoraes%40gmail.com escreveu: De: André Moraes - Gmail andrefmor...@gmail.com mailto:andrefmoraes%40gmail.com Assunto: Re: [delphi-br] Projeto ACBrNFe [Certificado não encontrado] Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Quinta-feira, 4 de Junho de 2009, 19:57 Vc instalou a cadeia de certificados de onde vc adquiriu seu certificado? Veja http://anfm. blogspot. com/2009/ 04/certificate- authority- is-invalid- or.html André F. Moraes - Original Message - From: Maria das Graças . To: delphi...@yahoogrup os.com.br Sent: Thursday, June 04, 2009 4:53 PM Subject: Re: [delphi-br] Projeto ACBrNFe [Certificado não encontrado] Com relação a duvida de Certificado não encontrado, se colocar a opção de SelecionaCertificad o, acha o certificado mas dá esse erro: WebService Consulta Status serviço: -Inativo ou Inoperante tente novamente. -The certificate authority is invalid or incorret - URL:httos://hnfe. fazenda.mg. gov.br/nfe/ services/ NfeStatusServico -SOAPAction:http://www.portalfi scal.inf. br/nfe/wsdl/ NFeStatusServico /nfeStatusServic oNF. Graça --- Em qui, 4/6/09, Maria das Graças . dangra2...@yahoo. com.br escreveu: De: Maria das Graças . dangra2...@yahoo. com.br Assunto: Re: [delphi-br] Projeto ACBrNFe [Certificado não encontrado] Para: delphi...@yahoogrup os.com.br Data: Quinta-feira, 4 de Junho de 2009, 19:25 Já fiz todos os procedimentos para rodar o demo, mas ainda continua dando erro : certificado não encontrado. Uso a versão Capicom. Directory/condition als/Defines está ok certificado instalado aparecendo normal na aba Pessoal Numero de serie já digitado sem espaços e com letras maiusculas No edit caminho, estou colocando o caminho do certifcado .pfx (está correto?) Graça Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.339 / Banco de dados de vírus: 270.12.53/2156 - Data de Lançamento: 06/05/09 06:24:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Etqiuetas c/ ACBR
Boa tarde, Alguem utiliza o componente da ACBR para emissão de etiquetas na Zebra TLP-2742. Estou tentando utilizar o Demo para um teste mas clico no botão para imprimir o teste e nada, simplesmente não acontece nada. O que será preciso configurar? Atte. Dimas [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Etqiuetas c/ ACBR
Boa tarde Douglas, Obrigado pela informação. Achei ter vista que era para Zebra também. Você conhece algum componente para Zabra? Tenho usado a impressão pelo Windows mesmo mas fica muito lento e difícil de configurar o tamanho das etiquetas.. Dimas De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Douglas Uesato - Depto. de Informática Enviada em: sexta-feira, 5 de junho de 2009 16:18 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Etqiuetas c/ ACBR Dimas, Boa tarde, até onde eu sei o componente da ACBR funciona apenas para a linguagem PPLA, já as impressoras Zebra utilizam a linguagem ZPL ou EPL2 que é totalmente diferente. Atenciosamente, Douglas Uesato Departamento de TI Fone: (67) 3041-8000 Fax: (67) 0800-9791230 Voip: 40121 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 Dimas Bolognani Enviada em: sexta-feira, 5 de junho de 2009 13:53 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Etqiuetas c/ ACBR Boa tarde, Alguem utiliza o componente da ACBR para emissão de etiquetas na Zebra TLP-2742. Estou tentando utilizar o Demo para um teste mas clico no botão para imprimir o teste e nada, simplesmente não acontece nada. O que será preciso configurar? Atte. Dimas [As partes desta mensagem que não continham texto foram removidas] Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.339 / Banco de dados de vírus: 270.12.53/2156 - Data de Lançamento: 06/05/09 06:24:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Projeto ACBrNFe
Boa tarde pessoal, Tentei instalar o os componentes da ACBRNFe mas não consegui, segui os passos do arquivo instalar. A maioria dos componentes foram instalados mas o ACBRBFe não consegui, da este erro. [Fatal Error] ACBr_NFe_CAPICOM.dpk(74): Required package 'Rave50VCL' not found Quem já instalou este componentes poderia me ajudar? Atte. Dimas Bolognani Ouro Fino MG Tel.35-3441-5254 MSN: di...@dbsoftinformatica.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Projeto ACBrNFe
DELPHI 7 De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de André Moraes - Gmail Enviada em: terça-feira, 2 de junho de 2009 14:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Projeto ACBrNFe Vc precisa ter o Rave instalado. Qual versão do delphi vc usa? André F. Moraes - Original Message - From: Dimas Bolognani To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, June 02, 2009 1:56 PM Subject: [delphi-br] Projeto ACBrNFe Boa tarde pessoal, Tentei instalar o os componentes da ACBRNFe mas não consegui, segui os passos do arquivo instalar. A maioria dos componentes foram instalados mas o ACBRBFe não consegui, da este erro. [Fatal Error] ACBr_NFe_CAPICOM.dpk(74): Required package 'Rave50VCL' not found Quem já instalou este componentes poderia me ajudar? Atte. Dimas Bolognani Ouro Fino - MG Tel.35-3441-5254 MSN: di...@dbsoftinformatica.com.br mailto:Dimas%40dbsoftinformatica.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.339 / Banco de dados de vírus: 270.12.50/2150 - Data de Lançamento: 06/02/09 06:47:00 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Projeto ACBrNFe
A versão q to tentando instalar a Enterprise, mas não tenho o Reve instalado. Como Faço p/ instalar? De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de André Moraes - Gmail Enviada em: terça-feira, 2 de junho de 2009 14:39 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Projeto ACBrNFe No delphi 7, pelo menos na versão professional o Rave vem por padrão instalado. André F. Moraes - Original Message - From: Dimas Bolognani di...@dbsoftinformatica.com.br mailto:dimas%40dbsoftinformatica.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, June 02, 2009 2:20 PM Subject: RES: [delphi-br] Projeto ACBrNFe DELPHI 7 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 André Moraes - Gmail Enviada em: terça-feira, 2 de junho de 2009 14:06 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Projeto ACBrNFe Vc precisa ter o Rave instalado. Qual versão do delphi vc usa? André F. Moraes - Original Message - From: Dimas Bolognani To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, June 02, 2009 1:56 PM Subject: [delphi-br] Projeto ACBrNFe Boa tarde pessoal, Tentei instalar o os componentes da ACBRNFe mas não consegui, segui os passos do arquivo instalar. A maioria dos componentes foram instalados mas o ACBRBFe não consegui, da este erro. [Fatal Error] ACBr_NFe_CAPICOM.dpk(74): Required package 'Rave50VCL' not found Quem já instalou este componentes poderia me ajudar? Atte. Dimas Bolognani Ouro Fino - MG Tel.35-3441-5254 MSN: di...@dbsoftinformatica.com.br mailto:Dimas%40dbsoftinformatica.com.br mailto:Dimas%40dbsoftinformatica.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.339 / Banco de dados de vírus: 270.12.50/2150 - Data de Lançamento: 06/02/09 06:47:00 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 8.5.339 / Banco de dados de vírus: 270.12.50/2150 - Data de Lançamento: 06/02/09 06:47:00 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Desabilitar maximizar ReportBuilder
Boa noite para todos, Alguém poderia me ajudar com manipulação de arquivo do Excel.. Como posso passar dados para uma planilha e como ler dados da planilha? Obrigado. Atte. Dimas Bolognani DBSOFT INFORMÁTICA LTDA OURO FINO MG TEL(35)3441-5254 / 9978-8540 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Violação de endereço ao fechar o sistema
Boa tarde pra todos, Estou com um problema de erro ao fechar meu sistema.. De vez em quando da um erro de violação de endereço e aparece a mensagem assim Identificador da janela invalido Alguém sabe pq deste erro? Atte. Dimas Bolognani DBSOFT INFORMÁTICA LTDA OURO FINO MG TEL(35)3441-5254 / 9978-8540 Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 8.0.238 / Banco de dados de vírus: 270.11.21/2014 - Data de Lançamento: 03/20/09 06:59:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi no Dominio
Pessoal, recentemente instalei meu PC em um uma rede ( com dominio ).. qdo entro com o login/ senha da rede, a JVCL nao aparece mais na palheta do Delphi. Qdo nao faco o login, a JVCL aparece normalmente no Delphi. Pergunta: O que preciso fazer para nao ter que reinstalar tudo qdo entro com Login...é possivel ? Obrigado Dimas
[delphi-br] Farmacia popular
Bom dia pra todos, Alguém sabe como funciona o esquena da Farmácia Popular? Preciso implantar no meu sistema? Se alguém tiver conhecimento e quiser trocar idéias a respeito pelo msn: di...@dbsoftinformatica.com.br Atte. Dimas Bolognani DBSOFT INFORMÁTICA LTDA OURO FINO MG TEL(35)3441-5254 / 9978-8540 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Foto no banco de dados
Bom dia pessoal, Gostaria de uma opção daqueles que passaram por esta situação. Atualmente não guardo as fotos dos clientes no banco de dados, deixo em um diretório E assim q o usuário acessa o cliente busco esta foto no diretório e mostro no TImage, mas esta ocorrendo do programa dar um parada como se estivesse travado quando vai buscar esta foto no servidor, tenho q deixar no servidor para que todos os terminais a visualize. Se as fotos fossem gravadas no BD eu não teria este problema, mas tenho receio que meu banco va ficar muito grande e que na hora do backup demore muito e Que problemas no banco possa ocorrerem com mais freqüência.. O que vocês acham de gravar as fotos no banco? Atte. Dimas Bolognani DBSOFT INFORMÁTICA LTDA OURO FINO MG TEL(35)3441-5254 / 9978-8540 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Chamar um link pelo
Ola pessoal, Como faço para chamar um link(site) no internet explore pelo Delphi? Atte. Dimas Bolognani DBSOFT INFORMÁTICA LTDA OURO FINO MG TEL(35)3441-5254 / 9978-8540 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Arquivo ABCFarma
Bom dia Cristiano, Tb estou adaptando meu sistema para farmácias, alem do arquivo de atualização de preços da ABCFarma tb precisa gerar um arquivo em XML do remédios controlados. Se quiser podemos trocar informações a respeito e se quiser podemos rachar a assinatura da revista. Se quiser entrar em contato pelo msn: [EMAIL PROTECTED] Atte. Dimas Bolognani DBSOFT INFORMÁTICA LTDA OURO FINO MG TEL(35)3441-5254 / 9978-8540 _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cristiano Hotmail Enviada em: segunda-feira, 3 de novembro de 2008 07:42 Para: delphi-br Assunto: [delphi-br] Arquivo ABCFarma Olá pessoal, estou começando a desenvolver um sistema para farmácias, e gostaria de saber se alguém possui o arquivo de medicamentos da abcfarma, uma vez que como ainda não comercializei nenhum sistema não queria investir por enquanto na assinatura da revista. Grato. Cristiano. [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] Arquivo ABCFarma
Estamos falando em adiquerir um produto para desenvolvimento e não para comercializar. Alguém falou em disponibilizar algum tipo de arquivo para venda aqui. Pirataria e você fazer copias e venda-las. Mas tudo bem não falamos mais no assunto, encerramos aqui. Atte. Dimas Bolognani DBSOFT INFORMÁTICA LTDA OURO FINO MG TEL(35)3441-5254 / 9978-8540 _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Onjahyr - GMAIL Enviada em: segunda-feira, 3 de novembro de 2008 12:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Arquivo ABCFarma Se a revista for paga e alguém te repassar então ele e você estão fazendo pirataria, já pensou nisso? A lista não permite falar de pirataria. Cristiano Hotmail escreveu: Olá pessoal, estou começando a desenvolver um sistema para farmácias, e gostaria de saber se alguém possui o arquivo de medicamentos da abcfarma, uma vez que como ainda não comercializei nenhum sistema não queria investir por enquanto na assinatura da revista. Grato. Cristiano. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] SAlvar imagem de uma tabela paradox para JPG.
Bom dia Silvio Clécio, Fiz o teste mas não deu certo. O campo da tabela paradox me parece que não é um Blob, aparece como GRAPHIC. // TbClientesCli_Foto é um variavel da tabela do tipo Blob , ta como GRAPHIC. Att. Dimas _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Silvio Clécio Enviada em: terça-feira, 2 de setembro de 2008 19:44 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] SAlvar imagem de uma tabela paradox para JPG. Olá pessoal, Dimas, veja os códigos abaixo: Ler imagem JPG da tabela Paradox Procedure Le_Imagem_JPEG(Campo:TBlobField; Foto:TImage); var BS:TBlobStream; MinhaImagem:TJPEGImage; Begin if Campo.AsString '' Then Begin BS := TBlobStream.Create((Campo as TBlobField), BMREAD); MinhaImagem := TJPEGImage.Create; MinhaImagem.LoadFromStream(BS); Foto.Picture.Assign(MinhaImagem); BS.Free; MinhaImagem.Free; End Else Foto.Picture.LoadFromFile('c:\temp\limpa.jpg'); End; procedure TForm1.Button1Click(Sender: TObject); begin Le_Imagem_JPEG(TbClientesCli_Foto, Image1); // TbClientesCli_Foto é um variavel da tabela do tipo Blob // Image1 é um componente end; -- Gravar imagem JPG em tabela Paradox Procedure Grava_Imagem_JPEG(Tabela:TTable; Campo:TBlobField; Foto:TImage; Dialog:TOpenPictureDialog); var BS:TBlobStream; MinhaImagem:TJPEGImage; Begin Dialog.InitialDir := 'c:\temp'; Dialog.Execute; if Dialog.FileName '' Then Begin if not (Tabela.State in [dsEdit, dsInsert]) Then Tabela.Edit; BS := TBlobStream.Create((Campo as TBlobField), BMWRITE); MinhaImagem := TJPEGImage.Create; MinhaImagem.LoadFromFile(Dialog.FileName); MinhaImagem.SaveToStream(BS); Foto.Picture.Assign(MinhaImagem); BS.Free; MinhaImagem.Free; Tabela.Post; DBISaveChanges(Tabela.Handle); End; End; procedure TForm1.Button1Click(Sender: TObject); begin Grava_Imagem_JPEG(TbClientes,TbClientesCli_Foto, Image1, OpenPictureDialog1); // TbClientes é o nome de alguma Tabela // TbClientesCli_Foto é um variavel da tabela do tipo Blob // Image1 é um componente // OpenPictureDialog1 é o componente para abrir a figura end; ou então procedure TForm1.DBImage1Click(Sender: TObject); var jpg : TJPegImage; begin if OpenPictureDialog1.Execute then begin jpg := TJpegImage.Create; jpg.LoadFromFile(OpenPictureDialog1.FileName); clipboard.Assign(jpg); DBImage1.PasteFromClipboard; jpg.Free; end; end; procedure TForm1.Button4Click(Sender: TObject); begin close; end; end. // colocar JPEG e Clipbrd na USES. Está no link: http://scriptbrasil http://scriptbrasil.com.br/forum/index.php?showtopic=75468 .com.br/forum/index.php?showtopic=75468 Um abraço a todos! Silvio Clécio - Mensagem original De: Dimas Bolognani [EMAIL PROTECTED] mailto:dimas%40dbsoftinformatica.com.br tica.com.br Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Enviadas: Terça-feira, 2 de Setembro de 2008 18:13:19 Assunto: [delphi-br] SAlvar imagem de uma tabela paradox para JPG. Ola pessoal, Alguém poderia me passar como eu salvo uma imagem que esta em uma tabela Paradox para um arquivo JPG. Obrigado. Dimas Bolognani [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. http://br.new.mail.yahoo.com/addresses 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]
[delphi-br] SAlvar imagem de uma tabela paradox para JPG.
Ola pessoal, Alguém poderia me passar como eu salvo uma imagem que esta em uma tabela Paradox para um arquivo JPG. Obrigado. Dimas Bolognani [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro ao executar programa
Bom dia pessoal... Tenho uma aplicacao em Delphi 7, Firebird 1.5 e IBO 4.2. Sistema de estoque, financeiro etc. Em um cliente que tem alguns computadores em rede, em uma determinada estaçao que tem Windows XP, qdo eu chamo o programa atraves do icone de atalho, no módulo de SAIDAS DE MATERIAIS, sempre acontece um erro ao lançar os materiais. Qdo carrega o programa via DOS, este erro não acorre. Fiz varios testes em meu computador e o erro não ocorre. Já li relatos de outro programa que acontecia o erro somente em uma determinada tabela e após testes verificaram que era a memoria do computador. Trocaram e não tiveram mais problemas. Agradeco qquer ajuda Obrigado Dimas Fenando [As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: RES: Res: [delphi-br] Salvar uma imagem
Bom dia Carlos, Me desculpa a ignorância.. mas ainda não consegui exibir a imagem no Timage para salva-la. Salvar a imagem do Timage tudo bem.. mas o erro da quando vou atribuir a imagem do campo da tabela paradox para o compomente. Na função ExibeFoto quando é executada, como ele verifica se é JPG ou BPM.. pq ele sempre executa esta parta do código como se fosse um JPG. JpegImage := TJPEGImage.Create; try JpegImage.LoadFromStream(BlobStream); // neste nomento da o erro, ele não consegui ler a imagem, da JPEG error #53 Por isto acho q as fotos salvas no banco são BMP. ImageExibicao.Picture.Assign(JpegImage); ImageExibicao.Center:=true; finally BlobStream.Free; JpegImage.Free; end; na parte do BMP não deveria carregar a imagem como no JPG JpegImage.LoadFromStream(BlobStream); como ele mostraria a imagem no componente sem atribuir Bitmat Bitmap:=TBitMap.Create; Try Bitmap.Width:=1; Bitmap.Height:=1; ImageExibicao.Picture.Assign(BitMap); ImageExibicao.Center:=false; finally Bitmap.Free; BlobStream.Free; end; Dimas. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Carlos Enviada em: terça-feira, 19 de agosto de 2008 12:29 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: RES: Res: [delphi-br] Salvar uma imagem Não tem problema meu camarada! Apenas mude a linha img1.Picture.SaveToFile('Caminho' + NomeDoArquivo); Exemplo: img1.Picture.SaveToFile('C:\Monit\bin\arqs\' + dmCadastro.cdsFotoFoto.Value); O 'NomeDoArquivo' é o campo da tabela onde se encontra a imagem no banco de dados. Espero ter ajudado, mas qualquer coisa, estamos ai. Fraterno abraço, Carlos No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.138 / Virus Database: 270.6.5/1620 - Release Date: 19/8/2008 06:04 [As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: RES: Res: [delphi-br] Salvar uma imagem
Bom dia, Este banco q to tentando extrair as fotos não é meu e sim de um outro programa onde estou fazendo a conversão dos dados para o meu sistema, e não sei Se as fotos foram salvas em .JPG ou BMP.. e se foram slavas em BMP? _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Carlos Enviada em: segunda-feira, 18 de agosto de 2008 23:50 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: RES: Res: [delphi-br] Salvar uma imagem Meu camarada, boa noite! Você informou que a imagem já está salva no banco de dados em formato JPG correto. Em caso afirmativo, eu pus no meu form um TImage(propriedade visible = false), e usei a função ExibeFoto para inseri-la no TImage desta forma: TImage.Picture := nil; ExibeFoto(Nome do DataSet, 'campo', TImage); neste momento a imagem está no TImage; para salva-la em disco, eu uso desta forma: TImage.Picture.SaveToFile('Nome do caminho a ser salvo tipo C:\temp\' + Nome do dataSet com o campo ex: DataSetFoto.Value + '.jpg'); limpo o TImage TImage.Picture := Nil veja o pedaço do meu código e veja se consegue achar o erro: img1.Picture := nil; ExibeFoto(dmCadastro.cdsFoto, 'foto', img1); img1.Picture.SaveToFile('C:\Monit\bin\arqs\' + dmCadastro.cdsFotonome.Value + '.jpg'); img1.Picture := nil; Espero ter ajudado. Fraterno abraço, Carlos No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.138 / Virus Database: 270.6.5/1619 - Release Date: 18/8/2008 17:39 [As partes desta mensagem que não continham texto foram removidas]
RES: RES: Res: [delphi-br] Salvar uma imagem
Bom dia Carlos, Sem querer abusar da sua boa vontade, poderia me passar a função ExibeFoto. Anteriormente você me passou a Grava_Imagem_JPEG, não tenho este ExibeFoto. Obrigado. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Carlos Enviada em: sexta-feira, 15 de agosto de 2008 16:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: Res: [delphi-br] Salvar uma imagem Meu camarada, boa tarde! Quanto a caixa alta, sem problemas, esta vida de desenvolvedor deixa qualquer um meio fora de foco às vezes... rsrs... Eu salvo a imagem em disco de duas formas: 1ª Se o cliente ira visualizar a imagem em um TImage e após isso irá salvar a imagem em um diretório a sua escolha, então coloco um componente TSavePictureDialog da Paleta Dialogs e uso essa procedure no evento onClik do button: procedure TfCadEfetivo.aExportarFotoExecute(Sender: TObject); Var MyJPEG : TJPEGImage; begin if dlgSave.Execute then begin // se a extensão for .jpeg, salva no formato JPEG, senão salva em BMP if UpperCase(ExtractFileExt(dlgSave.FileName)) = '.JPG' then begin MyJPEG := TJPEGImage.Create; // Converte o BMP para JPEG with MyJPEG do begin Assign(imgFoto.Picture); SaveToFile(dlgSave.FileName); Free; end; end else imgFoto.Picture.SaveToFile(dlgSave.FileName); end; end; Agora, se é para salvar a imagem em um local específico, então coloco um TImage, deixo sua propriedade como Visible = False, euso este pequeno pedaço de código(é evidente que só coloquei o que acho que precisa, nada impede que vc implemente este modelo): img1.Picture := nil; funcoes.ExibeFoto(NomeDaTabela, 'foto', img1); img1.Picture.SaveToFile(Caminho + CampoTabelaComNomeImagem + '.jpg'); img1.Picture := nil; A função ExibeFoto te mandei anteriormente. Espero que te ajude, mas, qualquer dúvida poste ai para nós, e caso tenha resolvido de outra forma, por favor, nos mostre como. Fraterno abraço, Carlos No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.138 / Virus Database: 270.6.3/1613 - Release Date: 15/8/2008 05:58 [As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: Res: [delphi-br] Salvar uma imagem
Boa tarde Carlos, Não consigo fazer funcionar.. me retorna este errro JPEG ERROR #53. img1.Picture := nil; ExibeFoto(NTClientes, 'foto', img1); img1.Picture.SaveToFile('C:\DBSOFT\FOTOCLIENTES\FOTO1.jpg'); img1.Picture := nil; _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Carlos Enviada em: segunda-feira, 18 de agosto de 2008 09:54 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: Res: [delphi-br] Salvar uma imagem É claro meu camarada, não é abuso nenhum, aliás, é uma correção, haja vista eu achava que já a tinha enviado. procedure ExibeFoto(DataSet : TDataSet; BlobFieldName : String; ImageExibicao : TImage); var BlobStream : TStream; JpegImage : TJPEGImage; bitmap:TBitMap; begin BlobStream := DataSet.CreateBlobStream(DataSet.FieldByname(BlobFieldName), bmRead); if BlobStream.Size 0 then begin JpegImage := TJPEGImage.Create; try JpegImage.LoadFromStream(BlobStream); ImageExibicao.Picture.Assign(JpegImage); ImageExibicao.Center:=true; finally BlobStream.Free; JpegImage.Free; end; end else begin Bitmap:=TBitMap.Create; Try Bitmap.Width:=1; Bitmap.Height:=1; ImageExibicao.Picture.Assign(BitMap); ImageExibicao.Center:=false; finally Bitmap.Free; BlobStream.Free; end; end; end; Fraterno abraço Carlos No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.138 / Virus Database: 270.6.5/1618 - Release Date: 18/8/2008 06:51 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Salvar uma imagem
Bom dia pessoal, Preciso salvar algumas fotos armazenadas em banco de dados Paradox p/ um JPG ou BMP, qual sabe como fazer? Tentei assim NTClientesfoto.SaveToFile('C:\foto.jpg'); mas não salda a imagem. Dimas Bolognani Ouro Fino - MG [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Salvar uma imagem
É apenas o nome da Table e o nome do campo que contem a foto. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luciano Calenzani Simões Enviada em: sexta-feira, 15 de agosto de 2008 08:38 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Salvar uma imagem Que tipo de objeto é esse NTClientesfoto? Luciano Calenzani Simões - Mensagem original De: Dimas Bolognani [EMAIL PROTECTED] mailto:dimas%40dbsoftinformatica.com.br tica.com.br Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Enviadas: Sexta-feira, 15 de Agosto de 2008 8:31:59 Assunto: [delphi-br] Salvar uma imagem Bom dia pessoal, Preciso salvar algumas fotos armazenadas em banco de dados Paradox p/ um JPG ou BMP, qual sabe como fazer? Tentei assim NTClientesfoto. SaveToFile( 'C:\foto. jpg'); mas não salda a imagem. Dimas Bolognani Ouro Fino - MG Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new. http://br.new.mail.yahoo.com/addresses mail.yahoo.com/addresses [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 Version: 8.0.138 / Virus Database: 270.6.3/1611 - Release Date: 14/8/2008 06:20 [As partes desta mensagem que não continham texto foram removidas]
RES: Res: [delphi-br] Salvar uma imagem
Bom dia, Não quero salvar uma imagem no banco.. QUERO LER A IMAGEM DO BANCO E SALVAR EM JPG. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Carlos Enviada em: sexta-feira, 15 de agosto de 2008 09:38 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Res: [delphi-br] Salvar uma imagem Meu camarada, bom dia! Vamos ver se eu entendi.Você quer salvar imagens em BD no formato JPG ou BPM, é isso? Caso seja isto, vc pode usar a função abaixo: procedure GravaFoto(DataSet : TDataSet; BlobFieldName, FileName : String; Nome: String); var ext, mDir, mSql : string; JpegImage : TJPEGImage; bitmap:TBitMap; begin DataSet.Insert; if (DataSet.State in [dsEdit,dsInsert]) then begin mDir := ExtractFileDir(FileName); ext := UpperCase(ExtractFileExt(FileName)); if (ext '.BMP') and (ext '.JPG') and (ext '.JPEG') then begin raise EAccessViolation.Create('Formato de imagem não suportado! '+ 'Formato suportado: Jpeg ou Bitmap'); Abort; end; try JpegImage := TJpegImage.Create; Bitmap := TBitmap.Create; if (ext = '.BMP') then begin Bitmap.LoadFromFile(FileName); JpegImage.Assign(Bitmap); JpegImage.Compress; end else JpegImage.LoadFromFile(FileName); JpegImage.SaveToFile(Nome + '.JPG'); (DataSet.FieldByName(BlobFieldName) as TBlobField).LoadFromFile(Nome + '.JPG'); DataSet.Post; DeleteFile(PChar(FileName)); DeleteFile(PChar(mDir + '.JPG')); finally Bitmap.Free; JpegImage.Free; end; end; end; Espero ter ajudado, Fraterno abraço, Carlos No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.138 / Virus Database: 270.6.3/1611 - Release Date: 14/8/2008 06:20 [As partes desta mensagem que não continham texto foram removidas]
RES: Res: [delphi-br] Salvar uma imagem
Carlos me desculpa pela caixa alta na mensagem anterior... não tinha reparado. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Carlos Enviada em: sexta-feira, 15 de agosto de 2008 09:38 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Res: [delphi-br] Salvar uma imagem Meu camarada, bom dia! Vamos ver se eu entendi.Você quer salvar imagens em BD no formato JPG ou BPM, é isso? Caso seja isto, vc pode usar a função abaixo: procedure GravaFoto(DataSet : TDataSet; BlobFieldName, FileName : String; Nome: String); var ext, mDir, mSql : string; JpegImage : TJPEGImage; bitmap:TBitMap; begin DataSet.Insert; if (DataSet.State in [dsEdit,dsInsert]) then begin mDir := ExtractFileDir(FileName); ext := UpperCase(ExtractFileExt(FileName)); if (ext '.BMP') and (ext '.JPG') and (ext '.JPEG') then begin raise EAccessViolation.Create('Formato de imagem não suportado! '+ 'Formato suportado: Jpeg ou Bitmap'); Abort; end; try JpegImage := TJpegImage.Create; Bitmap := TBitmap.Create; if (ext = '.BMP') then begin Bitmap.LoadFromFile(FileName); JpegImage.Assign(Bitmap); JpegImage.Compress; end else JpegImage.LoadFromFile(FileName); JpegImage.SaveToFile(Nome + '.JPG'); (DataSet.FieldByName(BlobFieldName) as TBlobField).LoadFromFile(Nome + '.JPG'); DataSet.Post; DeleteFile(PChar(FileName)); DeleteFile(PChar(mDir + '.JPG')); finally Bitmap.Free; JpegImage.Free; end; end; end; Espero ter ajudado, Fraterno abraço, Carlos No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.138 / Virus Database: 270.6.3/1611 - Release Date: 14/8/2008 06:20 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Abrir Word dentro do Formulario
Pessoal Preciso abrir o Word e este ficar dentro do meu formulário. Sei como chamar o Word, so nao sei como fazer para deixa-lo dentro do meu formulario. Utilizo Delphi 7. Obrigado
[delphi-br] Como imprimir na impressora TSC - TTP-243E de etiquetas
Boa noite a todos, Alguém trabalha com a impressora TSC- TTP-243E p/ imprimir etiquetas de código de barras? Ela tem comunicação tanto serial e paraela. Não consigo me comunicar c/ a impressora, estou usando uma DLL TSCLib.dll, mas pelo que entendi ela pega a impressora padrão, Só me retorna esta mensagem: PRINTER DRIVE IS NOT BEEN SPECIFIED. Já fiz a instalação no windows dos driver, ela aparece no gerenciador de impressoras, mas tb não imprime pagina de teste. Se alguém puder me ajudar agradeço. Dimas Bolognani [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Imprimir cupom NÃO fiscal na Bemate ch usando RDPrint...
Bom dia Fellipe, Uso o RDprint com a Bematech não fiscal matricial e a térmica e funciona blz. Verifica o modelo da impressora tem q ser BOBINA ou Epson Matricial ou compatíveis. Se vc colocar Gráfico combatível com Windows vai solta varias linhas no final. Atte. Dimas Bolognani _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe Henrique Enviada em: terça-feira, 1 de julho de 2008 11:13 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Imprimir cupom NÃO fiscal na Bematech usando RDPrint... Olá amigos, alguém conseguiu? Eu chego a imprimir, porém, no final, o RDPrint solta um monte de linhas ao fechar... mesmo falando que tem que ter somente 10 linhas, ela solta um monte... Já vi o exemplo dele e nele funciona perfeito, porém eu faço a mesma coisa no meu sistema, e não sai... Alguém tem algum macete? []s -- _ .-. T.·.F.·.A.·. /v\ Fellipe Henrique // \\ http://www.linkedin http://www.linkedin.com/in/fellipehenrique .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]
[delphi-br] Leitor Cod. barras Serial Spectra vs 1200
Boa tarde a todos, Por favor alguém poderia me ajudar a resolver um problema com um leitor de código de barras fixo comunicação serial, na verdade nunca trabalhei com leitores via serial e agora tenho um cliente que usa o Modelo VS 1200 Spectra-Physies via serial. Alguém já utilizou este leitor, como faço p/ q ele faça a leitura do código de barras dentro do meu sistema, será q usa uma DLL? Como faço pra carregar esta DLL no meu sistema em Delphi? Obrigado a todos que puderem me ajutar. DBSOFT INFORMÁTICA LTDA OURO FINO - MG TEL:35-3441-5254 Dimas Bolognani [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Leitor Cod. barras Serial Spectra vs 1200
Ricardo, Baixei a dica, mas ainda não entendi como funciona. Preciso chamar estas funcões apenas uma vez dentro da minha aplicação? Atte. DBSOFT INFORMÁTICA LTDA OURO FINO - MG TEL:35-3441-5254 Dimas Bolognani _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo César Cardoso Enviada em: terça-feira, 29 de abril de 2008 13:09 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Leitor Cod. barras Serial Spectra vs 1200 Boa tarde, Dimas! Acho que a princípio vc só precisa saber quais são os parâmetros de conexão do Leitor ( velocidade, taxa de bits, paridade, etc. ) Para a comunicação serial, use a dica do link abaixo [ http://www.swissdel http://www.swissdelphicenter.ch/torry/showcode.php?id=841 phicenter.ch/torry/showcode.php?id=841 ] Atte, Ricardo. DIMAS - DBSOFT - OURO FINO [EMAIL PROTECTED] mailto:dimas%40dbsoftinformatica.com.br tica.com.br escreveu: Boa tarde a todos, Por favor alguém poderia me ajudar a resolver um problema com um leitor de código de barras fixo comunicação serial, na verdade nunca trabalhei com leitores via serial e agora tenho um cliente que usa o Modelo VS 1200 Spectra-Physies via serial. Alguém já utilizou este leitor, como faço p/ q ele faça a leitura do código de barras dentro do meu sistema, será q usa uma DLL? Como faço pra carregar esta DLL no meu sistema em Delphi? Obrigado a todos que puderem me ajutar. DBSOFT INFORMÁTICA LTDA OURO FINO - MG TEL:35-3441-5254 Dimas Bolognani [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]
Re: [delphi-br] Como gerar Assinatura do Hash
Ola pessoal Alguem conseguiu gerar o MD5 e hash no delphi 7? Podem me passar no meu email [EMAIL PROTECTED] por favor. Obrigado. DBSOFT INFORMÁTICA LDTDA OURO FINO - MG Dimas Bolognani Tel:35-3441-5254 - Original Message - From: Alcistemas Informática To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 31, 2005 2:19 PM Subject: Re: [delphi-br] Como gerar Assinatura do Hash Instalei, mais não tenho nem ideia como eu uso isso dentro do meu aplicativo.. ex: Até aqui tudo bem, usei uma unit para gerar o MD5 6.10.1.1.1 - Aplicar a função unidirecional MD5 uma única vez em todo o arquivo, com exceção do registro EAD. O resultado será um código de 128 bits, ou 16 caracteres ASCII, correspondendo a um número hexadecimal de 32 dígitos. Deverá ser utilizado nos cálculos o número hexadecimal, considerando-o como um único bloco. daqui pra baixo, como implementar dentro do meu aplicativo ?? 6.10.1.1.2 - Criar uma chave privada de 1024 bits, equivalente a um número hexadecimal de 256 dígitos. 6.10.1.1.3 - Criptografar o código hexadecimal gerado no item 6.10.1.1.1, utilizando a chave do item 6.10.1.1.2, pelo algoritmo RSA de chave pública. O resultado dessa critptografia, um número hexadecimal com até 256 dígitos, deverá ser informado no campo Assinatura digital. 6.10.1.1.1 - Aplicar a função unidirecional MD5 uma única vez em todo o arquivo, com exceção do registro EAD. O resultado será um código de 128 bits, ou 16 caracteres ASCII, correspondendo a um número hexadecimal de 32 dígitos. Deverá ser utilizado nos cálculos o número hexadecimal, considerando-o como um único bloco. 6.10.1.1.2 - Criar uma chave privada de 1024 bits, equivalente a um número hexadecimal de 256 dígitos. 6.10.1.1.3 - Criptografar o código hexadecimal gerado no item 6.10.1.1.1, utilizando a chave do item 6.10.1.1.2, pelo algoritmo RSA de chave pública. O resultado dessa critptografia, um número hexadecimal com até 256 dígitos, deverá ser informado no campo Assinatura digital. - Original Message - From: Consultores Software To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 22, 2008 9:57 AM Subject: Re: [delphi-br] Como gerar Assinatura do Hash Colega, você pode usar os componentes da suite Lockbox http://sourceforge.net/projects/tplockbox/ Em 22/01/08, DIMAS BOLOGNANI [EMAIL PROTECTED] escreveu: Ola pessoal, bom dia pra todos Tenho um programa comercial de automação com ECF - emissor de cupom fiscal, agora em SP tem a necessidade de gerar alguns arquivos p/ receita, em relação ao arquivo das vendas efetuadas no cupom fiscal há a necessidade de gerar um codigo MD-5 e assinatura do Hash... Alguem sabe como fazer usando o Delphi? Atenciosamente, DBSOFT INFORMÁTICA LDTDA OURO FINO - MG Dimas Bolognani Tel:35-3441-5254 [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] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.19.7/1234 - Release Date: 20/1/2008 14:15 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como gerar Assinatura do Hash
Ola pessoal, bom dia pra todos Tenho um programa comercial de automação com ECF - emissor de cupom fiscal, agora em SP tem a necessidade de gerar alguns arquivos p/ receita, em relação ao arquivo das vendas efetuadas no cupom fiscal há a necessidade de gerar um codigo MD-5 e assinatura do Hash... Alguem sabe como fazer usando o Delphi? Atenciosamente, DBSOFT INFORMÁTICA LDTDA OURO FINO - MG Dimas Bolognani Tel:35-3441-5254 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com impressão no QReport com imagem
Boa tarde pra todos, To tendo problema na impressão com QReport de imagem, coloquei QRImage1 no formulario e carreguei-o usando QRImage1.Picture.LoadFromFile('LOGOEMPRESA.JPG'); mas não esta imprimindo.. alguem ja passou por este problema e como conseguiu revolver? Atenciosamente, DBSOFT INFORMÁTICA LDTDA OURO FINO - MG Dimas Bolognani Tel:35-3441-5254 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como gerar Assinatura do Hash
Ola Jumper! Vc ja envio a biblioteca? Atenciosamente, DBSOFT INFORMÁTICA LDTDA OURO FINO - MG Dimas Bolognani Tel:35-3441-5254 - Original Message - From: Jumper To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 22, 2008 1:41 PM Subject: Re: [delphi-br] Como gerar Assinatura do Hash Cara estou te enviando a biblioteca que uso para gerar MD5 dá uma ohada. Em 22/01/08, DIMAS BOLOGNANI [EMAIL PROTECTED] escreveu: Ola pessoal, bom dia pra todos Tenho um programa comercial de automação com ECF - emissor de cupom fiscal, agora em SP tem a necessidade de gerar alguns arquivos p/ receita, em relação ao arquivo das vendas efetuadas no cupom fiscal há a necessidade de gerar um codigo MD-5 e assinatura do Hash... Alguem sabe como fazer usando o Delphi? Atenciosamente, DBSOFT INFORMÁTICA LDTDA OURO FINO - MG Dimas Bolognani Tel:35-3441-5254 [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 Free Edition. Version: 7.5.503 / Virus Database: 269.19.7/1234 - Release Date: 20/1/2008 14:15 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Nomes de Bancos e Bandeiras
Ola pessoal Alguem tem uma tabela com os nomes dos bancos e suas respectivas bandeiras ? (imagens) Estou procurando tambem dos Estados Brasileiros (nomes e Bandeiras ).. Se alguem ja fez isso em Delphi e pude me enviar.. eu agradeco.. Quero poder colocar em um DBGRID os nomes e as bandeiras do lado direito. Utilizo Delphi 7 e FireBird 1.5 Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Mostrar CPF ou CNPJ sem espaço na te la
Uma solucao.. antes de colocar visible := True.. voce pode reposicionar o componente onde desejar... label.top := 999label.left := 999 Ate mais - Original Message - From: thiagotosta To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 31, 2007 6:31 PM Subject: [delphi-br] Mostrar CPF ou CNPJ sem espaço na tela Tenho a seguinte situação em uma tela: um campo será exibido ou não dependendo do valor do parâmetro. Ocorre que escondendo esse campo (label e dbedit), as disposições dos campos na tela ficam desagradáveis pelo espaço entre eles. Já vi algumas aplicações com um componente TNotebook que funcionava como um panel para mostrar CPF ou CNPJ conforme o Tipo de Pessoa. Alguém teria alguma solução profissional para repassar? Vlw! -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.432 / Virus Database: 268.17.14/658 - Release Date: 29/1/2007 14:49 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Minimizar sistema...
Ola pessoal.. Utilizado Delphi 7. Gostaria de minimizar meu sistema.. nao importa em qual tela ou modulo o usuario esteja assim que ele clicar em Minimizar.. teria q minimizar o sistema para ele ficar na barra de Tarefas. Tem modulos que eu abro com ShowModal e algunas apenas Show. Alguma sugestao ? Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DataSetProvider perde propriedade DataSet
Aconteceu algo parecido comigo, porem utilizo IB OBJECTS.. as vezes alguns componentes perdiam a referencia do DataSource (ficando vazios).. no oncreate dos formularios onde isso aconteceu.. eu atribuia novamente os DataSource aos componentes.. Nao tive mais problemas.. e o mais interessante..nao eram em todos os componentes.. so em alguns... - Original Message - From: thiagotosta To: delphi-br@yahoogrupos.com.br Sent: Monday, January 15, 2007 9:26 AM Subject: [delphi-br] DataSetProvider perde propriedade DataSet Em uma aplicação multicamadas os DSProviders do Remote Data Module estão perdendo a propriedade DataSet (ficando vazia), obrigando o programador a atribuir as propriedades toda a vez que executa o programa. Alguém já passou por um problema destes? O problema poderia estar ocorrendo pelo número de DSProviders do Remote (são vrios na aplicação)? Obrigado! -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.432 / Virus Database: 268.16.7/620 - Release Date: 8/1/2007 16:12 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Atualizar Tabela via Procedure
Ola pessoal... Utilizo FireBird 1.53 Tenho uma Stored Procedure que me devolve os resultados de uma pesquisa.. e faz uma atualizacao para outra tabela da seguinte forma: INSERT INTO TABELA_RESULTADO.. porem, as informacoes nesta tabela apenas serao inseridas de fato qdo eu FECHAR minha procedure.. Isso tambem acontece dentro do IB Expert. Como posso fazer com que os registros aparecam na tabela TABELA_RESULTADO sem fechar a procedure ?.. Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Nº da coluna no Rave
Tenho um relatorio (modo programado) em Rave.. Gostaria de saber qual o numero da proxima coluna, exemplo printright(oTabela.fieldbyname('QTDE01' ).AsString , 08.4); printright(oTabela.fieldbyname('QTDE02' ).AsString , 09.4); Preciso saber qual variavel do Rave tem o numero da ultima coluna utilizado.. Em clipper seria algo assim : Pcol()+1, (soma 1 na ultima coluna)... printright(oTabela.fieldbyname('QTDE02' ).AsString , variavel do Rave ); Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Minimizar Programa...
Tenho um formulario de cadastro e, qdo minimizar este formulario, quero minimizar toda a aplicacao. ( Application.Minimize ) Em qual propriedade do meu formulario posso controlar isso ? Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Minimizar Programa...
Tenho um formulario de cadastro e, qdo minimizar este formulario, quero minimizar toda a aplicacao. ( Application.Minimize ) Em qual propriedade do meu formulario posso controlar isso ? Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi ainda compensa?
Aqui em Piracicaba na universidade UNIMEP antigamente se ensinava Pascal (entre outras linguagens) como parte de desenvolvimento de logica de programacao. Depois de um tempo comecaram com Delphi ..e ninguem pretende mudar isso... Eu mesmo nao vou parar com o Delphi tao cedo... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi ainda compensa?
Aqui nas FATEC'S (Piracicaba e regiao).. onde tem curso de COBOL, os alunos sao contrados qdo terminam o curso.. (foi o que um professor me falou).. isso pq tem muita empresa precisando de programador em COBOL e nao acha facil no mercado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2006 - 64 bits
Exatamente isso... como os programas de 16 bits rodando em processadores de 32bits.. Primeiro eles melhoram os processadores, depois melhoram os programas Agora os programas de 32bits vao rodar em 64bits, ate serem atualizados... - Original Message - From: Walter Chagas (Yahoo) To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 14, 2006 8:42 AM Subject: [delphi-br] Re: Delphi 2006 - 64 bits Carlos, Até aonde me consta de conhecimento, qualquer aplicação 32 bits irá rodar normalmente em plataformas (Hardware + Sistema Operacional) 64Bits. O problema é que tais aplicações não irão explorar todos os recuros, benefícios e funcionalidades oferecidas pela arquitetura superior, mas que vão funcionar vão. Não sei se você é desse tempo, mas lembra que aplicações em DOS e Windows 3.11, que eram 16bits, rodavam no Windows 95 e em processadores 386 que já eram 32bits? Pois é, a mesma coisa vai se aplicar aos 64. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Carlos B. Schmidt [EMAIL PROTECTED] escreveu Pessoal, Algumas dúvidas ref ambiente 64 bits. O delphi 2006 compila aplicações em 64 bits?? Aplicações Win32 consigo compilar para 64 bits ou haverá que reecrever? etc... Gostaria maiores informações a respeito... At. Carlos [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.409 / Virus Database: 268.15.18/586 - Release Date: 13/12/2006 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como fazer help?..........
Realmente essa é a forma profissional de se fazer Help...mas voce pode inclusive fazer alguma coisa no Word por exemplo, e dentro do seu programa chamar o arquivo que pode estar na extensao .DOC, .RTF ou .PDF. Por exemplo, dentro do seu formulario, no evento onkeydown voce pode pesquisar se o usuario pressionou a tecla F1 e pode chamar qualquer arquivo de ajuda que quiser. if (key = VK_F1) then SHELLEXECUTE( 0 ,'OPEN','WINWORD.EXE', Pchar('ARQUIVO.DOC' ),NIL,SW_SHOWNORMAL) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Quebrar linha no DBGRID
Pessoal,,, Como posso mostrar uma linha de 160 char, em duas de 80 ou algo parecido, dentro de um DBGRID ??? CODIGO , NOME , OBSERVACAO (80) OBSERVACAO (80) -- CODIGO, NOME , OBSERVACAO (80) OBSERVACAO (80) Obrigado
[delphi-br] ..Menu padrao
Wagner, agradeco muito pela ajuda. So nao consigo configurar exatamente as teclas ALT + F9 para que mostre meu menu... O help do meu delphi esta com algum problema, e nao consigo fazer a comparacao da forma como vc escreveu. = vk_f12 , ocorre erro ao interpretar vk_f12 Obrigado - Original Message - From: Wagner Araujo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 25, 2006 2:31 PM Subject: Re: [delphi-br] Menu padrao no delphi tem um componente chamado TApplicationEvents esse componente vc coloca no datamodule de sua aplicacao e no mesmo tem um evento chamado onShortCut nesse evento vc pode tratar qualquer tecla que for pressionada na sua aplicação. eu fiz um parecido para abrir Ordem de serviço ficou assim procedure TDtmVds.ApEvSistemaShortCut(var Msg: TWMKey; var Handled: Boolean); begin if msg.CharCode = vk_f12 then abrirForm('TFrm_BrowOrse'); end; Em 25/10/06, Dimas Fernando [EMAIL PROTECTED] escreveu: Ola pessoal, Gostaria de dentro do meu formulario, nao importa qual seja, qdo o usuario pressionar ALT + F9 , abrir um menu com opcoes (padrao)... como posso fazer isso ? Obrigado [As partes desta mensagem que não continham texto foram removidas] -- Att., Wagner Araujo (11) 8377-7633 (11)6446-3920 [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.408 / Virus Database: 268.13.11/496 - Release Date: 24/10/2006 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Erro de acesso à memória
Esse exemplo é legal, vejo isso todos os dias na televisao.. nao sabia q eles eram programadores... hehehehehe.. so se fala em carro bomba... heheheheh - Original Message - From: WILLER To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 21, 2006 9:27 AM Subject: Re: [delphi-br] Erro de acesso à memória Obrigado pela explicação, agora entendi o porquê do erro. []s - Original Message - From: Eduardo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 20, 2006 6:28 PM Subject: Re: [delphi-br] Erro de acesso à memória Muito simples, você esta tendo dentro de um metodo ( função ou procedimento ) destruir o objeto que chamou este metodo. Por tanto quando ele sai do metodo o objeto não existe mais. Um exemplo bem tosco seria você é um objeto, você entra dentro de um carro e explode o carro, como você vai sair do carro depois da explosão ? Você não sai, você é destruido na explosão. Eduardo WILLER escreveu: Legal, funcionou. Só não entendi porque dá erro quando não uso o timer. Se eu coloco o código todo no click do botão dá erro por quê? - Original Message - From: Eduardo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 20, 2006 10:11 AM Subject: Re: [delphi-br] Erro de acesso à memória Ve se é isso que vc quer. unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Menus; type TForm1 = class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } vNome : Integer; vEndereco : Integer; end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); begin if TButton(vEndereco) Nil then FreeAndNil(TButton(vEndereco)); Timer1.Enabled := False; end; procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); var MyBtn : TButton; begin MyBtn := TButton.Create(Self); with MyBtn do begin Inc(vNome); name:='b'+inttostr(vNome); Parent:=Form1; left:=mousepos.x; top:=mousepos.y; caption:='s'; OnClick := Button1Click; Tag := Integer(MyBtn); //Guardo na tag o endereço de memória do obj end; end; procedure TForm1.FormCreate(Sender: TObject); begin vNome := 0; end; procedure TForm1.Button1Click(Sender: TObject); begin if Sender is TButton then begin vEndereco := TButton(Sender).Tag; Timer1.Enabled := True; end; end; end. Testei aqui com o intervalo do Timer de 500. Voce tb pode criar uma lista e assim procurando os objetos da lista para destruir. Eu só tinha esquecido ontem quando fiz o exemplo do detalhe fundamental de quem estava chamando este obj. Me desculpe não prestei a atenção devida. Eduardo WILLER escreveu: Essa linha não funcionou: FreeAndNil(TButton(TButton(Sender).Tag)); O Compilador dá uma mensagem dizendo: Constat objetc cannot be passed as var parameter. - Original Message - From: Eduardo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 19, 2006 2:17 PM Subject: Re: [delphi-br] Erro de acesso à memória Exatamente onde está o erro eu não sei, mas vai uma dica. procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); var MyBtn : TButton; xx:string; begin MyBtn := TButton.Create(Self); with MyBtn do begin name:='b'+inttostr(i); Parent:=Form1; left:=mousepos.x; top:=mousepos.y; caption:='s'; OnClick:=Button1OnClick; Tag := Integer(MyBtn); //Guardo na tag o endereço de memória do obj i:=i+1; end; end; procedure TForm1.Button1Click(Sender: TObject);
[delphi-br] Delphi + Estados com bandeira
Alguema ja montou um listbox com o nome dos estados do Brasil, porem com a badeira de cada um do lado ?... É algo parecido como tem no Skype, ele tem com os países... eu gostaria de ter com os estados. Se alguem tiver, poderia me enviar ? Obrigado Dimas Fernando [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Criar varias vezes o mesmo formulario
Ola pessoal.. preciso criar o mesmo formulario varias vezes, quer dizer, para cada vez que o usuario clicar na opcao do menu.. É um formulario que ira apresentar Graficos, e para cada vez que o usuario desejar, podera Criar uma janela, minimizar.. Criar outra. minimizar.. etc.. Exemplo: Desta forma cria apenas uma vez... AboutBox := TAboutBox.Create(Application); AboutBox.Show ; AboutBox.ShowModal ; FreeAndNil(AboutBox); // assim funciona, Walter Chagas Eu gostaria de poder criar varias vezes o mesmo form, pq cada vez o usuario ira escolher um tipo de grafico.. e depois eu quero poder minizar o Formulario, e qdo fechar, entao.. definitivamente destruir apenas esse formulario.. Obrigado [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Jvcl32 - jclbase.dcu
Eu executei novamente o install.bat da JCL , que esta no mesmo nivel de diretorio do JVCL, e aparentemente agora esta funcionando... houve algumas incompatibilidades por causa da versao antiga que eu usava (jvcl 2.0) eu acho... vou fazer uma serie de testes no sistema. Obrigado pela ajuda. - Original Message - From: Marco Aurélio (DELPHI) To: delphi-br@yahoogrupos.com.br Sent: Monday, July 24, 2006 8:25 AM Subject: Re: [delphi-br] Jvcl32 - jclbase.dcu Primeiro deve entrar no explorer onde descompactou o arquivo do JVCL, olhe dentro das pastas, lá existe um instalador.bat. Execute ele com o seu delphi fechado, assim irá instalar e não precisa compilar ou mesmo abrir o projeto. Atenciosamente Marco Aurélio Gerônimo Eletrodireto S/A - Central de Distribuição Tel.: 011 30399824 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Jvcl32 - jclbase.dcu
Pessoal.. instalei JVCL32.. porem , ao compilar o meu sistema, aparece a msg que nao encontrou JCLBASE.DCU que esta relacionada ao componente JvSpeedButton Alguem tem ??? Obrigado... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: ECF Daruma Restaurante [delphi-br]
Acho que vc enviou msg para a pessoa errada... - Original Message - From: Alexandre Oliveira To: delphi-br@yahoogrupos.com.br Sent: Friday, July 21, 2006 5:18 PM Subject: RES: ECF Daruma Restaurante [delphi-br] Estimado, Boa tarde. Creio que você deva acessar novamente o site da daruma e baixar o manual de especificação técnica da sua impressora em questão, não? Daí você, junto ao ACBr, teria que criar uma propriedade que identifique a versão/modelo de impressora que está utilizando, ver as especificações do manual, comandos ESC e tals, para que você possa dar tratamento adequado a ela. Mas é apenas um toque, creio que o Daniel e o Claudenir da lista de AutomaçãoTotal possam ser mais claros contigo. Saudações. --- []'s Alexandre Frase da semana: A temperança e o trabalho são as duas melhores médias de um homem. (Rousseau) Frase de la semana: La moderación y el trabajo son los mejores medios de un hombre. (Rousseau) -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Lenilson Amaral Enviada em: sexta-feira, 21 de julho de 2006 16:43 Para: delphi-br@yahoogrupos.com.br Assunto: ECF Daruma Restaurante [delphi-br] Só para quem nao leu, eu vou enfantizar: Alguem sabe onde posso encontrar o set de comandos da ECF Daruma Restaurante para que eu possa utilizar junto ao ACBr? No site www.daruma.com.br nao tem esta informacao nem no manual. -- Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.1.394 / Virus Database: 268.10.0/388 - Release Date: 13/7/2006 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Jvcl32 - TJvIntegerEdit
Pessoal.. instalei a JVCL32 ...e nao tem o componente TJvIntegerEdit.. mas eu uso muito em todo meu sistema.. para quem usa a JVCL32 .. ou comecou a usar, é possivel fazer a troca do componente em todo o sistema ?.. Na pagina Project JEDI JvCurrencyEdit,JvFloatEdit2,JvIntegerEdit,JvYearEdit (Jv Edits) Ainda estou usando uma versao mais antiga da JVCL30.. Obrigado [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Rave 5.0
No componente TRvSystem clique na opcao SystemSetups, a primeira, ssAllowSetup = False, assim nao aparece a tela que mencionou. Ate mais - Original Message - From: Adenes I. Freire Junior To: delphi-br@yahoogrupos.com.br Sent: Monday, June 12, 2006 7:32 AM Subject: [delphi-br] Rave 5.0 Caro amigo, como faço para abrir o preview do rave 5.0 sem abrir a caixa Out Options? Quando executo FrmRel01.RvProject1.Execute abre uma caixa para escolher se quero abrir o preview, se quero imprimir ou salvar em arquivo. Como faço para abrir ou imprimir direto para impressora sem abrrir esta caixa? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Validação de Data
Eu normalmente utilizo um MaskEdit, e verifico se a data esta certa no evento OnExit - do Evento no onexit if MskDataCad.Text = ' / / ' then begin ShowMessage('Digite a data de entrada.') ; MskDataCad.setfocus ; exit ; end; try MskDataCad.Text := DateToStr(Strtodate(MskDataCad.Text)) ; except ShowMessage('Data inválida. Corrija por favor.') ; MskDataCad.Text := '' ; MskDataCad.setfocus ; end; - Original Message - From: hebervan To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 03, 2006 12:38 AM Subject: [delphi-br] Re: Validação de Data Estou usando usando um DBEdit, mas também coloquei uma máscara __/__/___. Vc ñ forneceu outros detalhes sobre o seu problema, tais como: 1) Está editando um campo de um dataset ou um campo texto normal com TMaskEdit; 2) Senão, qual o componente de edição que tu tá usando? Sds. From: hebervan [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Validação de Data Date: Wed, 03 May 2006 03:08:03 - Como faço pra testar a validação do campo Data. Quero testar se aquela data é válida. O cadastro que estou fazendo trava quando teclo o TAB para pular do campo Data se a data for invalida. Em qual evento eu faço isso. Se alguém puder me dar pelo menos uma dica já ajuda muito. Obrigado! _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.