Jhonas

Pelo que eu entendi da sua explicação, voce tem um DBGrid1 que mostra os dados da tabela ( PATRIMONIO ) , que voce vai selecionar um registro e transferir para outra tabela ( BAIXA ) através de um Botão, onde esse registro será mostrado no DBGrid2 ... seria isso ? sugestão: para que trabalhar com 2 tabelas iguais se voce pode usar apenas a tabela ( PATRIMONIO ) e acrescentar nela o campo ( Baixa ) e colocar ( 0 ou 1 ...Sim ou Não ) para indicar que o registro sofreu alteração ? ficaria muito mais facil. com relação ao seu código: quando se usa o comando insert into o código deve ser assim....( veja esse exemplo ) procedure TFMenu.Button1Click(Sender: TObject); begin IBQuery1.SQL.Clear; IBQuery1.SQL.Text:='insert into arquivo2 (Nome, valor) '+ 'select Nome, valor '+ 'from arquivo1 WHERE id = 3'; IBQuery1.ExecSql; end; OBS: voce deve usar o break point do delphi , para acompanhar a execução do programa verifique tambem se existe algum valor no parametro COD, caso contrário não vai fazer nada abraço

experimente no GROUP BY deixar somente o nome e o idpiloto

como voce colocou esse comando no delphi 7 ? qual foi o erro ?

possivel causa do desempeho ruim https://help.vtex.com/pt/tutorial/configurando-o-apontamento-de-dns-para-a-vtex abraço

veja a análise do seu site https://gtmetrix.com/reports/www.lojasincor.com.br/3mZCapYk abraço

nesse caso voce pode usar esse exemplo e ainda pode tentar converter a imagem em texto https://www.google.com.br/search?ei=1wwDWpO9PIGMwgTz87ToBQ&q=converter+imagem+em+texto+delphi&o que=converter+imagem+em+texto+delphi&gs_l=psy-ab.3..0.22576.23327.0.24185.5.5.0.0.0.0.136.560.0j5.5.0....0...1.1.64.psy-ab..1.4.454...0i7i30k1.0.O8tuKZAGC1s abraço

voce quer salvar o que está vendo na tela ou o código fonte da pagina ?

exemplo: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; function LE_TXT(LE_TXT: string):string; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function TForm1.LE_TXT(LE_TXT: string): string; Var LocalArq : string; begin LocalArq := Edit1.Text; if not FileExists(LocalArq) then begin Application.Messagebox('Aquivo de configuração não encontrado ! - Finalizando Aplicação.....','AVISO', mb_ok+MB_ICONSTOP); Application.Terminate; end else begin showmessage('OK - Arquivo Encontrado !'); end; end; procedure TForm1.Button1Click(Sender: TObject); begin LE_TXT(trim(UpperCase(Edit1.text))); end; end. OBS: Coloique o caminho completo para o arquivo no Edit1 EX: C:\Pasta de Arquivos\Config.txt abraço

veja nesses links https://www.google.com.br/search?source=hp&ei=O74BWovVA8vDwASMqY7QDg&q=convert+number+to+time+sql&o que=convert+number+to+time+&gs_l=psy-ab.1.1.0i19k1l10.1882.10633.0.19314.23.23.0.0.0.0.160.2303.0j20.20.0....0...1.1.64.psy-ab..3.20.2299...0j0i131k1j0i10k1j0i22i30k1.0.kRUo3YY1IRc abraço

o ultimo link que te passei, é possivel utilizar no delphi https://www.mercadobitcoin.com.br/api-doc/ leia e veja se é o que voce quer abraço

Procedimento de registro, Modi_Tlb.Registrar no pacote C: \ Users \ Public \ Documents \ Embacadero \ Studio \ 19.0 \ Blp \ Mula.bpl classe de exceção avançada EFilerError: Componente TImage não pode ser registrado pelo pacote mula.blp porque já foi registrado pelo pacote dclstd250.bpl. voce deve excluir do package Mula.bpl o componente TImage, e depois compilar novamente para instalar abraço

amigo, coloque o erro ... pela figura é impossivel ler

Acho que para o delphi não ... olhando no site descobri que é para Java, Python e PHP https://pypi.python.org/pypi/ccxt https://stackoverflow.com/questions/44380178/python3-hitbtc-restfull-api https://www.mercadobitcoin.com.br/api-doc/ abraço

