Jhonas

exemplo http://scriptbrasil.com.br/forum/index.php...st&p=605592 abraço

SQLQuery2.Sql.Clear; SQLQuery2.Sql.Add('Delete From cadastro Where controle BETWEEN'+edit1.Text+'and'+edit2.Text); SQLQuery2.ExecSQL; a data no mysql vem no formato '2010-01-29' ou seja 'yyyy-mm-dd' então voce deve fazer a conversão da data digitada no edit1 e edit2 de 'dd/mm/yyyy' para 'yyyy-mm-dd' //Converter data padrão p/ MySql Function TForm1.DataMysql(Vr:String):String; Var ValorData:String; Begin ValorData:=Vr; Result:=Copy(valordata,7,4)+'-'+Copy(valordata,4,2)+'-'+Copy(valordata,1,2); End; na instrução sql voce não deixou espaços e nem colocou aspas para validar a sentença exemplo Delete From cadastro Where controle BETWEEN '2010-01-01' and '2010-01-30' na instrução sql fica assim: SQLQuery2.Sql.Clear; SQLQuery2.Sql.Add('Delete From cadastro Where controle BETWEEN '+''''+DataMysql(edit1.Text)+''''+' and '+''''+DataMysql(edit2.Text)+''''); SQLQuery2.ExecSQL; abraço

o arquivo .Dat é um texto ? se for .. use: var f:TextFile; Linha:String; begin AssignFile(f, 'Caminho do Arquivo.Dat'); Reset(f); While not Eof(f) do Readln(f, Linha); CloseFile(f); end; faça isso para arquivo ... que podera ser jogado tudo em um memo e depois salvo ou pode abrir o primeiro deles como escrita e ir lendo os outros e jogando os dados no primeiro abraço

ok .. a libmysql.dll e outras que devem estar na pasta do MYSQL deve-se copia-las para a pasta c:\windows\system32 abraço

Uma das maneiras procedure TForm1.Button1Click(Sender: TObject); var v1,v2,v3 : real; begin v1 := trunc(0.188 * 100) / 100; v2 := trunc(0.125 * 100) / 100; v3 := v1 + v2; showmessage(floattostr(v3)); end; abraço

Então tente asim procedure TForm1.ACBrBAL1LePeso(Peso: Double; Resposta: String); var valid : integer; begin sttPeso.Caption := formatFloat('##0.000', Peso ); sttResposta.Caption := Converte( Resposta ); if Peso > 0 then Memo1.Lines.Text := 'Leitura OK !' else begin valid := Trunc(ACBrBAL1.UltimoPesoLido); case valid of 0 : Memo1.Lines.Text := 'TimeOut !'+sLineBreak+ 'Coloque o produto sobre a Balança!'; -1 : Memo1.Lines.Text := 'Peso Instavel ! ' +sLineBreak+ 'Tente Nova Leitura'; -2 : Memo1.Lines.Text := 'Peso Negativo !'; -10 : Memo1.Lines.Text := 'Sobrepeso !'; end; end; end; abraço

Amigo, tem um post em que passei o nome dos arquivos necessarios, mas infelizmente não me lembro qual deles foi pesquise no forum para ver se encontra http://scriptbrasil.com.br/forum/index.php...;highlite=mysql abraço

voce não especificou se esse relatório é feito em quick report ou outro no forum se não me engano tem um ou mais posts relativos a essa sua dúvida faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...te=quick+report abraço

voce pode usar um GroupBox com CheckBoxs , onde voce pode selecionar mais de um ou usar um ListBox com botões iguais ao RadioGroup com a propriedade multiselect http://www.devmedia.com.br/post-2282-Dicas...s-de-Radio.html abraço

experimente assim: procedure TfrmBalanca.ACBrBAL1LePeso(Peso: Double; Resposta: String); begin lblBalanca.Caption := FormatFloat(',0.000', Peso ); end; abraço

