Jhonas

Material para Pesquisa https://www.google.com.br/?gws_rd=ssl#q=algoritmos+e+lógica+de+programação abraço

isso voce pode fazer, mas vai rodar localmente na sua maquina. exemplo: voce pode pegar o codigo de uma pagina e pode modifica-lo, e salvar o código na sua maquina. depois voce pode chamar esse código para rodar localmente na sua maquina pelo webbrowser, mas se quiser algo alem disso, voce tem que interagir com a pagina original do site. abraço

isso acontece porque, voce esta tirando partes do código original e executando no webbrowser, então voce acaba tirando do código outros comandos e links que estariam associados a pagina. se quiser que isso funcione pelo webbrowser, voce vai tem que direcionar os links para o caminho que esta na pagina original, ou melhor dizendo, fazer um redirecionamento... OBS: O componente TWebbrowser, nada mais é do que um Navegador para acessar os endereços da Internet. abraço

eu queria saber como pegar pedaços de uma página da web e exibí-la em um memo da mesma forma como fez no webbrowser. no webbrowser aparece a execução do código, no memo vai aparecer somente o código. o código é o mesmo que aparece no arquivo 'C:\Temp.html' abraço

Uma progressão aritmética (abreviadamente, P. A.) é uma sequência numérica em que cada termo, a partir do segundo, é igual à soma do termo anterior com uma constante. O número é chamado de razão ou diferença comum da progressão aritmética. exemplo: http://www.revistabw.com.br/revistabw/codigo-fonte-progressao-aritmetica-em-python/ abraço

existe uma solução para o problema nesse link igual ao seu http://www.hardware.com.br/comunidade/drivers-wlan/1337580/ se não resolver, então só pode ser o proprio equipamento .... a placa de rede pode estar danificada ou com mau contato . abraço

Referencia: https://dev.mysql.com/doc/refman/5.7/en/precision-math-decimal-characteristics.html M é o número máximo de dígitos (a precisão). Tem um alcance de 1 a 65. (Versões mais antigas do MySQL permitiram um intervalo de 1 a 254.) D é o número de dígitos à direita do ponto decimal (a escala). Tem um intervalo de 0 a 30 e não deve ser maior do que M. Então, M significa Maximum (número de dígitos em geral), D significa Decimals (número de dígitos à direita do ponto decimal). Error Code 1427: Descrição: Valores duplicados na lista enum são permitidos Como repetir: Criar tabela a (i enum ('a', 'a')); Correção sugerida: Como isso pode às vezes ser uma característica útil, isso deve resultar em um erro, mas definitivamente o MySQL 4.1 deve emitir um aviso para CREATE / ALTER TABLE que cria esse enum abraço

lista dos drives para voce baixar http://www.nodevice.com.pt/download/driver/cce+ultra-thin-n325.html abraço

