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 141 registros

  1. (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
  2. 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!
  3. 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
  4. (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....
  5. 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.
  6. (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.
  7. (Resolvido) Obter nome da Aplicação

    Bom dia . Como faço para obter o nome da minha aplicação pelo delphi berlin firemonkey?
  8. (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.
  9. 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;
  10. (Resolvido) Erro ao importar componente activeX

    Estou tentando importar um controle ActiveX e não registra o componente no Delphi10.2.
  11. (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 ???
  12. 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.
  13. 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á.
  14. 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.
  15. 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.
  16. 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
  17. (Resolvido) Listar nome dos adaptadores de Rede

    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....
  18. (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.
  19. 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.
  20. 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); procedure setDESCRICAO(const Value: string); protected public constructor Create(aOwner: TComponent); override; destructor Destroy; override; published property PRODUTO_ID: string read FPRODUTO_ID write setPRODUTO_ID; property SEQUENCIA: Integer read FSEQUENCIA write setSEQUENCIA; property DESCRICAO: string read FDESCRICAO write setDESCRICAO; end; // Classe que controla os valores armazenados nos itens TItensNF = class(TObjectList) private FCount: Integer; procedure SetCount(const Value: Integer); protected {protected declarations} function GetItemNF(Index: Integer): TNFEmissaoDet; procedure SetItemNF(Index: Integer; aItemNF: TNFEmissaoDet); public {public declarations} function Add(aNotaFiscal: TNotaFiscal; aItemNF: TNFEmissaoDet): Integer; function Remove(aItemNF: TNFEmissaoDet): Integer; function IndexOf(aItemNF: TNFEmissaoDet): Integer; procedure Insert(Index: Integer; aItemNF: TNFEmissaoDet); property Items[Index: Integer]: TNFEmissaoDet read GetItemNF write SetItemNF; default; property Count: Integer read FCount write SetCount; end; // Função que monta o Script do SQL function CreateSQLInsert(aObject: TObject; aNameTable: string): string; var IndexFildList: Integer; Separador: string; Filds, aSql : TStringList; begin Filds := TStringList.Create; aSql := TStringList.Create; GetObjectProperties(aObject, Filds); // Pega os fields da Tabela try aSql.Add('insert into ' + aNameTable + '('); Separador := ''; for IndexFildList := 0 to Filds.Count-1 do begin aSql.Add(Separador + Filds[IndexFildList]); Separador := ','; end; aSql.Add(')'); aSql.Add('values('); Separador := ''; for IndexFildList := 0 to Filds.Count-1 do begin aSql.Add(Separador + ':' + Filds[IndexFildList]); Separador := ','; end; aSql.Add(')'); Result := aSql.Text; except raise Exception.Create('Erro ao gerar script SQL'); end; Filds.Free; aSql.Free; end; // Rotina para popular os valores. (Quando não tem itens funciona certinho. Tipo TClientes) {Problema agora como pegar aqui os valores dos Itens ?} procedure SetParam(aObject: TObject; aQry: TQuery); var PropCount, PropIndex: Integer; PropList: PPropList; PropInfo: PPropInfo; sValue: Variant; begin PropCount := GetPropList(aObject.ClassInfo, tkAny, nil); GetMem(PropList, PropCount * SizeOf(Pointer)); try PropCount := GetPropList(aObject.ClassInfo, tkAny, PropList); for PropIndex := 0 to PropCount - 1 do begin PropInfo := PropList^[PropIndex]; if not(PropInfo^.PropType^.Kind in tkMethods) then begin sValue := GetPropValue(aObject, PropInfo^.Name, True); case PropInfo^.PropType^.Kind of tkInt64, tkInteger: begin begin if ValidateInteger(sValue) then SetParamValueQuery(PropInfo,PropInfo^.Name, AQry, sValue); end; end; tkChar, tkString, tkLString{, tkUString}: // Para versões superiores ao Delphi 7 acrescentar tkUString begin begin if ValidateString(sValue) then SetParamValueQuery(PropInfo,PropInfo^.Name, AQry, sValue); end; end; tkFloat: begin begin if CompareText(PropInfo^.PropType^.Name, 'TDateTime') = 0 then begin if ValidateDate(sValue) then SetParamValueQuery(PropInfo,PropInfo^.Name, AQry, sValue); end else begin if ValidateFloat(sValue) then SetParamValueQuery(PropInfo,PropInfo^.Name, AQry, sValue); end; end; end; end; end; end; finally FreeMem(PropList); end; end;
  21. (Resolvido) Erro sem Solução

    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 7 32 e 64 aleatoriamente, já testei a aplicação local também e acontece o mesmo. Fiz um video e coloquei no youtube pra explicar melhor a situação, segue o link abaixo. Desde já agradeço;linnk https://youtu.be/2lvW1g5-sOE
  22. Problema com o DateTimePicker

    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. Para campos de data e hora, estou utilizando o DateTimePicker e linkando eles com Bind nos campos de minha tabela, "transformando" eles em DBWare já que (infelizmente) não existe um DBDateTimePicker nativo (mancada antiga da Embarcadero). Para os campos de data, funciona perfeitamente. Mas para os campos de hora, não funciona. Alterei a propriedade Kind para dtkTime, linkei o componente no Bind com minha query e simplesmente, no momento de trocar a hora, aponta o erro seguinte erro: "30/12/1899 07:19:00' is not a valid time". Já tentei colocar no Format "HH:mm:ss" mas não adiantou. Existe alguma propriedade ou algo que eu possa fazer sem que tenha que alterar o campo do meu banco de dados para datetime? Quem puder colaborar, agradeço Abraço a todos
  23. Duvida enviar mensagem webbrowser.

    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 muito grato. segue abaixo o código do meu botão enviar... webbrowser1.OleObject.Document.All.item('chatMessageSend').innerHTML := edit2.text; webbrowser1.OleObject.Document.All.item('chatMessageSend', 0).click; webbrowser1.OleObject.Document.All.item('sendBtn', 0).click ;
  24. 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'; lblStatus.Color := clRed; end else begin lblStatus.Caption := 'Em dia'; lblStatus.Color := clGreen; end;
  25. 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;