Voce deve ter esquecido de colocar um Region Component ou um BandStyle veja esse exemplo: http://www.delphibr.com.br/artigos/listarave.php abraço

Voce deve preencher a propriedade Items do DBCombobox para mostrar mais de um item, que voce poderá selecionar para incluir no campo referente a descrição do produto na sua tabela abraço

pode ser bug da versão veja se voce já fez as atualizações http://deblugando.wordpress.com/2010/01/02...e-help-update1/ abraço

veja se esse exemplo te ajuda http://balaiotecnologico.blogspot.com/2009...delphi-e-c.html abraço

Assim que tiver um tempinho sobrando ... faço uns testes aqui e te informo abraço

na verdade não remove não, apenas esconde o original ... e se voce < salvar como > com outro nome e em uma pasta diferente não terá problema nenhum abraço

dificil dizer ... uma vez que violação de endereço de memoria , significa que o seu programa está tentando usar um endereço especifico já ocupado por outra informação reveja o seu código ... rotinas que voce tenha incluido ultimamente voce deve retirar para poder descobrir o que causou esse tipo de ocorrência procure usar o debugger do delphi ( coloque break points no código para poder achar o problema ) abraço

Como Obter um Certificado Digital Publicado em: 25 de julho de 2008 Um certificado digital é um documento eletrônico que associa uma pessoa a uma chave pública. Um certificado digital contém os dados de seu titular, tais como: nome, e-mail, identidde civil, nome e assinatura da Autoridade Certificadora que o emitiu, entre outras informações. Na prática, o certificado funciona como uma carteira de identidade virtual que permite a identificação pessoal segura quando enviando uma mensagem ou fazendo qualquer tipo de transação pela rede mundial de computadores. O processo de certificação digital utiliza procedimentos lógicos e matemáticos para assegurar integridade das informações transmitidas/repetidas e confirmação de autoria. Confira o passo a passo de como obter o certificado digital no Brasil: 1- Escolha uma Autoridade Certificadora (AC) da ICP-Brasil; 2- Por telefone ou no próprio portal da internet da AC escolhida há a possibilidade de solicitar a emissão de certificado digital de pessoa física (ex: e-CPF) e/ou jurídica (ex: e-CNPJ). Os tipos mais comercializados são: A1 (validade de um ano – armazenado no computador) ou A3 (validade de três anos – cartão ou token). A AC também pode informar sobre aplicações, custos, formas de pagamento, equipamentos, documentos necessários, e demais exigências; 3- Depois da solicitação, a AC vai confirmar o pedido, em geral via e-mail, e encaminhará os contatos da Autoridade de Registro (AR) mais próxima do cliente, para que seja agendada uma visita presencial, quando o interessado levará os documentos necessários. Quem escolher o certificado tipo A3 receberá na própria AR o cartão ou token com o certificado digital. 4- Aguarde uma notificação da AC para baixar o certificado. Alguns exemplos de uso de certificados digitais ICP-Brasil são: • Sistema de Pagamentos Brasileiro – SPB – gerencia o processo de compensação e liqüidação de pagamentos por meio eletrônico, ligando as Instituições Financeiras credenciadas ao Banco Central do Brasil. Utiliza certificados digitais da ICP-Brasil para autenticar e verificar a identidade dos participantes em todas as operações realizadas; • Tramitação e assinatura eletrônica de documentos oficiais, por Ministros e pelo Presidente da República, para publicação no DOU; • Registro de operações e prestações do ICMS pela Internet – Nota Fiscal Eletrônica - em diversos estados da Federação; • Registro de operações e prestações de impostos federais pela Internet – DCTF, DIRPF, DIRPJ, e-CAC, PAF (SRF/MF); • Consulta da situação dos contribuintes na base da Receita Federal e demais serviços providos pelo Receita 222; • Assinatura de Contratos de Câmbio e Apólices de Seguros; • Programas de Governo, como PROUNI, do MEC , JUROS ZERO, da FINEP e Conectividade Social, da Caixa Econômica Federal; • Pregões Eletrônicos (SP,SC,MG) e COMPRASNET (Federal); • Sistemas Estruturadores do Governo Federal; • Internet banking e mobile banking; • Automação de processos do Poder Judiciário: TRT 4a. Região, TJ-RS, TJ-RJ, e-Jus, Diário da Justiça On-Line, Revista de Jurisprudência do STJ e outros; • Atendimento ao cidadão: DETRAN-MG, CETESB-SP, INPI. -------------------------------------------------------------------------------------------- veja tambem http://www.vivenciaemtecnologia.com/certif...gital-gratuito/ abraço

