ZueRa

Micheus, testei esse código, e não retornou "nada" dessa vez... o.O

Sim, mas essa função entraria aonde no caso ?

Pessoal, tenho uma lista de sites, e por exemplo, quero filtrar todos eles até a última "/". Dessa forma: www.site.com.br/index.php?p=aaaaaaabbbbbcccc Ao apertar o botão, ficaria assim: www.site.com.br Mas, não sei o que fiz de errado, que tenho um site: www.site.com.br/index.php?p=aaaaabbbbbcccc e ao apertar o botão, ele deixa o site assim: http:/ somente isso =/ Literalmente, ele corta tudo que está depois da PRIMEIRA barra... eu quero que ele corte tudo que está depois da ÚLTIMA barra, ou da última string etc... Não sei qual foi meu erro, já tentei mudar quase tudo praticamente.... aí está o código: procedure TFfiltro.passarrr; var a,i, comeco, fim : Integer; www : string; begin a := google_api.Form1.mmPesquisa.Lines.Count; for i := 0 to a do begin www := google_api.Form1.mmPesquisa.Lines.Strings[i]; if POS('http://', www) > 0 then begin comeco := POS('http://', www); fim := POS(Eddelimiter.Text, www); Msites.Lines.Add(Copy(www,comeco,fim)); end; end; end; Obs.: esse EDDELIMITER é um TEdit, e nele está inserido o caracter "/". Poderia ser "index.php" ou qualquer coisa que o usuário queira que seja filtrado por último. Alguém poderia me dar uma ajuda ? Grato.

Churc, aqui que é realizada a busca: procedure TBuscaComThread.Execute; var x:integer; key:string; begin key:=google_api.Form1.Edapi.Text; for x:=0 to 70 do begin try CoInitialize(nil); case FTipoBusca of tbWeb: FResultadoWeb:=GetGoogleSearchPort.doGoogleSearch(key,FTexto,10*x,10,false,'',false,'','',''); end; Synchronize(DoResultado); finally CoUninitialize; end; end; end; uhm, eu entendi sua explicação, acho que é isso mesmo que ele quiz dizer... mas onde eu poderia colocar o if x then break ? Grato. Churc, consegui... fiz assim: procedure TBuscaComThread.Execute; var x:integer; key:string; begin key:=google_api.Form1.Edapi.Text; for x:=0 to 70 do begin if google_api.Form1.x then exit; try CoInitialize(nil); case FTipoBusca of tbWeb: FResultadoWeb:=GetGoogleSearchPort.doGoogleSearch(key,FTexto,10*x,10,false,'',false,'','',''); end; Synchronize(DoResultado); finally CoUninitialize; end; end; end; hehe =) Obrigado aí pela ajuda ! Porém.. agora estou com outra dúvida... como poderei fazer para ter um status da busca... por exemplo.. "buscando" "busca terminada" etc... Tens alguma idéia ?

Aí está: procedure TForm1.EdstopClick(Sender: TObject); begin if x then break; end;

Fiz uma pergunta a um amigo no IRC sobre isso, e ele me disse: [14:02:55] <Terror_br> como posso fazer para parar o SOAP (RIO) do google api ? [14:02:56] <Terror_br> tipow.. criei um botão STOP, mas não consigo botar ele pra funcionar [14:02:56] <Terror_br> <poerschke> brack [14:02:56] <Terror_br> <poerschke> :) [14:02:56] <Terror_br> <poerschke> if x then break; [14:02:56] <Terror_br> <poerschke> declara X como boolean publica mas esse processo que ele disse if x then break não deu certo... nem executa para falar a verdade... olha o erro: [Error] google_api.pas(105): BREAK or CONTINUE outside of loop [Fatal Error] google_api.pas(7): Could not compile used unit 'google_api' =/ Tá tenso... help =(

Bom, aí está o code: unit google_api; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, BuscaComThread, GoogleSearch,InvokeRegistry, Rio, SOAPHTTPClient, Buttons, Menus, Gauges, ComCtrls, Shellapi, UrlMon; type TForm1 = class(TForm) btnPesquisa: TButton; edPesquisa: TEdit; mmPesquisa: TMemo; labPesquisa: TLabel; Edapi: TEdit; Label1: TLabel; MainMenu1: TMainMenu; Menu1: TMenuItem; Sair1: TMenuItem; Ferramentas1: TMenuItem; About1: TMenuItem; Formatar1: TMenuItem; Edstop: TButton; Label2: TLabel; Ltotal: TLabel; Label3: TLabel; procedure btnPesquisaClick(Sender: TObject); procedure Sair1Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure mmPesquisaChange(Sender: TObject); procedure edPesquisaKeyPress(Sender: TObject; var Key: Char); procedure EdapiKeyPress(Sender: TObject; var Key: Char); procedure Label3Click(Sender: TObject); private procedure TrataResultadoSearch(resultado:GoogleSearchResult); end; public x:boolean; end; var Form1: TForm1; implementation espero que ajude ;) Porque na verdade, estou tentando arrumar um jeito, de parar o processo do "SOAPHTTPClient" ou o famoso "HTTPRIO", que fica na aba "WEBSERVERS". Talvez se alguém souber, pode acabar com essa confusão... Grato.

