getpicture

Avrasya;
Resimlerini kaydediyorken sadece "Resim dosyasının adını" kaydetmeni öneririm. "UgurYilmaz.JPG" gibi. Bu resme ait PATH bilgisi; kullanıcı / PC ye göre değişken yolabilir: "ResimPath" gibi. Şöyle düşün :

LOCAL lcUserPicturePath, lcPicture, lcPictureFile

 

m.lcUserPicturePath = "D:\PictureData\" && Kullanıcı tablosundan oku.

m.lcPicture = "UserPicture.JPG" && Kullanmak istediği resim.

 

m.lcPictureFile = ADDBS(m.lcUserPicturePath) + m.lcPicture

 

? m.lcPictureFile

Arkadaşlar hepinize cevaplar için teşekkür ederim. bu kodlar işimi görüyor rahat rahat.

çetin hocam malesef MS SQL server kullanma şansım malesef yok. Proğramı bu saatten sonra uyarlamakda herhalde bayağı zor olacak sanıyorum.

1) DBF'leri MSSQL'e aktarmak zor degil (goreceli kavram, kolay diyecegim ama neye gore kolay:)
2) "Cok", neye gore cok:) Ben buyuk bir uygulamayi gecirdim. Simdi veri tabani yolu ve modu bir yerde tutuluyor. Ayni program veri tabani moduna gore (SQL ya da VFP), belirtilen baglantidaki SQL ya da VFP veri tabanini kullaniyor. Tabii benim boyle resim dertlerim yok. Sadece iki dosyada kisi fotograflari gerekiyor. Birisinde hata ettim disarida 'path' tutuluyor bircok kimsenin onerdigi gibi. Digeri dogrudan VFP BLOB ya da SQL varbinary(max)'ta tutuyor, rahat. Gecirirken, tum insert/delete/update/select kodlari (tabii append, replace gibi karsiliklari da) elden gecip SQL karsiliklarla degisti. Yani "cok":) Simdi ise iyiki yapmisim diyorum "cok cok az":)
3) Valla bende cok degdi. Elimden gelse VFP veri tabani kullanimini sifirlayacagim. Yani VFP, SQL serverla boy olcusecek durumda degil (hos simdi de NoSQL veri tabanlari var daha da iyisi ama onlari da nasil olsa VFP ile kullanamadigimdan dert etmiyorum. SQL server isimi goruyor simdilik).

hocam ;
Galiba benim için blob olarak tutma en mantıklısı.
peki bir resim dosyasını bolb içine nasıl atarım ?

sağolun hocam iyiki varsınız

Eger kullandigin VFP9 SP2 ise PictureVal kullanabilirsin:

STRTOFILE(vid.resim,"a.jpg") 

this.Parent.image1.Picture="a.jpg"

Yerine:

this.Parent.image1.PictureVal =vid.resim

Yok elinde benim gibi VFP SP1 var ise (ve yine benim gibi SP2 dusunmuyorsan) bu classi kullanabilirsin:

**************************************************

*-- Class:        imagecontrol (d:\vfpcommonclasses\imagelib.vcx)

*-- ParentClass:  image

*-- BaseClass:    image

*-- Time Stamp:   07/27/10 08:08:12 PM

*

DEFINE CLASS imagecontrol AS image

 

 

    Height = 17

    Width = 100

    Name = "imagecontrol"

 

 

    PROCEDURE pictureval_assign

        Lparameters vNewVal

        If Val(Os(3)) < 6

            This.PictureVal = m.vNewVal

        Else

            This.Picture = ''

            If Empty(This.Tag)

                This.Tag = Forcepath(Sys(2015)+'.pic',Sys(2023))

            Endif

            Strtofile(m.vNewVal,This.Tag)

            This.Picture = This.Tag

        Endif

    ENDPROC

 

    PROCEDURE Destroy

        this.Picture = ''

        If !Empty(This.Tag)

            try

                Erase (This.Tag)

            endtry

        Endif

    ENDPROC

 

 

ENDDEFINE

*

*-- EndDefine: imagecontrol

**************************************************

Bu kontrolu kullaninca kod gene SP2 kodu gibi olur.

Anladım ki bolb içine video,resim,pdf gibi dosyalar alınabiliyor.
bolb içindeki dosyanın türün bolb fieldi içinde saklanıyor mu ? yoksa bunun için ayrı bir field mi kullanmak gerekiyor ?

Amacım bolb icinde sakladığım dosyayı form üzerinde önce küçük bir alanda sonrada üstüne tıklanınca tam ekranda görüntülemek. bunun için dosya türünü bilmem ve default proğramı ona göre çalıştırmam gerekiyor herhalde.