maneira correta de usar uses Math; procedure TForm1.Button1Click(Sender: TObject); var float : single; begin // The Sine of 30 degrees = 0.5 float := Sin(DegToRad(30)); ShowMessage('Seno de 30 graus = '+FloatToStr(float)); end; abraço

exemplo http://www.forumweb.com.br/foruns/index.ph...post__p__106672 abraço

voce pode montar um TEditX do ancestral TEdit e herdar essas propriedades e nele incluir as que voce quer abraço

FindWindow procura pelo titulo de uma janela ... voce esta querendo que quando aparecer essa menssagem voce possa clicar no botão via código ?

esse erro ocorre em virtude do campo blob ( memorando ) Projeto xxx.exe elevou classe de exceção EInvalidCast com mensagem ' typecast' de classe Inválido. Processo parou. Use Step ou Run para continuar. Este é o lembrete de mensagem de erro pelo delphi ou enviroment de c++builder ao depurar o programa. Isto sempre é causado pelo typecast incorreto. Quando você usa o BDE para conectar ao banco de dados, o erro não é elevado a uma exceção, porque TBlobStream foi projetado para usar o BDE . Quando voce usa ADO ou outro componente para conectar ao banco de dados, voce deve usar o próprio componente para ter acesso ao campo blob ( memorando ). Se voce usar o ADO, voce deve usar um TADOBlobStream, enquanto usa o clientdataset. exemplo: http://www.componentace.com/blob-fields-delphi.htm abraço

A largura maxima do papel é de 63 mm e pode usar até 54 colunas .. então esse tamanho que voce definiu não está correto então defina o fpCustom para uma largura de 63 mm e na vertical não importa quantas linhas voce vai colocar ( pode ser 10, 15, 20 ... etc ) nesse tipo de impressora é aconselhavel usar impressão direta, mas se quiser usar um report, lembre-se que se houver quebra de pagina, o titulo deve ser impresso somente na primeira pagina abraço

Este problema ocorre porque as assemblagens de seriação temporário não referência a assemblagem System.Web . Este comportamento provoca a falha durante a execução do serviço Web. A Microsoft recomenda que aguarde pelo próximo service pack do Microsoft .NET Framework que contenha esta correcção. http://support.microsoft.com/contactus/?ws=support http://support.microsoft.com/search/defaul...tion&mode=r http://us3.download.comodo.com/cis/downloa...staller_x86.exe --------------------------------------------------------------------- ou pode tentar essa solução: Este erro é relacionado a permissão na pasta Temp. 1 - Vá para %Systemroot%, normalmente C:\WINDOWS ou C:\WINNT 2 - clique botão direito do mouse na pasta Temporária do windows (o meu é C:\WINDOWS\Temp) e selecione Compartilhando e Segurança ( Sharing and Security ) 3 - Selecione a aba de Segurança e dê uma olhada na lista de “Grupo ou nomes de usuários:” SERVIÇO de REDE deve estar na lista. Se não estiver, clique < Add > e digite o Serviço de Rede na caixa de texto. 4 - O NETWORK SERVICE deve ter controle total na lista de Permissões... Clique o OK. 5 - Reinicie IIS (Execute iisreset) Se sua máquina não tiver SERVIÇO de REDE ou Grupo de SERVIÇOS de REDE, procure “IIS_IUSRS” e aplique as mesmas permissões. abraço