Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi
Ön Sipariş Talebinde Bulunan Üyelerimiz
Sipariş Talebinde Bulunan Üyelerimiz
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.409
» Son Üye: sharamrit
» Toplam Konular: 2.687
» Toplam Yorumlar: 21.812

Detaylı İstatistikler

Son Aktiviteler
Tutar kısmındaki soru işa...
Forum: Genel Programlama
Son Yorum:

edo
2 saat önce
» Yorumlar: 9
» Okunma: 212
Delphi 10.3 Rio
Forum: Delphi 10.3 Rio
Son Yorum:

pro_imaj
3 saat önce
» Yorumlar: 66
» Okunma: 2.478
Yeni Kaynak Kitabın Yayın...
Forum: Kitap Hakkında
Son Yorum:

yhackup
4 saat önce
» Yorumlar: 29
» Okunma: 1.196
Delphi ile Android Uygula...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

Fesih ARSLAN
4 saat önce
» Yorumlar: 4
» Okunma: 78
chart bileseni
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

klavye
5 saat önce
» Yorumlar: 2
» Okunma: 73
[+10 Puan] String Manipül...
Forum: Access violation
Son Yorum:

Tuğrul HELVACI
6 saat önce
» Yorumlar: 16
» Okunma: 427
TNetHttpClient post json
Forum: Genel Programlama
Son Yorum:

