Forum İstatistikleri
Son Mesajlar
KonuTarih, saat YazarSon Gönderen Forum
  win32-rest-service-json-database ilşkisi 8 saat önceserdarserdar Merakımdan Soruyorum
  Ürün Satış Web Semineri - 3. Bölüm 10 saat önceFesih ARSLANcinarbil Kitap Hakkında
  '' is not a valid Integer value 10 saat önce41linea41serdar Mobil Platform - FireMon...
  Hava durumu Dün, 11:43gonulaligonulali Mobil Platform - FireMon...
  Android 64 bit Dahil Etme 09-20, 17:44cihankocacihankoca Mobil Platform - FireMon...
  Android Sdk Güncellemesi 09-20, 15:36cihankocacihankoca Mobil Platform - FireMon...
  İş İlanı [Konya] 09-20, 14:44malitutuncumalitutuncu İş & Eleman İlanları
  Android 7.1.1 Null Pointer 09-20, 12:45narkotikMr.Developer Mobil Platform - FireMon...
  EFinans -> E-Arşiv WSDL alma 09-20, 10:41malitutuncumalitutuncu Genel Programlama
  Delphi fmx ile Play store uygulama içi satın al... 09-20, 10:33crowlinMr.Developer Mobil Platform - FireMon...
  inputquery ile sayisal değer kontrolu 09-20, 10:28serdarserdar Genel Programlama
