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.621
» Son Üye: stevenshaw
» Toplam Konular: 3.312
» Toplam Yorumlar: 27.266

Detaylı İstatistikler

Son Aktiviteler
TMS Aurelius Artık Ücrets...
Forum: Görsel Bileşen Kütüphanesi (VCL)
Son Yorum:

sddk
9 dakika önce
» Yorumlar: 36
» Okunma: 5.230
Dbexpress + Firebird ip v...
Forum: Genel Programlama
Son Yorum:

SimaWB
14 dakika önce
» Yorumlar: 9
» Okunma: 52
Twitter API
Forum: Muhabbet Olsun
Son Yorum:

Cyb3r
48 dakika önce
» Yorumlar: 7
» Okunma: 106
Mükerrer Kayıt Uyarısı
Forum: Genel Programlama
Son Yorum:

SercanTEK
1 saat önce
» Yorumlar: 11
» Okunma: 170
Android string grid check...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

SimaWB
1 saat önce
» Yorumlar: 2
» Okunma: 35
Yerel DelphiCan Toplantıl...
Forum: Muhabbet Olsun
Son Yorum:

malitutuncu
1 saat önce
» Yorumlar: 16
» Okunma: 346
fareyi istenilen rengin ü...
Forum: Genel Programlama
Son Yorum:

SimaWB
1 saat önce
» Yorumlar: 3
» Okunma: 37
Tarih ve Saat aralığı sor...
Forum: Genel Programlama
Son Yorum:

esistem
2 saat önce
» Yorumlar: 15
» Okunma: 151
Wifi çekim gücü
Forum: Muhabbet Olsun
Son Yorum:

OBK
Dün, Saat: 23:19
» Yorumlar: 4
» Okunma: 55
Youtube'da Delphi Eğitimi
Forum: Muhabbet Olsun
Son Yorum:

Abdullah ILGAZ
Dün, Saat: 22:46
» Yorumlar: 103
» Okunma: 36.615

 
  fareyi istenilen rengin üzerine konumlandırma
Yazar: delhici - Dün, Saat: 22:47 - Forum: Genel Programlama - Yorumlar (3)

Merhaba arkadaşlar;


Herhangi bir program üzerinde yada kendi programımız üzerinde herhangi bir renge yada sadece kırmızı renge, fareyi konumlandırabilir miyiz? Daha önce hiç deneme yaptınız mı?

Bu konuyu yazdır

  Dbexpress + Firebird ip ve port Bilgisi
Yazar: onurakman - Dün, Saat: 22:22 - Forum: Genel Programlama - Yorumlar (9)

Herkese merhaba, 
delphi 7, dbexpress ve firebird veritabanını kullanıyorum.


 
       SQLConnection1.Params.Values['Database'] := 'C:\FB\ABC.FDB';
        SQLConnection1.Params.Values['User_Name'] := 'kullanici';
       SQLConnection1.Params.Values['Password'] := 'sifre';

bu kodda problem ile karsilasmiyorum. Sanırım local de olduğundan dolayı.
Ama benim ip ve port bilgisi girmem gerekiyor.
ip adresim : 192.168.1.29
firebird portum : 3057

 
            SQLConnection1.Params.Values['Database'] := '192.168.1.29/3057:C:\FB\ABC.FDB';
            SQLConnection1.Params.Values['User_Name'] := 'kullanici';
            SQLConnection1.Params.Values['Password'] := 'sifre';

           QM.Active:=false;
           QM.CommandText:='select  ADI, SOYADI from PERSONEL';
           QM.Active:=true;

           QCM.Active:=true;
           QCM.First;
           while not QCM.Eof do begin
             for k := 0 to QCM.FieldCount-1 do begin
                Memo1.Lines.Add(QCM.Fields[k].AsVariant);
             end;
           QCM.Next;
           end;

unknown error code 65535 hatası alıyorum.
Bir türli işin içinden çıkamadım.
yardımcı olursanız çok sevinirim.

Bu konuyu yazdır

  Wifi çekim gücü
Yazar: ahmetb - Dün, Saat: 18:06 - Forum: Muhabbet Olsun - Yorumlar (4)

Merhaba;

Cep telefonundan wifi bağlanırken diğer odalardan çekim sorun yaşıyorum. 
Modemin yerini değiştirme şansım yok. Diğer odalardan wifi bağlantısı sorunu yaşamamak için ne yapabilirim? ne tavsiye edersiniz?