Nem deu certo... Veja o erro: [Error] google_api.pas(40): '=' expected but identifier 'x' found

Pessoal, queria saber, como posso declarar uma variável "x" por exemplo, como boolean pública ? Alguém tem uma idéia ? Grato.

Churc sim, já tentei.. mas não deu certo mesmo assim... =/

Pessoal, estou desenvolvendo um soft, baseado no sistema do GoogleAPI. É como um google, porém, ele retorna os sites normalmente, (só sites, em texto). Só que, andei procurando, e parece, que ele retorna somente 10 (dez) resultados por 'query'. Porém, não consigo adicionar ao código, algum comando de loop (eu acho que deve ser isso) para que funcione certo o programa e, retorne uma quantidade maior de sites. O código de onde eu acho que deve ser mudado alguma coisa está logo abaixo: tbWeb: FResultadoWeb:=GetGoogleSearchPort.doGoogleSearch(CHAVE_GOOGLE,FTexto,0,10,false,'',false,'','UTF-8','UTF-8'); Alguém poderia me ajudar ? Obrigado ZueRa

Sim... estava procurando ela, porém, quando você me passou, eu nçao estava no meu PC. Por infelicidade, esse PC não tinha salvado os logs. Se puder reescrever, agradeço. Grato, ZueRa.

Graymalkin, não. O exemplo acima, acho que é porque foi em um exemplo de "erro". Quando ainda o programa não funcionava, até você ajudar. Mas agora o "Connection: Close" está sempre vindo no final. E respondendo sua pergunta, não há nenhuma TAG <html> ou outras antes dos sites. Grato, abraços.

Graymalkin tem certeza que não dá para usar o Connection: Close ? talvez dê... A primeira coisa que vem após as informações do servidor, são os sites propriamente ditos. Abraço.

Sim... isso consegui ^^ Agora está retornando as informações do server HTTP/1.1 400 Bad Request Content-Type: text/html Date: Sat, 05 Aug 2006 04:00:52 GMT Connection: close Content-Length: 35 E nem consegui... dakele jeito que você m disse... =/

Pessoal, estou em dúvida em relação ao Cs.Socket, porque ele não retorna o resultado que eu queria no 'OnRead'. Ele faz o seguinte: o usuário digita a palavra que ele quer procurar, ai o ClientServer manda o comando para o site. Até aqui tudo bem... Porém o resultado que eu queria seriam os sites (como numa lista TXT), dispostos +/- dessa forma em um TMemo: www.site1.com.br www.site2.com.br como se fosse um "google" entendem ? Porém ele retorna isso: HTTP/1.1 400 Bad Request Content-Type: text/html Date: Sat, 05 Aug 2006 04:00:52 GMT Connection: close Content-Length: 35 <h1>Bad Request (Invalid Verb)</h1> *** Código do lugar que eu acho que está errado procedure TFprincipal.CsConnect(Sender: TObject; Socket: TCustomWinSocket); var pt:string; begin pt:='/myftp/index.php?que='; Cs.Socket.SendText(Cs.Host + pt + Edit1.Text + chr(13)+chr(10)); end; procedure TFprincipal.BtokClick(Sender: TObject); begin Cs.Host:='www.site.com; Cs.Port:=80; Cs.ClientType:=ctNonBlocking; Cs.Active:=TRUE; end; Alguém pod m ajudar ? Grato!