ahmet_sinav
6 saat önce
» Yorumlar: 6
» Okunma: 124
Dosya Bulma (Algoritmik S...
Forum: Access violation
Son Yorum:

engerex
6 saat önce
» Yorumlar: 28
» Okunma: 427
[Çözümlü] Google Play'de ...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

nguzeller
8 saat önce
» Yorumlar: 7
» Okunma: 157
Çevirimiçi Diyagram Çizim...
Forum: Program Tanıtımı
Son Yorum:

frmman
Dün, Saat: 19:44
» Yorumlar: 6
» Okunma: 93

 
Lightbulb InputQuery kullanımı
Yazar: Mr.Developer - 12-11-2018, Saat: 20:05 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (4)

iyi akşamlar,

Projem de butonların isimlerini kullanıcının değiştirmesine imkan sağlamak için edit kullanmak yerine kolay bir çözüm getirmek için bakınırken delphi ile gelen örnek projelerden SQLite örnek projesine rastladım ve orda mobil için İnputbox ya da delphideki adı ile İnputQuery'nin kullanıldığını gördüm ve kullandım. bunu da paylaşmak istedim belki birisinin de işine yarar düşüncesi ile  Shy

uses : IOUtils, FMX.DialogService;

procedure Tgoogleform.Button1Click(Sender: TObject);
var
 LDefaultValue, LPrompt, TaskName: string;
begin
 try
   LPrompt := 'E-Posta';
   LDefaultValue := '';
   TDialogService.InputQuery('E-Posta Adresinizi Giriniz', [LPrompt], [LDefaultValue],
     procedure(const AResult: TModalResult; const AValues: array of string)
     begin
       if AResult = mrOk then
         TaskName := AValues[0]
       else
         TaskName := '';
       if not (TaskName.Trim = '') then
       begin
        Button1.Text  := TaskName ;
       end;
     end);
 except
   on e: Exception do
   begin
     ShowMessage(e.Message);
   end;
 end;
end;

Bu konuyu yazdır

  Dosya Bulma (Algoritmik Soru Serisi)
Yazar: yhackup - 12-11-2018, Saat: 19:38 - Forum: Access violation - Yorumlar (28)

Merhabalar

Bir fonksiyona ihtiyacım oldu ve az biraz uğraşarak hallettim gayet hızlı çalışıyor ancak acaba daha farklı bir bakışla daha farklı fonksiyonlar çıkacak mı siz olsanız hangi yolu izlerdiniz görmek istedim.

Bir Klasörüm var "C:\\Delphi"

Bu dizin içerisinde Yıl\Ay\Gün bazlı klasörler ve bu klasörlerde dosyalar var format önemli değil var sayalım hepsi *.log uzantılı...

Örnek,
TSm3N.png


Elimizde bir değer var , Olması muhtemel dizin, yani bu şekilde "C:\Delphi\2018\Kasım\04\delphix1453.log" eğer dosya gerçekten bu dizindeyse aynısını geri dönüyoruz.

Ancak bu dosya bir gün öncesine veya 7 , 15 gün öncesine de ait olabilir. dolayısı ile 
"C:\Delphi\2018\Kasım\04" dizininde,
"C:\Delphi\2018\Kasım\02" dizininde,
"C:\Delphi\2018\Ekim\28" dizininde dahi olabilir ancak maximum aralık 15 gün varsayalım dılayısı ile 1 path yukarı çıkmamız yeterli.

Dosyayı en hızlı ve kusursuz doğrulukta bulacak bir fonksiyon istiyorum.

Not: Kusursuz doğruluktan kastım eğer string fonksiyonum boş değilse , dönen stringi Fileexiste soktuğumda true dönmesi şart.

Bu konudaki doğru yanlış gördüğüm tüm çabaya puan vereceğim.

Bu konuyu yazdır

  Embarcadero Forum
Yazar: SimaWB - 12-11-2018, Saat: 19:31 - Forum: Yenilikler & Son Güncellemeler - Yorumlar (1)

Geliştiriciler için Embarcadero'nun yeni forumu yayında:
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Bu konuyu yazdır

  Bug mı, mantıksal hata mı?
Yazar: Fesih ARSLAN - 12-11-2018, Saat: 14:20 - Forum: İpuçları - Yorumlar (1)

Merhaba,
Mobil uygulamalarda (FMX), MultiView bileşeni bir MasterButton yarımıyla veya kullanıcı davranışı ile gösterilir veya gizlenir. 
Ayrıca istenirse bir olaya bağlı olarak da gösterilebilir veya gizlenebilir (ShowMaster/HideMaster).
MultiView bileşeni açık durumdayken, bir formu show yapmaya çalışırsanız (Delphi 10.2.3), uygulama kırılıyor ve sonlandırılıyor.
MultiView bileşenini gizledikten sonra formu Show yapınca herhangi bir hata oluşmadan uygulama rutin çalışmasına devam ediyor.  Huh
Yani siz siz olun, arka planda bir MultiView'i açık bırakmayın (şimdilik).

Bu konuyu yazdır

  MCU (Mikrodenetleyici) nedir?
Yazar: engerex - 12-11-2018, Saat: 13:36 - Forum: Akıllı Otomasyon Sistemleri ve İletişimleri (Arduino & Raspberry PI) - Yorumlar (5)

Mikrodenetleyici (kısaca MCU) ile mikroişlemci birbirine benzese de aralarında farklar vardır. Kısaca mikroişlemci = CPU, mikrodenetleyici = CPU  + Bellek (RAM ve flash) + çevre birimleri (ADC, DAC, UART, SPI, I2C gibi).
 Yani mikrodenetleyiciler harici flash hafızaya ve RAMe ihtiyaç duymazlar.

image.png

Mikrodenetleyiciler nerede kullanılır? Çamaşır makinesi, bulaşık makinesi, akıllı saatler, yazıcılar, otomobiller ve daha bir çok elektronik cihaz mikrodenetleyici içerir. Elektronik cihazda basılan her tuş mikrodenetleyicide işlenir buna göre işlem yapılır.

giphy.gif


(Güncellenecek...)

Bu konuyu yazdır

  [+10 Puan] String Manipülasyon İşlemleri
Yazar: Abdullah ILGAZ - 12-11-2018, Saat: 13:20 - Forum: Access violation - Yorumlar (16)

Merhaba,

Aşağıdaki işlemleri en pratik ve kısa yöntem ile yapan tüm arkadaşlara +10 puan verilecektir.

Not: Kullanılan yöntem ve yaklaşımın tekrar etmesi durumunda aynı yöntemden puan verilmeyecektir. Bu yüzden o yöntemi ilk kullanan puanı alır.


1. Sağdan N Karakter Alma (+2 Puan)

İçine verilen string değişkenin sonundan istenilen miktarda karakteri veren fonksiyon.


var
str:string;

begin
str := 'DelphiCan';
ShowMessage(SizinFonksiyon(str,3)); // Sondan 3 karakteri ver. Çıktı: "Can" olmalı.
end;

Dipnot: RightStr(value,3) bu işi gören System.StrUtils kütüphanesindeki bir fonksiyondur.


2. Seçilen yöne göre istenilen miktarda karakter alma (+5 Puan)

String verinin ilk/son üç karakterini alan fonksiyon.

var
str:string;

begin
str := 'DelphiCan';
ShowMessage(SizinFonksiyon(str,'L',3)); // Soldan 3 karakteri ver. Çıktı: "Del" olmalı.
ShowMessage(SizinFonksiyon(str,'R',3)); // Sağdan 3 karakteri ver. Çıktı: "Can" olmalı.
end;

3. Belirtilen string değerinin sondan N karakteri silme (+3 Puan)

String ve belirtilen miktarda karakteri soldan/sağdan silen fonksiyon.


var
str:string;

begin
str := 'DelphiCan';
ShowMessage(SizinFonksiyon(str,'L',6)); // Soldan 6 karakteri sil. Çıktı: "Can" olmalı.
ShowMessage(SizinFonksiyon(str,'R',3)); // Sağdan 3 karakteri sil. Çıktı: "Delphi" olmalı.
end;


Kolay gelsin!

Bu konuyu yazdır

  Localhostta wsdl açılmıyor
Yazar: enes6635 - 12-11-2018, Saat: 11:53 - Forum: Delphi ile Web Teknolojileri - Yorumlar (4)

Basit web servis oluşturmaya çalışıyorum. Hatta oluşturdum ancak
localhostta

 localhost/WSDeneme/WSDeneme.dll

i çalıştırdıktan sonra

 localhost/WSDeneme/WSDeneme.dll/wsdl/IWSDeneme

WSDL sayfasına gittiğim zaman 404 hatası veriyor.
Sıkıntı ne olabilir?

Bu konuyu yazdır

Information MikroPascal ile STM32F4 Discovery USB HID Haberleşme
Yazar: engerex - 12-11-2018, Saat: 00:36 - Forum: Akıllı Otomasyon Sistemleri ve İletişimleri (Arduino & Raspberry PI) - Yorumlar (4)

Herkese merhaba,

STM32F4 Discovery kit için MikroPascal ile basit bir proje örneği.
Masaüstünde pascal/object pascal/Delphi kullanıp mikrokontrolcü için farklı dillere yönelmek zorunda olanlar için basit ve ufak bir örnek.
(Bu örnekte masaüstü için herhangi bir uygulama yazmıyoruz.)

Derleyici ile gelen USB HID terminal uygulaması yardımı ile mikrokontrolcüye bilgi yolluyoruz.
Mikrokontrolcü bize yazdığımız uygulama vasıtası ile cevap olarak aynı bilgiyi gönderiyor.
Veri iletiminin teyiti olarak geliştirici kartı üzerindeki 4 led her bir işlemde yanıyor veya sönüyor.

İhtiyacımız olanlar;
1) STM32F4 Discovery kit (veya farklı bir board) : Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
2) MikroPascal PRO for ARM (veya dileyen MikroC, MikroBasic) : Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
3) Mini USB kablo. Kartı beslemek ve programlama için.
4) Mikro USB kablo. USB iletişimi sağlamak için.

