deletar Cookies

[marcussombra 1]

beleza galera?Tow precisando de uma procedure para deletar cookies.. Por algum motivo, não tow conseguindo, apesar de ser uma tarefa relativamente simples...Ajudem ae plz!brigado ae adiantado :P ;@

[marcio.theis 3]

você quer isto em delphi mesmo ?

[marcussombra 1]

Pra falar a verdade, pode ser em qualquer linguagem... Mas o pró eh que eu só sei delphi e php ;/Tentei também com .bat, mas não deu certo ;/Pode ser em qualquer linguagem, pq ai eu fazia o delphi executar o tal programa para deletar os cookies... A unica coisa que eh "obrigatorio", é esse programa não precisar apertar em botao algum... Assim que esse programa abrir, ele deleta os cookies e fecha sozinho...Brigado ai por tentar ajudar ;D

[marcio.theis 3]

O único problema é pegar a pasta de cookies, depois é só dar o comando DeleteFile()...

[marcussombra 1]

Os cookies ficam armazenados em duas pastas: C:\Documents and Settings\<usuario>\Cookies e Temporary Internet FilesO da pasta Cookies eu ate consegui deletar... Mas soh que quando apago as coisas dessa pasta, o Cookie continua! Axo qu e o cookie msm ficam eh nessa Temporary Internet Files... E nela eu nao consigo deletar... é como se houvesse ter que ter um tipo de "permissao"... tipo chmod do linux... ;/Sera que voce nao pode tentar? Soh pra mim saber se o pro eh aki no meu pc ou com você tbm acontece isso.. Se der, agradeço!

[marcio.theis 3]

Posso ver aqui sim...

Procurei na net e encontrei este exemplo:

 

procedure TForm1.BitBtn1Click(Sender: TObject);var	Allocator: IMalloc;	SpecialDir: PItemIdList;	FBuf: array[0..MAX_PATH] of Char;beginif SHGetMalloc(Allocator) = NOERROR then	begin	SHGetSpecialFolderLocation(Form1.Handle, CSIDL_COOKIES, SpecialDir);	SHGetPathFromIDList(SpecialDir, @FBuf[0]);	Allocator.Free(SpecialDir);	ShowMessage(string(FBuf));	end;end;

Declare no uses ActiveX, ShlObj

Link do site

 

Vou tentar e te dou um retorno...

[marcussombra 1]

Não de certo...

[marcio.theis 3]

beleza... Coisa boa que deu certo... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcussombra 1]

Marcio.. Foi mal mas não deu certo.. O que estou fazendo eh isso:estou usando um componente TWebBrowser e nele estou logando em um site... Quando eu logo, ele cria um cookie, e se tento logar com um usuario difrente do q eu loguei antes, ele não permite...Entao tenho que apagar os Cookies para ele permitir eu logar... ;/ Quando eu disse que deu certo, eu deletei os arquivos do \cookies.. E pelo Internet explorer consegui logar novamente.. Mas quando fui tentar com o WebBrowser, nao deu certo ;/O que notei eh o seguinte: eu axo que o WebBrowser depois que e inicializado, armazena os Cookies tipo "em cache".. Pq se eu deleto os cookies e tento logar novamente, ele da erro.. Mas se eu deleto os cookies, fecho a aplicacao e abro ela novamente.. Eu consigo logar ;/ Axo que tem alguma propriedade para ele nao "armazenar em cache".. ;/

[marcio.theis 3]

No evento OnDocumentComplete do TWebBrowser tente fazer algo do tipo:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);var documento: IHTMLDocument2; s: string;begindocumento:=Webbrowser1.Document as IHTMLDocument2;documento.cookie:='';end;

[marcussombra 1]

A solução que encontrei foi essa: Quando deleto os cookies, executo isso:Winexec('MinhaAplicacaoo.exe', SW_SHOWNORMAL); Application.Terminate;Não é o mais adequado.. Mas a gambiarra deu certo ;D vlw ai pela ajuda Marcio... Se quiser fechar o TOPIC, pode fechar.. eu n fecho pq eu n sei onde que fecha :XBrigado ae ;)

[marcio.theis 3]

Tranquilo... Podemos deixar o tópico assim mesmo...valew... :D