O erro já esta sendo apontado para voce... observe com cuidado a linha Código de erro: 1064. Você tem um erro na sua sintaxe SQL; Verifique o manual que corresponde à sua versão do servidor MySQL para a sintaxe certa para usar ' faprdcad '(codigo char (6) NOT NULL, cod_ant char (8), cod_alt char (6), cod_amb' na linha 1

reinstale o drive da placa de video OnBoard da sua placa mãe. abraço

Será que este problema é por que o Windows7 64 bits não possui o Gerenciador do Serviços de Informações da Internet (IIS)? isso até pode ser .. veja nesse link https://www.ibm.com/support/knowledgecenter/pt-br/SSEQTP_8.5.5/com.ibm.websphere.base.doc/ae/tins_manualWebIIS.html ou tente esses https://www.google.com.br/?gws_rd=ssl#q=Gerenciador+do+Serviços+de+Informações+da+Internet+(IIS)+windows+7+64+bits OBS: vou te dar uma dica que na maioria das vezes funciona. desinstale o Gerenciador do Serviços de Informações da Internet (IIS) limpe os registros do windows com o CCleaner ou outro instale novamente e configure o Gerenciador do Serviços de Informações da Internet (IIS), e veja se resolve. abraço

essa mensagem faz parte do sistema de proteção do Microsoft Outlook voce pode contornar isso com um antivírus https://support.office.com/pt-br/article/Recebo-avisos-sobre-um-programa-que-está-acessando-informações-de-endereço-de-email-ou-enviando-um-email-em-meu-nome-df007135-c632-4ae4-8577-dd4ba26750a2 voce até pode desabilitar essa proteção, mas é por sua conta e risco Abra o Outlook Express > acesse o menu Ferramentas > Opções... > guia "Segurança" > em seguida desmarque a opção "Avisar quando outro aplicativo tentar enviar email como se fosse eu". ou use um programa para isso http://www.contextmagic.com/express-clickyes/ outros links: https://www.google.com.br/?gws_rd=ssl#q=um+programa+está+tentando+acessar+emails+armazenados+no+outlook abraço

essa mensagem faz parte do sistema de proteção do Microsoft Outlook voce pode contornar isso com um antivírus https://support.office.com/pt-br/article/Recebo-avisos-sobre-um-programa-que-está-acessando-informações-de-endereço-de-email-ou-enviando-um-email-em-meu-nome-df007135-c632-4ae4-8577-dd4ba26750a2 voce até pode desabilitar essa proteção, mas é por sua conta e risco Abra o Outlook Express > acesse o menu Ferramentas > Opções... > guia "Segurança" > em seguida desmarque a opção "Avisar quando outro aplicativo tentar enviar email como se fosse eu". ou use um programa para isso http://www.contextmagic.com/express-clickyes/ outros links: https://www.google.com.br/?gws_rd=ssl#q=um+programa+está+tentando+acessar+emails+armazenados+no+outlook abraço

tente esse link: https://msdn.microsoft.com/pt-br/library/ms181052(v=vs.80).aspx abraço

a sintaxe da sentença está correta .... verifique a versão do seu Mysql abraço

se voce estiver usando um hub e placa de rede ( 10/100 ) troque por um Hub Switch e placa de rede ( 10/100/1000 ) se ainda assim não resolver, salve os dados em um arquivo txt local, depois transfira os dados para o Mysql. abraço

tente a recuperação do windows com o CD de instalação ou coloque o HD em outra maquina como Slave ( Escravo ) e tente recuperar os dados abraço

Por padrão, qualquer usuário do seu aplicativo, pode alterar qualquer campo de um DBGrid ( a menos que voce desabilite o DBGrid ) E que cada letra digitada, a pesquisa seja atualizada.. para isso voce vai usar o evento OnChange de um componente TEdit para digitar as letras nesse evento, a cada letra digitada voce faz a pesquisa na sua tabela, usando o comando locate ou select exemplo procedure TForm1.Edit1Change(Sender: TObject); begin Tabela.Open; Tabela.Refresh; Iabela.First; if Tabela.Locate('NOME_CAMPO',trim(UpperCase(Edit1.text)),[]) then begin // coloque o código aqui end; end; ou http://www.activedelphi.com.br/forum/viewtopic.php?p=352846&sid=c86ac4748957da5d554902b0791bc0c8 abraço

já te passei um exemplo completo .... use esse exemplo ou estude o código e faça as modificações no seu. http://www.planetadelphi.com.br/download/1805/arquivo/sockets preciso colocar no edit1 e edit 2 um receive.text para receber o que foi digitado no edit outro exemplo mais simples http://www.devmedia.com.br/forum/senha-por-sockets/170200 abraço

Em programação, uma variável global é uma variável acessível em todos os escopos de um programa de computador. O mecanismo de interação com variáveis globais é chamada ambiente global. Em contraste o ambiente local é um mecanismo no qual as variáveis são locais (conceito básico de variável local) e sem memória compartilhada. O uso de variáveis globais é geralmente considerado inadequado pois seu conteúdo pode ser potencialmente modificado de qualquer local, e qualquer parte de um código pode depender dela. A técnica possui o potencial de criar dependências mútuas, o que aumenta a complexidade e dificuldade de leitura de um código. Entretanto, para alguns casos seu uso pode ser adequado; um exemplo é a passagem frequente de variáveis continuamente por diversas funções. Em programação concorrente, variáveis globais são bastante usadas para passar informações entre seções de código que não compartilham relação, como threads concorrentes e em programação de sinais. exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } num1 : integer; // variavel global dentro da aplicação end; var Form1: TForm1; num : integer = 2; // variavel global dentro do form implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var num2 : integer; // variavel local dentro da procedure begin num2 := 10; num := num * num2; num1 := 3; showmessage(inttostr(num2)); showmessage(inttostr(num)); showmessage(inttostr(num1)); end; procedure TForm1.Button2Click(Sender: TObject); begin num1 := num1 + num1; showmessage(inttostr(num1)); end; end. OBS: clicando no botão1 o resultado será 10 , 20 e 3 respectivamente .. veja que a variavel num1 recebe o valor = 3 nesse instante. quando voce clica no botão2 o resultado é 6, pois o valor é passado para toda a aplicação mais informações sobre o assunto: https://www.google.com.br/?gws_rd=ssl#q=declarar+variavel+global+delphi+7 abraço