En Çok Cevaplananlar
  Youtube'da Delphi Eğitim... 133
  Yeni Kaynak Kitabın Yayı... 133
  Yeni Kaynak Kitap İhtiya... 123
  Delphi 10.3 Rio 111
  Kitap - Ön Siparişleri 109
  Karikatür Vakti 106
  Beklenen sürüm (Delphi 1... 75
  Kitap Telif Bedeli 72
  Delphi ile yazılımış tak... 71
  Delphi buluşması 70
  Kitap - Kapak Taslakları 63
  Delphi 10.2 Tokyo (Godzi... 58

Hoşgeldin, Ziyaretçi
Sitemizden yararlanabilmek için Kayıt olmalısınız.

Kullanıcı Adınız:
  

Şifreniz:
  





Forumda Ara

(Gelişmiş Arama)

Forum İstatistikleri
» Toplam Üyeler: 1.877
» Son Üye: Emirhan
» Toplam Konular: 3.696
» Toplam Yorumlar: 30.137

Detaylı İstatistikler

Son Aktiviteler
win32-rest-service-json-d...
Forum: Merakımdan Soruyorum
Son Yorum:

serdar
8 saat önce
» Yorumlar: 0
» Okunma: 36
Ürün Satış Web Semineri -...
Forum: Kitap Hakkında
Son Yorum:

cinarbil
10 saat önce
» Yorumlar: 7
» Okunma: 220
'' is not a valid Integer...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

serdar
10 saat önce
» Yorumlar: 3
» Okunma: 43
Hava durumu
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

gonulali
Dün, Saat: 11:43
» Yorumlar: 13
» Okunma: 1.567
Android 64 bit Dahil Etme
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

cihankoca
20-09-2019, Saat: 17:44
» Yorumlar: 2
» Okunma: 62
Android Sdk Güncellemesi
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

cihankoca
20-09-2019, Saat: 15:36
» Yorumlar: 3
» Okunma: 82
İş İlanı [Konya]
Forum: İş & Eleman İlanları
Son Yorum:

malitutuncu
20-09-2019, Saat: 14:44
» Yorumlar: 0
» Okunma: 66
Android 7.1.1 Null Pointe...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

Mr.Developer
20-09-2019, Saat: 12:45
» Yorumlar: 7
» Okunma: 481
EFinans -> E-Arşiv WSDL a...
Forum: Genel Programlama
Son Yorum:

malitutuncu
20-09-2019, Saat: 10:41
» Yorumlar: 0
» Okunma: 48
Delphi fmx ile Play store...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

Mr.Developer
20-09-2019, Saat: 10:33
» Yorumlar: 1
» Okunma: 68

 
  ListView - CheckBox Kullanmak
Yazar: Fesih ARSLAN - 17-10-2016, Saat: 14:48 - Forum: Makale - Yorumlar (10)

Merhaba; 
FireMonkey mimarisinde ListView nesnesiyle tek veya çoklu seçimler yaparak, toplu işlem yapmayı sağlayabilirsiniz. Bunun için ListView'in  EditMode özelliği kullanılmaktadır. 
ListView'in CheckBox (seçim) özelliğini kullanmak için Formun OnCreate olayına aşağıdaki kodu yazmanız yeterlidir.

ListView1.EditMode := True;

Bu kodu herhangi bir olaya bağlayarak istediğiniz zamanda etkin olmasını da sağlayabilirsiniz.

Örneğin;

procedure TForm1.Button1Click(Sender: TObject);
var
 I: Integer;
 LItem: TListViewItem;
begin
 ListView1.Items.Clear;
 ListView1.BeginUpdate;
 for I := 1 to 10 do
 begin
   LItem := ListView1.Items.Add;
   LItem.Data['Text1'] := I.ToString() + '. Kayıt'; //DynamicAppearance kullanıyorsanız, Normal Text için ise ---> LItem.Text := I.ToString() + '. Kayıt'; kullanın
 end;
 ListView1.EndUpdate;
 ListView1.EditMode := True;
end;

LvCh1.png

Seçimli olan veya olmayan kayıtların tespitini yapmak için TListViewItem'ın Checked özelliği kullanılmaktadır. 
Aşağıda bir örnekle Cheked özelliğinin kullanımı örneklendirilmiştir.

procedure TForm2.SpeedButton2Click(Sender: TObject);
var
 I: Integer;
begin
 Memo1.Lines.Clear;
 for I := 0 to ListView1.Items.Count - 1 do
 begin
   with ListView1.Items[i] do
   begin
     if Checked = True then
       Memo1.Lines.Add((I + 1).ToString() + '. Kayıt Seçili')
     else
       Memo1.Lines.Add((I + 1).ToString() + '. Kayıt Maalesef Seçili Değil!')
   end;
 end;
end;

LvCh2.png

Seçim işlemi ListView'in doğal özelliği olan EditMode ile yapılabildiği gibi GlyphButton ile de yapılabilmektedir.

Örnekte ListView EditMode ve GlyphButton Checked modu ayrı ayrı test edilmiştir.
Ayrı butonlarda tüm Item'lar checked durumuna alınmış ve yine ayrı bir butonda Checked durumları Memo'da gösterilmiştir.

Ekran Görüntüsü:

LvCh3.gif

Örnek Uygulama Linkleri:

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Bu konuyu yazdır

  Web Service Eventing (WS-Eventing) Hakkında
Yazar: vkamadan - 17-10-2016, Saat: 09:59 - Forum: Merakımdan Soruyorum - Yorumlar (4)

Merhabalar , 
tesadüf eseri WS-Eventing konusunu gördüm, bildiğimiz gibi (en azından ben böyle biliyorum) SOAP web servis uygulamaları anlık isteğe o an cevap veren mimarilere sahip sunucu tarafında bir yaşam döngüsüne sahip değiller Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız. burada ise bir servis metoduna üye olunması ve gerektiğinde o servis metodunun asenkron olarak clineta bilgi PUSH etmesi gibi bir şeyden bahsediyor duyan bilen var mı ? Delphi SOAP Server uygulamaları ile bu yapıda birşey inşa edilebilir mi?
iyi çalışmalar.

Bu konuyu yazdır

Question Router Marka Model Öğrenme
Yazar: masteryoda - 17-10-2016, Saat: 06:47 - Forum: Genel Programlama - Yorumlar (9)

Merhaba arkadaşlar, delphi ile bağlı bulunduğumuz network deki router cihazın marka/model bilgilerini öğrenebilirmiyiz?

Bu konuyu yazdır

  Yardım, açıklama programı için TreeView vb nesne, tasarım önerisi
Yazar: 10.Köy - 16-10-2016, Saat: 21:43 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (9)

Merhabalar. Tasarlamak istediğim program mobil platformda olduğu için TreeView nesnesi de sol kısmı kapatıyor ve kullanım ekran alanı malum çok kısıtlı. Bu yüzden alanı en iyi kullanmak için sizlerden öneri almak istiyorum.

Yapmak istediğim windows ortamında ki delphi yardıma benzer .chm yani yardım dosyasına benzer, içeriğinde normal mobil ölçekte de olsa resim bulunan bir açıklama yardım programı tasarlamak ancak alan çok küçük. Düz aşağıya akan anlatım yapılabilir ancak sekme kullanmam da gerekiyor üstte kaldığı sürece ekranı maksimum kullanabilirim. Mobil de treeview nesnesine alternatif bir tasarım yöntem önerebilir misiniz? Teşekkürler.

Bu konuyu yazdır

  How to Measure Coupling - Nick Hodges (Live)
Yazar: edo - 13-10-2016, Saat: 15:51 - Forum: Embarcadero Görsel Eğitimleri - Yorumlar (5)

Merhaba,

Nick Hodges'un anlatacağı "How to Measure Coupling" konulu webinar 10 dk. sonra başlayacak. Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız. kayıt olabilirsiniz.

Bu konuyu yazdır

  Özel Mesajlar
Yazar: edo - 13-10-2016, Saat: 15:24 - Forum: Görüş & Öneri ve Yorum - Yorumlar (5)

Merhaba,

Sağ üst köşede Özel Mesajlar diye bir bölüm varmış yeni fark ediyorum  Big Grin

Burada toplam mesaj sayısını göstermeye gerek yok. Burada sadece açık bir mektup (yanıp sönerse iyi olur), eğer okunmamış yeni bir bildirim varsa da kapalı bir mektup o yazıların tamamının yerini alabilir. Hem de daha çok kendini belli eder diye düşünüyorum.

Bu konuyu yazdır

  DevExpress Firemonkey'e yanaşmaya başladı iyice
Yazar: edo - 13-10-2016, Saat: 10:54 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (1)

DevExpress el altından bir şeyler yapmaya başlamış sanırım  Smile Umarım faydalı bir şeyler çıkar. Daha önceki anketin peşine bir devam anketi de var doldurursanız ihtiyaçları belki göz önüne alırlar.


We hope this email finds you well.
Recently, we surveyed VCL users such as yourself and an overwhelming number of individuals asked that we detail our FireMonkey development plans.
Though we are not in a position to describe the exact products we hope to release for the FireMonkey platform, we do want to assure you that we are working to add FireMonkey products to our portfolio.
To that end, we ask that you take a few minutes out of your schedule and tell us a bit more about your plans for FireMonkey. Please follow the link below to complete our FireMonkey online survey.

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Bu konuyu yazdır

Wink Embarcadero'nun Yeni Sloganı
Yazar: Fesih ARSLAN - 13-10-2016, Saat: 09:54 - Forum: Muhabbet Olsun - Yorumlar (5)

Merhaba,
Huh


Bu konuyu yazdır

Question Unigui uygulamasını taşıma
Yazar: masteryoda - 13-10-2016, Saat: 03:34 - Forum: Delphi ile Web Teknolojileri - Yorumlar (27)

Merhaba, unigui Standalone uygulamasını unigui kurulmamış bilgisayarda çalıştırmak için neler yapmamız gerekiyor unigui yi kurmak dışında.

Bu konuyu yazdır

  xe8 resim ekleme, delphi7 de gösterme sql
Yazar: erdogan - 12-10-2016, Saat: 18:03 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (20)

Arkadaşlar,

XE8 de androide resmi aşağıdaki kod ile sql kaydediyorum,

procedure TForm1.KAYDETClick(Sender: TObject);
var
  Field: TBlobField;
  RESIM: TStream;
begin
  if DEVRIYE_HAREKETLERI_DB.Active and (Image1.Bitmap <> nil) then
  begin
    DEVRIYE_HAREKETLERI_DB.Insert;
    Field := TBlobField(DEVRIYE_HAREKETLERI_DB.FieldByName('RESIM1'));
    RESIM := DEVRIYE_HAREKETLERI_DB.CreateBlobStream(Field, bmWrite);
    try
      Image1.Bitmap.SaveToStream(RESIM);
    finally
      RESIM.Free;
      DEVRIYE_HAREKETLERI_DB.Post;
    end;
  end;
end;


Bu kod ilede Delphi 7 de göstermek istiyorum ama hata veriyor ? SQL2012 de alan alan türü "image"

procedure TForm1.btn1Click(Sender: TObject);
var
  Field: TBlobField;
  RESIM: TStream;
  Jpg: TJPEGImage;
begin
  if QRY_RESIMLER_DB.Active then
  begin
    Field := TBlobField(QRY_RESIMLER_DB.FieldByName('RESIM1'));
    RESIM := QRY_RESIMLER_DB.CreateBlobStream(Field, bmRead);
    Jpg := TJPEGImage.Create;
    try
      Jpg.LoadFromStream(RESIM);
      img1.Picture.Graphic := Jpg;
    finally
      img1.Free;
      RESIM.Free;
    end;
  end;
end;

hata mesajı
6mGy5E.png


acaba yanlış olan nedir ?

teşekkürler

Bu konuyu yazdır