Foxpro da  alttaki biçimde çağırılabiliyor
provizyon = CREATEOBJECT("Test.provizyon")
provizyon.BransKodu="5100"
provizyon.devredilenKurum="1"
provizyon.TedaviTuru="A"
...
...
sonuc= hk.f_TakipAl(provizyon)   &&  sonuc c# dan dönen bir eleman

basvuruTakip1 = sonuc.basvuruTakip

sonuc 'un döndürdüğü elemanlardan biri "basvuruTakip" bu object türünde bunu diziye atıyor

? ALEN(basvuruTakip1) dediğimde içindeki eleman sayısını görüyorum

"basvuruTakip1" içeriğini tek tek nasıl okurum?

teşekkürler

foxpro içinden çalışması için  notlar.

* değişkenlerin açıklaması
ftpadres="ftp://ftp.abccom.w04.acbd.com/"  && şeklinde olmalı
kullaniciadi="KULLANICIADI" && küçük harf buyuk harf duyarlı
sifre="11111"
karsidosyaadi="abc.DAT"    && herhangi bir dosya adı olabilir  x.exe , a.xml  şeklinde
localdizin="c:\\"    && dizin adı   c:\\altdizin\\diziniki\\    şeklinde olmalı ( c# böyle istiyor)

localtxtdosyaadi="ftpdekidosya.txt"  && local makinene dosyaadlari.txt biçiminde bir txt dosyası kayıt edecek bunun içinde
                                     &&  ftp deki tüm dizinler ve tüm dosyaların adları sıra ile  var daha sonra xml yapılabilir.   

o = Createobject("ftpfoxdll.Class1")
sonuc=o.ftpdendosyacek(ftpadres, kullaniciadi, sifre, karsidosyaadi, localdizin )

o = Createobject("ftpfoxdll.Class1")
sonuc=o.ftpdendosyasil(ftpadres, kullaniciadi, sifre, karsidosyaadi )

o = Createobject("ftpfoxdll.Class1")
sonuc=o.ftpdosyaisimleri(ftpadres, kullaniciadi, sifre, localtxtdosyaadi , localdizin)

şeklinde kullanılır

**** c#  kodu

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

using System;

using System.Runtime.InteropServices; // fox için gerekli 

using System.Net;

using System.IO;

 

namespace ftpfoxdll

{

    [ClassInterface(ClassInterfaceType.AutoDual)]  // foxpro için  gerekli 

    [ProgId("ftpfoxdll.Class1")]                   // foxpro için  gerekli 

    [ComVisible(true)]                             // foxpro için  gerekli 

 

    public class Class1

    {

 

        public string ftpdendosyacek(string ftpadres, string kullaniciadi, string sifre, string karsidosyaadi, string localdizin)

        {

            string dosyaninadi;

            dosyaninadi = ftpadres.Trim() + karsidosyaadi.Trim();

           

            FtpWebRequest ftpbaglan = (FtpWebRequest)WebRequest.Create(dosyaninadi);

            ftpbaglan.Credentials = new NetworkCredential(kullaniciadi.Trim(), sifre.Trim());

 

            using (FtpWebResponse islem = (FtpWebResponse)ftpbaglan.GetResponse())

            {

                Stream data = islem.GetResponseStream();

                string localkayitdosyasi = localdizin.Trim() + "/" + karsidosyaadi.Trim();

 

                if (File.Exists(localkayitdosyasi))

                   { File.Delete(localkayitdosyasi); }  //  Local makinede bu dosyadan varsa sil   

                

                byte[] byteBuffer = new byte[4096];

 

                using (FileStream output = new FileStream(localkayitdosyasi, FileMode.CreateNew))

                {

                    int bytesRead = 0;

                    do

                    {

                        bytesRead = data.Read(byteBuffer, 0, byteBuffer.Length);

                        if (bytesRead > 0)

                                 { output.Write(byteBuffer, 0, bytesRead); }

                    }

                    while (bytesRead > 0);

                }

            }

 

            string sonuc;

            sonuc = "ok";

            return sonuc;

        }

 

        public string ftpdendosyasil(string ftpadres, string kullaniciadi, string sifre, string karsidosyaadi)

        {

            string dosyaninadi;

            dosyaninadi = ftpadres.Trim() + karsidosyaadi.Trim();   // dosyanın ftp deki tam adresi 

            try

            {

                FtpWebRequest ftpbaglan = (FtpWebRequest)FtpWebRequest.Create(new Uri(dosyaninadi));

                ftpbaglan.Credentials = new NetworkCredential(kullaniciadi.Trim(), sifre.Trim());

                ftpbaglan.UseBinary = true;

                ftpbaglan.Method = WebRequestMethods.Ftp.DeleteFile;

                FtpWebResponse response = (FtpWebResponse)ftpbaglan.GetResponse();

              //  Response.Write(response.StatusDescription);   asp.net den kalma

                return "ok";

            }

            catch (Exception ex)

            { return ex.Message.ToString(); }

            // hata kodları burada http://msdn.microsoft.com/tr-tr/library/aa383887.aspx

        }

 

        public string ftpdosyaisimleri(string ftpadres, string kullaniciadi, string sifre, string localtxtdosyaadi, string localdizin)

        {   // ftp den aldığım dosya adlarını bir txt dosyasına yazıyorum  alttaki localdosyaadi isimli değişken 

            string localdosyaadi;

            localdosyaadi = localdizin.Trim() + "\\" + localtxtdosyaadi.Trim();

            try

            {

                FtpWebRequest ftpbaglan = (FtpWebRequest)FtpWebRequest.Create(new Uri(ftpadres.Trim()));

                ftpbaglan.UseBinary = true;

                ftpbaglan.Credentials = new NetworkCredential(kullaniciadi.Trim(), sifre.Trim());   // kullanıcı adı ve şifresi              

                ftpbaglan.Method = WebRequestMethods.Ftp.ListDirectory;

                WebResponse islem = ftpbaglan.GetResponse();

                StreamReader reader = new StreamReader(islem.GetResponseStream());

                string okunan = reader.ReadLine();

                StreamWriter dosya = new StreamWriter(localdosyaadi);

                while (okunan != null)

                {

                    dosya.WriteLine(okunan);    // text dosyasına tek tek ftp deki dosya adlarını yaz !( dizinlerle birlikte )

                    okunan = reader.ReadLine();  // sonrakini oku 

                }

                dosya.Close();

                reader.Close();

                islem.Close();

                return "ok";

            }

            catch (Exception ex)

            { return ex.Message.ToString(); }

        }

    }

}

Codeplex link:
http://vfpefprovider.codeplex.com/releases/view/76383

Konuyla ilgili blog:
http://www.randomdevnotes.com/2011/10/v … ider-v0-5/
http://www.randomdevnotes.com/2011/11/v … ider-v0-6/

Indirdim ama henuz kullanmadim. LinqToVFP'yi dusununce iyi bir sey cikacagini dusunuyor ve kendisine giyabinda tesekkur ediyorum.

http://phone.microsoftplatformready.com/

Iphone'nin başarısına ulaşabilir mi? Ben  pek sanmam. Nokia, Android ve Samsung da bunu denedi ama Iphone'nin başarısından çok uzaklar. Ben şahsen Nokia kullanıyorum ve OVI Apps'ı çok başarısız buluyorum. Uyduruk uyduruk şeyler var.

regasm ftpfoxdll.dll  /codebase

32 bit windows xp , windows vista da çalışıyor

fakat 64 bitte register ederken sorun çıkartıyor

fikri olan tecrübesi olan varmı?

dim query = from q  in db.bankalar where a=b and c=d select q

query tablosunun boş olduğunu nasıl test edebilirim.

if query.count > 0 .....

if query.single() ....

Bunlar Hata döndürüyor.

if query is nothing ...

kayıt dönmediğini bildiğim halde varmış gibi davranıyor.

Internette epey aradım. Ama çalışan bir çözüm bulamadım. Yardımcı olacak arkadaş varmı ?

1

TOTAL on Tarih to tToplam FIELDS Borc,Alacak

sonuc tabloda ;

cari         borc       alacak
-----------------------------------
FIRMA1   1550       750
FIRMA2   450         200

Bunu LINQ te nasıl yaparım ?

Daha once blogumda da belirttigim gibi LinqPad sadece  .Net ile ilginenler icin degil. Bir SQL nasil yazilir ya da daha pratik bir SQL server yonetim konsolu olsun diyenler icin de faydali. MySQL, SQLite kullananlar da artik LinqPad'de object query yazip onun 'SQL'ini yurutebilir (ben bunu karmasik SQL server SQL'leri icin kullaniyordum - ne de olsa nesne sorgulari SQL'den daha anlasilir:)

http://www.linqpad.net/Beta.aspx

MS un aciklamasindan sonra bir baska dile gecmek neredeyse kacinilmaz oldu. Ben kendi adima C# secmistim. C# veya VB.Net oncelikli gorunuyor, dabo, python ... alternatifler.
C# ogrenenler en azindan VB.Net'i okumayi da ogrenmis oluyor. VB.Net'in yadsinamaz avantajlari da var (C# daha cok mimari ve nereye isterse oraya mudahale edecekler icin, VB ise cok fazla detay bilmeden hizla uygulama gelistirmek icin daha uygun destegi aliyor MSdan).
Guzel haber henuz yayinlanmamis (beta ve CTP seviyesinde) LINQ bizim alisik oldugumuz select-sql'e benziyor ve onunla yapamadigimiz bircok seyi de yapiyor. Dilin parcasi olarak isi sadece datayi degil her turlu nesneyi sorgulamak (ve .Net de hersey nesne). Uzun lafin kisasi .Net basta korkutucu gelse de cok carpici yanlari var.

VFP'de bizim en cok sevdigimiz, dataenvironmentdan tut cek harketleriyle alanlari/gridi vs yaratmak. Ondan sonra form icinde bircok kodla uygulamanin ne yapmasi gerektigini belirliyoruz. Aslinda bu VFP'de bile yapmamamiz gereken birsey (dogrudan forma bagimli data ile ilgili kod). Gene de inkar etmenin anlami yok, kolay geldiginden hepimiz yaptik bunu.

Bu noktada, .Net'e gececek olanlar icin harika buldugum (ve daha once yuzeysel bahsettigim) bir framework var. www.ideablade.com'dan indirebileceginiz Devforce. Devforce neden harika. Tum detaylarini anlatmaya ne benim vaktim yeter ne de siz okumaya vakit ayirabilirsiniz simdilik. Cok kaba ve kisaca anlatmak gerekirse, bir kez yazdiginiz program tek kullanicilidan dunya uzerinde bircok makineye yayilmis cok kulanicili bir sisteme kadar cok genis bir yelpazeyi destekliyor.

VFP windows formlari olusturuyor ve zengin, hizla cevap veren bir ara yuzu var. Diger taraftan web uygulamalari yazmak istiyoruz cunku web'in tek bir noktadan tum web'te calisan, kullaniciya install edilmesi gerekmeyen uygulamalar icin harika destegi var. Guvenlik sourlarini hallediyor, web servislerini kullanabiliyoruz vs vs. Web thin client olarak biliniyor, windows uygulamalari ise fat client. Ikisinin guclu yanlarini birlestiren ve yeni sayilan "smart client" var. En basit sekliyle bakilinca 'smart client' web uzerinde calisan bir VFP formu gibi dusunulebilir. Ancak boyle birseyi yazmanin zorlugunu bir dusunun. Hesaba katilmasi gereken dataya nasil ulasilacagi, almak/saklamak, datanin guvenirligini denetlemek, datanin guvenligini saglamak, yetkisiz erisimleri engellemek, alan seviyesinde bile kullaniciya gore okuma/yazma/gorme yetkilerini duzenlemek vs vs. Diyelim ki bu kismini basardik, web de data girerken (mesela bir combodan ulkeyi sectiginizde) bir baska combonun (sehirler gibi) o ulkenin sehirleriyle dolmasi icin web serverin yeniden sayfayi duzenleyip geri gondermesini beklemek hepimizin tecrube ettigi seyler (submit tusunda beklemeler gibi). VFP formlarinda alisik degiliz boyle seylere ve data yakinimizda gercekte. Neyse web uygulamasi yazan arkadaslar bu 'round tripler'in derdini biliyor zaten (bu forumda bile yasiyoruz yeteri kadar). Smart client ise bir karmasim gibi. Windows/web guclu yanlari birlestiriliyor. Webdeki gibi dataya gereginden fazla 'tekrar gitme', ara yuzu yenileme gibi dertler kalkiyor (Ajax ve Atlas yardimci olsa da bu sorunu cozemedi daha webde).

Uzatmayalim, bu noktada Devforce devreye giriyor.  Onun yaptigi ihtiyaciniz olan altyapiyi sunmak size (.Net sunmuyor mu  diyebilirsiniz, sunuyor da hammadde halinde 7000 civarinda namespace dedigimiz yerlere dagilmis 30000den fazla class halinde). Siz ise VFPde yaptginiz isler gibi hatta daha da basit olarak, uygulamanizin dizayni, kurallari ile ilgileniyorsunuz.
Bu arada Devforce suslu puslu arayuz olusturma isine karismiyor. Normal .Net kontrollerini kullaniyor (veya elinizde varsa meshur 2 adet arayuz frameworku, Devexpress ve Infragistics).
Yaptginiz sey yalnizca smart client olmuyor tabii. Isterseniz web uygulamasi yapin, ister windows formu ister web servis yayincisi ya da kullanicisi.

Yaziyla herseyi anlatmak da cok zor ya. Zaten aslinda bu detaylari anlatmak icin baslamamistim bu mesaja:)
.Net ile calisacaklar ve Devforce kullanmayi da dusunenlere (express versiyonu ucretsiz indirebilirsiniz, .Net'in kendi express versiyonlari da ucretsiz. Yani .Net ve Devforce icin baslangicta ucret odemeniz gerekmiyor. Ancak bir noktadan sonra o is sizin icin profesyonel olarak gerekli ise tabii ki odeyip profesyonel/enterprise versiyonlara gecmeniz gerekli. O seviyede zaten onlara odediginizin cok cok uzerinde kazaniyor olursunuz):

Bu hafta sonu sadece data hazirken (ornek data hazir, Ideablade'den - ornek dolu data yapmanin zorlugu vakit kaybi malum ondan o hazir, zaten VFPcilerin de en asina oldugu sey), Devforce install edilmis bir sistemde, sifirdan Visual Studio ve Devforce kullanarak cok da ilginc bulunabilecek bir formun DEMOsunu yapmayi dusunuyorum. Birkac kisinin halihazirda o demolar hakkinda fikri oldugunu ve kullandigini da biliyorum. Katilip bana yardimci olurlarsa sevinirim:)

Demolar aslinda ideablade sitesinde buyuk olcude var. Ben VFP'den birinin VFP camiasina daha iyi anlatabilecegi ve onemli olan noktalari gosterebilecegini dusundugumden yapacagim. Bir resim bircok seyi anlatir hesabi:) Tum anlattiklarim ve gorecekleriniz aysbergin ucu, kisaca Devforce + .Net yeni hedefim oldu benim. En onemlisi, dunyanin en buyuk firmalarina bile uygulama yazabileceginiz bir ortamdan bahsediyoruz burada (ya da en basit uygulamadan). O meshur scalability/reliability ... laflari olan sistemlerden.

Katilanlar birsey kaybetmez, katilmayanlar ne kaybettiklerini asla bilmeyecek:)

KATILMAK ISTEYEN VARSA lutfen hafta sonundaki uygun zaman dilimini belirtsinler. Ona gore herkese uyan bir veya birkac toplanti seklinde ben de vaktimi ayiracagim.

NOT: Devforce sadece C# icin degil. C# ve VB.Net kodu uretiyor. .Netin yapisi geregi o kod tum .Net dilleri tarafindan da kullanilabiliyor.

Generics, iterator, enumarator gibi bazı şeyleri tam anlayamadım doğrusu. Bazılarını hiç anlayamadım. Şimdiye kadar ilk defa bir kitabı okuyup da anlayamadığım oldu. Anlayamadıklarımı geçiyorum. Artık tekrar geçicez onları. C# OOP olayında çok ileriye gitmiş doğrusu. Ben encapculation, inheridence, abstract, overload vs... bazıları VFP'de de olmayan OOP terimlerini biliyorum ama C# bundan da öte. Şimdilik bunları öğrenmesem de C# kullanabilirim. Tabii ki eksik olur ama...

Şimdi sorum şu. Bu anlayamadığım kısımları anlayabileceğim daha farklı bir kaynak var mı?

Şimbi benim dediğim gibi: "VFP ile .NET in nesini karşılaştırıcaz? Ne gerek var? Biz zaten topyekün Foxpro 'cuyuz" dimi?

Daha iki gün öncesine kadar; yukarıdaki cümlenin aynısını hatta daha da fazlasını benden duyardınız? Tamam VFP yi kendi çapımda biliyorum; .NET 'i de. Bu arada; "biliyorum" demediğime lütfen dikkat edin! ( Kendi çapımda biliyorum. ).

Hep VFP nin hızını övüp duruyoruz. Hızlı uygulama geliştirme; verileri hızlı işleme; Veri tabanı ( yada yenilerin tabiriyle Table ) işlemeye yönelik düzinelerce komut, object oriented modelleme (C# ile kesinlikle kıyas bile götürmez. Çok çok gerilerde ama yinede bir veritabanı programcısının işini fazla fazla görecek kadar iyi.), Win API ve ActiveX kullanımı, Office entegrasyonu. vs. v.s...

Şimdi bunbları neden mi yazıyorum. Biraz sabır Gülümsediğime bakmayın, bu gülümseme biraz sinirdenkendime hayıflanmamdan. !!!

Geçen gün can sıkıntısı ile Çetin Üstad' a bir bulaşıyim dedim. Bulaşmak derken bir konuda biraz görüş almaktan; vakti varsa da bir kaç kelime sohbet etmek niyetindeydim. Sen misin bulaşan!!! :

-Üstad, biraz boş vaktin var mı?
- Evet olabilir?
- Bir şey sorucaktım da?
- ?. (  Sor işte be adam ne bekliyorsun!!   - Uğur 'un notu. )
- ..... konusunda ne düşünüyorsun biraz yardıma ihtiyacım var. ( Konu tabii ki VFP )

Ve arkadaşlar; ben şu anda bu soruyu sorduğuma öyle pişmanım ki. Bana kibarca verilen cevabı aynen aktarıyorum.

- Akşama biraz boş zamanın var mı? Teamviewer ile bağlanıp sana biraz bir şeyler göstereyim. Bence artık sorduğun türdeki işleri C# ile yapmalısın.
- İyi de Üstad C# için 40 fırın ekmek yemek lazım.
- Yok yok hiçde öyle diil, akşama sana 10 dk bir şeyler göstereyimde ne kadar kolay olduğunu gör.
- ( DUMUR ! Vay be. Ne kadar da güzel 10 dk da C# programcısı olucakmışım. Yaşasınn!! Ya ba daba duuu. ).
İyi de Üstad, ben 2 kış dönemi o .NET ve C# 'ın kursuna gittim. Hiç de öyle dediğin gibi görünmüyordu meret.
- Yok ya gözünde büyüttüğün kadar diil. Şimdi işim var. Gece 10 da görüşürüz.
( İşim var işte! Daha tutma beniii. Daha forumlarda cevap bekleyen bilmem kaç düzine soru var. Onlara sihirli değnekle dokunmam lazım. Milletinde işi gücü yok sorup duruyor.  Böylede olmaz ki canım. Şimdi biri sordumu cevap vermemek te olmaz dimi. Bu sihirli değneği boşuna tutmuyoruz elimizde. Hem yeni çıkan hangi teknolojiler var, kimsenin bilmediği yada aklına gelmemiş ne keşifler yapmak lazım. Ohooo Çoook işim var çok. Tutma beni Uğur. TUTMAAA - Uğur 'un hayal gücü -)
-Tamam Üstad, gece görüşürüz.

Ve gece 10 suları ....

Teamviewer ile hızlı bir bağlantı ve show başlıyor...
Şimdi heyecanla şov içeriğini merak eden arkadaşlara sadece önsöz vericem. Gerisi hep beraber Çetin Üstad 'ı ikna edip eski günlerdeki gibi Go2meeting görüşmesine kalıyor. Tabi ikna olursa

Ben artık VFP 'nin kolay ve hızlı kullanımı konusunda kesinlikle bir karşıt gruptayım. Yok artık öyle bir şey. Foxpro gerçekten bitmiş, üstelik okeye dönüyor. Hemde Çiftten okey.. Neden mi? Devam ediyorum... :

Çalışmaortamı: Windows 7 RC2 + Visual Studio 2010 ( .Net 4.0 )  + SQL Server 2008 Express Edt. + Linq Pad + AdvantureWorks (SQL Server 2008) + Northwind(SQL Server 2000)

Sözün kısası Konuyu biraz .NET ve Linq ya bırakalım.
---------------------------------------------------------

1

2

3

4

5

6

7

8

9

10

11

12

13

14

// LinqPAD örneği: 

 

DirectoryInfo di = new DirectoryInfo(@"C:\Program Files\Microsoft Visual FoxPro 9");

 

string[] extensions = {".scx",".prg"};

 

var result =

from f in di.GetFiles("*.*",SearchOption.AllDirectories)

where extensions.Contains( f.Extension.ToLower() )

select new {f.FullName, f.CreationTime, f.Attributes, f.Length};

 

result.Dump("File System Query");

 

// RUN i

Ve karşınızda dosya listesi... Kod kısa, gayet okunaklı ve hepsinden öte, Intellisense inanılmaz iyi.

şimdi benzer işi yapan bir VFP kodu, tamam fazlası ve birazda eksiği var. Hazır kod arşivimden. Muhtemelen Çetin üstadın kodu. Emin değilim.

--------------------------------------------------------------
* Çetin Başöz Code :

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

? GetTree('c:\Program Files')

SELECT CAST(filepath as c(250)) as filepath FROM folderlist

 

Function GetTree

  Lparameters tcStartDir

  Create Cursor folderlist (filepath m)

  oFiler = Createobject('filer.fileutil')

  With oFiler

    .SearchPath = m.tcStartDir

    .Subfolder = .T.

    .FileExpression = '.'

    .Find(0)

    For ix=1 To .Files.Count

      With .Files(ix)

        If Bittest(.Attr,4)

          Insert Into folderlist ;

            (filepath) values (.Path)

        Endif

      Endwith

    Endfor

    Return .Files.Count

  Endwith

--------------------------------------------------------------
Yada başka bir versiyonu :

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

? GetTree('C:\Program Files\Microsoft Visual FoxPro 9','*.Prg',.T.)

locate

Brow

 

* Cetin Basoz code. Public. 

 

Function GetTree

  Lparameters tcStartDir,tcSkeleton,tlSubfolders

  Create Cursor filelist ;

    (filepath m, filename c(50), ;

    filesize i, fattr c(8), createtime T, lastacc T, lastwrite T)

  oFiler = Createobject('filer.fileutil')

  With oFiler

    .SearchPath = tcStartDir

    .Subfolder = tlSubfolders

    .SortBy = 5

    .SortDirection = 1

    .FileExpression = tcSkeleton

    .Find(0)

    For ix=1 To .Files.Count

      With .Files(ix)

        If !(Bittest(.Attr,4) And .Name = '.')

          Insert Into filelist ;

            (filepath, filename, filesize, fattr, createtime, lastacc, lastwrite)  ;

            values ;

            (.Path, .Name, .Size, Attr2Char(.Attr), ;

            Num2Time(.Datetime), Num2Time(.LastAccessTime), Num2Time(.LastWriteTime))

        Endif

      Endwith

    Endfor

    Return .Files.Count

  Endwith

 

Function Num2Time

  Lparameters tnFloat

  Return Dtot({^1899/12/30}+Int(m.tnFloat))+86400*(m.tnFloat-Int(m.tnFloat))

 

Function Attr2Char

  Lparameters tnAttr

  Return ;

    IIF(Bittest(tnAttr,0),'RO','RW')+;

    IIF(Bittest(tnAttr,1),'H','_')+;

    IIF(Bittest(tnAttr,2),'S','_')+;

    IIF(Bittest(tnAttr,4),'D','_')+;

    IIF(Bittest(tnAttr,5),'A','_')+;

    IIF(Bittest(tnAttr,6),'E','_')+;

? GetTree('C:\Program Files\Microsoft Visual FoxPro 9','*.Prg',.T.)

locate

Brow

 

Function GetTree

  Lparameters tcStartDir,tcSkeleton,tlSubfolders

  Create Cursor filelist ;

    (filepath m, filename c(50), ;

    filesize i, fattr c(8), createtime T, lastacc T, lastwrite T)

  oFiler = Createobject('filer.fileutil')

  With oFiler

    .SearchPath = tcStartDir

    .Subfolder = tlSubfolders

    .SortBy = 5

    .SortDirection = 1

    .FileExpression = tcSkeleton

    .Find(0)

    For ix=1 To .Files.Count

      With .Files(ix)

        If !(Bittest(.Attr,4) And .Name = '.')

          Insert Into filelist ;

            (filepath, filename, filesize, fattr, createtime, lastacc, lastwrite)  ;

            values ;

            (.Path, .Name, .Size, Attr2Char(.Attr), ;

            Num2Time(.Datetime), Num2Time(.LastAccessTime), Num2Time(.LastWriteTime))

        Endif

      Endwith

    Endfor

    Return .Files.Count

  Endwith

 

Function Num2Time

  Lparameters tnFloat

  Return Dtot({^1899/12/30}+Int(m.tnFloat))+86400*(m.tnFloat-Int(m.tnFloat))

 

Function Attr2Char

  Lparameters tnAttr

  Return ;

    IIF(Bittest(tnAttr,0),'RO','RW')+;

    IIF(Bittest(tnAttr,1),'H','_')+;

    IIF(Bittest(tnAttr,2),'S','_')+;

    IIF(Bittest(tnAttr,4),'D','_')+;

    IIF(Bittest(tnAttr,5),'A','_')+;

    IIF(Bittest(tnAttr,6),'E','_')+;

    IIF(Bittest(tnAttr,7),'N','_')? GetTree('C:\Program Files\Microsoft Visual FoxPro 9','*.Prg',.T.)

locate

Brow

 

Function GetTree

  Lparameters tcStartDir,tcSkeleton,tlSubfolders

  Create Cursor filelist ;

    (filepath m, filename c(50), ;

    filesize i, fattr c(8), createtime T, lastacc T, lastwrite T)

  oFiler = Createobject('filer.fileutil')

  With oFiler

    .SearchPath = tcStartDir

    .Subfolder = tlSubfolders

    .SortBy = 5

    .SortDirection = 1

    .FileExpression = tcSkeleton

    .Find(0)

    For ix=1 To .Files.Count

      With .Files(ix)

        If !(Bittest(.Attr,4) And .Name = '.')

          Insert Into filelist ;

            (filepath, filename, filesize, fattr, createtime, lastacc, lastwrite)  ;

            values ;

            (.Path, .Name, .Size, Attr2Char(.Attr), ;

            Num2Time(.Datetime), Num2Time(.LastAccessTime), Num2Time(.LastWriteTime))

        Endif

      Endwith

    Endfor

    Return .Files.Count

  Endwith

 

Function Num2Time

  Lparameters tnFloat

  Return Dtot({^1899/12/30}+Int(m.tnFloat))+86400*(m.tnFloat-Int(m.tnFloat))

 

Function Attr2Char

  Lparameters tnAttr

  Return ;

    IIF(Bittest(tnAttr,0),'RO','RW')+;

    IIF(Bittest(tnAttr,1),'H','_')+;

    IIF(Bittest(tnAttr,2),'S','_')+;

    IIF(Bittest(tnAttr,4),'D','_')+;

    IIF(Bittest(tnAttr,5),'A','_')+;

    IIF(Bittest(tnAttr,6),'E','_')+;

    IIF(Bittest(tnAttr,7),'N','_')

-------------------------------------------------------------------------------------------

Başka bir linq sorgusu.

1

2

3

from p in Products 

where p.OrderDetails.Any( od => od.Order.Customer.Country == "Argentina" )

select p

-------------------------------------------------------------------------------------------
Birde şu kadarcık kodun arka planda yaptığına bakın:
-------------------------------------------------------------------------------------------

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

-- Region Parameters

DECLARE @p0 NVarChar(9) = 'Argentina'

-- EndRegion

SELECT 

    [t0].[ProductID], 

    [t0].[ProductName], 

    [t0].[SupplierID], 

    [t0].[CategoryID], 

    [t0].[QuantityPerUnit], 

    [t0].[UnitPrice], 

    [t0].[UnitsInStock], 

    [t0].[UnitsOnOrder], 

    [t0].[ReorderLevel], 

    [t0].[Discontinued] 

FROM [Products] AS [t0]

WHERE EXISTS(

                SELECT 

                    NULL AS [EMPTY] // Bu satırı okuyamadım. Onun dışındakiler tamam ..!!! TELEFON ... 

                FROM [ORDER Details] AS [t1]

                INNER JOIN [Orders] AS [t2] ON [t2].[OrderID] = [t1].[OrderID]

                LEFT OUTER JOIN [Customers] AS [t3] ON [t3].[CustomerID] = [t2].[CustomerID]

                WHERE ([t3].[Country] = @p0) AND ([t1].[ProductID] = [t0].[ProductID])

    )

-----------------------------------------------------------------------------------------------------------
Birazda C#
-----------------------------------------------------------------------------------------------------------

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Diagnostics;

 

using Excel = Microsoft.Office.Interop.Excel;

using Word = Microsoft.Office.Interop.Word; // consume-first ne ola ki:)

 

namespace ExcelAutomation1

{

    class Program

    {

        static void Main(string[] args)

        {

            /// Once bir kenarda datayi getirecek sorgu

            /// sonra Excel otomasyonuyla sonuc

            /// from ... tipi syntax VFP'ye cok benziyor ve dun gordun

            /// ama tum gucune ulasamiyor + bazi seyler de onunala olmuyor

            /// ayni sey.

            /// GetProcesses sonucu bir cesit liste - Liste tarzi sonucu 

            /// olan hersey Linq ile sorgulanabilir . ile gelenlerin 

            /// cogu -asagi dogru mavi ok gibi ikonlular-

            /// LINQ extesion metodlari - sorguya yonelik metodlar

            /// Bu lambda syntax - p bir variable gibi ve selecte gelen

            /// her bir "record"u sembolik olarak tutuyor

            /// ProsesAdi select ProcessName as ProsesAdi gibi

            /// koymasaydik kolon kendi original adina olacakti

            /// new {} ile tum alanlar yerine istedigimiz iki alani aliyoruz

            /// new olmasinin nedeni aldigimiz sonucta bir obje listesi

            /// createobject() yapar gibiyiz

 

            var pList = Process.GetProcesses()

                .OrderByDescending(p => p.WorkingSet64)

                .Select(p => new { ProsesAdi = p.ProcessName, Hafiza = p.WorkingSet64 });

 

            // sorgu hazir - daha calismadi kenarda duruyor

 

            Excel.Application xl = new Microsoft.Office.Interop.Excel.Application();

            Word.Application wd = new Microsoft.Office.Interop.Word.Application();

 

            Excel.Workbook wb = xl.Workbooks.Add();

            xl.Visible = true;

 

            Excel.Worksheet sh = wb.ActiveSheet;

 

            sh.Cells[1, 1].Value = "Proses Adi";

            sh.Cells[1, 2].Value = "Memory";

 

            int r = 2;

 

            foreach (var i in pList)

            {

                sh.Cells[r, 1].Value = i.ProsesAdi;

                sh.Cells[r, 2].Value = i.Hafiza;

                r++;

            }

            // bu kadarla bir calistir. Şaka gibi iyimi  Var + bu satırı tuttum  

            // Üstad bayıldın mı? 

      // hayir o arada kendi makinemden birsey ariyordum

            // 1 sn ye. bunu saklayalım  

            // sende Üstad, 5 dk ya dönüyorum . şakamı 

 

            Excel.Chart ch = wb.Charts.Add();

            ch.SetSourceData(sh.UsedRange);

 

            ch.ChartArea.Copy();

 

            Word.Document doc = wd.Documents.Add();

            wd.Visible = true;

            doc.Content.Paste();

        }

    }

}

---------------------------------------------------------------------------------------------

İşte bu an benim bittiğim andır. Kodun yazılmasındaki intellisense özelliklerini bir görün ve ne kadar sürede bittiğini görün. Excel için external object kullanmak gerekiyor, VS da office entegrasyonu tam. Sadece References penceresinde COM object olarak Microsoft. Office Interop Excel seçmek yetiyor.

Gerçekten tarifi yok. Kesinlikle görmek lazım. İnanılmaz hızlı uygulama yazılıyor ve kodun okunaklılığı mükemmel .

Bir örnek daha :

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

 

using Excel = Microsoft.Office.Interop.Excel;

 

namespace ExcelAutomation2

{

    class Program

    {

        static void Main(string[] args)

        {

            Excel.Application x = new Excel.Application();

            x.Workbooks.Add();

            x.Visible = true;

 

            Excel.Worksheet sheet = x.ActiveWorkbook.ActiveSheet;

            Excel.Range range = sheet.get_Range("A1");

 

            string sql = "select * from AdventureWorks.HumanResources.Employee";

            sheet.QueryTables.Add(

                @"OleDb;Provider=SQLNCLI10.1;Data Source=.\SQLserver2008;Trusted_connection=yes",

                range,

                sql).Refresh();

        }

    }

}

----------------------------------------------------------------------------------------------------------------
Ve şu kadarcık kodla: SQL Server 'a bağlandık; Datayı çektik ve Excel e aktardık. Daha ne diyim. Üstelik intellicense yine inanılmaz harika:

VS2010 + SQL Server + Excel + Word + LinqPAd, sınırların sonu yok. Bu platformlar ile hem uygulama geliştirme hızı, hemde sonuca yönelik üretkenlik inanılmaz.

VFP deki benzer örnekler sitede bolca mevcut artık buraya yapıştırmıyorum.
----------------------------------------------------------------------------------------------------------------

Arkadaşlar; sözün kısası.

Başkası Foxproyu .NET 'e karşı eleştirse, gözünün üstünde kaşın var deyip, eklımdan geçeni dudaklarıma dökerim; ama bunu Çetin üstad söyleyince işin şekli değişiyor. Bu bir!!! İkincisi ben burada ne kadar yazarsam yazayım; uygulamalı olarak görmek lazım. .NET VS 2010 ile gerçekten aşmış durumda. SQL Server + VS + LinqPAD + Excel + Word ile hayallerin gerçekten sınırı yok.

Ben kendi adıma fazla bencil olamadım ve bunları sizlerle paylaşmanın doğru olacağına inandım. Gerisi artık bizlerin isteğine ve Çetin Üstad 'ın görüşüne kalmış....

Bir kaç ekstra not:  WPF + Xaml ve Excel + Word entegrasyonuna hiç girmedim. Ayrıca Çetin Üstad VS 2010 platformunda; 1 milyar kaydı SQL Server dan çekip, excel 'e atmanın 1sn yeden kısa süreceğini söylediğinde yüz halimi düşünmeyin. ( Doğru okunuz tam 1 ve 9 tane 0 kayıt ve 1 sn. ye altında bir süre.) 

Üstad, ben kendi adıma ( eğer düşünüyorsan ve olucaksa ), yeni teknolojileri senden öğrenmeyi iple çekiyorum.

Dilerim diğer arkadaşlardan olumlu eleştiriler alırım...

Uğur YILMAZ.

Fox içinden c# a dizi  nasıl gönderirim ve c# içinden fox a dizi nasıl döndürebilirim.

Benim aklıma gelen yöntem fox dan  xml yaratmak aynı isimli xml i  c# dan okumak

bunun  dışında çözüm var mı ?

teşekkürler

ÖRNEK
     public string ornek ( string[] dizi1 )
{   

.....
.....
  return dizi2 [] ;
  }

teşekkürler

konuralp

Samuel David:
The native code generation will be just a switch in our Developer Studio that will generate instead of a .NET Assembly, just a true x86 / arm EXE or DLL or if you want and OBJ (linkable object).

For us, as VFP Developers, that will be the preferred way to distribute our VFP apps to our customers. There are advantages to distributing EXE:

1. Not possibility of reverse engineering or at least so hard like to reverse engineer C++ or C code compiled to native.

2. Better (2x and up) performance than JITTED code. .NET uses JIT compilation to turn your IL code into native code, but the optimizations it performs are very limited. With an Ahead of Time compiler we can perform sophisticated optimizations like those available only in C++ and therefore the exe runs lot faster.

3. Better interoperability with native code. From the external world your functions look like C++ / C functions that can be easily consumed from C / C++ and of course because of that you can use directly external C++ / C code or any other native code with a conforming ABI (Application Binary Interface).

Ben:
That's great news. I'm aware of .NET but if I understood true: "VFP Developer Studio can compile both true .EXE and .NET interpreter exe"? I didn't know there is an option for make true .EXE files with .NET. Are you convert applications to C++ and compile than or .NET supports native .EXE files too???

Samuel David:
Well the option to create native exe is not available in standard .NET. How we did this? We just take our .NET Assemblies (IL binary code as output by the VFPCompiler) and compiles them to Native, this is we don't do any conversion to C++. But I can tell you that the performance of the resulting exe is lot faster than the JIT (Net Interpreter) and really close to C++.

With this capability you get the amazing productivity of VFP and the performance of C++, so for us it is the culmination of years wishing to build true natives from our VFP Code. And that will be the preferred way for us, as sellers of VFP coded products, to distribute our VFP apps to our customers, with that we get rid of the shortcoming in distribution of .NET.

Çetin gibi bazı arkadaşlar zaten büyük ölçüde C# a kaymış durumdalar ama C# benim için hala çok uzak. Ayrıca C# ile gerçek .EXE yapma şansın yok. Ama bununla olacak. C# gerçekten harika şeyler veriyormuş ama hala benim için çok somut şeyler değil. Muhasebe programı yazıyorum işte...