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. Estou tentando montar um sistema que copie o texto de um site qualquer e me devolva o texto em um edit apenas uma unica palavra. Eu estou usando o ponteiro do mouse para selecionar o texto e usando a função colar. as vezes funciona, mais as vezes ele não cola o texto certo e cola parte do código do delphi. Não entendo se é alguma proteção do site ou o que é? SetCursorPos(941, 385); Mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,941,385 ); //SetCursorPos(548, 839); Mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,1006,385 ); Mouse_event(MOUSEEVENTF_LEFTUP,0,0,1006,385 ); Chromium1.Browser.
  2. Estou tentando importar um controle ActiveX e não registra o componente no Delphi10.2.
  3. bom dia estou testando consultar uma nota fiscal de serviço no GINFES por SOAP.Gero o seguinte arquivo da seguinte forma <?xml version="1.0" encoding="UTF-8"?> <ConsultarNfseRpsEnvio xmlns="http://www.ginfes.com.br/servico_consultar_nfse_rps_envio_v03.xsd" xmlns:tipos="http://www.ginfes.com.br/tipos_v03.xsd" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#"> <IdentificacaoRps> <tipos:Numero>1</tipos:Numero> <tipos:Serie>1</tipos:Serie> <tipos:Tipo>1</tipos:Tipo> </IdentificacaoRps> <Prestador> <tipos:Cnpj>56123490000178&
  4. Ola Gente, Sou novo com webservices e através de videos do Rodrigo Mourão consegui fazer alguma coisa, porem, preciso associar a um serviço de webservices da f2b (www.f2b.com.br) onde posso gerar carnês e boletos. Já usava o ws em php em outro sistema online, porem a empresa esta migrando tudo para o delphi, e não estou conseguindo fazer isso funcionar. Esse é o wsdl http://www.f2b.com.br/soap/wsbilling.wsdl xml. alguém pode me ajudar? Preciso muito de fazer isso funcionar, deste já agradeço.
  5. Boa tarde amigos, estou com um problema com webbrowser do delphi 7, estou fazendo um sistema e para isso preciso que ele entre na conta do site, porém quando o delphi envia os dados do usuario (no formulario do site) e entra o site informa uma mensagem de boas vindas e com os dados da conta. Imagem do meu erro: http://imgur.com/a/tAkZm Para ele continuar o processo eu necessito clicar no OK toda vez e isso está me atrasando muito, como posso clicar nesse OK ou impedir essa mensagem? Obrigado desde já.
  6. Bom dia. Em VCL com essa rotina seta outra impressora passando o nome como parâmetros. Printer.PrinterIndex := -1; For I := 0 to Printer.printers.Count-1 do begin If LowerCase(Printer.Printers[i]) = Lowercase(PrinterName) then begin //Altera a classe printer padrão if ( Printer.PrinterIndex <> i ) then begin Printer.PrinterIndex := i; end; //Altera a classe printer do FastReport frxPrinters.FillPrinters; frxPrinters.PrinterIndex := frxPrinters.Printers.IndexOf(PrinterName); exit; end; End;
  7. Boa tarde, preciso de sua ajuda, vi um tópico na internet sobre TreeView, no qual você falar cobre como montar com sub-nível. Mais não consegui montar o meu com 3 tabelas de plano de contas do banco de dados, se alguém poder me ajudar eu agradeceria muito. Tá assim o esquema. TabelaG ID Descrição 1 Entradas 2 Saídas TabelaP ID PlanoG_ID Descrição 1 1 Fretes - Transportes 2 2 Folha de Pagamento 3 1 Terraplangem 4 2 Fretes de Envio de encomendas TabelaF ID PlanoP_ID Descrição
  8. Gostaria de saber como faço para fazer uma Lista Branca / Whitelist para servidores de jogos, Ex: Rust - CSGO jogos no qual são da steam, eu sei que para fazer a autenticação em servidores assim é feito pelo steamID nome da conta do usuária entre outro, para acessar o servidor do jogo queria que essa autenticação seja feita pelo meu servidor, pois estou quero para fazer um Anti - Cheater, e uma das maneiras para barrar alguém banido seria se eu meu banco de dados o Jogador A1 tive se banido ele não acessaria os servidores registrados no meu banco, assim eu retiraria no Lista Branca / Whitelist
  9. Boa tarde, Criei um processo para alterar o IP do computador sem precisar reiniciar, porém nesse metodo tenho que passar o nome do adaptador de rede que infelizmente dependendo do SO e do adaptador isso muda, por exemplo XP "Conexão Local", W8 "Ethernet" e W10 "Rede", então qual minha ideia.... é pegar o nome desse adaptador, porém não achei como fazer....
  10. Boa tarde. Estou desenvolvendo em Delphi berlin firemonkey, preciso retornar o tamanho do papel disponível na impressora. Por exemplo A4. Como fazer isso em Delphi FMX.Printer? Fico no aguardo. Obrigado.
  11. Boa tarde. Como mandar um impressão direto para impressora e se caso a impressora tiver guilhotina acionar o mesmo? OBS(Preciso fazer isso em FMX). Fico no aguardo. Obrigado.
  12. Boa tarde, meu problema é o seguinte, tenho as classes logo abaixo. Na função CreateSQLInsert eu crio o script da tabela. (Aqui tudo OK) a procedure SetParam funciona certo desde que não tenha itens (1:1) como faria nessa procedure para setar os valores no padrão (1:N) ? // Campos da Tabela no banco de Dados TNFEmissaoDet = class(TComponent) private FPRODUTO_ID: string; FSEQUENCIA: Integer; FDESCRICAO: string; // procedure setPRODUTO_ID(const Value: string); procedure setSEQUENCIA(const Value: Integer);
  13. Boa Tarde pessoal fiquei a semana inteira quebrando cabeça com uma aplicação e não consegui resolver, eu pago quem me ajudar sem problema... Pra explicar melhor fiz um video e postei no youtube... Realmente estou disposto a pagar por uma consultoria, pois isso é muito importante pra mim, meu whatssap é ( 034 88080777 ) ddd trinta e quatro, fone oito oito zero oito zero sete sete sete. OBs: em algumas maquinas funciona normal e em outras não, já formatei, já fiz de tudo...já testei em umas 10 maquinas, algumas funcionam e outras não, não descobrir o porque, todas que testei foi com windows
  14. Bom tarde, (me desculpem se criei em lugar errado)estou utilizando o novo Delphi 10 Seattle e estou com um problema utilizando o DateTimePicker. Tenho um campo em minha tabela (banco MySQL) do tipo "TIME NOT NULL DEFAULT '00:00:00'". Esse campo sempre trabalhei sendo somente time, nunca datetime. Em meu antigo projeto com esse mesmo banco de dados, onde utilizava Delphi 7, eu utilizava um componente de terceiro com um DBDateTimePicker e funcionava perfeitamente. Porém, com a migração do meu projeto para o D10 Seattle, não tenho mais componentes de terceiros e estou usando tudo nativo. Pa
  15. Bom dia companheiros, estou com uma dúvida a alguns dias e não consigo resolver, fiz um webbrowser pra acessar o bate papo da uol e mandar mensagens automaticamente(um boot) mas estou enfrentando um problema, pois no botão enviar(enviar a mensagem) ele não envia o que escrevi no edit, e só envia se eu clicar no campo da mensagem dentro da página, sendo que também o campo já é preenchido pelo edit... (lembrando que esse código funcionava perfeitamente com o modelo antigo das salas da uol, ai como mudaram o modelo das salas agora estou com esse problema...) se alguém poder me ajudar ficarei mui
  16. Olá senhores,Estou desenvolvendo um sistema para um cliente onde, no ato do cadastro do cliente, ele preenche um radio button que possui 3 valores relacionados a data de vencimento(por exemplo, todo dia 5). Ele quer que implemente algo que quando passasse desse dia de vencimento o status mudasse, informando que o cliente está em débito. Não tenho a mínima ideia de como fazer isso pois só tenho o dia, não uma data completa. Poderiam me ajudar? Desde já obrigado. Segue o código: if DayOf(date) > FDCadPadraoCL_DIA_VENCIMENTO.Value then begin lblStatus.Caption := 'Atrasado'; lblStatu
  17. Eu montei um processo atraves desse exemplo de Thread; procedure TForm2.Button2Click(Sender: TObject); var MyThread:TThread; begin ProgressBar1.Position := 0; ProgressBar2.Position := 0; MyThread := TThread.CreateAnonymousThread(procedure var i:integer; begin for i := 0 to 100 do begin TThread.Synchronize(MyThread, procedure begin ProgressBar1.Position := i; ProgressBar2.Position := i * 2; end); Sleep(100); end; end); MyThread.Start; end; porém agora o que eu preciso saber quando ela terminou para eu fechar a aplicação;
  18. Como faço para criar os campos do table em runtine de acordo com os campos de uma query ?
  19. Boa tarde, estou usando o FDBatchMoveDataSetReader1 para pegar os dados de uma query e usando o FDBatchMove1 para pegar os dados e jogar num FDBatchMoveSQLWriter1 para gravar os dados em outro lugar....o sql que retorna na query é dinamico e nem todos os campos que tem nele, terá na tabela de destino, então o que preciso é criar os mappings do FDBatchMove1 de origem e destino dinamicamente, estou fazendo assim; with FDQuery1 do begin Active := false; Close; sql.Clear; sql.add('select * from tbl_adm_configsynccampos where nm_tabelapara = ''tbl_prd_produtos'' '); open; end; while not
  20. Prezados.. Estou precisando utilizar um boleto de arrecadação um pouco diferente do normal. No local da data convencional AAAAMMDD eu preciso enviar em formato Juliano AANNN Até onde entendi funcionaria da seguinte forma: Exemplo para o dia 02/02/2017 = 17032 AA = Ano com 2 dígitos = 17 NNN = Números corridos de dia do ano = 032 Exemplo para 31/12/2017 = 17365 AA = 17 NNN = 365 Até aqui tudo bem, porém, ao gerar o codigo de barras, o Banco do Brasil diz "DATA INVÁLIDA" Procurei por mais informações e o banco me passou mais alguns esclarecimentos q
  21. Estou tentando realizar um post e estou tendo esse erro : HTTP/1.1 401 Unauthorized abaixo meu codigo; procedure TForm2.Button1Click(Sender: TObject); var dados : TStrings; retorno : string; begin IdHTTP1.Request.CustomHeaders.Clear; IdHTTP1.Request.ContentType := 'application/json'; IdHTTP1.Request.Connection := 'Keep-Alive'; IdHTTP1.Request.UserAgent := 'User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36'; IdHTTP1.HandleRedirects := true; dados := TStringList.Create(); try dados.Add(Memo1.Text); ret
  22. Bom dia. Peguei alguns exemplos do uso do Tray icon no firemonkey, mas todos eles estão com o seguinte bug. Quando clico em cima do ícone que se encontra ao lado do relógio do S.O. com o botão direito do mouse, o popupmenu é acionado mas ele fica atrás da bandeja dos ícones. Alguém tem uma solução para isso?
  23. Olá, Se eu quisesse criar um jogo em Delphi que muitas pessoas poderiam jogar juntas ao mesmo tempo, um jogo de estratégia, semelhante à esse jogos Web Browser (MMO). O que precisaria pra manter o jogo funcionando. Precisaria de um servidor o tempo todo ou teria como fazer uma espécie de P2P? O jogo seria desses de conseguir recursos, montar exércitos e atacar outros reinos (outros jogadores). Alguém tem idéia de como eu poderia fazer ou link pra algum tutorial sobre o assunto? Obrigado.
  24. Boa noite tenho uma programação feita direto no speedButom que programa dentro da tabela do mysql o recebimento de parcelas, preciso de ajuda pois preciso calcular: caso a parcela atrase mais que três dias 2% do valor da mesma e 0.33% por dia de atraso, agradeço a atenção segue código: (obs. estou usando xe8 com mysql e dbforge) //rotina para baixar a parcela selecionada TB_baixarParcela.Active := True; TB_baixarParcela.Locate('parc_id', SQL_parcelasProntasparc_id.Value, []); TB_baixarParcela.Edit; TB_baixarParcelaparc_pago.Value := 'SIM'; TB_baixarParcela
  25. Olá Pessoal Tenho uma tabela cadastro e outra tabela pagamentos (paradox, sem sql). Eu preciso comparar a tabela cadastro (campo nomedealuno) com a tabela pagamentos (campo nomedealuno), para saber quem não efetuou o pagamento da mensalidade num determinado mês e ano. Eu preciso imprimir os inadimplentes e, para isso, creio que a melhor forma de fazê-lo seja subtraindo os pagadores da tabela cadastro, imprimindo os restantes, que seriam os devedores. O que vocês acham? Como fazer??
×
×
  • Create New...