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: 974
» Son Üye: keceonurr
» Toplam Konular: 2.093
» Toplam Yorumlar: 16.415

Detaylı İstatistikler

Son Aktiviteler
Web Sitesine Login Olma v...
Forum: Makale
Son Yorum:

Paranoyaq
3 saat önce
» Yorumlar: 9
» Okunma: 751
Yeni bir projeye başladım...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

hakanharbeli
4 saat önce
» Yorumlar: 5
» Okunma: 266
kod uzunluğu ve proje kas...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

BY-HAYALET
5 saat önce
» Yorumlar: 8
» Okunma: 59
delphi - örnek projeler h...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

BY-HAYALET
Dün, Saat: 10:35
» Yorumlar: 6
» Okunma: 127
Free vs FreeAndNil
Forum: Genel Programlama
Son Yorum:

hyperxman
Dün, Saat: 01:46
» Yorumlar: 34
» Okunma: 3.810
Try..Finally Hakkında Bil...
Forum: İpuçları
Son Yorum:

hyperxman
Dün, Saat: 01:38
» Yorumlar: 5
» Okunma: 67
Delphi 10.2.3 Startup Lay...
Forum: Genel Programlama
Son Yorum:

baqz
Dün, Saat: 00:40
» Yorumlar: 7
» Okunma: 143
Emulatorde INSTALL_FAILED...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

hyperxman
26-05-2018, Saat: 23:57
» Yorumlar: 8
» Okunma: 145
Firemonkey Sistem Tarihi ...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

narkotik
26-05-2018, Saat: 16:34
» Yorumlar: 1
» Okunma: 64
MySQL - SQL Tablo Kontrol...
Forum: MySQL
Son Yorum:

hyperxman
26-05-2018, Saat: 13:11
» Yorumlar: 3
» Okunma: 82

 
  Sesli yazma
Yazar: gonulali - 18-05-2018, Saat: 09:38 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (9)

Selamlar,
Android uygulamamda Edit 'in yanına bir mikrofon işareti koyup yazmak istediğimi sesli olarak söyleyip otomatik yazdırabilir miyim acaba?
Whatsappdaki gibi.

Bu konuyu yazdır

Question Listview Edit Ekleme ve Button Yüksekliği Ayarı
Yazar: elixir84 - 18-05-2018, Saat: 08:38 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (11)

Merhaba,

Listview'e edit eklene biliniyor mu? Birde Butonun yüksekliğini ayarlasam da listview yüksekliğle aynı oluyor aynı şey checkbox içinde geçerli oluyor.
Aşağıdaki gibi bir ekran hazırlayamaz mıyım?

nOvZ21.png

Bu konuyu yazdır

Question SQLİTE veritabanı oluşturma ?
Yazar: BY-HAYALET - 17-05-2018, Saat: 17:39 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (10)

iyi günler,

mobilde local olarak kullanılan sqlite örneğine rastladım ve bende denemek istedim fakat sorun şu ki ; .db uzantılı veritabanının nasıl oluşturulduğunu çözebilmiş değilim.
bu konuda gerekli anlatımı yaparmısıız ?

Bu konuyu yazdır

  SQl Server içinde değere göre kontrol yapmak
Yazar: Bay_Y - 17-05-2018, Saat: 16:17 - Forum: MS SQL Server - Yorumlar (5)

herkese merhabalar
yapmak istediğim kod aşağıdaki kod ve bu çalışıyor ama burdaki tablo ismi ve kod dışardan girileceği için
2.sırada bulunan kod a çevirdim ama çalışmadı bir yerde eksiklik var yardımcı olabilecek kimse var mı acaba ?

çalışan kod

DECLARE @recordNo NVarchar(10)
SELECT @recordno = Count(*) FROM TransferMS Where kod = 3
IF @recordno =1 
PRINT 'KAYIT VAR'
ELSE
PRINT 'KAYIT YOK'
-------------------------------------------------------

2.Kod
DECLARE @SQL_ nVArchar(200)
DECLARE @tabloadi1 nVarchar(100)='TransferMS'
DECLARE @recordNo nVarchar(5)

SET @SQL_ = ' SELECT @recordNo = Count(*) FROM ' + @tabloadi1 + ' Where kod = ' + CAST( 1 as varchar (5)) 
EXECUTE SP_EXECUTESQL @SQL_
SELECT @recordNo

IF @recordNo=0
PRINT 'YOK'
ELSE
PRINT 'VAR'

----------------------------------------------------------------
Aslında yapmak istediğim

IF EXISTS(SELECT * FROM TRANSFERMS Where kod=1) 
PRINT VAR
ELSE 
PRINT YOK

