cookie ?

[DelphiMania]

demek ki boşuna yazmamışım burdan yardım çıkmayacak diye.

[metinkorkmaz]

Delphimani,
Yaklaşımın yanlış, hem çaba sarfetmiyorsun hemde insanları suçluyorsun.
Sana yukarıda söyledim wordpad le aç diye, tutup notepadle açıyorsun.

Bir button, bir memo1 ve bir opendialog1 koy forma.
Aşagıdaki kodu button in Onclick eventine yerleştir, sonra da bilgilerin biçimini saptamaya çalış.

Kod: Tümünü seç

  if OpenDialog1.Execute then
  begin
    Memo1.Lines.Clear;
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;

Mantıgı anladıktan sonra istiyorsan bu bilgileri listview a aktarıp, oradan sildirebilecek bir yöntem geliştirebilirsin. Yapman gereken bilgileri yükleyip, ilgili satırı silmen o kadar.

Bir ipucu vereyim Memo1.Lines.Delete(11) dersen 12 inci satırı silersin. İlk satır sıfırla başlar. Buna göre gerekli düzenlemeleri yapabilirsin.

[sadettinpolat]

ben tüm cookieleri silmek istemiyorum.istediğim cookieleri silecek.
mesela http://www.xxxxx.com adresinin tüm cookielerini silecek

firefox eklentilerinde cookie editor adı altında bi eklenti var
gayet başarılı. belki bir yerlerde kaynak kodu falan vardır...

[DelphiMania]

Delphimani,
Yaklaşımın yanlış, hem çaba sarfetmiyorsun hemde insanları suçluyorsun.
Sana yukarıda söyledim wordpad le aç diye, tutup notepadle açıyorsun.

Bir button, bir memo1 ve bir opendialog1 koy forma.
Aşagıdaki kodu button in Onclick eventine yerleştir, sonra da bilgilerin biçimini saptamaya çalış.

Kod: Tümünü seç

  if OpenDialog1.Execute then
  begin
    Memo1.Lines.Clear;
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;

Mantıgı anladıktan sonra istiyorsan bu bilgileri listview a aktarıp, oradan sildirebilecek bir yöntem geliştirebilirsin. Yapman gereken bilgileri yükleyip, ilgili satırı silmen o kadar.

Bir ipucu vereyim Memo1.Lines.Delete(11) dersen 12 inci satırı silersin. İlk satır sıfırla başlar. Buna göre gerekli düzenlemeleri yapabilirsin.

bu söylediklerinin hepsini biliyorum zaten (tıpkı önceki mesajlarda olduğu gibi).
benim anlatmak istediğim o karmaşık yapıdan hangi sitenin cookiesi olduğunu nasıl anlayacağım + o karmaşık yapıdan o bulduğum cookie'yi nasıl sildireceğim. ok ?

[metinkorkmaz]

Kod: Tümünü seç

.yahoo.com	
www.answers.com	
www.cnnturk.com.tr	
www.turkeyforum.com	
www.milliyet.com.tr
reklam.milliyet.com.tr	
www.e-kolay.net	
www.kanald.com.tr	
bilisim.milliyet.com.tr
.tomshardware.com

Bendeki bazı çerezlere baktım. Her site kendi çerezine, ismine uygun bir isim veriyor. Bazılarında www olmuyor, bazısında tüm adres oluyor. Benim aklıma gelen mantık hepsini alıp listview ile sıralayıp istenilenin sildirmesi veya tam adresi biliyorsan listview içinde verilen kelimeyi aratirsin. Ona uygun olanlari bulup silersin.

Örnegin: .milliyet. arayıp http://www.milliyet.com.tr, reklam.milliyet.com.tr, bilisim.milliyet.com.tr cookilerinin hepsini silebilirsin.

[Trial_Cooder]

fifrefox cookie'lerini memo'da göstermek için;

Kod: Tümünü seç

procedure DosyaAra(const Yol, Tur: string; AltDizin: boolean; Out List:TStringList);
var
  AramaSonucu: integer;
  Arama : TSearchRec;
begin
  AramaSonucu := FindFirst(Yol + Tur, faAnyFile - faDirectory, arama);
  while AramaSonucu = 0 do
  begin
    List.Add(Yol + Arama.Name); // Dosya ismi yoluyla birlikte
//List.Add(Arama.Name)  sadece dosya ismi
    AramaSonucu := FindNext(Arama);
  end;
  FindClose(Arama);
  if not AltDizin then Exit;
  AramaSonucu := FindFirst(Yol + '*.*', faDirectory, Arama);
  while AramaSonucu = 0 do
  begin
    if (Arama.Name <> '.') and (Arama.Name <> '..') then
        DosyaAra (Yol + Arama.Name + '\', Tur, TRUE,List);
    AramaSonucu := FindNext(Arama);
  end;
  FindClose(Arama);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
 liste:TStringList;
begin
    liste := TStringList.Create;
    DosyaAra('I:\Documents and Settings\MC_Rapier\Application Data\Mozilla\Firefox\Profiles\','cookies.txt',True,liste);
    Memo1.Lines.Clear;
    Memo1.Lines:=Liste;
    liste.Free;

    for i:=0 to memo1.Lines.Count do
    begin
    Memo2.Lines.LoadFromFile(memo1.Lines[i]);
    Memo3.Lines.Add(memo2.Text);
    end;
end;

kolay gelsin