Com relação ao código, faltou colocar a uses unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, Buttons; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Edit1: TEdit; Memo1: TMemo; BitBtn1: TBitBtn; procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses MSHTML; procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var Document: IHtmlDocument2; begin edit1.text:=url; document := webbrowser1.document as IHtmlDocument2; memo1.lines.add(trim(document.body.innertext)); // pegar o texto end; procedure TForm1.BitBtn1Click(Sender: TObject); begin WebBrowser1.Navigate(Edit1.Text); WebBrowser1.Silent; end; end. informações sobre cotação : [ { "timestamp": "2017-10-20T20:00:00.000Z", "open": "0.050459", "close": "0.050087", "min": "0.050000", "max": "0.050511", "volume": "1326.628", "volumeQuote": "66.555987736" }, { "timestamp": "2017-10-20T20:30:00.000Z", "open": "0.050108", "close": "0.050139", "min": "0.050068", "max": "0.050223", "volume": "87.515", "volumeQuote": "4.386062831" } ] A listagem dos preços não aparecem como texto no Page Source da pagina tanto que se voce tentar marcar para dar um Copy / Paste voce não consegue eles tem uma API para isso ... voce já verificou ?

realmente exitem sites que colocam proteção nas paginas para evitar cópias. https://www.google.com.br/search?ei=9Yf_WfmoH8SuwASA3p7oBQ&q=copiar+texto+html+protegido&o que=copiar+texto+html++&gs_l=psy-ab.1.0.0i22i30k1l5j0i22i10i30k1j0i22i30k1l3j0i22i10i30k1.783437.785618.0.792124.2.2.0.0.0.0.1071.1071.7-1.1.0....0...1.1.64.psy-ab..1.1.1070....0.RuuqmOk5Sn0 o exemplo abaixo, pega o texto da pagina e joga em um Memo, depois usando o comando POS voce pode procurar a palavra que quiser no texto do Memo e jogar em um Edit procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var Document: IHtmlDocument2; begin edit1.text:=url; document := webbrowser1.document as IHtmlDocument2; memo1.lines.add(trim(document.body.innertext)); // pegar o texto end; OBS: é só mudar para o código para o componente Chromium1 em vez do WebBrowser1 Se não for isso, dê um exemplo. abraço

Resposta no proprio Forum abraço

Voce não informou qual é a versão do seu MYSQL nem o seu sistema operacional Erro: "Nenhum servidor compatível foi encontrado. Você precisará cancelar este assistente e instalar um " OBS: voce deve escolher a versão compativel para o seu sistema operacional https://downloads.mysql.com/archives/workbench/ abraço

se voce quer planilhas prontas tem muitas na net ( gratis ) https://www.google.com.br/search?source=hp&ei=Rz33WabLB4ywwASnpbnwCw&q=controle+de+produção+vba+download&o que=controle+de+produção+vba+download&gs_l=psy-ab.3..33i22i29i30k1l2.6842.33670.0.34538.40.40.0.0.0.0.209.4268.0j34j1.35.0....0...1.1.64.psy-ab..5.35.4253...0j0i131k1j0i10k1j0i22i10i30k1j0i22i30k1.0.5xRGvURxqMI ou https://www.google.com.br/search?source=hp&ei=dDz3WcjuEIyTwgTO-qTgCg&q=controle+de+produção+excel+vba&o que=controle+de+produção+vba&gs_l=psy-ab.1.1.0i22i30k1l2.1897.20660.0.26721.24.24.0.0.0.0.176.2760.0j22.22.0....0...1.1.64.psy-ab..2.22.2747...0j0i131k1.0.bLBt2x0HyJc abraço

