Sadettin POLAT - 'S'log/anı/ olmayan 'P'log !

Bir kaç gün önce bu konuyla ilgili bir iki link ve örnek program adresi vermiştik. Konuyla ilgili basit bir örnek yapmam yönünde bir kaç mail geldi. Bizde küçük bir örnek yapıyoruz. Aşağıdaki resimde Excel dosyamızı görüyorsunuz. ID,AD,SOYAD,YAS,DOGUMYERI,MAAS alanlarına ve 5 adet kaydaa sahip bir excel tablosu. Delphiyle excel dosyamıza bağlanmak için şu şekilde bir Connection String kullanıyoruz. ADOConnection1.ConnectionString := ' Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=Excel Files;DBQ='+BaglanilacakExcelDosyasininYolu+';DefaultDir=' + DosyaninBulunduguDizin + ';DriverId=790; MaxBufferSize=2048 ;PageTimeout=5;" '; Bu stringi AdoConnection bileşenimizin ilgili yerine yazdıktan sonra bileşenimizi excel dosyamıza bağlıyoruz. Ardından GetTableNames yöntemini kullanarak dosyamızda ki tablo isimlerini alıp comboboxa yazıyoruz. ADOConnection1.GetTableNames(ComboBox1.Items,TRUE); AdoTable bileşe

Beklenen oldu ve 70.72 teraflop’luk hızı (saniyede 70 trilyon işlem) tescillenen IBM yapımı BlueGene/L dünyanın en hızlı süperbilgisayarı ünvanını aldı. 2002’den beri birinci olan Earth Simulator ise üçüncülüğe düştü. 9 Kasım 2004 — Üniversitaet Mannheim ve University of Tennessee tarafından yürütülen dünyanın en hızlı 500 süperbilgisayarını belirleyen liste Pittsburgh’da yapılan konferansta açıklandı. Saniyede 70 trilyondan fazla işlem hızına sahip BlueGene/L, son iki yılın birincisi NEC yapımı Earth Simulator’u devirerek birinciliği kaptı. Virginia Tech öğrencilerinin Apple Xserve’leri birleştirerek yaptıkları SuperMac hızlı bir atakla 7’ciliğe yükseldi. IBM yapımı 70.72 teraflop'luk BlueGene/L, ABD Enerji Bakanlığı'na bağlı Lawrence Livermore National Laboratory'de nükleer araştırmalarda kullanılacak. Henüz 4'te biri birleştirilen sistem bitirildiğinde, 360 teraflop gücüne ulaşacak. haberin devamı için http://www.ntvmsnbc.com/news/295259.asp#BODY

Olayı güzel güzel yazıyordum fakat birden ne olduğunu anlamadan sayfa refresh olunca tüm yazılar gitti. şimdi o kadar yazıyı yazmaya üşeniyorum doğrusu. bu sefer kısa kısa geçecem. Nasıl olsa kaynak kodu yanında :) 1-internetten xml dosyasını download edecez 2-xml dosyasını parse edip içinden gerekli verileri alacaz 3-listview kullanarak bu bilgileri gösterecez hadi başlayalım. forma gerekli bileşenleri koyarak işe başlayalım. birer adet TButton, TEdit, TlistView, TMemo ve 2 tane TLabel ve de en önemlisi TXMLDocument. (internet paletinde ikamet ediyor kendileri) ilk önce download işini halleden fonksiyon. Uses satırına ExtActns eklemeyi unutmayın. function DownloadURLFile(const strUrl, strLocalFile : TFileName) : boolean; begin Result:=True; with TDownLoadURL.Create(nil) do try URL:=strUrl; Filename:=strLocalFile; try ExecuteTarget(nil); except Result:=False; end; finally Free; end; end; gayet açık sanırım :) şimdi sırada download edilen x

İnsan yapacak bir iş bulamayınca abuk subuk işlerle uğraşıyo valla :) Hem vakit geçirmek için hemde yeni birşeyler denemiş olmak için bugün downloadarsivi ile biraz uğraşalım. Download arşivinde program eklerken veya daha önce eklenmiş program bilgilerini güncelleştirirken her hangi bir üyelik sistemi falan yok. Formu dolduruyorsunuz karşı tarafta formu alan vatandaş formdaki bilgilere göre güncellemeyi / eklemeyi yapıyor. Bizde bir başkasının siteye eklemiş olduğu programı değiştirmeye çalışacağız. Bunun için siteye girip en çok indirilenler listesinden bi tane programı gözüme kestirdim. Yeni Türk Lirası 1.0v Şimdi bu programın bilgilerini değiştirelim. İlk önce programın download edileceği urlyi başka bir yere yönlendirmeyi düşündüm ama böyle bir şeye pek ihtimal vermediğimden şimdilik deneme ihtiyacı duymuyorum. Sadece program bilgilerinin sonuna ufak bir not ekleyip download arşivini bu şekilde kandırmayı düşünüyorum. Orjinal açıklaması Sayfanın altındaki program ekl

