Jhonas

exemplo https://ferpinheiro.wordpress.com/2012/04/28/ordenando-valores-de-um-arquivo-usando-python/ abraço

porem você usa a mesma função que eu uso na verdade não é igual ... tem algumas diferenças significativas se ainda assim a tela fica em branco .... então tente isso vá em configurações de video e reduza a quantidade de cores para 16 Bits e veja o que acontece abraço

tente esse código https://www.scriptbrasil.com.br/forum/topic/167559-tirar-um-print-screen-da-tela-a-cada-5-segundos/ abraço

veja o manual http://downloads.mysql.com/docs/refman-5.5-en.a4.pdf abraço

Você tem um erro em sua sintaxe SQL ; Verifique o manual que corresponde a versão do seu servidor MySQL para utilizar corretamente a sintaxe 'DELIMITER $$ USE 'ESCOLAR'$$ CREATE DEFINER='ROOT'@LOCALHOST' TRIGGER 'ESCO' na linha 1 abraço

se eu abro ele em modo segurança consigo mexer nele normalmente arquivos corrompidos do windows ou HD com bad clusters ( trilhas ou setores ruins ) tente fazer uma instalação de atualização ( use o CD de instalação ) se não funcionar, voce deve fazer uma nova instalação do windows ( formate o HD se necessario ) abraço

tava funcionando perfeitamente. ai de repente, o programa travou e reiniciou provavelmente corrompeu algum arquivo ou registro tente isso: desinstale o programa passe o CCleaner ( pega na Net ) instale novamente e veja se resolve abraço

Possuo na tela inicial (frmConsulta), um dbgrid que mostra todas as OS cadastradas. a posição do cursor nesse dbgrid é que vai determinar qual o registro voce vai pegar para trazer os dados para o frmCadastro assim que o registro for selecionado e voce fechar o frmConsulta, voce deve utilizar algum campo chave para que, atraves de uma outra query voce pode trazer os dados para o frmCadastro ... a partir dai voce edita o registro e depois salva exemplo imagine que essa seja a tela de pesquisa (frmConsulta) O ponteiro da tabela esta no primeiro registro ... então para trazer os dados para o frmCadastro vamos usar o campo EMPNO voce cria uma query para o frmCadastro e passa como parametro o campo EMPNO no dbgrid correspondente ao frmCadastro , vai aparecer somente os dados do registro selecionado depois voce edita os campos e salva o registro abraço

voce já viu o seu proprio post sobre isso ? não resolveu ? https://www.scriptbrasil.com.br/forum/topic/176162-api-recv-winsock-delphi/ abraço

acredito que usando APIs do windows mas se quer saber mais sobre o assunto veja: http://www.webcheats.com.br/forum/visual-basic/1640577-tutorial-como-criar-um-anti-cheat.html outros links https://www.google.com.br/?gfe_rd=cr&ei=pCPIVPW0B9LCqAWPzoHACQ&gws_rd=ssl#q=anticheat+delphi&spell=1 abraço

exemplo http://sirius.eel.ufsc.br/~pvilla/disciplines/algo/sem13.2/algo_a06.pdf abraço

se voce usar o delphi seria isso: Antes de dar o Resume, teste se ela está suspensa: if PT.Suspended then PT.Resume; OBS: Não utilizo API do Windows (CreateThread) abraço

estou tentando utilizar á API do Windows (CreateThread) pesquise nesse link https://www.google.com.br/?gfe_rd=cr&ei=eu3HVPP2EtDAqAX42IDADQ&gws_rd=ssl#q=createthread+api+windows abraço

veja se esse artigo te ajuda http://www.cs.rpi.edu/courses/netprog/WindowsThreads.html abraço

Essa é uma das maneiras possiveis: procedure TForm1.Button1Click(Sender: TObject); var value : string; begin repeat value := InputBox('Favor Digitar', 'Numero do Pedido:', '0'); until value <> ''; ShowMessage('O Numero é '+value); end; abraço

vce deve ler o artigo com calma ou não vai entender como fazer... exemplo Defina uma classe que descenda de TThread: type TPingThread = Class(TThread) procedure Execute; override; constructor Create; end; Defina uma variável p/ a Thread: var PT:TPingThread; No onCreate do Form você instancia: PT := TPingThread.Create; Depois implemente os dois métodos: constructor TPingThread.Create; begin inherited Create(true); // cria suspensa FreeOnTerminate := false; // deixa vc liberar o objeto end; procedure TPingThread.Execute; begin While not Terminated do begin // Aqui vc coloca o código do evento timer // Não deixe sair deste While, executando Suspend após sua tabela chegar ao fim end; end; No onTimer você ativa: PT.Resume; No onDestroy você libera: PT.Free; Antes de dar o Resume, teste se ela está suspensa: if PT.Suspended then PT.Resume; OK.... Se ainda não entendeu, leia o artigo desse link ( com calma ... rs ) http://www.forum-invaders.com.br/vb/showthread.php/13989-Tutorial-Delphi-Threads abraço