Bu konuyu yazdır

  Tarih ve Saat aralığı sorgulama
Yazar: wiseman - Dün, Saat: 12:47 - Forum: Genel Programlama - Yorumlar (15)

Arkadaşlar selamlar,

Daha önce burada sorduğum ve cevabını bulduğumuz bir konuda, tekrar hata yaşamaya başladım. MYSQL veitabanında olan datetime alanındaki verileri sorgularken, aşağıdaki kodu kullanıyorum

select * from tagverileri where tagadi='ALU_MUD_SAATLIK' and zaman between '2019-03-18' and '2019-04-18' AND DATE_FORMAT(zaman, '%H' ) BETWEEN '22:00:00' AND '06:00:00'

Ancak sorgu sonucu boş çıkıyor. Fakat sorgudaki saat aralığını tam tersine yaparsam
DATE_FORMAT(zaman, '%H' ) BETWEEN '06:00:00' AND '22:00:00'
bu şekilde raporlar geliyor. Fakat istediğim sonuç değil çünkü, 8 saatlik veri sorgulamam gerekirken, 16 saatlik veri sorguluyorum. Kodun doğru yazılımı konusunda yardımlarınızı rica ederim.

Bu konuyu yazdır

  ORM Araçlarının Avantaj ve Dezavantaşları hakkında görüşleriniz
Yazar: adelphiforumz - Dün, Saat: 11:48 - Forum: Geliştirici Araçları - Yorumlar (5)

Selamlar Arkadaşlar

2 gündür bahsi geçen ORM denen şeyin Avantaj ve Dezavantaj'ları nelerdir diye bazı yazıları takip etmeye çalışıyorum.

Program geliştirirken avantaj olan bir şey ileride program içerisine gömülen belli bir yapı nedeni ile dezavantaja dönüşür mü?
Yada ORM aracı yazılımcı için zaman yada kodlama kolaylığı getirirken Kurum ve Projeler in yaşam döngüsünde bir sorun teşkil eder mi?
Program yazım aşamasında artı olan bir şey çalışma sırasında performans ve izlenebilirlik konusunda sorun oluşturur mu ?

Bu konudaki ORM araçlarının +/- yönleri hakkında görüşleriniz nelerdir.

Teşekkürler

Bu konuyu yazdır

  Mükerrer Kayıt Uyarısı
Yazar: OZCANK - Dün, Saat: 05:30 - Forum: Genel Programlama - Yorumlar (11)

Arkadaşlar Merhaba; Aşağıdaki kod da Aynı kayıt uyarısı veriyor sorun yok eğer farklı bir kayıt girersem onuda kayıt yapıyor fakat  ikinci kez button a bastığında önceden girmiş olduğu kaydı var demesi gerekirken "command text does not return a result set " hatası veriyor mükerrer kayıt tekrar atıyor.
Nerde hata yaptım yardımcı olabilir misiniz?
Üç ayrı kod da da denedim ama "command text does not return a result set " hatasını hep veriyor.

1.Kod :

procedure TForm9.Button1Click(Sender: TObject);

begin
/////////////////////////////////////////////////////////
SeriNoKayit.Active:=True;
IF SeriNoKayit.Locate('SERI',Edit3.Text,[]) Then
Begin
Application.MessageBox('Farklı Seri Girmelisiniz !!!','Uyarı Mesajı',MB_ICONERROR);
Exit;
End
Else
SeriNoKayit.SQL.Clear();
SeriNoKayit.SQL.Text:='INSERT INTO TBLEFATUNO(SUBE_KODU,SERI,TIP,NUMARA) VALUES SUBEKOD,:SERINO,:SERITIP,:SERINUMARA)';
SeriNoKayit.Parameters.ParamByName('SUBEKOD').Value:='0';
SeriNoKayit.Parameters.ParamByName('SERINO').Value:=Edit3.Text;
SeriNoKayit.Parameters.ParamByName('SERITIP').Value:='1';
SeriNoKayit.Parameters.ParamByName('SERINUMARA').Value:='000000000000';
Try
 SeriNoKayit.ExecSQL;
except on E: Exception do
 MessageDlg(E.Message,mtError,[mbOK],0);
End;
End;
/////////////////////////////////////////////////////////
2.Kod:
procedure TForm9.Edit3Exit(Sender: TObject);

Var
Bul:Boolean;
begin
SeriNoKayit.Active:=True;

