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

Paket programlarınızın tanıtımını bu forumda yapabilirsiniz. Bu foruma soru sormayın!
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

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

Mesaj gönderen 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. :idea:

- 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.

Resim

- 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) 325 kere indirildi
Afiyet olsun.. 8)
En son mrmarman tarafından 30 Eyl 2013 05:56 tarihinde düzenlendi, toplamda 6 kere düzenlendi.
Resim
Resim ....Resim
Kullanıcı avatarı
Z.D.
Üye
Mesajlar: 104
Kayıt: 01 Nis 2006 01:48
Konum: İstanbul

Mesaj gönderen 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
Üye
Mesajlar: 27
Kayıt: 06 Ağu 2006 01:38

Saol

Mesaj gönderen yetnot »

Saol Muharrem abi, öğrenmek için güzel bir örnek.
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

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

Mesaj gönderen 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...
Resim
Resim ....Resim
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7586
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

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

Mesaj gönderen 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.
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

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

Mesaj gönderen 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.
Resim
Resim ....Resim
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

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

Mesaj gönderen 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);
Resim
Resim ....Resim
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

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

Mesaj gönderen conari »

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

bilgine..
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

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

Mesaj gönderen mrmarman »

Login bilgilerini (isim ve şifre) doğru yazdın mı, tekrar kontrol et istersen. Şimdi denedim sorun çıkarmadan düzgün çalışıyor.
Resim
Resim ....Resim
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

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

Mesaj gönderen conari »

:D şifreyi hatalı yazmışım. siteye otomatik giriyorumda karıştırmışım. :roll:
Yalnız Arasıra ISA server disconnect oluyor. program siteye login olmaya çalışırken.
bizim güvenlik ayarlarından olabilir.
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Ali Erdoğan
Kıdemli Üye
Mesajlar: 1026
Kayıt: 11 Şub 2005 02:12
Konum: İstanbul

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

Mesaj gönderen Ali Erdoğan »

Eline sağlık.
Sawyer
Üye
Mesajlar: 29
Kayıt: 05 May 2009 11:30

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

Mesaj gönderen Sawyer »

hocam sen aşmışsın ya eline sağlık
Kullanıcı avatarı
mudipasa
Üye
Mesajlar: 169
Kayıt: 13 Tem 2004 02:25
Konum: Batman

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

Mesaj gönderen 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 ?

Kod: Tümünü seç

www.muratdişikırık.com.tr
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

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

Mesaj gönderen 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.
Resim
Resim ....Resim
Kullanıcı avatarı
mudipasa
Üye
Mesajlar: 169
Kayıt: 13 Tem 2004 02:25
Konum: Batman

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

Mesaj gönderen 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.

Kod: Tümünü seç

www.muratdişikırık.com.tr
Cevapla