silvanirms

não estou conseguindo, ele não consegue calcular os valores dos campos "numero1" e "numero2" corretamente, sera que existe algum erro nesse codigo que postei, de repente no $_GET? abs

Pessoal preciso da ajuda de voces, tenho o codigo que segue abaixo, ele basicamente faz o seguinte: voce informa um intervalo, por exemplo, do numero 100 ao numero 200 e ele checka numa pagina se esses numeros são validos (pois nessa pagina se os numeros forem validos a pagina informa abrindo uma outra pagina informando que o numero existe) acho que da para entender melhor dando uma lhada no codigo, enfim, basicamente é uma busca. O problema que estou encontrando é fazer uma pagina de entrada com dois campos para se inserir os intervalos e que essa pagina chame o codigo abaixo no momento da busca: (acho que esses campos de buscas teriam quer ter as variaveis numero1 e numero2, certo?) <?php //pega o campo fieldtext da outra página anterior com o numero de numero1 $numero1=$_GET['numero1']; //pega o campo fieldtext da outra página anterior com o numero de numero1 $numero2=$_GET['numero2']; //inicio do link $inicio="https://www.testando123.hpg.com.br/&listadenumeros.php"; //final do link $final="/resultado/&listadenumeros.php"; //comando for para fazer com que seja checado cada numero no intervalo entre o numero1 e numero2 for($=$numero1;$numero<=$numero2;$numero++){ $url=$inicio.$numero.$final; ob_start(); $ch = curl_init($url); curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false); curl_setopt($ch, CURLOPT_HEADER, TRUE); curl_exec($ch); $retorno = ob_get_contents(); ob_end_clean(); curl_close($ch); if(eregi("O NUMERO EXISTE", $retorno)){ $arq=fopen("resultados.txt", "a+"); fwrite($arq, $url."\n"); fclose($arq); $mostra=file("resultados.txt"); echo "<br><br>Encontrado o numero ".$numero."<br>"; echo ($url."<br><br>"); } else { echo "numero ".$numero." não foi encontrado<br>";} // fim do for }; ?> Um abraco e mais uma vez obrigado pela ajuda de vocês.

Jhonas obrigado pela ajuda, fiz da segunda forma que voce indicou. Abs

Pessoal, estou fazendo um programa com um form de busca, quando o usuario clica em 'buscar" e o campo de busca esta vazio ele retorna uma mensagem informando que o usuario deve preencher o campo busca para clicar no botao "buscar", porem, este aviso esta permanecendo no form, mesmo depois que o usuario faz novas buscas.. como faço para limpar esse aviso depois de que ele seja dado? (o aviso é dado no label4) Essa é a parte do codigo: procedure TForm1.Button1Click(Sender: TObject); var txt: TStringList; i: integer; begin if ( edit1.Text <> '' ) then begin txt := TStringList.Create; txt.LoadFromFile(ExtractFilePath(ParamStr(0))+'carteiras.txt'); for i:=0 to txt.Count -1 do begin if Pos(edit1.Text,txt[i])>0 then begin label1.caption := 'NÃO LIBERADA'; txt.free; exit; end; end; txt.Add(edit1.Text); txt.SaveToFile(ExtractFilePath(ParamStr(0))+'carteiras.txt'); label1.caption := ' LIBERADA'; Label3.Caption := intToStr( txt.count ); txt.Free; Edit1.Clear; Edit1.SetFocus; end else begin label4.caption := 'Atenção: Digite uma palavra antes de efetuar a busca.'; Edit1.SetFocus; end; end; Abs

Pessoal, estou elaborando um programa bem simples (o codigo esta em outro tópico criado há alguns dias) basicamente é um form onde voce digita certo numero ou palavra e ele faz a busca em um arquivo .txt, caso essa palavra esteja no .txt ele retorna a mensagem "encontrada" e caso não esteja ele retorna a mensagem "não encontrada" e adiciona a novo palavra a lista do .txt. O que estou precisando para finaliza o programa é o seguinte: gostaria que fosse exibido na tela do programa o numero de linhas desse arquivo .txt (não sei se nesse caso seria um tlabel) que codigo eu poderia usar para que esse numero de linhas pudesse ser exibido? obrigado pela ajuda de todos. Abs

Como faço para que o programa exiba na propria janela do programa, algo como "numero de buscas:" e mostre quantas palavras foram buscadas (podendo ate ser quantas linhas existem no arquivo .txt que foi gerado contendo as palavras que foram buscadas). Abs

Estava tendo alguns problemas com as permissoes (alguns sistemas como o vista, geralmente apenas o administrador tem a permissao de modificar/criar um arquivo) resolvi o problema salvando o arquivo na pasta "meus documentos": txt.SaveToFile(ExtractFilePath(ParamStr(0))+'carteiras.txt'); //salva arquivo

Consegui apos adicionar a unit 'SysUtils' (para usar o FileExists) obrigado a todos pela ajuda, abs

Micheus tentei da forma que voce indicou, mas tambem não deu.. esta retornando o erro: Abraco

