Pesquisar na Comunidade

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;

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?

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

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.

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 !!');

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??

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

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!!

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.

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.

Boa tarde! Preciso utilizar o AppServer para fazer conexão no Delphi. Alguém tem algum material ou tutorial que possa me ajudar? Obrigado.

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 ?

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

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.

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;

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/

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.

Como desabilitar o popup (desfazer, recortar, copiar, colar, excluir e selecionar tudo) do componente SpinEdit? Obrigado!

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.

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.

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;

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?

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

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.

Olá Pessoal do Fórum. Estou com uma dúvida, Estou desenvolvendo um sistema em Delphi XE7, quero saber se tem como eu saber até que tipo minimo de hardware e sistema operacional esse sistema irá funcionar. Se alguém poder me ajudar, desde já agradeço..