kod bu şekilde çalışıyor sorun yok ama burda sorun tablo adı ve kod kısmı dışardan girileceği için kodu çalıştırmak için  EXECUTE SP_EXECUTESQL @SQL_ gerekiyor bu durumda da sorun çıkıyor.

Bu konuyu yazdır

  SQL Server Eğitimi Hakkında
Yazar: adelphiforumz - 17-05-2018, Saat: 11:55 - Forum: Muhabbet Olsun - Yorumlar (5)

Selamlar Arkadaşlar
SQL Server Eğitimi konusunda iyi bir Kurum (eğitmen önemli) biliyor musunuz
Şirket olarak toplu bir eğitim almayı düşünüyoruz.
İstanbul / Mecidiyeköy'e yakın yerler önceliğimizdir.
Teşekkürler

Bu konuyu yazdır

  Multi Platform - Uygulama İzin Kontrolü
Yazar: Fesih ARSLAN - 17-05-2018, Saat: 11:02 - Forum: Makale - Yorumlar (4)

Merhaba,
Mobil uygulamalarda kullanılan izinlerin önemi gün geçtikçe artmaktadır. Sizce bu izinlerin açık veya kapalı olmasının önemi nedir?
Tabi ki bir çok neden sayılabilir. Bunların en başında özel hayatın gizliliğini ihlal edici olabilmesidir. 
Bu ve benzeri nedenlerden dolayı uygulama mağazalarından indirilen bir uygulama kurulmadan önce uygulama tanıtım sayfasından hangi tip izinler talep ettiği okunmalıdır.
Amacı doğrultusunda olmayan bir izin talebi varsa uygulamayı kurmamak, yapılacak en doğru iştir (Acemi geliştiricileri tenzih ederim-bazen erişim izinlerini istemeden de olsa açık bırakabiliyorlar). 
İllede kurulacak ise kurduktan sonra uygulamayı çalıştırmadan önce Ayarlar > Uygulamalar (uygulamayı seçin) > İzinler bölümünden istemediğiniz izinleri devre dışı bırakın.
Neden çalıştırmadan önce; rehbere erişim izni isteyen bir uygulama, kurulum anında bu izni almış olacak ve ilk açılışta tüm rehberi alıp istediği bir yere depolayacaktır. 
Bundan dolayı bir uygulama kurulduktan sonra uygulamayı başlatmadan önce erişim izinleri gözden geçirilmeli ve düzenlenmelidir.
Yukarıda anlatmış olduğum çerçeveden bakan bilinçli kullanıcı sayısının her geçen gün artmasına bağlı olarak, geliştiricilerin de kullanıcıları uygulamada yer alan izinler konusunda bilgilendirmesini zorunlu kılmıştır. 

Bu kapsamda Apple son zamanlarda bir çok erişim izini için geliştiricilerden bir izin sebebi talep etmektedir. 

izin01.jpg

Apple "Elde edilen izni ne amaçla kullanacaksınız?" diyor. Belirtilen amacın dışında kullanılması durumunda uygulama yayın hakkı tek taraflı olarak iptal edilecek ve uygulamanız yayından kaldırılacaktır.
Yani uygulama erişim izinleri artık son derece önem taşımaktadır. 
Bir uygulamayı yayınlamadan önce son bir defa izinleri kontrol etmenizde fayda olacaktır.

Konumuzun asıl başlığına gelecek olursak;
Yukarıda bahsettiğimiz sebeplere bağlı olarak uygulamamızın bir erişim izni devre dışı bırakılmış olabilir. 
Kullanıcı tarafından pasif duruma alınan bir izni uygulamada kullanmaya çalışırsak ne olacak?
Muhtemelen izni kullanacak tipimiz Null değerine sahip olacak ve ilk kullanım anında uygulama kırılacaktır (Kapanma veya yanıt vermeme).
Bu durumda alınacak tedbir ve kullanıcıyı bilgilendirmek uygulamaya olan güveni arttıracaktır.

Makalemizde, Multi-Platform mimaride uygulamanın talep edeceği iznin dinamik olarak kontrol edilmesi örneklendirilecektir.
Örneğimizde yalnızca Android platformunda bir iznin varlığı kontrol edilmekte ve kullanıcı bilgilendirilmektedir.

1- Uygulamanın Implementation bölümüne aşağıdaki referansları ekleyelim.

Uses FMX.Platform, FMX.MediaLibrary
{$IFDEF ANDROID}
   , Androidapi.Helpers, Androidapi.JNI.GraphicsContentViewText,
 Androidapi.JNI.JavaTypes, Androidapi.JNI.App
{$ENDIF};

2- İzin kontrolünü yapacak bir metod oluşturalım.
function TForm1.Getizinlimiyim(const IzinTuru: string): Boolean;
var
 Kamera: IFMXCameraService;
