Pimpao

Adicione um TLabel no local que você deseja que apareça o resultado. Mude as linhas: showmessage(); por: label1.caption := 'sua mensagem'; falou

não é ali naquele espaçamento que você deve adicionar, dê dois cliques ali e digite no source ^^

1. Não precisa ser necessariamente esse arquivo, pode ser outro qualquer. Abrindo o arquivo (Adicione ShellApi na clausula uses): Coloque um novo botao, como você mesmo falou, e coloque no OnClick: ShellExecute(handle,'open','c:\temp.txt', '','',SW_SHOWNORMAL); 2. Na ultima linha do OnClick do botao coloque: Edit1.Clear; Edit1.SetFocus; 3. No evento OnKeyPress do Edit1: if key=#13 then button1.click;

Sim é o nativo do delphi, mas eu já consegui sair dessa parte, eu consegui receber a autenticacao do google, e to procurando saber como faco pra usar ela pra ver a caixa de entrada do Gmail... To tentando assim: auth := http.Post('https://www.google.com/accounts/ClientLogin',variaveis); auth := Copy(auth,Pos('Auth=',auth)+5,length(auth)); Memo1.Lines.Add(http.Get('http://mail.google.com/mail/?auth='+auth)); Mas ele da um erro muito louco olha: Vlw

Bom, editando aqui meu post, parece que eu to quase lá! ta me ajudando mt Jhonas! Tipo, eu descobri q o Google tem um servico pra conectar via softwares o link: http://code.google.com/intl/pt-BR/apis/acc...tml#ClientLogin E me retorna corretamente a resposta, dessa maneira: (como mostra o exemplo no google) SID=DQAAAGgA...7Zg8CTN LSID=DQAAAGsA...lk8BBbG Auth=DQAAAGgA...dk3fA5N Mas e agora pra eu logar no email? to meio confuso o.o

Falta pouco ^^ Preste atencao na linha: procedure TForm1.FormCreate(Sender: TObject); Significa que está no evento OnFormCreate, será executado quando o form for criado. Agora, faça o seguinte: abra novamente o delphi, vá em File > New Application, coloque um TEdit no form e um TButton, dê dois cliques no TButton, apague a segunda linha ("begin"), e coloque este código: 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[i])>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;

Jhonas Eu olhei tópico a tópico dessa busca sua e não achei nada a respeito, eu já tinha procurado bem antes de postar tambem... é que eu realmente não acho NADA a respeito do que eu quero... só acho mensagens com assunto de Enviar Email (SMTP) e Receber (POP3), sobre o HTTP que eu queria não acho nada... Obrigado desde já...

Ficaria assim: 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[i])>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; Você está fazendo no OnCreate do form, se você precisa de um campo de busca seria interessante fazer isso num OnClick de um botao... Falou

Poste seu código pra facilitar ^^

dei uma pesquisada, acho que é isso q você precisa: var 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[i])>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; é só adaptar para sua necessidade falou espero que te ajude ^^

Se for aqueles jogos online (mmorpg) normalmente eles tem Anti-Bot, então um simples autoclick desses não irá funcionar mesmo... teria q fazer um sistema pra burlar o antibot deles... isso é meio complicado pra mim ^^

Fiz uns testes aqui acho que é isso que você quer: uses Windows (padrão): Mouse_event(dwFlags, dx, dy, dwData, dwExtraInfo: DWORD); Botão direito: Mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0); //clica Mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0); //solta Botão esquerdo: Mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); //clica Mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); //solta Outros eventos: MOUSEEVENTF_MOVE; //mouse move MOUSEEVENTF_LEFTDOWN; //left button down MOUSEEVENTF_LEFTUP; //left button up MOUSEEVENTF_RIGHTDOWN; //right button down MOUSEEVENTF_RIGHTUP; //right button up MOUSEEVENTF_MIDDLEDOWN; //middle button down MOUSEEVENTF_MIDDLEUP; //middle button up MOUSEEVENTF_WHEEL; //wheel button rolled MOUSEEVENTF_ABSOLUTE; //absolute move

Boa tarde, Bom pessoal, eu to tentando fazer um sisteminha (na veradade é mais pra aprender mesmo) simples que acessa um webemail e me retorna os "subjects" dos emails pra posteriormente baixar os anexos... eu consegui fazer usando o método POP3 (usando TIdPop3) mas eu quero tambem que dê para acessar usando o método HTTP e eu não to conseguindo (não sei nem se é possivel fazer isso pelo delphi na verdade). Um exemplo doq eu to tentando fazer é isso: http://www.mailresender.com.ar/downloads.html (podem baixar p ver como é, é bem simples n precisa nem de instalacao) esse MailResender tem 3 métodos (HTTP,POP3,IMAP). To tentando usar o TIdHTTP pra acessar usando o Post (tentando acessar Gmail) com o código abaixo: var variaveis: TStringList; ssl: TIdSSLIOHandlerSocket; http: TIdHttp; begin http := TIdHttp.Create(Self); ssl := TIdSSLIOHandlerSocket.Create(Self); variaveis := TStringList.Create; variaveis.Add('Email=MeuEmail'); variaveis.Add('Passwd=MinhaSenha'); variaveis.Add('ltmpl=default'); variaveis.Add('ltmplcache=2'); variaveis.Add('continue=http://mail.google.com/mail/?ui=html&zy=l'); variaveis.Add('service=mail'); variaveis.Add('rm=false'); variaveis.Add('ltmpl=default'); variaveis.Add('scc=1'); variaveis.Add('PersistentCookie=no'); variaveis.Add('rmShown=1'); http.IOHandler := ssl; Memo1.Clear; Memo1.Lines.Add(http.Post('https://www.google.com/accounts/ServiceLoginAuth?service=mail',variaveis)); variaveis.Free; ssl.Free; http.Free; Mas ele me retorna o html daquele "Redirecionando", não da caixa de entrada. Não sei nem se é o jeito mais facil de fazer, procurei bastante na net e não achei nada a respeito, espero q me ajudem. :D Obrigado pessoal...

Micheus, Você é foda de mais cara! muito obrigado, ficou certinho, do jeito que era pra ficar! amanha eu levo na escola e publico o forum xD vlw, muito obrigado micheus e deio! vou dar uma olhada no teste de mesa vlw [PROBLEMA RESOLVIDO]

@identação - ahh ok... eu ainda não vejo mta diferença de dar esses espaços... mas eu já to começando a fazer isso! vlw! @ sobre o codigo - Outra coisa, eu não consegui terminar o codigo cara =/, tipo, eu entendi oque você disse (quando o label6 está saindo do form, o label7 começa a entrar... mas eu não consegui termina =/) tem como você falar o que eu está faltando? não precisa terminar o codigo, so fala o que está faltando pra eu tenta aqui... eu to começando a mexer agora com delphi não to muito ligado nas coisas (por isso o professor está dando 2pnts a mais na media pra quem conseguir fazer...), vlw espero que me ajude! falou