Erro no XML de Envio XML Parsing Error: XML or text declaration not at start of entity Line Number 4, Column 1: <?xml version="1.0"?> <ConsultarNfseRpsEnvio xmlns="http://www.ginfes.com.br/servico_consultar_nfse_rps_envio_v03.xsd" xmlns:tipos="http://www.ginfes.com.br/tipos_v03.xsd" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#"> ^ deveria ficar dessa forma <?xml version="1.0"?> <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"> <SOAP-ENV:Body> <ConsultarLoteRps xmlns="http://homologacao.ginfes.com.br"> <arg0 xmlns=""> <ConsultarNfseRpsEnvio xmlns="http://www.ginfes.com.br/servico_consultar_nfse_rps_envio_v03.xsd" xmlns:tipos="http://www.ginfes.com.br/tipos_v03.xsd" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#"> <IdentificacaoRps> <tipos:Numero>1</tipos:Numero> <tipos:Serie>1</tipos:Serie> <tipos:Tipo>1</tipos:Tipo> </IdentificacaoRps> <Prestador> <tipos:Cnpj>56123490000178</tipos:Cnpj> <tipos:InscricaoMunicipal>3766801</tipos:InscricaoMunicipal> </Prestador> </ConsultarNfseRpsEnvio></arg0> </ConsultarLoteRps> </SOAP-ENV:Body> </SOAP-ENV:Envelope> <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"> <env:Header/> <env:Body> <ns1:ConsultarLoteRpsResponse xmlns:ns1="http://homologacao.ginfes.com.br"> <return> <ns2:ConsultarLoteRpsResposta xmlns:ns2="http://www.w3.org/2000/09/xmldsig#" xmlns:ns4="http://www.ginfes.com.br/servico_consultar_nfse_rps_envio" xmlns:ns3="http://www.ginfes.com.br/tipos" xmlns:ns5="http://www.ginfes.com.br/servico_consultar_lote_rps_envio" xmlns:ns6="http://www.ginfes.com.br/servico_enviar_lote_rps_envio" xmlns:ns7="http://www.ginfes.com.br/servico_consultar_situacao_lote_rps_envio"><ns2:ListaMensagemRetorno><ns2:MensagemRetorno><ns3:Codigo>E160</ns3:Codigo><ns3:Mensagem>Arquivo enviado fora da estrutura do arquivo XML de entrada.</ns3:Mensagem></ns2:MensagemRetorno></ns2:ListaMensagemRetorno></ns2:ConsultarLoteRpsResposta> </return> </ns1:ConsultarLoteRpsResponse> </env:Body> </env:Envelope> abraço

ultima tentativa é formatar o seu HD e instalar novamente o Windows abraço

