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. 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 ?
  2. 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:
  3. 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;
  4. 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?
  5. 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.
  6. 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 !!');
  7. 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??
  8. 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
  9. 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.
  10. 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!!
  11. olá amigos do forum,Quero saber como faço para alterar o papel de parede em uma aplicação delphi, e se tem como colocar Jpeg ou png.
  12. Boa tarde! Preciso utilizar o AppServer para fazer conexão no Delphi. Alguém tem algum material ou tutorial que possa me ajudar? Obrigado.
  13. Olá, preciso criar um instalador para meu sistema. Estou com dificuldade em relação a instalação do firebird 2.5 que é necessario para funcionar a aplicação. Tentei utilizar o installshield e smart install maker, mas não consegui localizar uma opção para rodar a instalação do firebird de forma 'silenciosa', sem que o usuario perceba que o firebird esta sendo iunstalado. Aguem poderia me dar alguma dica de qual programa usar para criar esse instalador ou como usar o installshield por exemplo para instalar o Firebird ?
  14. Ola, preciso de uma orietação. Preciso criar uma aplicação para cria e restaurar backups, conforme o exemplo do link http://torry.net/vcl/filedrv/backup/backfile.zip Porém para o Delphi XE6 não não é possivel instalar o componente TbackupFile, ao menos não encontrei. Então qual componente posso usar ou existe alguma outra forma mais eficaz para gerar arquivos de backup e depois restaurar os mesmos ? Agradeço a ajuda..
  15. Olá gostaria de ajuda com um tipo de cadastro que estou desenvolvendo em meu projeto. Muitos sistemas tem somente uma tela onde são cadastrados vários tipos de produtos, o que os diferenciam e o tipo e o Departamento que eles se encontram. Sei que todos eles são armazenados em uma Única tabela como se fosse uma Matriz. Se eu fosse por exemplo editar um produto especifico com seu nome por exemplo do departamento de Refrigerantes, escreveria o nome e apareceria o produto. Mais eu gostaria que quando eu escrevesse o nome do produto aparecesse todos da família vamos dizer assim. Tipo assim Pesquisar Coca-Cola 2l, ai aparecesse só os produtos da Coca, tipo 1,5,2,5 e assim por diante. Desculpe se minha dúvida ficou parecendo um texto, mais foi a forma que tive para explicar.
  16. Preciso fazer algo conforme abaixo, porém retorna erro na linha do case. Eu preciso que se no ClientDataSet_view_nfe estiver com a string 1, o ComboBox_Fin fique com o itemindex 0. Se alguém puder me ajudar agradeço. [dcc32 Error] LANÇANDO_NFE_SAIDA.pas(1217): E2010 Incompatible types: 'string' and 'Set' case ClientDataSet_view_nfe.FieldByName('FIN_NFE').AsString = ['1','2','3','4'] of '1' : ComboBox_Fin.ItemIndex := 0; '2' : ComboBox_Fin.ItemIndex := 1; '3' : ComboBox_Fin.ItemIndex := 2; '4' : ComboBox_Fin.ItemIndex := 3; end;
  17. Não estou conseguindo instalar o fastReport no Delphi.. Versão do FastReport Vcl 5, DelphiXe7.. Se alguém poder explicar passo a passo de como posso instalar ele.
  18. Estou montando um simples browser com o Chromium, porém quando abro um site em flash ele pede para instalar o plugin do flash, queria saber se existe alguma forma de carregar o flash para não precisar instalar no computador, ter alguma dll não sei...Alguém sabe como ?componente de Chromium https://delphimaniaco.wordpress.com/2016/03/15/utilizando-o-navegador-chrome-no-delphi/
  19. Como desabilitar o popup (desfazer, recortar, copiar, colar, excluir e selecionar tudo) do componente SpinEdit? Obrigado!
  20. Pessoal eu estou tentando fazer com que uma página seja aberta e sempre que atualizada o proxy seja alterado, mais não estou entendendo porque não está dando certo, alguém entenderia disso ai para me explicar expondo algum exemplo da maneira correta de fazer? unit UnitPrincipal; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw, Vcl.StdCtrls, urlmon, wininet, ShellApi; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Memo1: TMemo; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; x : integer = 0; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var MyInternetProxyInfo: PInternetProxyInfo; lbResult: boolean; begin memo1.Lines.Delete(x); // deleta sempre a primeira linha do memo MyInternetProxyInfo := New(PInternetProxyInfo); try MyInternetProxyInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY; MyInternetProxyInfo^.lpszProxy := PAnsiChar(AnsiString ('<Admin-pc>')); MyInternetProxyInfo^.lpszProxyBypass := PAnsiChar(AnsiString ('<local>')); lbResult := InternetSetOption(nil, INTERNET_OPTION_PROXY, MyInternetProxyInfo, SizeOf(MyInternetProxyInfo^)); if not lbResult then raise Exception.Create('Não foi possível aplicar as configurações de proxy !') else Webbrowser1.Navigate('http://vsshowvotar.com.br/index.php?cand=11&?ID=a42495d3ff98a6'); finally Dispose(MyInternetProxyInfo); end; //WebBrowser1.Navigate('http://vsshowvotar.com.br/index.php?cand=11&?ID=18c752355f7050'); end; end.
  21. Olá, estou com um problema que não consigo de forma alguma resolver. Preciso fazer o acesso ao sistema com uma tela de login, o problema é que ao minimizar o form principal fica conforme a imagem em anexo. Uso Delphi XE 6 . Segue abaixo o fonte: procedure TfrmLogin.btOkClick(Sender: TObject); var login, senha : string; begin login := '1'; senha := '1'; if(contaErro<4) then begin if((eUsuario.Text = login) and (eSenha.Text = senha)) then begin showmessage('Ok.. você entrou!'); frmPrincipal.Visible := true; frmLogin.hide; end else begin Inc(contaErro); ShowMessage('Senha ou login invalidos'); end; end else begin ShowMessage('Você não pode entrar'); close; end; end;
  22. Estou com uma dúvida e gostaria que vocês me ajudassem. Como faria pra criar uma DLL em Delphi para ser usado em php, ou seja, a utilização dos métodos implementados em delphi, possam ser usados em php. Alguém poderia implementar um código de exemplo básico de como criar a dll e como chamar em php? Poderia ser até de uma função simples como "somar". Obrigado.
  23. tenho o form de cadastro de bebidas, quero salvar uma imagem das bebidas no banco de Dados, e a cada movimento por exemplo no dbgrid a imagem fosse trocando, tem como fazer isso?
  24. Estou com uma dúvida no meu sistema. Ao digitar o usuário e login corretamente abre a tela principal, até ai tudo bem!! Só que a tela de login acaba ficando aberta.. Se coloco um Visible:=true no Código de acesso.. O sistema entra mais o icone do Sistema não fica selecionado..Tipo quando você entra num programa la na barra de tarefas ele fica selecionado logo em baixo, assim o usuário ve que o programa está em execução.. E no meu caso não.. Tem como eu resolver este empasse.. Desde já agradeço..
  25. Boa tarde, Estou utilizando webbrowser para incluir algumas informação em um site. Neste site tem um Grid que chama um javascript com um ID ( Registro ) e estou com dificuldade nesta rotina, alguém teria uma solução. Segue abaixo parte do HTLM. Este é o javascrpit que preciso carregar. <script type="text/javascript"> function prepararInclusaoItem(id) { myForm = document.getElementById('faturaForm'); myForm.action='faturamentoPrepararInclusaoItem.do'; myForm.id.value = id; } Este é a rotina que chama a função. 09/02/2016 </td> <td style="font-size: 10px;"> <input type="image" title="Selecionar" src="images/avancar.gif" border="0" onClick="prepararInclusaoItem(5385222);" /> </td> Agradeço a ajuda.
×
×
  • Create New...