//SeriNoKayit.Active;
//SeriNoKayit.Open;
////
bul := SeriNoKayit.Locate('SERI', edit3.Text, []);
if bul = true then
begin
  Showmessage('Seri Kayıtlı');
Exit;
  End
  Else
  Showmessage('Seri Kayıtlı Değil');

SeriNoKayit.SQL.Clear();
SeriNoKayit.SQL.Text:='INSERT INTO TBLEFATUNO(SUBE_KODU,SERI,TIP,NUMARA) VALUES (:SUBEKOD,:SERINO,:SERITIP,:SERINUMARA)';
SeriNoKayit.Parameters.ParamByName('SUBEKOD').Value:='0';
SeriNoKayit.Parameters.ParamByName('SERINO').Value:=Edit3.Text;
SeriNoKayit.Parameters.ParamByName('SERITIP').Value:='1';
SeriNoKayit.Parameters.ParamByName('SERINUMARA').Value:='000000000000';
Try
SeriNoKayit.ExecSQL;
except on E: Exception do
MessageDlg(E.Message,mtError,[mbOK],0);
////

3.Kod:
procedure TForm9.Button1Click(Sender: TObject);

begin
SeriNoKayit.Close;
SeriNoKayit.Active:=True;
IF SeriNoKayit.Locate('SERI',Edit3.Text,[]) Then
Begin
Application.MessageBox('Farklı Seri Girmelisiniz !!!','Uyarı Mesajı',MB_ICONERROR);
Exit;
End
Else
//IF NOT SeriNoKayit.Locate('SERI',Edit3.Text,[]) Then
SeriNoKayit.SQL.Clear();
SeriNoKayit.SQL.Text:='INSERT INTO TBLEFATUNO(SUBE_KODU,SERI,TIP,NUMARA) VALUES (''0'','+#39+''+Edit3.Text+''+#39+',''1'',''000000000000'')';
SeriNoKayit.ExecSQL;
End;

Bu konuyu yazdır

  Twitter API
Yazar: yhackup - 17-04-2019, Saat: 20:15 - Forum: Muhabbet Olsun - Yorumlar (7)

Daha önce #Twitter #API kullanan #developer arkadaşım var mı ?

Bu konuyu yazdır

  Label Font
Yazar: xenginyigit - 17-04-2019, Saat: 18:42 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (5)

Eğitici Oyun Yapıyoruz Oyunumuzda Kodlarla Label Oluşturuyoruz Ama Font Olmuyor Ne Yaptıysak Olmadı Yardımcı Olurmusunuz?

Bu konuyu yazdır

  Android string grid check column a veri ekleme
Yazar: 41linea41 - 17-04-2019, Saat: 18:39 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (2)

Merhaba

Android de 5 kolonlu string gridde ilk kolonu check colimn olarak ayarladim ama cells degerini false olarak ayarlayamiyorum.

Grid.cells[0,i]:=fieldbyname('Kolonadi').asboolean

komutunda cells degerinin sadece string almasi gerektigini soyluyor. Fakat componentin items editorunde bu kolonu check column olarak ayarlabiliyorum. İsin icinden cikamadim bu check kolona nasil tru false degeri atayabilirim.?

İyi calismalar

Bu konuyu yazdır

  Fastreport nesne kontrolu ve veri yazma
Yazar: cinarbil - 17-04-2019, Saat: 18:00 - Forum: Genel Programlama - Yorumlar (3)

İyi akşamlar.

Programda Fastreport ile çıktı alıyorum.
Dizayn işlemini müşteri de yapabiliyor.
Yanlışlıkla Dizayn da bir nesne siler veya name  değiştirirse program Access Violation hatası veriyor.
Çözümüm aşağıda bunun daha pratik çözümü olabilirmi yöntem doğrumu

 
if data_form.fast_rapor.FindObject('f_logo')<>nil then  (data_form.fast_rapor.FindObject('f_logo') as Tfrxpictureview).Picture.LoadFromFile(cal_yol + 'logonuz.bmp');

if data_form.fast_rapor.FindObject('f_logo2')<>nil then (data_form.fast_rapor.FindObject('f_logo2') as Tfrxpictureview).Picture.LoadFromFile(cal_yol + 'logonuz.bmp');

if data_form.fast_rapor.FindObject('f_dboy2')<>nil then (data_form.fast_rapor.FindObject('f_dboy2')    as Tfrxmemoview).Memo.Text := kf_disboy.Text;

şeklinde dizaynda nesneleri  kontrol ederek gönderiyorum.

Bu konuyu yazdır