Jump to content
Fórum Script Brasil

Search the Community

Showing results for tags 'delphi'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

  1. Gostaria de saber se consigo salvar direto em xml iso-8859-1 com um clientdataset, ou converter de UTF-8? Com o código abaixo salvo em UTF-8 normal mas queria salvar no outro formato citado, sou iniciante e estou fazendo um trabalho para a faculdade, desde já agradeço, muito obrigado. if not (DmDados.SpExportaVenda.IsEmpty) then begin DmDados.SpExportaVenda.First; DmDados.CDSVenda.Open; while not DmDados.SpExportaVenda.Eof do begin DmDados.CDSVenda.Insert; DmDados.CDSVendaCodigoProduto.AsInteger := DmDados.SpExportaVendaid_Produto.AsInteger; DmDados.CDSVendaCodigoVenda.AsInteger := DmDados.SpExportaVendaid_Venda.AsInteger; DmDados.CDSVendaDescricao.AsString := DmDados.SpExportaVendaDs_Produto.AsString; DmDados.CDSVendaApresentacao.AsString := DmDados.SpExportaVendaDs_Apresentacao.AsString; DmDados.CDSVendaGrupo.AsString := DmDados.SpExportaVendaDs_Grupo.AsString; DmDados.CDSVendaQuantidade.AsInteger := DmDados.SpExportaVendaNr_QTD.AsInteger; DmDados.CDSVendaLote.AsString := DmDados.SpExportaVendaDs_Lote.AsString; DmDados.CDSVendaEmissor.AsString := DmDados.SpExportaVendaEmissor.AsString; DmDados.CDSVenda.Post; DmDados.SpExportaVenda.Next; end; DmDados.CDSVenda.SaveToFile( 'C:\sgf\XML\vendacontrolados.xml', dfXMLUTF8); DmDados.CDSVenda.EmptyDataSet; DmDados.CDSVenda.Close;
  2. Bom dia Pessoal. Vocês poderiam indicar um local para eu baixar o arquivo RLINK32.DLL do Delphi 10 ? Obrigado.
  3. Amigos, Bom dia. Tenho um arquivo TXT de uma Exportação onde o objetivo é substituir um quantidade exata de caracteres em uma posição exata do texto. Sempre na mesma posição em todas as linhas e sempre com o mesmo tamanho. O texto é esse: 000001PTESTE 001 000002.360000V000000000000000000000000000000000f16 000002PTESTE 002 000001.230000V000000000000000000000000000000000f13 000003PTESTE 003 000004.690000V000000000000000000000000000000000f22 Preciso substituir o trecho do texto onde tem os valores 000002.36 000001.23 000004.69 para, por exemplo: 000001.69 000002.69 000003.69 Como poderia fazer isso?
  4. Olá,meu professor de Estrutura de Dados deu o seguinte trabalho: {- Faça um algoritmo para controlar um campeonato de futebol: - O campeonato é um quadrangular. - Para cada time deverá ser salvo o nome do time, e o nome dos jogadores (sendo que cada time possui um plantel de no máximo 22 jogadores entre titulares e reservas); - Para cada time deverá ser controlada a pontuação total. - Cada jogo possui três resultados possíveis (vitória 3 pontos, empate 1 ponto, derrota 0 pontos). - Mostrar a lista de classificação por pontos informando o time campeão, o time rebaixado e seus respectivos pontos.} O dividi em problemas menores para procedimentos certo,e não estou conseguindo uma etapa da minha lista. Um procedimento que cria jogos aleatórios,sendo que todos os times tem que jogar com todos do campeonato sem repetir. Eu pensei em algo tipo: ex: Time_1=1 Time_2=2 Time_3=3 e embaralhar pelos números , não consegui e se alguém tiver uma opinião melhor sobre como misturar os times manda ai. obs. Em console Application acabamos de iniciar com o orientado a objeto.
  5. Soluções em biometria para leitor Nitgen e Catracas Biométricas para desenvolvedores vb.net implementamos biometria em seu projeto de controle de ponto.. saiba mais sobre nossas soluções em http://geovanny-oliveira16.wix.com/khronostecnologia Acesse nosso canal no youtube e saiba mais sobre nosso módulo para desenvolvedor em biometria https://www.youtube.com/watch?v=YH318BNCV6E Giovanny Oliveira Skype:Giovanny 0113 Correio Eletrônico:geovanny_oliveira16@hotmail.com
  6. Olá pessoal, Boa noite. Estou com uma dúvida e bronca que não consigo resolver, sou iniciante em programação, mexo apenas com delphi e pouquíssimos em outras linguagens, enfim, vamos lá. Meu problema é o seguinte, fiz um programa para uma clínica médica, bem básico, marca consulta, retorno, imprimi prontuário, exames, etc, o programa já está sendo usado, só que estou fazendo uma atualização e estou com problemas para desenvolver, é o seguinte. Na minha aba relatório, tenho uma função que pega os dados das consultas que estão marcadas e imprimi para o médico ter em mãos as consultas, o recepcionista seleciona pela data desejada (ATUAL) e o sistema busca as consultas normais pela data desejada, enfim, dentro da minha tabela "Marcar_consultas" existe um campo chamado "data" que pelo comando sql faço essa busca, só que nesta mesma tabela "marcar_consultas" existe um campo chamado "data_retorno" que é os pacientes que já vieram de uma consulta, estão em um retorno, então o problema é que eu consiga fazer meu código buscar pelos 2 campos, não só por um. Irei mandar aqui como está meu código. begin if CheckBox3.Checked = true then // pesquisa por data begin// faz a pesquisa pela data solicitada ADOQuery1_Consultas_Marcadas.Close; ADOQuery1_Consultas_Marcadas.SQL.Clear; ADOQuery1_Consultas_Marcadas.SQL.Add(' Select *'); ADOQuery1_Consultas_Marcadas.SQL.Add(' From marcar_consultas where data between :h1 and :h2'); ADOQuery1_Consultas_Marcadas.SQL.Add ('and Nome_Convenio like ' + quotedstr('%' +edit5.Text+'%')); // pesquisa por conv ADOQuery1_Consultas_Marcadas.SQL.Add ('and Nome like ' + quotedstr('%' +edit4.Text+'%')); // pesquisa por conv ADOQuery1_Consultas_Marcadas.SQL.Add ('and `Consulta/Retorno` like ' + quotedstr('%' +edit8.Text+'%')); // consulta retorno ou fechada ADOQuery1_Consultas_Marcadas.SQL.Add ('and `Consulta/Retorno` like ' + quotedstr('%' +edit9.Text+'%')); // consulta retorno ou fechada ADOQuery1_Consultas_Marcadas.SQL.Add ('ORDER BY hora ASC'); ADOQuery1_Consultas_Marcadas.Parameters[0].Value:=ConverteData(DateTimePicker3.DateTime); ADOQuery1_Consultas_Marcadas.Parameters[1].Value:=ConverteData(DateTimePicker4.DateTime); ADOQuery1_Consultas_Marcadas.open; end; //////////////////////////////////////////////////////////// begin if CheckBox10.Checked = true then // pesquisa por data_retorno begin// faz a pesquisa pela data solicitada //if (Edit1.Text<>'') and(Edit4.Text<>'')then ADOQuery1_Consultas_Marcadas.Close; ADOQuery1_Consultas_Marcadas.SQL.Clear; ADOQuery1_Consultas_Marcadas.SQL.Add(' Select *'); ADOQuery1_Consultas_Marcadas.SQL.Add(' From marcar_consultas where data_retorno between :h1 and :h2'); ADOQuery1_Consultas_Marcadas.SQL.Add ('and Nome_Convenio like ' + quotedstr('%' +edit5.Text+'%')); // pesquisa por conv ADOQuery1_Consultas_Marcadas.SQL.Add ('and Nome like ' + quotedstr('%' +edit4.Text+'%')); // pesquisa por conv ADOQuery1_Consultas_Marcadas.SQL.Add ('and `Consulta/Retorno` like ' + quotedstr('%' +edit8.Text+'%')); // consulta retorno ou fechada ADOQuery1_Consultas_Marcadas.SQL.Add ('and `Consulta/Retorno` like ' + quotedstr('%' +edit9.Text+'%')); // consulta retorno ou fechada ADOQuery1_Consultas_Marcadas.SQL.Add ('ORDER BY hora_retorno ASC'); ADOQuery1_Consultas_Marcadas.Parameters[0].Value:=ConverteData(DateTimePicker3.DateTime); ADOQuery1_Consultas_Marcadas.Parameters[1].Value:=ConverteData(DateTimePicker4.DateTime); ADOQuery1_Consultas_Marcadas.open; end; Será que alguém pode me ajudar? queria que ao invés de ter dois checkbox pra ele escolher uma por vez, ter data e data_retorno na mesma pesquisa por data. OBS: Este código está funcionando perfeitamente, só precisando destes ajustes rs! Obrigado desde já. Felipe Campos,
  7. Olá Amigos,venho através deste fórum aumentar minha rede de contatos para possamos acrescentar novas oportunidades a todos nós. Sou Analista de sistemas com 4 anos de experiência em desenvolvimento utilizando as ferramentas Vba Access 2003 ou supoerior,Visual Basic , Visual Basic.net e Delphi7 para soluções em biometria e Catracas eletrônicas para desenvolvedores implementarem a seus projetos.Tenho grandes conhecimentos em queries SQL para Access , MySql, Firebird. e estou aberto a propostas e ajudar aqueles que necessitam de um up no conhecimento Obrigado a todos e agradeço o forum pela oportunidade. Giovanny Oliveira Analista de Sistemas Skype:Giovanny0113 http://geovanny-oliveira16.wix.com/khronostecnologia
  8. Boa Tarde, Atualmente já uso cobrebem para emissão de boletos bancários. Tenho uma necessidade hoje de gerar um arquivo de remessa para a Caixa Economica Federal com o objetivo de realizar uma transferência bancária. Ex: Tenho um cliente que vende produtos via internet (E-Commerce). Ele possui vendedores em todo o brasil já cadastrados no sistema. Existe um fechamento mensal das comissões que devem ser pagas a estes vendedores. Portanto, preciso pegar este lote de comissões e gerar uma transferência para conta destes vendedores. Assim preciso gerar um arquivo de remessa para o banco gerar este registro movimentação (Conversando com o banco, mesmo assim o meu cliente precisa acessar o internet banking para aprovar os registros e digitar sua senha para que a transação seja realizada). Gostaria de saber de vocês se existe um produto que facilite minha vida ou tenho que desenvolver arquivo de acordo com o layout do febraban? Caso vocês não exista nenhum produto (DLL), gostaria de saber se podem me auxiliar em dizer qual dos layouts, do febraban, devo utilizar para realizar este procedimento? Grato desde já... Alexandre Paes.
  9. Fiz esse código com a estrutura IF e Else... só que passa direto. O código: _______________________________________________________________ procedure Tradio.Image1DblClick(Sender: TObject); begin if tamanho=0 then begin image7.Visible:=true; image6.Visible:=false; ShowWindow( Handle, SW_Maximize); radio.Height:=radio.Height-3; image8.Left:=image3.Left-40; image6.Left:=image8.Left-40; image7.Left:=image8.Left-40; image5.Left:=image6.Left-40; tamanho:=1; end else if tamanho=1 then image6.Visible:=true; ShowWindow( Handle, SW_RESTORE); image8.Left:=1064; image6.Left:=1024; image7.Left:=1024; image5.Left:=984; image7.Visible:=false; tamanho:=0; end; _______________________________________________________________________ é como se não tivesse o segundo if, ele passa direto por ele. Sera que podem me ajudar? o.O
  10. Boa tarde, estou com um problema aqui no consumo de um Web Service. Importei com o WSDLImporter e ele me gerou a classe. A estrutura de envio deste WS é assim: <cabecalho> <tag1></tag1> <tag2></tag2> </cabecalho> <Dados> <DadosItem> <tag1></tag1> </DadosItem> <DadosItem> <tag1></tag1> </DadosItem> [...] </Dados> Bem, então o grupo Dados é um array. Assim o Delphi gerou a classe, só não sei como inicializar esse array para preenche-lo. Pois esse array é uma propriedade da classe "envio", e toda vez que tento atribuir um valor dá "acces violation". Se tento dar um SetLength, ocorre erro. A parte da classe deste array está assim: Recep = class(TRemotable) private FCabecalho: Recepcao_Cabecalho; FInformacoes: Recepcao_Informacoes; FDados: Dados; public destructor Destroy; override; property Dados: Dados read FDados write FDados; published property Cabecalho: Recepcao_Cabecalho read FCabecalho write FCabecalho; property Informacoes: Recepcao_Informacoes read FInformacoes write FInformacoes; end; Dados = array of Recepcao_DadosItem; Na minha Unit, tenho assim: env.Dados[0] := dadositem; //env é o objeto da classe Recep //dadositem é o objeto da classe Recepcao_DadosItem Nesse momento ocorre o erro de acces violation, como inicializo esse array? :blink: Obrigado
  11. Uso o Delphi 7 aqui no serviço e aqui é usado o OpenDialog pra abrir planilhas .xls. Adequei agora para abrir também planilhas .xlsx no componente porém, quando mudo o tipo de arquivo na caixa de diálogo ele não atualiza. Ele só atualiza quando pressiono F5, mostrando assim os arquivos .xlsx. Teria algum comando para eu adicionar para ele fazer a atualização automática quando trocar o tipo de arquivo? Valeu galera!
  12. Estou utilizando um relacionamento Master-Detail de Vendas (Master) com Serviços e Pagamentos (tabelas Details), utilizo o TClientDataSet configurado para o commandType = ctQuery, tenho aproximadamente 20K de Vendas, sendo que cada Venda tem vários produtos e pagamentos. Trabalho da seguinte forma: Eu tenho Querys prontas parametrizadas e apenas utilizo elas quando necessário, ex: clientDataSet.close; clientDataSet.commandText := FIND_BY_COD_VENDA; clientDataSet.Params.paramByName('cod_venda').AsInteger := 134; clientDataSet.open; Ocorre que como estou trabalhando com Master-Detail, além de carregar os dados da VEnda, ele carrega os dados dos Serviços e Pagamentos, deixando a consulta um pouco mais lenta do que eu esperava. Gostaria de saber se tem como dizer de alguma forma: "Não carregue os details, apenas quando eu for editar um registro eu carrego os details".
  13. Olá amigos! Eu estou terminando alguns apps que vamos vender na minha empresa, e gostaria de encontrar alguns programadores para ajudar a testá-los e avaliá-los. 1. E-mail Marketing Rápido e ilimitado, e com um dos melhores esquemas de checagem de e-mails, para você fazer uma mala direta precisa obtendo os melhores resultados! Link: http://www.deaqweb.com.br/softwares/email-marketing/ 2. SMS Server Aqui já é para os programadores e Web Dev: Envie e RECEBA torpedos SMS para/de TODO O BRASIL, implantando em seu site, software, app ou o que for .. Você só vai precisar de um modem 3G e um chip de celular!! APROVEITE OS PLANOS DE SMS ILIMITADO DAS OPERADORAS E FAÇA A FESTA!! http://www.deaqweb.com.br/softwares/sms-server/ 3. SMS Marketing Quer fazer SMS MARKETING? ENVIO EM MASSA DE TORPEDOS? Temos a ferramenta pronta! Ela utiliza o SMS SERVER acima para disparar os torpedos. ALTA CAPACIDADE DE ENVIO com EXTREMA EFICÁCIA! Quem quizer testar, estou liberando a licença de graça enquanto não fazemos o lançamento!! http://www.deaqweb.com.br/softwares/sms-marketing/ Sendo assim, está feito o convite para quem quiser aproveitar este período de gratuidade dos meus aplicativos e também ajudar a testar. Podemos nos tornar parceiros e deixar liberado a licença depois do lançamento .. E um grande abraço!! Atenciosamente, MACUSA
  14. Olá pessoal, eu sempre que crio algum programa no Delphi, qualquer que seja, quando utilizo um banco de dados( o meu banco é o Firebird osu o IB Expert como SGBD), quando compilo minha aplicação, e colo o o executável e a pasta do banco de dados em outra máquina, nos devidos locais, e abri o executável, ele dá um erro, dizendo que não encontrou determinado arquivo para conectar ao meu banco de dados. Preciso usar algum arquivo .ini ou .dll para fazer o sistema funcionar? Alguém sabe o que posso fazer? Meu Delphi é a versão 2010.
  15. Bom noite, pessoal, eu estou gravando algumas vídeo aulas e estou disponibilizando no youtube, no momento são duas listas de reprodução, uma que auxilia na instalação e configuração do ambiente de desenvolvimento em varias distribuições linux e no windows também e outra ensinando a desenvolver o projeto, as videos do Desenvolvendo um site completo ainda não estão todas prontas, mas já são 19 vídeo aulas que auxiliam na inicialização do projeto, não é um projeto complexo, mas que da uma boa noção de como desenvolver web com FPC, vou postar a cada semana mais 5 ou 6 novas aulas, em torno de uma por dia. Segue abaixo o link das duas listas de reprodução. Ultima aula: Montando o ambiente de desenvolvimento Desenvolvendo um site completo com Lazarus/Freepascal/Brookframework Acompanhe e inscreva-se no canal. Att Anderson Junior http://www.youtube.com/watch?v=qzSLeiqUDUU&list=PLeVT2ZKyNYQ7p_k7FlUsflcKlRKlpj7Zk
×
×
  • Create New...