Burada VBA için nasıl yapılacağı anlatılmış. Burdaki bağlantı şekilllerini doğal olarak Delphi'de de kullanabilirsiniz. http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q257819 Buda Delphi de bu işin nasıl yapılacağını adım adım anlatan başka bir yazı. http://delphi.about.com/library/weekly/aa090903a.htm Bu yazı çok uzun diyorsanız işte bu da örnek proje http://delphi.about.com/library/weekly/code/src090903.zip ______________ Excel , Delphi , Ado

Bu sıralar Turkpetrol'un Hülya Avşar'la pardon kötü bir Beyonce taklidiyle yürütmekte olduğu kampanya reklamlarını izlemiş olmalısınız. Reklamı izlerken Crazy In Love klibini izler gibi oldum birden. Koca bir şirket olan turkpetrolun boyle ucuz taklitler yaparak reklam yapmasını oldukça yadırgıyorum. Belkide sitelerinde belirttikleri gibi (" Özellikle 2,5 yıldır mizah anlayışında reklamlar yapmayı seçiyoruz. ") sadece mizah amaçlı böyle kötü bir kopyacılık yapmışlardır. Bundan sonra kendilerine Türkiye'nin en meşhur Şapkası ! yerine " Türkiye'nin en kopyacı Şapkası ! " veya " Türkiye'nin en şakacı Şapkası ! " demeyi uygun görüyorum.

Program bozulmayabilir ama incinebilir. Martin Fowler (Yeniden Yapılandırma:Varolan Kodun Tasarımını Geliştirmek - Refactoring: Improving the Design of Existing Code. Reading, MA: Addison-Wesley, 1999. Sayfa 7)

Hâsılım yok ser-i kûyunda belâdan gayrı Garazım yok reh-i aşkında fenâdan gayrı Ney-i bezm-i gamem ey âh ne bulsan yele ver Oda yanmış kuru cismimde hevadan gayrı Perde çek çehreme hicran günü ey kanlı sirişk Ki gözüm görmeye ol mâh-likaadan gayrı Yetti bî-kesliğim ol gaayete kim çevremde Kimse yok çizgine girdâb-ı belâdan gayrı Ne yanar kimse bana âteş-i dilden özge Ne açar kimse kapım bâd-ı sabâdan gayrı Bezm-i aşk içre Fuzûlî nice âh eylemeyem Ne temettu’ bulunur bende sadâdan gayrı Günümüz Türkçesiyle: 1- Senin bulunduğun yerde belâdan başka elde ettiğim şey yok;aşkının yolunda yok olmaktan başka bir maksadım yok. 2-Ey âh!gam meclisinin ney’iyim,ateşe yanmış kuru vücudumda arzudan (veya:havadan) başka ne bulursan yele ver (yani:savur,dağıt). 3-Ey kanlı gözyaşı!ayrılık günü yüzüme perde çek ki gözüm o ay yüzlüden başka bir şey görmesin. 4-Kimsesizliğim o dereceye vardı ki,çevremde belâ girdabından başka dönen kimse yok. 5-Bana ne gönül ateşin

Forumda geçen bir bahis. Buraya yapıştırmakta yarar görüyorum. eklemek istedikleriniz varsa yorumlar bölümüne eklemekten çekinmeyin.... computemo Arkadaşlar Merhaba; Bu Java Aldı başını gidiyor,iş ilanlarına yada başka konulara bakıyorum herkez java üzerinde duruyor. Acaba bizim bu Delphi bilgimiz ileride işimize yaramıyacakmı.Delphi yi bırakıp javayamı geçmek gerekiyor. Ben bu javanın bu kadar popiler olmasını hala çözemedim.Nedir bunu bu kadar cazip kılan. Fikri olan varsa öğrenmek istiyorum.Delphi 8 belki bizi kurtarır,ama gerçekten bu konuda düşünceliyim.Delphi bilgimin ileride işe yaramıyacağından korkuyorum.Client/server uygulamaları yavaş yavaş kalkmaya başladı dikkat ederseniz.Herşey browser tabanlı,çok katlı mimariler çoğu işi çözmeye başladı.Samimi olarak duygusal bakmadan gerçekten bu konuda ne fikriniz var,merak ediyorum. Saygılarımla. _________________________________________________________ naile Bir zamanlar cobol, pascal, basic kullanılırmış

Örneği olabildiğince geniş tutmaya çalışacağız. Listviewde yer alan string, integer, date ve time alanlarına göre sıralama yapacağız. Bunun için formun üstüne bir adet listview yerleştirelim. Listview'in ViewStyle özelliğini vsReport olarak ayarlayalım. Daha sonra Columns özelliğinden gerekli alanları tanımlayalım. Dosya Adı Boyut (KB) Dizin Tarih Saat Ardından items özelliğini kullanarak bu alanlara değer girelim. ListView'in OnColumnClick olayına giderek aşağıdakileri yazalım. procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn); begin fsort :=column.Index; ListView1.CustomSort(@customsortproc,0); end; Burda yaptığımız işlem listviewde tıklanan sütunun numarasını alıp bir değişkende saklıyoruz ardından listview'in CostumSort metodunda daha sonra tanımlayacağımız bir fonksiyonun adresini belirtiyoruz. Sıralamayı yapacak olan fonksiyon burada belirtilen fonksiyonumuz olacak. Burda CallBack Function denen bi olay kullanılıyor. Bütün elemanlar

