Delphi Forum

Master detail ile tanımlanmış tablo biçiminde; hasta resimlerini C:\HTakip\arsiv\ klasörünün içinde JVthumbview kullanarak read write yapabiliyorum.
Ama ben bunu cx grid içinede atmak orada sıralı resim olarak görmek istiyorum.
Yardımlarınız için teşekkürler

Arkadaşlar elime corel pardox 9 geçti. Bununla ilgili bilgisi olan varmı acaba. Kurupta deneyen arkadaşlar varsa fikirlerini paşlaşırlarsa sevinirim.

eyvallah, ellerin dertlenmeye

Bu kod datasource ün ondatachange event ındaydı. ordan alıp bir butona atayınca çalıştı ama benim bunu resimleri okuyabilmem için datasource de kullanmam gerekiyor.
Bu aşamadan sonra ne yapacağım?

Evet hocam create ediliyor. Tıkandık kaldık yine

if FileExists(Form14.Table1ArsivKlasoru.Value+(Form2.Table1AdiSoyadi.AsString+'_'+Form2.Table2ID.AsString)+'.jpg') then
begin
JvThumbImage1.Visible := True;
JvThumbImage1.Picture.LoadFromFile(Form14.Table1ArsivKlasoru.Value+(Form2.table1AdiSoyadi.AsString+'_'+Form2.Table2ID.AsString)+'.jpg ...

Hocam şimdi aklıma geldi ama makinemde delphi yüklü olmadığı için deneyemedim. Ben programın içinde resimlerimi

.....
Resim := TJpegImage.Create;
Resim.LoadFromFile(OpenPictureDialog1.FileName);
Resim.SaveToFile('C:\HTakip\Arsiv\'+(Form2.table1AdiSoyadi.AsString+'_'+Form2.Table2ID.AsString)+'.jpg ...

Programı ağ üzerinden (BDE) terminal iki makinede kullanılacak şekilde ayarladım (Allah arazı olsun, sair hocanın makalesinden yararlanarak..)
Program içinden resimler kaydediyorum, VT de yer tutmasın diye program klasörünün içinde oluşturduğum Arsiv klasörüne kaydediyorum. Okuma işinide VT içine ...

Paradox Vt.da master detail ile ilişkili 2 adet tablom var. Detail tablomu, resimlerimi yüklemiş olduğum klasörün yolunu göstermesi için kullanıyorum.

Delphi içinde bu resimlerimi Jedi componentinin JvThumbView bileşeni ile bir arada görebiliyorum fakat, resimler üzerinde silme işleminde sorun ...

Aşağıdaki gibi bir sorgulama yapıyorum, kayıt sayısı şu an 600 ulaştı, sorgulama sanki biraz yavaş çalışıyor, hızlandırabilirmiyim bilmiyorum. VT paradox. Değerlendirmelerinizi paylaşırsanız sevinirim.

Procedure SorguHazirla( DosyaNo, AdiSoyadi, Yas, Cinsiyet, Tani, Lokalizasyon, Yapilan: String ...

Jedi komponentlerin içinde TJvZoom adlı bir component var, bahsettiğiniz işlemi gayet güzel yapıyor.

Formda 7 tane edit'im var, eğer editlerin hepsi boşsa Query1.active:= false olacak.
Tek tek editleri yazarak müdahale edebiliyorumda tek bir kodla aynı anda nasıl yapabilirim.

Detail tablonun MasterSource'ü Master tablonun Datasource olacak. Eğer VT tarafında master detail ilişkisini düzgün tanımladıysanız tabi.

senin bu örneği hayata geçirebilmen için alt yapıyı hazırlaman gerekir
Elbetteki alt yapı için uğraşıyorum, bu zamana kadar bildiğim her şeyi unutup yeniden başladım,okuyorum ne bulursam.
Bu örnek ile bişeylerin ucunu tutmaya çalışıyorum. Farettin abi sağolsun burada sıfırdan anlatmaya başlamış ...

sybase sytax ının firebird de çalışmayacağını anlamış olman gerekmiyormu
Başından beri anlatmaya çalıştığımda o zaten hocam, Fahrettin hocamın seminerde anlatmak istediğini anladım, sorunum bunu firebirdde bir türlü derleyememiş olmam. Kodu bu şekilde vermiş olmam da aynısını firebirdde deniyor ...