Pesquisar na Comunidade

Mostrando resultados para as tags ''delphi''.

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • 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

Encontrado 148 registros

  1. Boa Noite quando se clica no buton1 o programa carrega de forma aleatória uma imagem entre muitas de uma pasta, nesta pasta terá vários documentos de textos (bloco de notas) um para cada imagem fazendo a sua descrição. É possivel carregar a imagem de forma aleatória junto com o seu texto correspondente no MEMO ao mesmo tempo. Obrigado Estou usando o este código no programa Lazarus unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, math; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Image1: TImage; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); //Não esqueçer de insirir Math no Uses se não dará erro e não funcionará var i : Integer; begin i := RandomRange(1,5); Case i of 2: Image1.Picture.LoadFromFile('flores\02.jpg'); 3: Image1.Picture.LoadFromFile('flores\03.jpg') ; 4: Image1.Picture.LoadFromFile('flores\04.jpg') ; end; end; end.
  2. Olá a todos. Estou com a seguinte duvida: Tenho este condigo para localizar um string especifica em um arquivo binário. procedure TForm3.Button1Click(Sender: TObject); var StStream: TStringStream; FStream: TFileStream; S, SDS : UnicodeString; begin FStream := TFileStream.Create('c:/file.bin', fmOpenRead); StStream := TStringStream.Create(''); StStream.CopyFrom(FStream, FStream.Size); SDS := StStream.DataString; try S := 'blablabla'; if Pos(S, SDS) > 0 then ListBox1.Items.Add(S); finally StStream.Free; FStream.Free; end; end; Mas o o problema é que: só localiza se eu souber o que procurar. Como faço para localizar strings em vários pontos do arquivo bin. Usando o seek() sei como localiza os pontos que quero ler, como ler as strings a partir destes pontos. Desde já agradeço.
  3. (Resolvido) erro na hora da execução

    eai glr, beleza?eu to tendo um probleminha da execução de um programa. eu tenho um form com 18 botões e cada botão abre outro form diferente, so q quando ta chegando entre o 10 e o 11 da erro. os outros botões funcionam normalmente.ps: o erro q aparece é esse :" Project Project1.exe raised exception class EInvalidOperation with message ''''Cannot make a visible window modal''''. Process stopped. Use step or Run to continue. " " form1.hide;form 2.showModal; " uso esse pra abir outro form"form2.close;form1.showModal; " uso esse no outro form pra retornar ao menuto usando o mesmo comando eu todos os botões do menu, não to entendendo porque ele so ta dando erro no botão 10 e 11
  4. Bom dia estou encontrando dificuldades no Lazarus e agradeço desde de já a qualquer ajuda. Tenho alguns arquivo de textos txt em pastas diferentes, gostaria de saber como faço para juntar todos esses arquivos em um só, usando RadiosGroups com 6 itens cada e cada RadioGroup tem uma opção (nenhum)para desabilita-lo
  5. Identificar tela modal no WebBrowser

    Fala galera! estou precisando de uma ajuda... Já pesquisei em vários sites, páginas e buscas e ainda não encontrei uma resposta. Tenho uma aplicação em Delphi que utiliza um webbrowser para fazer uma pesquisa num site. O problema é que durante a pesquisa, depois que disparo o click do botão 'Pesquisar', o site desabilita a página do site e coloca um gif em modal na frente até a pesquisa terminar e eu não estou conseguindo fazer o webbrowser identificar quando essa pesquisa terminou. Já tentei: while WebBrowser1.ReadyState < READYSTATE_COMPLETE do Application.ProcessMessages; Mas o webbrowser não reconhece esse gif modal como carregamento de página. Alguém tem alguma idéia?
  6. Olá estou com dificuldades as letras com acentos e alguns caracteres em português, ficam extranhas quando salvo no arquivo de texto. Acho que deva ser erro de codifição de caracteres, ou algum ajuste no programa Lazarus, agradeçido. procedure TForm1.Button1Click(Sender: TObject); var sl: TStringList; begin sl := TStringList.Create; sl.Add(Memo1.Lines.Text); sl.Add(Memo2.Lines.Text); sl.Add(Memo3.Lines.Text); savedialog1.filename := 'alias.txt'; if savedialog1.execute then sl.SavetoFile(savedialog1.filename); sl.Free; end;
  7. (Resolvido) Informações No DbGrid

    Olá! é um problema simples mais, que até agora não encontrei solução e nem na internet. Tenho dois caixas em meu sistema, um para compras Rápidas e outro Para compras Maiores, todos os dados inclusive a abertura de caixa, são armazenados em uma Tabela, com a seguinte Descrição. 1º Descricao entrada dinheiro em preto. 2º Descrição Vendas em Azul. 3º Descrição saída em vermelho. E um button que ao ser clicando joga todos os valores correspondentes da tabela para seus determinados Edits. Quando faço uma venda no Determinado Caixa Rápido, ele cai na tabela como programado em azul> Indicando para o Usuário que em azul e as vendas. O problema é quando faço venda no outro caixa, ele cai na tabela em preto!! Assim não é feita a soma dos valores nem nada. Já no outro funciona de boa. O Código dos Dois Forms são os mesmos, não sei o que estou fazendo de errado. Desculpe se não fui muito claro..
  8. Não respondendo Mysql

    Bom dia. Tenho aplicação delphi xe8 acessando base da dados mysql innodb com dbexpress e tsqlconnection, até dia 22 de novembro estava funcionando tudo certo (a mais de dois anos) com mais de 30 usuários ao mesmo tempo em terminal server windows. Na noite do dia 22, se um usuário entra sozinho no sistema, funciona normalmente, mas se vários acessam ocorre a mensagem "não respondendo" e não conclui a gravação dos dados, travando o sistema. Estou apavorado, pois não localizo nada de errado. Instalado mysql padrão e são 14 lojas paradas desde dia 22. Obrigado
  9. Olá, Meu nome é João Vitor Breda, sou estudante de Engenharia de Software na Universidade Tecnológica Federal do Paraná - campus Dois Vizinhos. Faço parte de um projeto de pesquisa que está investigando a qualidade de aplicações desenvolvidas em Delphi. No momento meu objetivo é encontrar aplicações Delphi com código aberto para poder estuda-las, por isso gostaria de contar com a ajuda de vocês para identificar repositórios onde eu possa encontrar essas aplicações. Ficaria muito grato se vocês pudessem sugerir repositórios onde eu possa encontrar aplicações Delphi com o código aberto. Não precisam, necessariamente, ser aplicações gratuitas, mas eu preciso ter acesso ao código para conseguir avaliar a qualidade. Obrigado pela atenção.
  10. (Resolvido) SUBTRAÇÃO NO DBGRID

    Vasculhei a internet mais não achei nada que resolvesse meu problema! Tenho uma tabela que armazena, dados do caixa.. Como: " Saldo, Inicial Troco, Total De Valores De Entrada, Total Saídas no Caixa , Total Valores dinheiro sem Total Inicial, Total Final. Cada campo desse joga o determinado valor para o Determinado EDIT. Por exemplo. Saldo Inicial joga no Edit inicial e por ai adiante!!! Quero que no Total Final saia o valor atualizado do total Valores dinheiro , Entradas Menos Saídas... Não estou conseguindo resolver está Lógica.. Na maioria das vezes da o seguinte erro (is a valid floating point value); Espero que fui claro na minha pergunta....
  11. (Resolvido) Dificuldade com FileExists

    Pessoal, não sei se alguém já teve esse problema que eu fou descrever aqui: procedure TBinaSismaster.cskBinaRead(Sender: TObject; Socket: TCustomWinSocket); Var vEventoBina: AnsiString; vArrayBina: TStringDynArray; vNome : string; vBina:TStringList; i: Integer; begin try vEventoBina := Socket.ReceiveText; if (Length(vEventoBina) >= Length(#13#10)) and (Copy(vEventoBina, Length(vEventoBina) - Length(#13#10) + 1,Length(#13#10)) = String(#13#10)) then vEventoBina := Copy(vEventoBina,1,Length(vEventoBina) - Length(#13#10));//Retira LineEnd vArrayBina := SplitString(String(vEventoBina),','); if vArrayBina[0] = '00' then begin vNome := ''; if LowerCase(dmUtils.getFromConfig('CONEXAO','Caminho dos dados')) = 'localhost' then vNome := '\\'+dmUtils.pubNomeComputador + '\Arquivos\Bina.xml' else vNome := '\\'+dmUtils.getFromConfig('CONEXAO','Caminho dos dados') + '\Arquivos\Bina.xml'; vBina := TStringList.Create; if not FileExists(vNome) then begin vBina.Add('<?xml version="1.0" encoding="ISO-8859-1"?>'); vBina.Add('<TAG>'); end else begin vBina.LoadFromFile(vNome); for I := 0 to vBina.Count-1 do begin if vBina[i] = '</TAG>' then begin vBina.Delete(i); Break; end; end; end; vBina.Add(' <BINA>'); vBina.Add(' <FONE>nº telefone</FONE>'); vBina.Add(' <DATA>data e hora da ligação</DATA>'); vBina.Add(' <ATEND>0</ATEND>'); vBina.Add(' </BINA>'); vBina.Add('</TAG>'); vBina.SaveToFile(vNome); end; except end; end; Essa rotina faz parte de um SERVIÇO que eu criei. Resumindo o que o serviço faz: - ele pode ser instalado em qualquer máquina da rede - ele vai ficar monitorando um socket com ip e porta predefinidos - ele socket recebe informação de um aparelho de bina. - quando ele detectar uma ligação, ele deverá inserir a ligação em um arquivo XML (que obrigatoriamente vai estar no servidor), para que qualquer máquina da rede consiga obter essa informação em qualquer momento e utilizá-la da forma que necessita (por motivo de projeto eu não posso guarda essa informação no banco de dados) quando eu rodo essa rotina criando/manipulando o arquivo na mesma máquina em que o serviço está instalado funciona perfeitamente mas seu eu tentar criar o arquivo em rede, a parte do fileExists nunca encontra arquivo, mesmo ele já existindo na máquina e na hora de salvar a alteração fica dando "File Access Denied". Já tentei literalmente tudo que veio na cabeça: - compratilhamento de pasta - permissões de segurança - mapeamento de rede - trocar o tipo do arquivo mas nada funciona. Alguém consegue me ajudar? Obrigado AVISO: Coloque o seu Tópico sobre dúvidas, no Forum de Delphi o Forum Tutoriais e Dicas deve ser usado somente para códigos prontos ou dicas de Delphi abraço
  12. (Resolvido) Soma De Valores No DbGrid

    Olá amigos do fórum... Tenho uma tabela onde consta os valores de vendas efetuadas no Caixa do Sistema e também de saldo inicial do Caixa, sendo que o saldo inicial fica em preto e os valores de entrada em azul. Tenho 6 Edits nesse Form onde se dividem entre S.Inicial dinheiro, Total entradas Dinheiro, e Saldo Final. Consegui que ao apertar em fechar caixa aparecesse o total da tabela no "Edit Total entradas".. Mais quero que apareça no Edit "Total entradas dinheiro" que está selecionado na tabela em azul, só os valores totais da venda, sem o acréscimo do "saldo Inicial". Dessa forma fica mais organizado para o operador saber o que foi totalizado no caixa.
  13. Acessar FaxModem

    Boa Tarde! Então, estou em um dilema. Lembram daquelas plaquinhas de FAX Modem de 56kbps que usávamos para acessar a internet via linha discada? Então, tenho ela no meu NoteBook e no PC também. Estou criando uma aplicação que vai precisar acessar essa placa. Existe algum componente que faça isso? Por exemplo: ZeusTable: acessa uma tabela ____???__: acessa a placa! Alguém pode me instruir? Atualmente estou usando o Delphi na RAD Studio 2017!
  14. (Resolvido) Obter nome da Aplicação

    Bom dia . Como faço para obter o nome da minha aplicação pelo delphi berlin firemonkey?
  15. (Resolvido) ShellExecute

    Existe alguma forma de automatizar o salvar como no google crome ou firefox? Preciso que ele pegue um site que esteja logado e salve a pagina de tempo em tempo.
  16. (Resolvido) Erro ao importar componente activeX

    Estou tentando importar um controle ActiveX e não registra o componente no Delphi10.2.
  17. Copiar texto de uma pagina html

    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.GetFocusedFrame.Copy; Edit1.SetFocus; Chromium1.Browser.GetFocusedFrame.Paste; Edit1.PasteFromClipboard;
  18. (Resolvido) Consultar NFSe por SOAP

    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</tipos:Cnpj> <tipos:InscricaoMunicipal>3766801</tipos:InscricaoMunicipal> </Prestador> </ConsultarNfseRpsEnvio> isso validei e esta correto o xmlapós jogar no componete HTTPRIO1 ele gera o seguinte xml de envio <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"> <SOAP-ENV:Body> <ConsultarLoteRps xmlns="http://homologacao.ginfes.com.br"> <arg0 xmlns=""> <?xml version="1.0"?> <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</tipos:Cnpj> <tipos:InscricaoMunicipal>3766801</tipos:InscricaoMunicipal> </Prestador> </ConsultarNfseRpsEnvio></arg0> </ConsultarLoteRps> </SOAP-ENV:Body> </SOAP-ENV:Envelope> e retorna esse erro dizendo que o xml não está no padrão mas está alguém pode me ajudar ? <env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"> <env:Header/> <env:Body> <ns1:ConsultarLoteRpsResponse xmlns:ns1="http://homologacao.ginfes.com.br"> <return> <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <ns2:ConsultarLoteRpsResposta xmlns:ns2="http://www.w3.org/2000/09/xmldsig#" xmlns:ns4="http://www.ginfes.com.br/servico_consultar_nfse_rps_envio" xmlns:ns3="http://www.ginfes.com.br/tipos" xmlns:ns5="http://www.ginfes.com.br/servico_consultar_lote_rps_envio" xmlns:ns6="http://www.ginfes.com.br/servico_enviar_lote_rps_envio" xmlns:ns7="http://www.ginfes.com.br/servico_consultar_situacao_lote_rps_envio"><ns2:ListaMensagemRetorno><ns2:MensagemRetorno><ns3:Codigo>E160</ns3:Codigo><ns3:Mensagem>Arquivo enviado fora da estrutura do arquivo XML de entrada.</ns3:Mensagem></ns2:MensagemRetorno></ns2:ListaMensagemRetorno></ns2:ConsultarLoteRpsResposta> </return> </ns1:ConsultarLoteRpsResponse> </env:Body> </env:Envelope> seria alguma configuração o HTTPRIO1 que falta fazer ???
  19. Duvidas com WSDL F2B Delphi

    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.
  20. Mensagem da pagina web

    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á.
  21. 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; Preciso fazer o mesma rotina só que em FMX. Algum exemplo de como fazer isso? Fico no aguardo. Obrigado.
  22. Treeview, Banco de Dados

    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 1 1 Fretes de Prancha 2 2 Salário Holerite Como poderia fazer pra carregar um dentro do outro no TreeView. Por favor me ajude se puder.
  23. 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 para que ele não acesse mais esses servidores protegidos pelos meus, se alguém tiver alguma ideia pode deixar ai agradeço
  24. (Resolvido) Tamanho papel da impressora

    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.
  25. 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.