Refiz o programa, procedure por procedure e não consegui que o codigo fizesse o programa fechar.. alguém poderia dar uma olhada nesse codigo que postei acima se esta tudo correto? (acho que deve ser algum detalhe que esteja passando despercebido e esta evitando que o codigo de fechar o programa funcione). Obrigado, abs s

ok, vou fazer isso sim, mais uma vez obrigado pela ajuda. abs

So o codigo funcionou, mas já procurei aqui e não existe nenhum teste.dll e mesmo assim ele não ta fechando, deve ter algum erro nesse meu codigo, algum detalhe que esteja impedindo o programa de fechar..

O programa ate compilou, mas não deu o resultado esperado (fechar na ausencia do arquivo teste.dll) vou te postar o codigo, ok? ahh e obrigado pela paciencia. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, ComCtrls, ShellApi; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Image1: TImage; Shape1: TShape; Label1: TLabel; Timer1: TTimer; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Button2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject); begin if not FileExists('C:\windows\Teste.dll') then application.Terminate; end; end.

Jhonas coloquei a imagem em outro lugar, o que eu posso estar fazendo de errado? (estou abrindo o form e colando o codigo que voce me passou depois dos outros procedures) foto

Tinha colocado uma imagem sim, o link é esse: http://www.uploadimagens.com/upload/fd8348...fb8d17f855a.jpg aqui não ta dando certo, retorna um erro na hora de compilar, o codigo ta certo acho que eu q não estou sabendo onde por. abs

Cara não sei o que estou fazendo de errado.. n sei se mesmo com tuas dicas estou pondo o codigo no lugar errado.. enfim.. abs

Jhonas esse onactive fica nos events?

Bem.. consegui esse codigo para a situacao acima, alguém poderia me indicar em que parte do projeto esse codigo entra? já tentei em varias e sempre da erro.. if not FileExists(c:\windows\teste.dll) then ShowMessage('Arquivo "'+NomeFalso+'" não existe') Application.Terminate; Exit;

Pessoal, na hora de se elaborar um programa teria como atrelar o funcionamento desse programa a um determinado arquivo (por exemplo um .dll) para que ele so funcionasse na maquina que possuisse esse arquivo no seu sistema? e caso ele não encontre esse arquivo tem como mascarar a descricao do erro? (evitar que seja mostrado um erro de que falta ESSE arquivo, evitando assim que seja conhecido qual arquivo ele necessita para rodar). Abs

Consegui, obrigado pimpao.

Consegui fazer tudo, porem ainda me resta uma duvida (é a ultima!!) o resultado da busca surge em uma janela popup, tem como esse resultado aparecer no programa sem precisar abrir uma janela pra isso? (já que o resultado da busca é so para informar se o nome esta ou não no .txt) tem como na propria tela do programa aparecer a mensagem do resultado da busca ao invés de abrir uma janela pra isso??

So não consegui adicionar o if key=#13 then button1.click; e nem o ShellExecute(handle,'open','c:\temp.txt', '','',SW_SHOWNORMAL); ambos deram o mesmo erro:

Pessoal deu certo! so falta alguns detalhes que estou tentando mudar, alguns já consegui, outros não: 1. da maneira que voces colocaram eu tenho que criar manualmente o arquivo c:\temp.txt para ele usar como lista, tem como o programa criar esse arquivo automaticamente no seu primeiro uso? outra duvida em relacao a esse txt, tem como colocar um botao para quando clicar ele abrir esse txt? 2. no campo onde eu digito a palavra que quero buscar, apos clicar no botao "buscar" a palavra digitada continua la no campo de pesquisa, tem como apos eu clicar no botao "buscar" da um clear na palavra e o campo ficar limpo para uma nova pesquisa? 3. tem como eu não precisar clicar no botao buscar para ele realizar a busca? tipo, dar um enter e ele entender como se fosse um clique no botao "buscar"? mais uma vez pessoal muito obrigado pela paciencia, quando finalizar tudo posto o codigo para todos.

Agora ate me animei depois do "falta pouco" fiz o que vocês falaram, coloquei pra compilar e deu esse erro em um .dll so para garantir estou baixando o delphi novamente (pois estava usando uma versao portavel) tento novamente e posto pra voces o resultado.

Pois é, to tentando ir aos poucos consertando.. a principio achei que bastava criar um campo de busca, 1 botao e nas propriedades do botao por: procedure TForm1.FormCreate(Sender: TObject); var //quando se tem variaveis, elas ficam antes do primeiro begin txt: TStringList; i: integer; begin txt := TStringList.Create; txt.LoadFromFile('c:\temp.txt'); //abre o arquivo for i:=0 to txt.Count -1 do if Pos(edit1.Text,txt)>0 then //edit1.text é a palavra que você procura begin showmessage('existe palavra'); exit; end; txt.Add(edit1.Text); //adiciona palavra txt.SaveToFile('c:\temp.txt'); //salva arquivo showmessage('palavra adicionada'); txt.Free; end;