ZueRa Postado Setembro 15, 2006 Denunciar Share Postado Setembro 15, 2006 Pessoal, queria saber, como posso declarar uma variável "x" por exemplo, como boolean pública ?Alguém tem uma idéia ?Grato. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Erso Postado Setembro 16, 2006 Denunciar Share Postado Setembro 16, 2006 interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) private { Private declarations } public { Public declarations } x:boolean; end;var Form1: TForm1;implementation Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ZueRa Postado Setembro 16, 2006 Autor Denunciar Share Postado Setembro 16, 2006 interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) private { Private declarations } public { Public declarations } x:boolean; end;var Form1: TForm1;implementationNem deu certo...Veja o erro:[Error] google_api.pas(40): '=' expected but identifier 'x' found Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Setembro 16, 2006 Denunciar Share Postado Setembro 16, 2006 opacole o que você fez na sua unit, pois se o erro é[Error] google_api.pas(40): '=' expected but identifier 'x' foundquer dizer que o erro é na linha 40, e passando como base o que você deixou em quote e deixou em vermelho, não está nem na linha 20, resumindo não há como identificar o erro sendo que a fonte do erro não é a mesma...abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ZueRa Postado Setembro 16, 2006 Autor Denunciar Share Postado Setembro 16, 2006 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; implementationespero 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. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Setembro 16, 2006 Denunciar Share Postado Setembro 16, 2006 ahh agora sim ahuahuprocedure TrataResultadoSearch(resultado:GoogleSearchResult);end; //erro aqui remova esse end;publicx:boolean;end;varForm1: TForm1;implementationabraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ZueRa Postado Setembro 16, 2006 Autor Denunciar Share Postado Setembro 16, 2006 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 publicamas 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 =( Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Setembro 16, 2006 Denunciar Share Postado Setembro 16, 2006 opaeheh infelizmente você vai ter que colar a parte do seu código emque você inseriu isto denovo rsrse não n da pra ajudar...abs Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ZueRa Postado Setembro 16, 2006 Autor Denunciar Share Postado Setembro 16, 2006 Aí está:procedure TForm1.EdstopClick(Sender: TObject); begin if x then break; end; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Setembro 16, 2006 Denunciar Share Postado Setembro 16, 2006 opaentão, o erro é que você está dando break (stop, brecando) um nadaeheh não tem código ai, então esse break não tem nenhum tipo deligação...o break que o rapaz do mirc disse, é no código onde é realizado abusca, ou talvez outra coisa mas por ser googleapi deve ser busca...então você fariaprocedure TForm1.EdstopClick(Sender: TObject);begin x := True;end;e no código onde é realizada a busca, ou qualquer coisa que vocêqueira parar, você fazif x then Exit;se for um loop, então você pode usar break;if x then Break;lembrando que no código onde se inicia a busca, você deve setar ox := false;Pelo que estou vendo, você tem pouco conhecimento em delphi não é?...se não for díficil pra voce, coloca esse código em algum site dehospedagem de arquivo (rapidshare por exemplo), e peça ajuda, porquese cada parte que você quiser ajuda você não passar toda a parte necessária,então você teria que entender o que se passa na programação para poderresolver sozinho...abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ZueRa Postado Setembro 16, 2006 Autor Denunciar Share Postado Setembro 16, 2006 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 ? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Setembro 18, 2006 Denunciar Share Postado Setembro 18, 2006 opapra fazer status, vou dar um exemplo simples depois você aperfeiçoa, de outras maneiras como uma statusbar por exemplo...coloque um label no form onde tem os Edit de busca...coloque em qualquer lugar, visível só pra voce ver como vai funcionar...vamos supor que esse label se chama-se label1procedure ShowStatus(const szStatus: String);beginwith google_api.Form1.Label1 dobeginCaption := szStatus;Refresh;Sleep(300); //só pra não ficar piscando os status... que é rápidoend;end;procedure TBuscaComThread.Execute;varx:integer;key:string;beginkey:=google_api.Form1.Edapi.Text;google_api.x := False;ShowStatus('Iniciando a busca...');for x:=0 to 70 dobeginif google_api.Form1.x then exit;ShowStatus('Fazendo busca ' + InttoStr(x) + ' de 70'); 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;Tipo, seu código está meio bagunçado mas está valendo...tipo esse x ai estar declarado no form, o coinitialize sendo chamado x vezes conforme o loop, e tal... mas belezaabraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ZueRa Postado Setembro 18, 2006 Autor Denunciar Share Postado Setembro 18, 2006 Churc, vou dar uma testada aqui.Posto o resultado ou falha logo logo...Obrigado por enquanto.Abraço. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ZueRa Postado Setembro 18, 2006 Autor Denunciar Share Postado Setembro 18, 2006 Churc, ficou 10.Valeu, muito obrigado... lhe devo essa !;) Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
ZueRa
Pessoal, queria saber, como posso declarar uma variável "x" por exemplo, como boolean pública ?
Alguém tem uma idéia ?
Grato.
Link para o comentário
Compartilhar em outros sites
13 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.