eu não entendi bem as declarações e funções, apenas a parte lógica, basicamente ele manda a "IA" jogar de forma randômica em qualquer local não escolhido? exato, mas o que ele faz é guardar as jogadas feitas, marcando aquelas em que o computador perdeu. depois a cada nova jogada, ele faz uma verificação rapida nas posições que não deve mais usar dessa forma, voce começa o jogo ganhando, mas depois o maximo que voce vai conseguir é empatar ou perder se cometer um erro. a lógica é a mesma para qualquer linguagem que for usar o mesmo programa do link ( delphi ) , convertido para o C# using System; using crt; namespace Matriz { public class Matriz { public static Char menu; public static Char posicao; public static int opcao; public static int jogadas; public static int empates; public static int derrotas; public static int vitorias; public static int i; public static int j; public static int linha; public static int coluna; public static int jogador; public static matriz_jogo mj; public static nome_jogadores nomes; public static Boolean jogar_mais; public static Boolean posicao_branco; public static void Zera_variaveis(ref matriz_jogo mat, nome_jogadores nomes, int a, int b, int c, ref int d, ref Boolean e) { int i; int j; int posicao; Clrscr; d = 0; e = false; posicao = 0; Writeln("Jogador1(X):", nomes[1][1]); Writeln("Vit�rias|Empates|Derrotas"); Write(" ", c, " ", a, " ", b); Gotoxy(50, 1); Writeln("Jogador2(O):", nomes[2][1]); Gotoxy(50, 2); Write("Vit�rias|Empates|Derrotas"); Gotoxy(50, 3); Write(" ", b, " ", a, " ", c); Gotoxy(1, 6); Writeln("___|___|___"); Writeln("___|___|___"); Writeln(" | | "); for (i = 1; i <= 3; i += 1) { for (j = 1; j <= 3; j += 1) { posicao = posicao + 1; Gotoxy(-2, i + 5); mat[i][j] = 0; Write(posicao); } } } public static void Zera_placar(ref int a, ref int b, ref int c) { a = 0; b = 0; c = 0; } public static int Sorteia_jogador() { sorteia_jogador = random(2) + 1; } public static void Imprime_matriz(ref matriz_jogo mat, nome_jogadores nomes, int a, int b, int c) { int i; int j; int posicao; Clrscr; Writeln("Jogador1(X):", nomes[1][1]); Writeln("Vit�rias|Empates|Derrotas"); Write(" ", c, " ", a, " ", b); Gotoxy(50, 1); Writeln("Jogador2(O):", nomes[2][1]); Gotoxy(50, 2); Writeln("Vit�rias|Empates|Derrotas"); Gotoxy(50, 3); Write(" ", b, " ", a, " ", c); Gotoxy(1, 6); Writeln("___|___|___"); Writeln("___|___|___"); Writeln(" | | "); posicao = 0; for (i = 1; i <= 3; i += 1) { for (j = 1; j <= 3; j += 1) { posicao = posicao + 1; Gotoxy(-2, i + 5); if (mat == 1) { } if (mat == 2) { } Write(posicao); } } } public static void Coordenadas_jogada(char posicao, ref int Linha, ref int coluna) { if (posicao == '1') { linha = 1; coluna = 1; } else if (posicao == '2') { linha = 1; coluna = 2; } else if (posicao == '3') { linha = 1; coluna = 3; } else if (posicao == '4') { linha = 2; coluna = 1; } else if (posicao == '5') { linha = 2; coluna = 2; } else if (posicao == '6') { linha = 2; coluna = 3; } else if (posicao == '7') { linha = 3; coluna = 1; } else if (posicao == '8') { linha = 3; coluna = 2; } else { linha = 3; coluna = 3; } } public static void Posicao_em_branco(int caracter, int linha, int coluna, ref matriz_jogo mj, ref Boolean a) { if (mj == 0) { mj[linha][coluna] = caracter; a = true; } else a = false; } public static void Verifica_vencedor(int jogador, ref Boolean vencedor, matriz_jogo mj) { int pontos_coluna; int pontos_linha; int i; int j; Boolean posicao_vazial; Boolean posicao_vaziac; vencedor = false; for (i = 1; i <= 3; i += 1) { pontos_coluna = 0; pontos_linha = 0; posicao_vazial = false; posicao_vaziac = false; for (j = 1; j <= 3; j += 1) { if (mj == jogador) { pontos_coluna = pontos_coluna + mj[i][j]; } else if (mj == 0) { posicao_vaziac = true; } if (mj == jogador) { pontos_linha = pontos_linha + mj[j][i]; } else if (mj == 0) { posicao_vazial = true; } } if (((3 == 0) && (posicao_vaziac == false)) || ((3 == 0) && (posicao_vazial == false)) && (vencedor == false)) { vencedor = true; } if (vencedor == false) { if ((3 == 0) && (mj == jogador) && (mj == jogador) && (mj == jogador)) { vencedor = true; } else if ((3 == 0) && (mj == jogador) && (mj == jogador) && (mj == jogador)) { vencedor = true; } } } } public static void Devolve_jogada_pc(matriz_jogo mj, int jogada, ref int soma, ref int espacos_vazios, ref int linha, ref int coluna) { int i; int j; int dif_linha; int dif_coluna; int lp; int cp; soma = 0; espacos_vazios = 0; linha = 0; coluna = 0; if (jogada <= 3) { dif_coluna = 0; for (j = 1; j <= 3; j += 1) { if (mj == 0) { espacos_vazios = espacos_vazios + 1; if (soma > 0) { dif_coluna = j - cp; if (dif_coluna < 0) { dif_coluna = - dif_coluna; } if ((dif_coluna > 1) || (linha == 0)) { linha = jogada; coluna = j; } } else { if (linha == 0) { linha = jogada; coluna = j; } } } else { soma = soma + mj[jogada][j]; cp = j; } } } else if (jogada <= 6) { dif_linha = 0; for (i = 1; i <= 3; i += 1) { if (mj == 0) { espacos_vazios = espacos_vazios + 1; if (soma > 0) { dif_linha = i - cp; if (dif_linha < 0) { dif_linha = - dif_linha; } if ((dif_linha > 1) || (linha == 0)) { linha = i; coluna = jogada - 3; } } else if (linha == 0) { linha = i; coluna = jogada - 3; } } else { soma = soma + mj[i][jogada - 3]; lp = i; } } } else if (jogada == 7) { for (i = 1; i <= 3; i += 1) { if (mj == 0) { espacos_vazios = espacos_vazios + 1; if ((mj == 1) && (mj == 1) && (mj == 0)) { linha = 1; coluna = 1; } else if ((mj == 1) && (mj == 1) && (mj == 0)) { linha = 3; coluna = 3; } else { linha = i; coluna = i; } } else soma = soma + mj[i][i]; } } else { for (i = 1; i <= 3; i += 1) { if (mj == 0) { espacos_vazios = espacos_vazios + 1; linha = i; coluna = 4 - i; } else soma = soma + mj[i][4 - i]; } } } public static void Jogada_pc(int jogador, ref matriz_jogo mj) { int i; int j; int soma; int espacos_vazios; int linha_vazia; int coluna_vazia; int somamax; int espacosmin; int linha; int coluna; int[] jogadas_possiveis = new int[3 - 1 + 1]; int jogadas; linha = 0; coluna = 0; somamax = 0; espacosmin = 3; for (i = 1; i <= 8; i += 1) { devolve_jogada_pc(mj, i, soma, espacos_vazios, linha_vazia, coluna_vazia); if ((soma >= somamax) && (espacos_vazios <= espacosmin) && (espacos_vazios >= 1) && (2 == 0)) { if ((soma != somamax) || (espacos_vazios != espacosmin)) { linha = linha_vazia; coluna = coluna_vazia; somamax = soma; espacosmin = espacos_vazios; } } } if ((linha == 0) && (coluna == 0)) { for (i = 1; i <= 3; i += 1) { for (j = 1; j <= 3; j += 1) { if (mj == 0) { linha = i; coluna = j; } } } } mj[linha][coluna] = jogador; } void run() { Clrscr; zera_placar(empates, derrotas, vitorias); nomes[1][1] = "Computador1"; Nomes[2][1] = "Computador2"; } public static void Main(string[] args) { Matriz myApp = new Matriz(); myApp.run(); } } } Somente fiz a conversão , mas não testei .... O resto agora é com voce abraço