Kart üzerinde programlayıcı mevcut olduğundan ayrıca bir programlayıcıya ihtiyacımız yok. Kart üzerindeki programlayıcı sayesinde harici mikrokontrolcüleri de programlamak mümkün.

Proje kaynak dosyası : Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Eğer ilgili board ile test etmek isterseniz direk projeyi kullanın. Farklı bir board ile test etmek isterseniz yada uygulama içerisinden kendi projenizi oluşturmak isterseniz sistem saat ayarlarını doğru biçimde yapmanız gerekir.

image.png

image.png

image.png

Bu konuyu yazdır

  Removable Drive Listesi Alma
Yazar: mcuyan - 11-11-2018, Saat: 15:21 - Forum: İpuçları - Yorumlar (2)

Merhaba Arkadaşlar.

Çıkarılabilir USB disklerin listesini almak için:

procedure GetDriveLetters(AList: TStrings);
var
 vDrivesSize: Cardinal;
 vDrives: array [0 .. 128] of Char;
 vDrive: PChar;
 typ: Integer;//**
 s: string;//**
begin
 AList.BeginUpdate;
 try
   AList.Clear;
   vDrivesSize := GetLogicalDriveStrings(SizeOf(vDrives), vDrives);
   if vDrivesSize = 0 then
     Exit;
   vDrive := vDrives;
   while vDrive^ <> #0 do
   begin
     s := StrPas(vDrive); //**
     typ := GetDriveType(PChar(s));//**
     if typ <> 0 then//**
       case typ of//**
         DRIVE_REMOVABLE://**
           begin//**
             AList.Add(StrPas(vDrive));
           end;//**
       end;//**

     Inc(vDrive, SizeOf(vDrive));
   end;
 finally
   AList.EndUpdate;
 end;
end;

Kullanımı:

GetDriveLetters(ListBox1.Items);

Not: //** kısmıını silerseniz tüm Sürücü listesini alabilirsiniz..

Bu konuyu yazdır

  UniDBGrid Kolonları Büyüklüklerini Eşitleme
Yazar: Halil Han Badem - 10-11-2018, Saat: 00:52 - Forum: Delphi ile Web Teknolojileri - Yorum Yok

Merhaba,

uniDBGrid bileşeninde eğer kolonların genişliğini ekran büyüklüğüne göre hizalamak isterseniz bunun için ForceFit özelliğini True yapmanız gerekmektedir.

gridKullanicilar.ForceFit := True;

İyi çalışmalar.

Bu konuyu yazdır