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

  1. 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.
  2. 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á.
  3. 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.
  4. 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.
  5. 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
  6. (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....
  7. (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.
  8. 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.
  9. 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;
  10. (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
  11. 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
  12. 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 ;
  13. 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;
  14. 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;
  15. Criar campos no table apartir de query

    Como faço para criar os campos do table em runtine de acordo com os campos de uma query ?
  16. 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 FDQuery1.Eof do begin with BatchMove.Mappings do begin Add.SourceFieldName := FDQuery1.FieldByName('nm_campode').AsString; Add.DestinationFieldName := FDQuery1.FieldByName('nm_campopara').AsString; end; FDQuery1.Next; end; Ele está adicionando, mas está criando um item de mapping de origem e outro item de destino e não no mesmo item incluindo o destino e origem, coloquei manualmente para ver o objeto e ele deu assim; object BatchMove: TFDBatchMove Reader = Reader Mappings = < item SourceFieldName = 'origem' DestinationFieldName = 'destino' end item SourceFieldName = 'de' DestinationFieldName = 'para' end> LogFileName = 'Data.log' Analyze = [taFormatSet, taHeader, taFields] Left = 232 Top = 344 end Como faço para incluir dinamicamente ?
  17. 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 que juro não conseguir entender. Segue-os abaixo:
  18. (Resolvido) Erro com POST no IdHTTP do Indy

    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); retorno := IdHTTP1.Post('http://127.0.0.1:888/api/teste/pedido_venda/inclui',dados); finally end; dados.Free; end;
  19. Tray icon com Firemonkey

    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?
  20. [Dúvida] Delphi

    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.
  21. 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_baixarParcelaparc_data_pago.Value := Date; TB_baixarParcela.Post; ShowMessage('Parcela paga com sucesso !!');
  22. Comparando Tabelas Paradox

    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??
  23. Eventos minimize firemonkey

    Como obter o evento minimizar form no delphi firemonkey? Quero saber quando o evento foi acionado para que possa executar uma função. No delphi eu uso procedure WMSysCommand(var Msg: TWMSysCommand); Message WM_SYSCOMMAND; mas no firemonkey não funiciona. Fico no aguardo. Obrigado
  24. (Resolvido) Dúvida de IntraWeb

    Boa tarde. Fiz um programa no Delphi utilizando IntraWeb modo StandAlone e enquanto está sendo executado na minha máquina, consigo utilizar o link gerado normalmente. Porém, preciso conseguir acessar o serviço em rede, ou seja, com o serviço do programa que eu criei rodando em uma máquina, quero poder acessar o link de qualquer outra máquina que também esteja na rede, mas não consigo. Como devo fazer? Obrigado.
  25. (Resolvido) Colorir linha do Dbgrid

    Olá amigos do Fórum.. Tenho um form produtos onde tenho dois RadiosButons, "Ativo" e "Inativo"!! Gostaria que quando eu clicasse no RadioButton("Inativo"), A linha em foco ou onde eu selecionar com o mouse ficasse "vermelha" indicando que aquele produto está inativo, mais so aquela linha selecionada.. E o outro para quando o produto ficar "Ativo" denovo, e selecionar e pintar a cor preto por exemplo.. o que eu consegui fazer ate agora sem sucesso foi isso, mais ele acaba colorindo todas as linhas.. procedure TForm5.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if radiobutton2.Checked = true then //If (gdFocused in State) then begin DBGrid1.Canvas.Font.Color := clRed; end; if Radiobutton1.Checked = true then DBGrid1.Canvas.Font.Color := clGreen; DBGrid1.DefaultDrawColumnCell( Rect, DataCol, Column, State); Mais ele colori todas as linhas ao passar o mouse pelo grid.. Quem poder me ajudar a respeito disso!!