Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
 Perfil  Explorar Conteúdo

  • Total de itens

    9.657

  • Registro em

 Tipo de Conteúdo 

Tudo que Jhonas postou

  1. Jhonas
    tente sem usar o JSON unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; IdHTTP1: TIdHTTP; IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var lParams :TStringList; lResponse : TStringStream; begin lParams := TStringList.Create; lResponse := TStringStream.Create(''); try lParams.Add('filt=all'); lParams.Add('p=balaio%20tecnologico'); idHttp1.Post('http://br.search.yahoo.com/search', lParams, lResponse); { Exemplo de uso do response : carregar o conteúdo num Memo : } lResponse.Position := 0; Memo1.Lines.LoadFromStream(lResponse); finally lParams.Free(); lResponse.Free(); end; end; end. Resultado: <!doctype html><html id="Stencil" class="NoJs" lang="pt-BR"><head><meta http-equiv="x-dns-prefetch-control" content="on"><meta http-equiv="content-type" content="text/html; charset=UTF-8"><link rel="apple-touch-icon" sizes="72x72" href="http://l.yimg.com/pv/static/img/yahoo_purple_icon_ipad_76.png" /><link rel="apple-touch-icon" sizes="144x144" href="http://l.yimg.com/pv/static/img/yahoo_purple_icon_ipad_152.png" /><meta name="viewport" content="width=device-width, initial-scale=1.0"><noscript><meta http-equiv="refresh" content="0;url=http://br.search.yahoo.com/search?p=balaio%2520tecnologico&ei=UTF-8&nojs=1"></noscript><script>(function(){var o=window,m=document,q,f,i;var h=2,g="\x03",e="\x04",a="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789._-";function c(w){if(!w){return null}w._r=h;var x=[],t=0,s;for(s in w){var d=w; OBS: postei somente parte do conteudo abraço
  2. Jhonas
    o erro apresentado é de endereço não autorizado. no caso do FTP seria para fazer download de arquivo para a sua maquina ou upload da sua maquina para um servidor .... não sei se é isso que voce esta querendo.
  3. Jhonas
    no delphi berlin não sei te dizer, mas sei que no delphi 7 funciona. como te falei, tente outra abordagem usando o componente idFTP ou então tente entrar em contato com o suporte da embarcadero, para tentar resolver isso abraço
  4. Jhonas
    pode ser sim ... e se tiver firewall voce tambem tem que liberar as portas se ocorrer erros: 10061, ou 10048 significa erro de conexão e que as portas ou não existem ou estão bloqueadas. abraço
  5. Jhonas
    se ainda quiser tentar... https://pt.stackoverflow.com/questions/89379/como-ler-um-ficheiro-json-usando-o-delphi abraço
  6. Jhonas
    o .jar voce muda para .zip que ele mostra os arquivos o segundo é um programa .exe que esta no zip ( ignore esse ) voce tem que procurar para a versão do seu delphi http://docwiki.embarcadero.com/RADStudio/Tokyo/en/OpenSSL OBS: se não conseguir, tente outra abordagem ( idFTP ) abraço
  7. Jhonas
    se voce não baixar a versão correta, não funciona. tente https://sourceforge.net/projects/ssllib/?source=typ_redirect ou https://downloads.sourceforge.net/project/openssl/openssl-1.0.2j-fips-x86_64/openssl-1.0.2j-fips-x86_64.zip?r=https%3A%2F%2Fsourceforge.net%2Fprojects%2Fssllib%2Fpostdownload%3Fsource%3Ddlp&ts=1493944034&use_mirror=ufpr
  8. Jhonas
    voce deve colocar o componente IdSSLIOHandlerSocket1 da paleta Indy I/O Handlres e linka-lo no componente IdHTTP1
  9. Jhonas
    veja se esse link te ajuda http://stackoverflow.com/questions/17897521/post-json-data-to-restful-datasnap-server-from-delphi-client/17917259 procedure TForm1.Button2Click(Sender: TObject); var URL, Retorno: String; JsonStreamRetorno: TStringStream; JsonStreamEnvio : TStringList; begin URL := 'http://127.0.0.1:8080'; JsonStreamEnvio := TStringList.Create; JsonStreamRetorno := TStringStream.Create(''); IdHTTP1.Request.ContentType := 'application/json'; IdHTTP1.Request.AcceptCharSet := 'UTF-8'; IdHTTP1.IOHandler := IdSSLIOHandlerSocket1; IdHTTP1.Request.Clear; IdHTTP1.Request.BasicAuthentication := False; IdHTTP1.Request.Username := 'usuario'; IdHTTP1.Request.password := 'senha'; IdHTTP1.Response.ContentType := 'application/json'; IdHTTP1.Response.ResponseText := 'UTF-8'; IdHTTP1.BoundPortMax := 5000; try JsonStreamEnvio.Add('Json'); idHttp1.Post(url, JsonStreamEnvio, JsonStreamRetorno); JsonStreamRetorno.Position := 0; Memo1.Lines.LoadFromStream(JsonStreamRetorno); finally JsonStreamEnvio.Free(); JsonStreamRetorno.Free(); end; end; OBS: Nesse pequeno teste, ele pede uma dll que eu não tenho instalado. abraço
  10. Jhonas
    o teste do seu código em minha maquina deu o erro que te passei. veja esse exemplo e observe o numero da porta https://pythonhosted.org/TGWebServices/examples/delphi.html abraço
  11. Jhonas
    o erro do seu código é : Erro de socket # 10061 conexão recusada. ( erro de acesso a portas ) o que extamente voce quer fazer ?
  12. Jhonas
    Como faço para ler o dígito mais significativo de um número? Tenho que converter-lo para string? primeiro o que é o digito mais significativo de um numero ? 70.000 070.001 0070.010 00070.100 quais são os digitos mais significativos dos numeros acima ? se o exercicio é só ler o digito mais significativo, o numero não precisa se transformado em string....mas se quiser tambem é possivel. abraço
  13. Jhonas
    advertencia não é erro ... é somente um aviso que o identificador não foi encontrado ou não existe e por isso no seu lugar foi colocado um valor nulo. verifique novamente os campos de login e senha no banco de dados e no seu código. abraço
  14. Jhonas
    faça um contato com o suporte da embarcadero Brazil: +55-11-3741-5555 abraço
  15. Jhonas

    Pc não liga

    pergunta respondeu ao Oracy Martos de Jhonas em Hardware

    para jogos usaria esse http://produto.mercadolivre.com.br/MLB-854957225-processador-intel-core-i7-2600-soquete-1155-34ghz-_JM
  16. Jhonas

    Pc não liga

    pergunta respondeu ao Oracy Martos de Jhonas em Hardware

    veja alguns exemplos: http://www.kabum.com.br/hardware/placas-mae depende de qual o uso para a sua placa mãe
  17. Jhonas

    Pc não liga

    pergunta respondeu ao Oracy Martos de Jhonas em Hardware

    se voce já esta dando como perdida a placa mãe, tire todos os perifericos da placa, e de um banho nela na agua com detergente neutro ... deixe de molho por 30 minutos, lave muito bem em agua corrente e depois deixe secar completamente. muitas vezes esses banhos conseguem eliminar os curtos dos slots e dos contatos. outra placa, com o mesmo desempenho não vai custar barato ... voce deve escolher entre o custo e beneficio. abraço
  18. Jhonas
    ok... vamos tentar mais uma coisa: clique com o botão direito do mouse na seta dos icones ( onde mostra os 4 icones ) escolha > Personalizar depois marque: Sempre mostrar todos os icones e notificações na barra de tarefas clique no botão OK para finalizar e veja se resolve. abraço
  19. Jhonas
    existe um componente tryicon para o firemokey .... veja o primeiro link que passei ( baixe o demo ) no tryicon tem uma propriedade para voce linkar o popupMenu ( que é outro componente ) onde voce coloca as opções de maximizar ou sair do aplicativo. abraço
  20. Jhonas
    amigo, minha outra sugestão seria essa http://bit.ly/JWSPD5 Uses: FMX.Platform, FMX.Platform.Win, WinApi.ShellApi, WinApi.Windows cria uma janela, e execute o seguinte código: procedure Tmain_form.FormCreate(Sender: TObject); var nid : TNotifyIconData; begin with nid do begin cbSize := SizeOf; Wnd := FmxHandleToHWND(self.Handle); uID := 1; uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; uCallbackMessage := 100; hIcon := GetClassLong(FmxHandleToHWND(self.Handle),GCL_HICONSM); // Take the icon of the application window StrPCopy(szTip, 'This is my Icon TimeAct.ru'); end; { try to show the icon } Shell_NotifyIcon( NIM_ADD, @nid ); end; Este código funciona no Windows 7. Link para referencia: https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=http://www.devsuperpage.com/search/Articles.aspx%3FG%3D2%26ArtID%3D135482&prev=search abraço
  21. Jhonas

    Pc não liga

    pergunta respondeu ao Oracy Martos de Jhonas em Hardware

    se voce fez overclok da memoria ram, isso pode ter sido a causa da queima da memoria. abraço
  22. Jhonas

    Pc não liga

    pergunta respondeu ao Oracy Martos de Jhonas em Hardware

    Cara, com 1 memória em 1 slot o pc liga então voce tem um pente ou mais de memoria queimado ... se ele ligou com uma, e deu video então, voce vai ter que comprar outro pente de memoria, e nesse caso não é problema na fonte.
  23. Jhonas

    Pc não liga

    pergunta respondeu ao Oracy Martos de Jhonas em Hardware

    o problema não é a fonte não funcionar, e sim funcionar e a voltagem da fonte estar errada.
  24. Jhonas

    Pc não liga

    pergunta respondeu ao Oracy Martos de Jhonas em Hardware

    ok... então siga esses passos: se tiver placas off board va retirando uma por uma exemplo: tire a placa de fax modem, placa de som, placa de rede, placa de video ( use a onboard ) , cdrom ... se algum desses perifericos estiver em curto, o sintoma do micro sera o de desligar ou ficar reiniciando. verifique tambem na placa mãe se existe algum capacitor estufado. OBS: peguei um micro que acendia os leds, acionava os coolers mas não funcionava.. o problema estava na fonte de alimentação do micro. abraço
  25. Jhonas

    Pc não liga

    pergunta respondeu ao Oracy Martos de Jhonas em Hardware

    trocou o hd ? tambem não funcionou ?
×
×
  • Criar Novo...