begin
 if not TPlatformServices.Current.SupportsPlatformService(IFMXCameraService,
   Kamera) then
 begin
   Result := False;
   Exit;
 end;
{$IFDEF MSWINDOWS}
 // Windows izin kontrolleri
 Result := False;
{$ELSE} {$IFDEF MACOS}
 Result := False;
 // OS X izin kontrolleri
{$ELSE} {$IFDEF IOS}
 Result := False;
 // iOS (iPhone, iPad) izin kontrolleri
{$ELSE} {$IFDEF ANDROID}
 Result := TAndroidHelper.Activity.checkCallingOrSelfPermission
   (StringToJString(IzinTuru)) = TJPackageManager.JavaClass.PERMISSION_GRANTED;
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
end;

3- Son olarak aşağıdaki gibi bir kontrol yapalım.
procedure TForm1.Button1Click(Sender: TObject);
begin
 if Getizinlimiyim('android.permission.CAMERA') then
   ShowMessage('Kamera kullanılabilir')
 else
   ShowMessage('Kameraya erişim izni kapalı.' + sLineBreak +
     'İzinleri yeniden düzenlemek için Ayarlar > Uygulamalar (Uygulamanızı seçin)> İzinler bölümünü kullanabilirsiniz.');
end;

izin02.jpg

Android platformu için tüm izin türlerine Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol linkinden ulaşabilirsiniz.

Uygulamanızın kullanmış olduğu izinleri ve Android checkCallingOrSelfPermission fonksiyonunda kullanılacak parametreyi nasıl görebilirim/bulabilirim?

Not: Tüm Android uygulama izinleri Project > Options > Uses Permissions bölümünden konfigüre edilmektedir.

izin03.jpg

1- Platform Selector (Hedef platform seçim penceresi) araç çubuğundan Android platformunu seçerek, projeyi derleyelim.
2- Proje klasöründeki Android/Debug veya Android/Release dizininde bulunan AndroidManifest.xml dosyasını açalım.
3- <uses-permission etiketi ile başlayan satırlara bakalım. 
4- Bu satırda yer alan name değeri checkCallingOrSelfPermission parametresi olarak kullanılacak isimdir. 

izin04.jpg

Yazdığımız kod yapısında;
Uygulamada SupportsPlatformService fonksiyonu talep edilen iznin donanımsal kabiliyetini kontrol etmektedir. Cihaz bu izni kullanacak kabiliyette değilse bir durum bildiriyoruz.
Cihaz talep edilen izni destekliyorsa, bu durumda platform tespiti yapılıyor ve platforma özgü kodlarımız devreye giriyor.

Bu konuyu yazdır

  Firebird 3 embedded versiyon autoinc alan problemi
Yazar: canbir - 16-05-2018, Saat: 16:11 - Forum: FireBird - Yorumlar (4)

Delphi 10.2 ve firebird 3.03
Benim bilgisayarda firebird kurulu. Embedded versiyonda test etmek amacıyla firebird kurulu olmayan bir bilgisayarda, programı yanında embedded firebird dosyaları varken çalıştırdım. Bağlantı başarılı oldu, db içindeki kayıtları da sorunsuz görüp, sorgulama yaptım.
Ancak yeni kayıt yapmak istediğimde, kayıt aşamasında "field id must have value" hatası aldım. Tabloda bu alan autoinc olarak tanımlı. Bağlantıyı sağlayan firedac bileşeninde autogeneratorvalue=Autoinc olarak ayarlı. Benim bilgisayarda kayıt yaparken bu hatayı vermiyor. Neden böyle bir hata alıyor olabilirim?

Bu konuyu yazdır

  Sqllite barkod stok takibi
Yazar: Lord_Ares - 16-05-2018, Saat: 15:28 - Forum: Genel Programlama - Yorumlar (6)

Bir önceki soru başlığımdan yola çıkarak ( kullandığınız local veritabanları? ) yeni barkodlu stok takip projemde Sqlite veritabanı olarak kullanmayı düşünüyorum.  Fakat aklıma gelen son bir değişiklikten sonra, doğru yoldamayım karar veremedim sizlere danışmak istedim.

Proje barkodlu stok takip
Tek bir bilgisayarda kullanılacak.
Stok çeşidi 200 kalem civarı.
Veritabanı sqlite ( emin değilim)
Bilgisayara bağlı kablosuz barkod cihazı
Delphi Xe10 sürümünde geliştireceğim.