amigo, vai encontrar muito material explicativo na net https://www.google.com.br/?gfe_rd=cr&ei=xjrGVPyLAeGp8we2-4DwDg&gws_rd=ssl#q=thread+delphi abraço

pode falar que não sabe ... não é demerito nenhum ...rs exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Memo1: TMemo; WebBrowser1: TWebBrowser; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; x : integer = 0; implementation {$R *.dfm} uses urlmon, wininet; procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.Delete(x); // deleta sempre a primeira linha do memo end; procedure TForm1.Button2Click(Sender: TObject); var MyInternetProxyInfo: PInternetProxyInfo; lbResult: boolean; begin MyInternetProxyInfo := New(PInternetProxyInfo); try MyInternetProxyInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY; MyInternetProxyInfo^.lpszProxy := PChar(Memo1.Lines.Strings[0]); MyInternetProxyInfo^.lpszProxyBypass := PChar('<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('https://www.domain.com/'); finally Dispose(MyInternetProxyInfo); end; end; end. obs: faça as alterações que forem necessarias para o seu uso abraço

Á cada REFRESH do meu WebBrowser ele pegaria á primeira PROXY do memo é daria -1 na lista para remove-ló é ir para o próximo. exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; x : integer = 0; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.Delete(x); // deleta sempre a primeira linha do memo end; end. abraço

esse computador central foi formatado, porém foi feito um backup de tudo voce fez um backup dos registros do windows tambem ? pode ter certeza que esta faltando algum arquivo ou dll que estava instalado na pasta do windows e agora não esta mais abraço

realmente é uma atualização do windows que voce fez ... se não adiantar colocar essa exceção ( FBSERVER ) no firewall tente restaurar ( ponto de restauração ) o windows a uma data anterior a atualização OBS: alguns programas instalados tambem podem modificar a configuração de sua maquina e provocar esse tipo de ocorrencia abraço

veja http://www.freepik.com/free-psd/precision-web-ui-buttons-collection-psd_597151.htm http://www.freepik.com/free-psd/buttons abraço

Tentei seguir o exemplo do link e não deu certo usando o codigo do link unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls; type TForm1 = class(TForm) Button1: TButton; WebBrowser1: TWebBrowser; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses MSHTML ; function GetElementById(const Doc: IDispatch; const Id: string): IDispatch; var Document: IHTMLDocument2; Body: IHTMLElement2; Tags: IHTMLElementCollection; Tag: IHTMLElement; I: Integer; begin Result := nil; if not Supports(Doc, IHTMLDocument2, Document) then raise Exception.Create('Invalid HTML document'); if not Supports(Document.body, IHTMLElement2, Body) then raise Exception.Create('Can''t find <body> element'); Tags := Body.getElementsByTagName('*'); for I := 0 to Pred(Tags.length) do begin Tag := Tags.item(I, EmptyParam) as IHTMLElement; if AnsiSameText(Tag.id, Id) then begin Result := Tag; Break; end; end; end; procedure TForm1.Button1Click(Sender: TObject); var url: String; begin // vamos carregar o documento HTML WebBrowser1.Silent; url := 'http://www.google.com'; // vamos acessar a página WebBrowser1.Navigate(url); end; procedure TForm1.Button2Click(Sender: TObject); var doc: IHTMLDocument3; elem: IHTMLElement; conteudo: String; begin // uses MSHTML_TLB // vamos obter o documento representando a página web doc := WebBrowser1.Document as IHTMLDocument3; // o documento foi obtido com sucesso if doc <> nil then begin // vamos tentar encontrar o elemento HTML com o id "mngb" elem := doc.getElementById('mngb'); // o documento HTML foi encontrado? if elem <> nil then begin // vamos exibir o texto do elemento conteudo := elem.getAttribute('innerHTML', 0); ShowMessage('O conteúdo do elemento é: ' + conteudo); end else begin ShowMessage('O elemento HTML com o id informado não foi encontrado.'); end; end else begin ShowMessage('O documento HTML não pôde ser obtido.'); end; end; end. Esse link vai te ajudar a entender melhor o webbrowser https://delphilando.wordpress.com/2012/10/20/utilizando-oleobject-do-web-browser/ OBS: qual é o endereço da sua pagina ? abraço

veja esse post https://www.scriptbrasil.com.br/forum/topic/134663-resolvidosimular-o-clique-de-um-botao-no-webbrowser/ abraço

veja se esse exemplo te ajuda http://www.arquivode...tbyid-3055.html abraço