Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Jhonas

    Delphi/Android

    o erro HTTP/1.1 500, indica que a sua função no servidor apresentou um problema, execute o seu servidor em debug e chame a função pelo mobile. veja esse tutorial...acho que pode te ajudar http://www.tdevrocks.com.br/2014/11/11/tutorial-reflection-do-firedac/ abraço
  2. me passa a parte do código da pagina onde esta o botão
  3. Jhonas

    Delphi/Android

    solução: https://support.microsoft.com/pt-br/help/2520513/fix-http-1-1-500-internal-server-error-error-when-you-download-a-large ou Close your development environment (e.g., Visual Studio .NET). Open a Command Prompt, and type the following commands: iisreset /stop net user ASPNET /delete aspnet_regiis -i iisreset /start Close the Command Prompt. Restart your development environment.
  4. como eu falei, nesse exemplo, bastará voce mudar algumas linhas de código, e conseguirá fazer o que está querendo. abraço
  5. ok... vou te dar uma colher de chá ..rs veja esse link tem um exemplo, que bastará voce mudar algumas linhas de código, e conseguirá fazer o que está querendo. https://www.experts-exchange.com/questions/27038482/change-colour-of-combobox-items.html abraço
  6. então verifique o seu código.. ele pode ter um comando direcionando para outra impressora ou voce esta tentando imprimir um arquivo que está bloqueado para o fortes report abraço
  7. Jhonas

    JSON

    ok... tente esse http://chapmanworld.com/2015/01/18/radstudio-baas-with-kinvey/ abraço
  8. voce só vai mudar uma linha de comando para obter esse resultado
  9. Jhonas

    JSON

    veja esses links https://www.google.com.br/search?q=criar+app+mobile+com+mysql+delphi&o que=criar+app+mobile+com+mysql+delphi&gs_l=psy-ab.3...46246.48970.0.49819.10.9.0.0.0.0.492.1125.2-1j1j1.3.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675%2Ccfro%3D1...0...1.1.64.psy-ab..8.0.0.rx6TnED7dKo abraço
  10. os drives da impressora da rede estão faltando ou estão corrompidos .... reinstale os drives da impressora . ou o caminho para a impressora da rede não está definido abraço
  11. veja dual boot no windows https://www.google.com.br/search?q=dual+boot+windows+7&o que=dual+boot+windows+7&gs_l=psy-ab.1.1.0l4.14449.17611.0.19849.2.2.0.0.0.0.282.557.2-2.2.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675...0...1.1.64.psy-ab..0.2.555...0i67k1.1gNe3oppzcI abraço
  12. isso leva tempo ( muito estudo, muita pratica e muita paciencia ) saberá que esta preparado para o mercado de trabalho, quando, ao pedirem os requisitos do sistema, voce não ter dificuldades em esboçar na sua mente a lógica da programação. conhecimento sobre lógica e conhecimento a fundo dos comandos da linguagem são fundamentais. abraço
  13. Exemplo: Tem parte do que voce vai precisar http://www.comunix.net/integracao/delphi1.htm Voce conseguiu importar o WSDL F2B ? // ************************************************************************ // // The types declared in this file were generated from data read from the // WSDL File described below: // WSDL : http://www.f2b.com.br/soap/wsbilling.wsdl // Version : 1.0 // (8/28/2017 20:23:14 - 1.33.2.5) // ************************************************************************ // unit wsbilling; interface uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; type // ************************************************************************ // // The following types, referred to in the WSDL document are not being represented // in this file. They are either aliases[@] of other types represented or were referred // to but never[!] declared in the document. The types from the latter category // typically map to predefined/known XML or Borland types; however, they could also // indicate incorrect WSDL documents that failed to declare or import a schema type. // ************************************************************************ // // !:date - "" // !:string - "" // !:string - "http://www.f2b.com.br/soap/wsbilling.xsd" // !:decimal - "http://www.f2b.com.br/soap/wsbilling.xsd" // !:integer - "http://www.f2b.com.br/soap/wsbilling.xsd" // !:integer - "" mensagem = class; { "http://www.f2b.com.br/soap/wsbilling.xsd" } sacador = class; { "http://www.f2b.com.br/soap/wsbilling.xsd" } sacado = class; { "http://www.f2b.com.br/soap/wsbilling.xsd" } cobranca = class; { "http://www.f2b.com.br/soap/wsbilling.xsd" } agendamento = class; { "http://www.f2b.com.br/soap/wsbilling.xsd" } carne = class; { "http://www.f2b.com.br/soap/wsbilling.xsd" } // ************************************************************************ // // Namespace : http://www.f2b.com.br/soap/wsbilling.xsd // ************************************************************************ // mensagem = class(TRemotable) private Fdata: TXSDate; Fnumero: WideString; Ftipo_ws: WideString; public destructor Destroy; override; published property data: TXSDate read Fdata write Fdata stored AS_ATTRIBUTE; property numero: WideString read Fnumero write Fnumero stored AS_ATTRIBUTE; property tipo_ws: WideString read Ftipo_ws write Ftipo_ws stored AS_ATTRIBUTE; end; // ************************************************************************ // // Namespace : http://www.f2b.com.br/soap/wsbilling.xsd // ************************************************************************ // sacador = class(TRemotable) private Fconta: WideString; published property conta: WideString read Fconta write Fconta stored AS_ATTRIBUTE; end; // ************************************************************************ // // Namespace : http://www.f2b.com.br/soap/wsbilling.xsd // ************************************************************************ // sacado = class(TRemotable) private Fnome: WideString; Femail: WideString; Fnumero: integer; published property nome: WideString read Fnome write Fnome; property email: WideString read Femail write Femail; property numero: integer read Fnumero write Fnumero stored AS_ATTRIBUTE; end; // ************************************************************************ // // Namespace : http://www.f2b.com.br/soap/wsbilling.xsd // ************************************************************************ // cobranca = class(TRemotable) private Fnome: WideString; Femail: WideString; Furl: WideString; Fnumero: integer; Ftaxa_registro: TXSDecimal; Fnosso_numero: integer; public destructor Destroy; override; published property nome: WideString read Fnome write Fnome; property email: WideString read Femail write Femail; property url: WideString read Furl write Furl; property numero: integer read Fnumero write Fnumero stored AS_ATTRIBUTE; property taxa_registro: TXSDecimal read Ftaxa_registro write Ftaxa_registro stored AS_ATTRIBUTE; property nosso_numero: integer read Fnosso_numero write Fnosso_numero stored AS_ATTRIBUTE; end; // ************************************************************************ // // Namespace : http://www.f2b.com.br/soap/wsbilling.xsd // ************************************************************************ // agendamento = class(TRemotable) private Fnumero: integer; published property numero: integer read Fnumero write Fnumero stored AS_ATTRIBUTE; end; // ************************************************************************ // // Namespace : http://www.f2b.com.br/soap/wsbilling.xsd // ************************************************************************ // carne = class(TRemotable) private Furl: WideString; Fnumero: integer; published property url: WideString read Furl write Furl; property numero: integer read Fnumero write Fnumero stored AS_ATTRIBUTE; end; // ************************************************************************ // // Namespace : http://www.f2b.com.br/soap/wsbilling.wsdl // soapAction: http://www.f2b.com.br/WSBilling // transport : http://schemas.xmlsoap.org/soap/http // style : document // binding : WSBillingSoapBinding // service : WSBillingService // port : WSBillingPort // URL : http://www.f2b.com.br/WSBilling // ************************************************************************ // WSBillingPortType = interface(IInvokable) ['{DC9D6CF3-573C-BE72-1294-6C478CD6B303}'] procedure RegisterWSBilling(const mensagem: mensagem; const sacador: sacador; const cobranca: cobranca; const agendamento: agendamento; const sacado: sacado; out sacado: sacado; out agendamento: agendamento; out cobranca: cobranca; out carne: carne; out log: WideString ); stdcall; end; function GetWSBillingPortType(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): WSBillingPortType; implementation function GetWSBillingPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): WSBillingPortType; const defWSDL = 'http://www.f2b.com.br/soap/wsbilling.wsdl'; defURL = 'http://www.f2b.com.br/WSBilling'; defSvc = 'WSBillingService'; defPrt = 'WSBillingPort'; var RIO: THTTPRIO; begin Result := nil; if (Addr = '') then begin if UseWSDL then Addr := defWSDL else Addr := defURL; end; if HTTPRIO = nil then RIO := THTTPRIO.Create(nil) else RIO := HTTPRIO; try Result := (RIO as WSBillingPortType); if UseWSDL then begin RIO.WSDLLocation := Addr; RIO.Service := defSvc; RIO.Port := defPrt; end else RIO.URL := Addr; finally if (Result = nil) and (HTTPRIO = nil) then RIO.Free; end; end; destructor mensagem.Destroy; begin if Assigned(Fdata) then Fdata.Free; inherited Destroy; end; destructor cobranca.Destroy; begin if Assigned(Ftaxa_registro) then Ftaxa_registro.Free; inherited Destroy; end; initialization InvRegistry.RegisterInterface(TypeInfo(WSBillingPortType), 'http://www.f2b.com.br/soap/wsbilling.wsdl', ''); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(WSBillingPortType), 'http://www.f2b.com.br/WSBilling'); InvRegistry.RegisterInvokeOptions(TypeInfo(WSBillingPortType), ioDocument); RemClassRegistry.RegisterXSClass(mensagem, 'http://www.f2b.com.br/soap/wsbilling.xsd', 'mensagem'); RemClassRegistry.RegisterXSClass(sacador, 'http://www.f2b.com.br/soap/wsbilling.xsd', 'sacador'); RemClassRegistry.RegisterXSClass(sacado, 'http://www.f2b.com.br/soap/wsbilling.xsd', 'sacado'); RemClassRegistry.RegisterXSClass(cobranca, 'http://www.f2b.com.br/soap/wsbilling.xsd', 'cobranca'); RemClassRegistry.RegisterXSClass(agendamento, 'http://www.f2b.com.br/soap/wsbilling.xsd', 'agendamento'); RemClassRegistry.RegisterXSClass(carne, 'http://www.f2b.com.br/soap/wsbilling.xsd', 'carne'); end.
  14. Jhonas

    Dúvida com exercício

    o erro está na identação do seu IF exemplos http://www.inf.pucrs.br/flash/cbp/selecao_if.html abraço
  15. veja esse exemplo no forum abraço
  16. exemplos de chat em delphi https://www.google.com.br/search?source=hp&q=chat+delphi+example&o que=chat+delphi&gs_l=psy-ab.1.2.0l3j0i22i30k1.2447.4153.0.7319.11.9.0.0.0.0.418.1167.3-2j1.3.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675...0...1.1.64.psy-ab..8.3.1163...0i131k1.cGIRoezp68w abraço
  17. já que voce gosta de desafios, vou postar a lógica e voce tenta resolver ... ok ? primeiro vou passar o basico: ( ou seja, voce deve jogar a cor do ColorDialog1 para o Combobox e o código da cor e a cor devem ser mostradas nele ) 1 - Combobox trabalha com indices [ index ] começando com 0 ( zero ) 2 - ColorDialog1 tem a propriedade Color ( classe TColor ) 3 - O Combobox só aceita strings, portanto voce deve converter TColor para String e adicionar esse valor aos itens do Combobox. 4 - Se cada item do Combobox deve ter uma cor difrente, então voce terá que trabalhar com Array. Crie uma variavel array que vai armazenar os valores de TColor para cada indice do Combobox 5 - O Combobox deve ficar no Style = csOwnerDrawFixed para que as cores apareçam 6 - Use o evento OnDrawItem para exibir os items ( Cores ) que estão no Combobox . Resultado: OBS: Evento OnDrawItem ( Combobox ) Descrição Escreva um manipulador de eventos OnDrawItem para desenhar os itens na lista suspensa de uma caixa de combinação ( Combobox ) Um manipulador de eventos OnDrawItem pode adicionar elementos gráficos aos itens da lista ou substituir o texto do item da lista por gráficos. Desenhe os itens na tela usando as coordenadas fornecidas pelo parâmetro Rect. OnDrawItem ocorre apenas se Style for definido como csOwnerDrawFixed ou csOwnerDrawVariable. Se um manipulador de eventos OnDrawItem não for fornecido, a caixa de combinação preenche o parâmetro Rect com o pincel atual e grava o valor de texto do item especificado pelo parâmetro Index. OBS: Se voce não conseguir fazer, eu passo um exemplo pronto para voce abraço
  18. amigo, não estou entendendo o que voce quer realmente fazer.. seja mais objetivo se voce esta tentando criar paginas HTML com o delphi, a versão que voce deve usar é o Delphi For .NET ou outra versão http://www.felix-colibri.com/papers/web/delphi_web_designer/delphi_web_designer.html abraço
  19. OK... o código para mudar a cor do botão usando o componente TColorDialog é exatamente esse que voce postou. outra dúvida também é como passar esses valores de cor escolhida para os items do combobox para que fiquem com as cores escolhidas através do botão ? não precisa ser o botão ... use o componente TColorBox da Paleta Additional OBS: Veja se esses exemplos te ajudam https://www.google.com.br/search?q=items+combobox+colorido+delphi&o que=items+combobox+colorido+delphi&gs_l=psy-ab.3...2692.4967.0.5260.7.7.0.0.0.0.794.794.6-1.1.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675...0...1.1.64.psy-ab..6.0.0.WbgfvAPAZgk abraço
  20. a placa do carro está muito iluminda ... dificil obter algum contraste voce pode pegar a imagem original e tentar joga-la no Microsoft Photo Editor ( vem com o windows ) e usar os recursos e ferramentas do editor para melhorar a imagem abraço
  21. Qual é a versão do delphi que voce esta usando, onde o componente ( bitbtn ou button ) tem a propriedade color ? OBS: o que voce pode fazer é criar um botão com essa propriedade exemplo: Componente Bitbtn colorido http://delphiworld.narod.ru/base/colour_button.html outro código fonte http://kazus.ru/nuke/modules/Downloads/pub/72/0/ColorBtnExample.zip outros componentes de botões http://www.edudelphipage.com.br/componentes_downloads.php?categoria=5 abraço
  22. Jhonas

    Combobox

    amigo, não posso adivinhar o seu código... se voce não postar o código fica dificil ajudá-lo
  23. por exemplo para atualizar é o comando Chrm1.Refresh; .. mas não atualiza a página. esse comando não é para atualizar pagina e sim o proprio componente abraço
  24. esse comando faz parte do exemplo desse link Atualiza a página procedure TChromium.Browser.Reload(); https://delphimaniaco.wordpress.com/2016/03/15/utilizando-o-navegador-chrome-no-delphi/ obs: voce coloca no botão apenas a chamada dessa procedure Entretanto acho que voce deve começar, com um exemplo, usando o componente TWebBrowser do delphi e depois trocar o componente para o Chrome http://www.planetadelphi.com.br/artigo/97/criando-um-webbrowser-avançado-passo-a-passo-de-uma-forma-muito-simples-e-prática./ abraço
×
×
  • Criar Novo...