Delphi Forum

procedure TForm1.JvDBImage1Click(Sender: TObject);//Bir Button da olabilir.
var
yol:AnsiString;
begin
OpenPictureDialog1.Title:='Resim Seç';
OpenPictureDialog1.Filter:='JPG Dosyalari|*.jpg|Bmp Dosyaları|*.bmp|ico Dosyaları|*.ico';
if OpenPictureDialog1.Execute Then
begin
yol ...

Ben Kayıt Sayısını Merak ettim.! Kayıt sayısı nedir.?

Paradox'u iyi Bilirim.Ben Kendi Görüşümü Söylüyorum Gerci Burada Çok Bilgili Hocalar var Onların yanında bize düşmez ama...
Bu agırlaşmanın Tamamen Fuzuli Kodlarla ilgili olduğunu sanıyorum,Düşünün bir kere Bir işlemci bir karekteri okumak Sistemde algılaması için (Tabi İşemcinin hızına bağlı)Tekrar ...

Kodlarla Jpeg veritabanına Bmp Formatı boyutunda yazıyor.Yani ne yaparsanız yapın jpeg kaydediyor gibi gözüküyor ama Bmp formatında yazıyor.Böyle Uğraşacağınıza JEDI'nin JvDBImagesini Kullanın Çok basit şekilde jpg olarak veritabanına yazıyor.Byte olarak karşılaştırın farkı göreceksiniz. iyi ...

Jpeg için Kodlarla falan Uğraşma JEDI'nın Componentlerini (Ücretsiz)indir isteğine göre Jvİmage,JvDBİmage'ler var Onlarla çok kolay jpeg Resim ekleyebilirsin.

Uses'e Jpeg Ekle
procedure TForm1.BitBtn1Click(Sender: TObject);
var
yol:AnsiString;
begin
OpenPictureDialog1.Title:='Resim Seç ...

Selamlar Ben FIBPlus'u demo olmasına rağmen Bayağı denedim Firebird'de en randımanlı çalışan Bileşen İnanın,Hiç hatasız çalışıyor.Deadlock hatası onda yok bağlantıları iyi yaptıktan sonra hiç bir problem yaşamazsınız,Zaten Firebird'in sitesinde bu konu ve başka problemlerdede FIBPlus Tavsiye ...

Sağol Kardeşim. Bu kodlar işimi görür.Hepinizden Allah razı olsun.

Selamlar bir Klasörü içideki tüm dosyalarla beraber üstüne yazarak tekrar tekrar kopyalamak.
Sitelerde genelde hep noksan kodlar buldum örnek;sadece kopyalıyor.bir kere veya aynı yere kopyasını çıkarıyor.

Cevap Geç oldu ama Verdiğiniz bilgiler için teşekkür ediyorum.Tabi bu tür konuları ilgili sitelerde KonuşacağızKaçak Köçek de iş yapmıyoruz,Kalkıpda (Zaten işim olmaz) "Arkadaş arıyorum" ,"Benimle uçarmısın" sitelerine soracak değilim herhalde.

Selam.
Dostum Notebook ve PC de Celeron a hiç niyetlenmeyin.Hele Delphi 2005 Kullanacaksınız hiç sözünü bile etmeyin .Mesela Benim Tavsiyem
AMD Sempron 3000 al Fiatı hem uygun hemde hızlı.
Bende Notebook AMD sempron 3000 var DVD RW rı var 512 RAM vede hesaplı aldım,Çok Memnunum Windows u uçuruyor ...

Tövbeee....Ben sadece fikir olarak ..danıştım...........Hemen de cullanıyorsunuz...Hanginizden taleb ettim...estafurllah.....Bu tür Firmalar genelde bir önceki sürümlerini Free olarak veriyorlar..o yüzden sordum..

Selamlar <<pFIBPlus Bileşenlerini ücretsiz bulabilirmiyim..Bir kaç sitede araştırdım free diye,çektim ama nafile kibarca pamuk eller cebe diyor.

Çok Sağolun Bende Bunun için uğraşıyorum.

\\AnaMak\C\Belgelerim\Resimler\Resim0001.BMP Tüm Terminaller kayıtı bu şekilde yaparsa sorun kalmayacak yani Resimler Hangi Term'de olursa olsun o yolu kaydettirirsek O zaman tüm makinalar Tabledeki "RESIM" resim sütununa hedeflenip oradan resimleri ...

Resimler diye terminallerdede klasör var Resimi her terminal kendi klasöründen kaydediyor.....her Terminalde Proğram kurulu.

Selamlar Veritabanına VARCHAR (ALPHA) Olarak Okutarak Kaydettiğim Resimleri..Ana Makinada Table de ;

"RESIM" OLARAK belirlediğim sutunda Yolu:
C:\RESIMLER\DOGA.BMP
C:\RESIMLER1\RUMUZ.BMP
C:\ARSIV\RESIM\DAĞ.BMP

Olarak gözüküyor.Ana Makinada kaydettiğim resimleri Terminal makinalar görmüyor.Ama ...