ok... veja esse exemplo http://www.unidev.com.br/index.php?/topic/45516-tela-de-logon-em-socket/ ou https://www.google.com.br/?gws_rd=ssl#q=login+senha+socket+delphi+ abraço

que eu saiba no delphi não tem isso ( a não ser que seja Memo.Lines.String )...

o que eu necessito é de uma line.string em que o servidor possa verificar se o email e senha estão corretos para poder conectar, no combobox voce pode colocar os nomes e no edit voce digita a senha como é feito essa conexão socket no servidor, me dê uma idéia exemplo: http://www.planetadelphi.com.br/download/1805/arquivo/sockets caso voce queira pesquisar sobre o assunto https://www.google.com.br/?gws_rd=ssl#q=socket+delphi+exemplo abraço

Esse codigo acima eu coloco a onde? você não falou onde coloca esse código e nem o cara do vídeo. voce tem que olhar o nome da procedure que esta no código ( evento OnCreate do Form ) procedure TForm1.FormCreate(Sender: TObject); Ta dando erro não declarado de idhttp1; voce tem que colocar o componente TIdHTTP da paleta Indy Clients e o componente TWebBrowser da paleta Internet no Form OBS: O código está completo e funcionando .... voce tem que abrir uma nova aplicação e no Form voce coloca o componente Tidhttp e o componente twebbrowser o codigo voce coloca no evento OnCreate do Form procedure TForm1.FormCreate(Sender: TObject); var pagina, lista : string; arquivo : TStrings; begin pagina := IdHTTP1.Get('http://bpbol.uol.com.br/bytheme.html?nodeid=6143'); lista := copy(pagina,pos('<table id="tb_salas"',pagina),length(pagina)); lista := copy(lista,1,pos('</table>',lista)+length('</table>')-1); //Memo1.Lines.Text := lista; arquivo := TstringList.create; arquivo.Text := lista; arquivo.SaveToFile('C:\Temp.html'); WebBrowser1.Navigate('C:\Temp.html'); end; esse código não utiliza a uses URLMON. abraço

não use caracteres especiais na variavel ( Já ) isso sempre é motivo para gerar erros Classe de excepção EInvalidCast com mensagem 'Tipo de classe inválido'. se voce pegou o codigo desse exemplo, verifique todo o código novamente http://www.devmedia.com.br/trabalhando-com-tipos-json-no-delphi-2010-parte-3/17140 OBS: Verifique a string dentro do Memo jsonObj := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes( '{"result":[{"Nome":"DELMAR","Cidade":"AJURICABA","Bairro":"CENTRO"}, {"Nome":"DALVAN","Cidade":"IJUÍ","Bairro":"JARDIM"}]}' ), 0) as TJSONObject; veja se não estão faltando colchetes, chaves ou aspas duplas ( { [ " ) abraço