ok... voce disse que não tinha a menor idéia de como fazer , por isso os links para voce aprender o conceito . exemplos prontos tem varios na net, mas não usando IA https://www.google.com.br/search?q=jogo+da+velha+em+c+com+matriz&o que=jogo+da+velha+em+c&gs_l=psy-ab.1.3.0l8.2564920.2575849.0.2582703.32.25.6.0.0.0.231.3007.1j22j1.24.0....0...1.1.64.psy-ab..2.30.3065...0i67k1j0i131k1j0i10k1j0i22i30k1j0i22i10i30k1j0i13k1.0.KtLyNtwHK5U o que voce pode fazer é, aprender como montar a interface do usuario e depois aplicar o conceito de IA OBS: Caso interessar, veja esse exemplo feito em delphi usando o conceito de IA https://www.vivaolinux.com.br/script/Jogo-da-velha-inteligente abraço

só para voce ter uma idéia de como fazer, veja esses links https://www.google.com.br/search?q=como+criar+inteligencia+artificial+para+jogos+em+c%23&o que=como+criar+inteligencia+artificial+para+jogos+em+c%23&gs_l=psy-ab.3...71906.78805.0.79661.6.6.0.0.0.0.135.606.0j5.5.0....0...1.1.64.psy-ab..1.2.230...33i22i29i30k1j33i160k1.0.7PR-oOpARJ0 https://www.google.com.br/search?source=hp&q=como+criar+inteligencia+artificial+para+jogos&o que=criar+inteligencia+&gs_l=psy-ab.1.7.0l3j0i22i30k1l6j0i22i10i30k1.1785.5862.0.13871.19.19.0.0.0.0.194.2109.0j17.17.0....0...1.1.64.psy-ab..2.17.2104...0i131k1j0i10k1.0.Wup32kRTIaI abraço

ok... então outra tentativa: se voce tiver o disco de instalação do windows, coloque-o no drive de CDRom depois va em Iniciar > Executar e digite o comando CMD na tela do DOS digite sfc / scannow caso não consiga assim tente isso: https://answers.microsoft.com/pt-br/windows/forum/windows_10-power/windows-10-reparando-erros-de-disco/ec82b8bc-55d1-4731-b937-ced244f9b014?auth=1 abraço

sim .. baixe o software com o serial, senão ele não faz a correção. abraço