DelphiTürkiye RSS (türevi) :) (freeware & source inc.)

[mrmarman]

Herkese selam...

- Öneriler kısmında ve vakti geçmiş zamanda konu olan RSS olayına ufak çapta çözüm olabilecek bir denemem vardı. Daha önce bir başlıkta paylaşmıştım ama TStringGrid ile yapılmış basit bir örnek idi.

- Arşivimde duracağına burada sizlerle paylaşayım dedim ve olması gerektiği gibi ListView'e dönüşürüp sunuyorum.

- RSS için biliyorsunuz XML tabanlı bir çıktı gerekir. Aşağıdaki proje XML için gerekli altyapıyı barındırıyor. Gerisi basit bir export işlemi.

- Yani bu uygulamayı ISAPI uygulamasına dönüştürülüp (WebServer App. DLL), request ile istenen veriyi forumdan çekip dilerseniz HTML generate edip sayfa halinde, dilerseniz XML olarak derleyip RSS reader'a response edebilir, sunabilirsiniz.

- Kaynak kodları da paketin içindedir. Standart Delphi bileşenleri kullanılmıştır.

- Bu proje aynı zamanda aşağıdaki konuların kavranması için faydalı olacaktır.

1. TWebBrowser ile veri gönderip/almak almak.
2. Bir web sayfasında nasıl Login olunur.
3. HTML Kaynak kodu nasıl dosyaya yazılır.
4. HTML Kaynak kodundan veri ayıklama (HTML Parse) işlemi nasıl yapılır.
5. INI Dosyasına kayıt ve okuma.
6. Format Fonksiyonu kullanımı.
7. PasswordChar için yıldız kullanımı.
8. TListView kullanımı.
9. TListView'de her item için farklı Icon verebilmek.



- Resimde de görüldüğü gibi sadece forum başlıklarından seçeceğiniz birine ait ilk sayfayı okuyan projedir.

- ListView üzerindeki bir satıra mouse ile çift tıklama yapıldığında bir exploer sayfası açılıp ilgili linke gidilmektedir.

- Ziyaret edilen her forum başlığı GUNCEL isimli klasöre kaydedilmektedir. Aynı başlığı ComboBox ile seçtiğinizde internetten bilgi almadan en son durum harddiskten alınır.

- Text Dosya ismi Guncel\SonDurum_002.TXT şeklindedir. sondaki 002 rakamı forum numarasıdır.

- Forum başlıkları HTML Kaynak koddanda incelenebileceği gibi aşağıdaki şekildedir. Bir buton ile forumdan okunarak otomatik üretilir.

Kod: Tümünü seç

<forum seçiniz>
:::::: Delphi ::::::
Programlama.2
Delphi VCL.1
Delphi .net.5
Linkler.3
:::::: Veritabanı ve SQL ::::::
FireBird.18
Sybase.25
Oracle.26
MS SQL Server.27
Diğer Veritabanları.28
:::::: Diğer Diller ::::::
Kylix / Lazarus / Freepascal.6
C / C++ / C++ Builder.7
C#, Java.8
Web Tabanlı Diller(PHP, ASP vb..).23
:::::: Forum ve Site ::::::
Forum Kuralları ve Duyurular.9
Forum Yardım.10
Önerileriniz.11
Makale ve İpucu.19
:::::: Paket Programlar Havuzu ::::::
Paket Programlar.12
:::::: Havadan Sudan ::::::
Sohbet.13
Bit Pazarı.21
Test.16
:::::: İş Olanakları ::::::
Eleman Arayanlar.14
İş Arayanlar.15

- Text dosya içeriği aşağıdaki gibidir. Dilerseniz · (#250 oluyor) karakterini indexleyerek Excel'de sütunlara ayrılmış olarak çağırabilirsiniz.

Kod: Tümünü seç

8·Firebird ve Database Dizayn İçin Etkinlik·Kuri_YJ·4642·43·varyemez·30.09.2013 04:47:00·http://www.delphiturkiye.com/forum/viewtopic.php?f=2&t=31492
7·Üye olmak için·mussimsek·6668·0·mussimsek·07.03.2013 10:29:00·http://www.delphiturkiye.com/forum/viewtopic.php?f=2&t=31022
8·Aramanın keyfi bambaşka : Delphi Türkiye Offline v4·mussimsek·28560·43·Abrak·21.11.2011 12:00:00·http://www.delphiturkiye.com/forum/viewtopic.php?f=2&t=20853
7·Forum Kuralları (Güncelleme : 13.06.2007)·mussimsek·41017·0·mussimsek·11.06.2003 01:46:00·http://www.delphiturkiye.com/forum/viewtopic.php?f=2&t=6
7·Forum ve Site Kullanım Kılavuzu (YENİ ÜYELER LÜTFEN OKUYUN)·mussimsek·8539·1·ulu coder·20.04.2006 11:49:00·http://www.delphiturkiye.com/forum/viewtopic.php?f=2&t=2482
10·Socket Problemi·m_ekici·29·5·m_ekici·30.09.2013 05:33:00·http://www.delphiturkiye.com/forum/viewtopic.php?f=2&t=31623
3·Delphi XE5 ile WebServices ve Veri Tabanı Kullanımı·ballyunuvar·21·0·ballyunuvar·30.09.2013 12:04:00·http://www.delphiturkiye.com/forum/viewtopic.php?f=2&t=31622
11·Delphi Xe5 Telefon Bağlama Sorunu·ballyunuvar·160·7·nguzeller·30.09.2013 01:52:00·http://www.delphiturkiye.com/forum/viewtopic.php?f=2&t=31618
3·Frebird sil güncelleme·Lord_Ares·73·2·greenegitim·29.09.2013 10:39:00·http://www.delphiturkiye.com/forum/viewtopic.php?f=2&t=31608

- Bana bu kadarı güncel bir durumu/olayı takip için yeterli olduğundan geriye kalan kısımları forumdan takip ediyorum. Dilerseniz iç içe döngü ile (Recursevely) dilediğiniz kadar sayfa okutma imkanınız var. Formatı verdim.

Program Kaynak Kodları burada

DelphiTurkiye_RSS.rar

DelphiTurkiye_RSS ( Kaynak Kodları )

(52.91 KiB) 374 kere indirildi

Afiyet olsun..

[Z.D.]

İlk yazmış olduğunuz RSS örneği benim çok işime yaramıştı. Bu daha gelişmiş bir sürümü, rss örneği html parse, IdHttp gibi bileşenleri kullanmamda bana çok yardımı dokunmuştu, daha sonra bu bilgiler ile pratik yapmak için DivxARC programını yazmıştım. Üstad gerçekten yeni başlayanlar için bu source kodların çok ama çok yardımı dokunuyor.

Paylaşım için tekrar teşekkürler.

[yetnot]

Saol Muharrem abi, öğrenmek için güzel bir örnek.

[mrmarman]

Yeni foruma göre RSS örneği kodlarını güncelledim. İndirmek isteyenler için link en başta verilen ile aynıdır.

Başarılar...

[mussimsek]

Eline sağlık hocam : ) Yalnız dosyada bir sorun var galiba. 2 sefer indirdim, 47 KB inip kesildi. Bir kontrol edebilir misin?