"Leyse li'l-insâni illâ mâ seâ" derken Hudâ; Anlamam hiç meskenetten sen ne beklersin daha? Mehmet Akif Ersoy / Durmayalim Leyse li'l-insâni illâ mâ seâ : Necm Süresi 39. Ayet. [İnsan için ancak çalıştığı vardır.] Meskenet: 1 . Miskinlik, beceriksizlik. 2 . Yoksulluk, fakirlik. (Türk Dil Kurumu) Olay zaten yeterince acik. Yan gelip yatma kardesim. Calis. Bu misralar yazildigi donemde bu anlami tasiyordu fakat zaman ilerledikce baska bir gercegi de gozler onune seriyor.Gerci bu gercek cok kapsamli bir kac satirla anlatilabilecek bir sey degil kaldiki benim bilgim de buna yeterli degil zaten. Ben giris cumlelerini verebilirim gerisini arastirmak yaziyi okuyanlara kalmis. (Matrix gibi bisey oldu bu yaw. Neo'nun kahinle bulusup yanindan ayrildiktan sonra Morpheus ile konusma sahnesi.) Yani kisaca sunu demek istiyorum. Ben bu misrayi ilk okudugumda hic birsey anlamadim. Bu misralari anlayabilmek icin kuran mealine ve turkce sozluklere bakmak zorunda k

Bi arkadaşı görmek için kakltık geldik Adapazarı / Hendeğe göremeden geri dönecem galiba. atalarımız boşuna dememiş aklısız başın cezasını ayaklar çeker diye. Gelmeden önce insan bi takvime bakar. bugun ne? yarin ne ? Bugün 28 ekim yarın 29 ekim bugun öğleden sonra resmi yerler tatil yarın tüm gün. haliyle okula bi geldim kapılar kilitli. "ne oluyoz ?" dedim " öğleden sonra tatil" dediler. bende o andan itibaren tatile çıktım :) neyse işimizi biraz halletik sayılır. şimdi hendekten ankaraya nasıl dönülür onu bulmam lazım. çünkü gelirken çok tuhaftı. adapazarına gelmeden bi yerde indirdiler beni. "sen hendeğe gidecektin di mi. bak servis orda hadi bakalım" dediler. neyse bindik servise. yol olup olmadığı belli olmayan bi yere girdik. şöför ne yapıyo falan derken ilerde demir bir kapı görünce derin bi nefes aldım. "neyse allahtan birileri yolu kapatmış. şöför geri dönmek zorunda kalacak" diye düşünürken çok yanıldıığımı gördüm. şöför birde

Gerekli malzemeler: 1 adet delphi 1 adet calisan bilgisayar 1 adet md5 uniti 1 kilo patates Yapilisi: Delphi calistirilir ve yeni bir proje olusturulur. Yeni projenin ici hafifce yaglanir ki md5 imiz delphiye yapismasin. md5 üniti library path'e eklenir. (Tools\Environment Options\Library\Library Path) ve iyice cirpilir. Form üzerine bir adet tbutton, bir adet tedit ve bir adet tmemo yerlestirilir. Button1'e çift tiklanarak asagidaki yazilar copy/paste yoluyla ilgili yere aktarilir. procedure TForm1.Button1Click(Sender: TObject); begin with Memo1.Lines do begin if Count > 0 then Add(''); Add(Format('%s(''%s'') =' + #13#10 +' %s', ['MD5String', Edit1.Text, MD5Print(MD5String(Edit1.Text))])); end; end; Mutfagimiz biraz kotu oldugundan kodlarimiz biraz kotu gozukuyor olabilir kusura bakilmasin artik. Her neyse Uses satirina md5 'i eklemeyi unutmuyoruz yoksa patateslerin pismesi uzun surebilir. :)

Bu hata sadece yazim yanlisiyla kalmiyor birde anlatim bozuklugu iceriyor. alti ustu yazim yanlisi ama bu yanlisi yapan microsoft gibi bir dev olunca goze batiyor. bir kac gun once vatandasin kulaginda patlayan nokia marka telefonu hatirlayin. nasilda bir anda gundeme oturdu. neden? cok sik rastlanan bir olay olmamasininda buyuk bir etkisi var ama nokia faktorunude unutmamak lazim. kaldiki gunluk hayatimizda ne patlamalar oluyor. patlayan cep telefonu bu patlamalarin yaninda solda sifir kalir valla. beni uzen tarafi bu hatalarin benim tarafimdan bile bulunabiliyor olmasi. ustelik isletim sistemim xp bile degil....