Yukarıdaki yapıya bakarak kablosuz barkod okuyucu kullandığımızda bir sorun yok. Fakat  niye barkod okuyucu alıyorum ki cep telefonunu barkod okuyucu olarak kullanamazmıyım diye düşündüm. Aynı wriless ağa bağlı bir bilgisayar ve telefonda , Bilgisayarda ana uygulamam olur, telefondan ilgili barkodu okutup bilgilerini girer ana uygulamaya gönderirim dedim. İşte burada Sqllite doğru seçim mi emin olamadım. Sqllite tek kullanıcıya izin veriyorsa bu sorun olacak.

İzleyeceğim yol, kullanacağım veritabanı nedir, projenin adımları nasıl olmalı ?

Teşekkürler

Bu konuyu yazdır

  Fikir sahibi olmak istediğim bir soru .
Yazar: Bay_Y - 16-05-2018, Saat: 10:29 - Forum: Genel Programlama - Yorumlar (3)

Öncelikle konu hakkında bilgim olmadığı için sizinle aklıma takılan bir konuyu paylaşmak ve bu konuda fikir sahibi olmak istiyorum.

Yapmayı düşündüğüm bir proje için sizinde fikrinizi almak istedim.

Kurulacak olan sistemde merkezde bir SQL Server olacak şubelerde de SQlexpress clienlar olacak belli zaman aralıklarında şubeler merkezdeki server a SQl sorgusu gönderip cevap alacak ve işleyecek sistem kabaca bunun üzerine kurulu burda sormak istediğim  ?

1-merkez kısmı için SQL Server Standart aldığımızda (sonuçta işi yükünün çoğu merkezde olacak.) bu lisansın dışında Cal lisansı gerekir mi ?  Fiziksel olarak bir bağlantı olmayacak ama TCP-IP üzerinden 1433 nolu portan dediğim gibi SQl sorguları çalıştırılacak.

2-Şubelerde SQl Express işimizi görür mü ? orada yapılacak işlemler normal kayıt işlemleri silme işlemleri donanım olarak çok bir performans gerektirecek işlemler değil.


herkese teşekkürler ve kolaylıklar diliyorum.

Bu konuyu yazdır

Thumbs Up Inline Fonksiyon,Procedure
Yazar: narkotik - 15-05-2018, Saat: 23:01 - Forum: Makale - Yorumlar (7)

Bugün yeni öğrendiğim bir procedure, fonksiyon belirtecini sizlerle paylaşmak istiyorum. Belki aranızda önceden bilenler olabilir. Ama benim gibi uzun bir süredir Delphi ile uğraşıp ilk defa duyanlarda olacaktır illa ki Smile
Bildiğiniz gibi procedure ve fonksiyonlar aslında birer alt programdır. Biz onları çağırdığımızda aslında yerlerini işaretlemiş oluruz ve derleyici bize onu bulur ve çalıştırır. Bu dallanma olayı aslında işlemciye bir yükte getiriyor. Tekrar eden işlemlerde bu süre artabiliyor. İşte tam burada kod içerisinde çok kullanmadığınız ama yazdığınız bir yordamın içerisinde örnek bir döngüde defalarca çalışan bir hesaplama işlemi gibi ekstra bir kullanım mevcut. Kullanımı çok basit procedure veya functionumuzun sonuna inline belirtecini ekliyoruz.
Aslında yaptığımız bu işlemde derleyiciye fonksiyonu çağırdığımız yere o fonksiyon kodunun bir kopyasının yerleştirmesini tavsiye etmiş oluyoruz. Bu kullanımın bir avantajı bir de dezavantajı var.
Avantaj
Hız
Dezavantaj
Uygulama Boyutu
İşte bu dezavantaj yüzünden program içerisinde çok tekrar etmeyen ama yazılan yordam içerisinde tekrar eden işlemlerde inline belirtecini kullanmak tavsiye ediliyor.

Örnek Kullanım İnline ile program 14 saniyede çalışırken normal kullanımda 19 saniyede sonuç veriyor.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

 { TForm1 }

 TForm1 = class(TForm)
   Button1: TButton;
   Memo1: TMemo;
   procedure Button1Click(Sender: TObject);
 private

 public
       function Summation (num : integer) : LongInt;inline;
 end;

var
 Form1: TForm1;

implementation
  uses DateUtils;
{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  d1,d2 : TDateTime;
begin
 d1:=Now;
 for i:=0 to 5000 do
   Memo1.Lines.Add(IntToStr(i)+'.'+Summation(100000).ToString);
 d2:=Now;
 ShowMessage(SecondsBetween(d2,d1).ToString);
end;

function TForm1.Summation (num : integer) : LongInt;inline;
begin
 if num = 1
 then Summation := 1
 else Summation := Summation(num-1) + num
end;

end.

Embarcadero Konu Linki : Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Bu konuyu yazdır