Kolay gelsin.

[mrmarman]

Hocam rapidshare'ye de koydum. PHP ile upload etmesi lazımdı ama sanırım bazen tıkanıyor.
Hemen linki de yukarda güncelliyorum. Başarılar.

[mrmarman]

Minik bir hata yapmışım. Aşağıdaki satırlardaki & yazan iki farklı yer silinip yerlerine & yazılmalıydı. Bu nedenle son mesaj yazan kişi boş dönüyormuş. Örnek dosya linkleri de güncellendi. Başarılar...


Eski Kod;

Kod: Tümünü seç

    // Başlığı Açan
    Durak     := './memberlist.php?mode=viewprofile&u=';
    System.Delete(Blok, 1, Pos(Durak, Blok) + Length(Durak)-1);

Kod: Tümünü seç

    // Son Gonderen
    Durak     := '<a href="./memberlist.php?mode=viewprofile&u=';
    System.Delete(Blok, 1, Pos(Durak, Blok) + Length(Durak)-1);

Düzeltilmiş Kod;

Kod: Tümünü seç

    // Başlığı Açan
    Durak     := './memberlist.php?mode=viewprofile&u=';
    System.Delete(Blok, 1, Pos(Durak, Blok) + Length(Durak)-1);

Kod: Tümünü seç

    // Son Gonderen
    Durak     := '<a href="./memberlist.php?mode=viewprofile&u=';
    System.Delete(Blok, 1, Pos(Durak, Blok) + Length(Durak)-1);

[conari]

Hocam Selam,
Düzenleme için Teşekkürler.
Link 1 den indirimdim ama Liste dolmuyor.
SonDurum_****.TXT ler boş görülüyor.

bilgine..

[mrmarman]

Login bilgilerini (isim ve şifre) doğru yazdın mı, tekrar kontrol et istersen. Şimdi denedim sorun çıkarmadan düzgün çalışıyor.

[conari]

şifreyi hatalı yazmışım. siteye otomatik giriyorumda karıştırmışım.
Yalnız Arasıra ISA server disconnect oluyor. program siteye login olmaya çalışırken.
bizim güvenlik ayarlarından olabilir.

[Ali Erdoğan]

Eline sağlık.

[Sawyer]

hocam sen aşmışsın ya eline sağlık

[mudipasa]

mrmarman hocam ellerine sağlık. benim kafama takılan bir çok soruya cevap verecek bir program. yalnız bir sorunum var. delphide projeyi açtım çalıştırdığımda IdHttp1.OnWork := IdHTTPWork; satırını göstererek Incompatible types: 'Parameter lists differ' hatasını veriyor. acaba nedendir ?

[mrmarman]

Indy versiyonları varklıdır. IdHttpWork procedure içindekileri seçip kopyala, sonra da formundaki IdHttp'nin eventlerinden Work'a tıklayın ve oraya yapıştırın. IdHTTPWork procedure ve de IdHttp1.OnWork := IdHTTPWork; satırını silin böylece uyum gerçekleşmiş olur.

[mudipasa]

hocam teşekkür ederim. çalıştı. yalnız bir düzeltme daha gerekti onu başka arkadaşlar için ben söyleyeyim. IdHTTPWork procedure dekileri IdHttp'nin Work eventine attığımızda ...[AWorkCount, TIdHttp(ASender).Response... deki ASender kısmını Sender yapmakta gerekiyor. şimdi program kapatınca kapanmıyor veya geç kapanıyor. Bende Tazele işleminde sonra IdAntiFreeze aktiflik durumunu bir defa false sonra tekrar true yaptırıyorum. o sorunuda öyle çözdüm.