Forum İstatistikleri
Son Mesajlar
KonuTarih, saat YazarSon Gönderen Forum
  IntraWeb ile web sitesi yapılır mı Linux üzerin... 1 saat önce41linea41delphi.developer Delphi ile Web Teknoloji...
  Sanal makine de Delphi ? 1 saat önceMr.DeveloperAktolgali Muhabbet Olsun
  Firemonkey WebBrowser Dosya Seçimi 1 saat öncenarkotiknarkotik Mobil Platform - FireMon...
  Trigger'a parametre göndermek 3 saat önceAktolgaliserdar FireBird
  Firebird Trigger'a parametre gönderme 3 saat önceesistemAktolgali FireBird
  Interbase sürümleri ve aralarindaki farklar ? 4 saat önceUgurnguzeller Interbase
  Comport Haberleşme Nasıl Yapılır? 4 saat önceglagherdicle_gsm Genel Programlama
  IDE kapanma hatası 6 saat önceserdarserdar Genel Programlama
  Delphi ile Arduino & Raspberry PI gibi Cihazlar... 7 saat önceFesih ARSLANFesih ARSLAN Akıllı Otomasyon Sisteml...
  1965-2019 arası programlama dillerinin popülerl... 9 saat öncecsunguraycsunguray Muhabbet Olsun
  3D görünmeyi kaybettim. 10-12, 23:19AktolgaliAktolgali 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.940
» Son Üye: ozcerci
» Toplam Konular: 3.762
» Toplam Yorumlar: 30.593

Detaylı İstatistikler

Son Aktiviteler
IntraWeb ile web sitesi y...
Forum: Delphi ile Web Teknolojileri
Son Yorum:

delphi.developer
1 saat önce
» Yorumlar: 1
» Okunma: 87
Sanal makine de Delphi ?
Forum: Muhabbet Olsun
Son Yorum:

Aktolgali
1 saat önce
» Yorumlar: 9
» Okunma: 471
Firemonkey WebBrowser Dos...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

narkotik
1 saat önce
» Yorumlar: 0
» Okunma: 9
Trigger'a parametre gönde...
Forum: FireBird
Son Yorum:

serdar
3 saat önce
» Yorumlar: 3
» Okunma: 59
Firebird Trigger'a parame...
Forum: FireBird
Son Yorum:

Aktolgali
3 saat önce
» Yorumlar: 1
» Okunma: 653
Interbase sürümleri ve ar...
Forum: Interbase
Son Yorum:

nguzeller
4 saat önce
» Yorumlar: 3
» Okunma: 34
Comport Haberleşme Nasıl ...
Forum: Genel Programlama
Son Yorum:

dicle_gsm
4 saat önce
» Yorumlar: 2
» Okunma: 47
IDE kapanma hatası
Forum: Genel Programlama
Son Yorum:

serdar
6 saat önce
» Yorumlar: 8
» Okunma: 111
Delphi ile Arduino & Rasp...
Forum: Akıllı Otomasyon Sistemleri ve İletişimleri (Arduino & Raspberry PI)
Son Yorum:

Fesih ARSLAN
7 saat önce
» Yorumlar: 17
» Okunma: 5.596
1965-2019 arası programla...
Forum: Muhabbet Olsun
Son Yorum:

csunguray
9 saat önce
» Yorumlar: 0
» Okunma: 29

 
  Firemonkey WebBrowser Dosya Seçimi
Yazar: narkotik - 1 saat önce - Forum: Mobil Platform - FireMonkey (FMX) - Yorum Yok

Merhaba,
Fmx ile Webview Android bir uygulama geliştiriyorum. Şuanda takıldığım bir sorun mevcut. Tarayıcı üzerinden input type file dosya seçimi yaptırıyorum. Android cihazlarda chrome da çalışmada herhangi bir problem yok dosya seçimi çalışıyor. Fakat firemonkey ile derlenen mobil uygulamada çalışmıyor. Konu ile ilgili bir araştırma yaptım android'in bir engellemesi mevcut. Diğer dillerle geliştirilen uygulamalarda da bu sorun yaşanıyormuş. Fakat alternatif çözümler Java için forumlarda mevcut. Firemonkey de bu sorunu nasıl aşabiliriz.

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız. Chrome sarmalı ile ilgili bir örnek mevcut fakat demolarını indiremiyorum, kodlarını test ettiğimde de doğru sonucu alamıyorum. Bu konuda bir çalışma yapan varsa yardımlarını veya çözüm önerilerini benimle paylaşırsa sevinirim.

Bu konuyu yazdır

  Interbase sürümleri ve aralarindaki farklar ?
Yazar: Ugur - 8 saat önce - Forum: Interbase - Yorumlar (3)

Selam Üstadlar,

Interbase 2017 de Server, Desktop , ToGo ve Lite arasindaki farklar nedir ?
Yazdiginiz programlarda gömülü veritabani olarak hangisini kullaniyorsunuz ?

Server ve Lite sürümlerini bir nevi anliyabiliyorum ama Desktop ve ToGo da pek emin degilim.

Bu konuyu yazdır

  1965-2019 arası programlama dillerinin popülerliği
Yazar: csunguray - 9 saat önce - Forum: Muhabbet Olsun - Yorum Yok

Eğlenceli bir video

Most Popular Programming Languages 1965 - 2019
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.



Bu konuyu yazdır

  Trigger'a parametre göndermek
Yazar: Aktolgali - 10 saat önce - Forum: FireBird - Yorumlar (3)

Merhaba;

Delphi tarafından trigger'a parametre göndermek mümkün mü?
Triggerın çalıştığı tabloda olmayan bir alanı triggera parametre olarak göndermek istiyorum, yapılabilir mi?

Bu konuyu yazdır

  Comport Haberleşme Nasıl Yapılır?
Yazar: glagher - 11 saat önce - Forum: Genel Programlama - Yorumlar (2)

cportlib adında bir comport componenti indirim ve kurdum.Bu arada delphi xe7 kullanıyorum.BU component ile ilgili örnek bir kod parçasıda buldum ama bende çalışmadı hatada vermedi.

Örnek Kod parçası

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, CPort, Vcl.StdCtrls, Vcl.ExtCtrls;



type

  TFTerazi = class(TForm)

    ComPort1: TComPort;

    BtnGonder: TButton;

    Timer1: TTimer;

    Memo1: TMemo;

    Label1: TLabel;

    procedure BtnGonderClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    cRcvBuffer         : PChar;

    CharCntReceived    : Integer;

    { Public declarations }

  end;



var

  FTerazi: TFTerazi;



implementation



{$R *.dfm}



procedure TFTerazi.BtnGonderClick(Sender: TObject);

begin

CharCntReceived := 0;

comport1.WriteStr('@00RD0000001552*'+#13+#0);

end;



procedure TFTerazi.FormCreate(Sender: TObject);

begin

cRcvBuffer := StrAlloc(512);

CharCntReceived := 0;

end;



procedure TFTerazi.Timer1Timer(Sender: TObject);

var x,y:integer;

    a:string;

begin

  x:=comport1.read(cRcvBuffer[CharCntReceived],512);



if x>0 then begin

  a:='';

  for y:=CharCntReceived to CharCntReceived+x-1 do a:=a+crcvbuffer[y];

  Memo1.Lines.Add('Alınan : '+ a);

  Label1.Caption:='Alınan : '+ a;

  //Lines.Add ('Alınan : '+ a); //Denemek iiçin ana ekrana memo ekle

end;

CharCntReceived := CharCntReceived +x;
end;

.dfm dosyası

object ComPort1: TComPort
   Connected = True
   BaudRate = br9600
   Port = 'COM1'
   Parity.Bits = prEven
   StopBits = sbTwoStopBits
   DataBits = dbSeven
   Events = [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD, evRx80Full]
   FlowControl.OutCTSFlow = False
   FlowControl.OutDSRFlow = False
   FlowControl.ControlDTR = dtrDisable
   FlowControl.ControlRTS = rtsDisable
   FlowControl.XonXoffOut = False
   FlowControl.XonXoffIn = False
   Left = 48
   Top = 32
 end


Yardımcı olursanız sevinirim

Bu konuyu yazdır

  3D görünmeyi kaybettim.
Yazar: Aktolgali - 12-10-2019, Saat: 22:47 - Forum: Genel Programlama - Yorumlar (2)

Merhaba;

Arkadaşlar daha önce yaptığım bir programı geliştirebilmek için kopyaladım fakat bu programı çalıştırınca kontrollerim 3d özelliğini kaybetti ve bir türlü düzeltemiyorum. Farklı bir ayarımı var, varsa nasıl, nerede?

İlk yaptığım hali böyleydi
EaxkCo.png


Kopyaladıktan sonra böyle oldu
EauwAh.png


Özür dilerim yazmayı unutmuşum.

d2007 kullanıyorum ve hiçbir skin componenti kullanmadım.

Bu konuyu yazdır

  Anket; Kaç Yaşındasınız? Delphi Kullanıcı Yaş Ortalaması
Yazar: pro_imaj - 12-10-2019, Saat: 22:01 - Forum: Muhabbet Olsun - Yorum Yok

Merhaba,

Delphi kodlayıcılarının genelde 40+ yaş üzerinde oldu görüşü hakim, anket sonucu ve bu konu başlığı ile anlamlı sonuçlara ulaşabiliriz.

*unigui tarafında Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız. başlık altında güzel etkileşimler var.

Ben 36 yaşındayım 2001 yılında delphi ile tanıştım 2009 yılına kadar aktif proje geliştirdim. 2009'dan itibaren 9 yıl SAP/ABAP kodladım hala ABAP projeleri devam ediyor. 2017 yılında Delphi tarafında da tekrar proje geliştirmeye başladım.

Bu konuyu yazdır

  Yararlı Kütüphane için Fonksiyonlar
Yazar: 3ddark - 12-10-2019, Saat: 17:43 - Forum: İpuçları - Yorumlar (1)

Bilgisayardaki network kartlarının tanımlı olan mac adres bilgilerini liste halinde getirir.

//uses Winapi.Nb30 eklenmeli
function GetMACAddress: TStringList;
var
  AdapterList: TLanaEnum;
  NCB: TNCB;
  nIndex: integer;
begin
  Result := TStringList.Create;
  FillChar(NCB, SizeOf(NCB), 0);
  NCB.ncb_command := Char(NCBENUM);
  NCB.ncb_buffer := @AdapterList;
  NCB.ncb_length := SizeOf(AdapterList);
  Netbios(@NCB);
  if Byte(AdapterList.length) > 0 then
  begin
    for nIndex := 0 to Byte(AdapterList.length) - 1 do
    begin
      Result.Add(GetAdapterInfo(AdapterList.lana[nIndex]));
    end;
  end;
end;
Verilen dosyayı 
//verilen dosya adını byte array olarak sonuç veriyor.
function FileToByteArray(const FileName: WideString): TArray<Byte>;
const
 BLOCK_SIZE = 1024;
var
 BytesRead, BytesToWrite, Count: integer;
 F: file of Byte;
 pTemp: Pointer;
begin
 AssignFile(F, FileName);
 Reset(F);
 try
   Count := FileSize(F);
   SetLength(Result, Count);
   pTemp := @Result[0];
   BytesRead := BLOCK_SIZE;
   while (BytesRead = BLOCK_SIZE) do
   begin
     BytesToWrite := Min(Count, BLOCK_SIZE);
     BlockRead(F, pTemp^, BytesToWrite, BytesRead);
     pTemp := Pointer(LongInt(pTemp) + BLOCK_SIZE);
     Count := Count - BytesRead;
   end;
 finally
   CloseFile(F);
 end;
end;

//parametre olarak verilen byte array bilgiyi verilen dosyaya yazıyor.
procedure ByteArrayToFile(const ByteArray: TBytes; const FileName: string);
var
 Count: Integer;
 F: file of Byte;
 pTemp: Pointer;
begin
 AssignFile(F, FileName);
 Rewrite(F);
 try
   Count := Length(ByteArray);
   pTemp := @ByteArray[0];
   BlockWrite(F, pTemp^, Count);
 finally
   CloseFile(F);
 end;
end;

//CharInSet fonksiyonu gibi array içinde istenilen bilgi var mı kontrol ediyor. Birden fazla farklı veri tiplerine göre bilgilerde kontrol yapıyor.
function CheckIntegerInArray(pArr: ArrayInteger; pKey: Integer): Boolean;
var
  n1: Integer;
begin
  Result := False;
  for n1 := 0 to Length(pArr) - 1 do
  begin
    if pKey = pArr[n1] then
      Result := True;
    Exit;
  end;
end;

function CheckStringInArray(pArr: TArray<string>; pKey: string): Boolean;
var
  n1: Integer;
begin
  Result := False;
  for n1 := 0 to Length(pArr) - 1 do
  begin
    if pKey = pArr[n1] then
      Result := True;
    Exit;
  end;
end;

Dosyanın boyutunu veriyor
{$IFDEF MSWINDOWS}
function GetFileSize(pFileName: string): Int64;
var
 vSearchRec: TSearchRec;
begin
{$WARN SYMBOL_PLATFORM OFF}
 //SearchRec.Size property works, but only for files less than 2GB
 if FindFirst(pFileName, faAnyFile, vSearchRec) = 0 then
   Result := Int64(vSearchRec.FindData.nFileSizeHigh) shl Int64(32) + Int64(vSearchRec.FindData.nFileSizeLow)
 else
   Result := 0;
 FindClose(vSearchRec);
{$WARN SYMBOL_PLATFORM ON}
end;
{$ENDIF MSWINDOWS}

string içinde hangi karakterden kaç tane olduğunu söylüyor
Bu fonksiyon string helper içinde CountOfChar olarak tanımlı ama eski sürümlerde bu bilgi yok bu nedenle bunları da paylaşıyorum.
function CountOfChar(pSrc: string; pDelimiter: Char): Integer;
var
  n1: Integer;
begin
  Result := 0;
  for n1 := Low(pSrc) to High(pSrc) do
    if pSrc[n1] = pDelimiter then
      Inc(Result);
end;

Verilen bilgiyi girilen anahtar ile şifreler. Şifre anahtar değeri (0-65535 aralığında) ile bilgiyi şifrelemek için kullanılır. TC Kimlik No bilgisini şifrelemek için
Tam tersi şifreli bilgiyi çözmek için şifreli bilgiyi, öncesinde kullanılan şifreleme anahtarı gönderip normal bilgiye ulaşabiliriz.
EncryptStr('30850331144', 14257); //Sonuç: 040EF0D744DA01BA36DAE5
DeCryptStr('040EF0D744DA01BA36DAE5', 14257); //Sonuç: 30850331144
function EncryptStr(const S: WideString; Key: Word): string;
var
 n1: Integer;
 vRStr: RawByteString;
 vRStrB: TBytes absolute vRStr;
begin
 Result := '';
 vRStr := UTF8Encode(S);
 for n1 := 0 to Length(vRStr) - 1 do
 begin
   vRStrB[n1] := vRStrB[n1] xor (Key shr 8);
   Key := (vRStrB[n1] + Key) * CKEY1 + CKEY2;
 end;

 for n1 := 0 to Length(vRStr) - 1 do
   Result := Result + IntToHex(vRStrB[n1], 2);
end;

function DecryptStr(const S: string; Key: Word): string;
var
 n1, vTmpKey: Integer;
 vRStr: RawByteString;
 vRStrB: TBytes absolute vRStr;
 vTmpStr: string;
begin
 vTmpStr := UpperCase(S);
 SetLength(vRStr, Length(vTmpStr) div 2);
 n1 := 1;
 try
   while (n1 < Length(vTmpStr)) do
   begin
     vRStrB[n1 div 2] := StrToInt('$' + vTmpStr[n1] + vTmpStr[n1 + 1]);
     Inc(n1, 2);
   end;
 except
   Result := '';
   Exit;
 end;

 for n1 := 0 to Length(vRStr) - 1 do
 begin
   vTmpKey := vRStrB[n1];
   vRStrB[n1] := vRStrB[n1] xor (Key shr 8);
   Key := (vTmpKey + Key) * CKEY1 + CKEY2;
 end;

 Result := UTF8ToString(vRStr);
end;

//Color dialog penceresi varsayılan renk ataması yapıyoruz.
function GetDialogColor(pColor: TColor = 0): TColor;
var
 vColorDialog: TColorDialog;
begin
 vColorDialog := TColorDialog.Create(nil);
 try
   vColorDialog.Color := pColor;
   vColorDialog.Execute(Application.Handle);
   Result := vColorDialog.Color;
 finally
   vColorDialog.Free;
 end;
end;

//klasör seçtirme dialog u seçilen klasörün yolunu veriyor.
{$WARN SYMBOL_PLATFORM OFF}
function GetDialogDirectory(pInitialDir: string): string;
var
 OpenDialog: TFileOpenDialog;
begin

 OpenDialog := TFileOpenDialog.Create(nil);
 try
   if pInitialDir = '' then
     OpenDialog.DefaultFolder := '%USERPROFILE%\desktop'
   else
     OpenDialog.DefaultFolder := pInitialDir;

   OpenDialog.Title := 'Select Directory';
   OpenDialog.Options := [fdoPickFolders, fdoPathMustExist, fdoForceFileSystem]; // YMMV
   OpenDialog.OkButtonLabel := 'Select';

   if OpenDialog.Execute then
     Result := OpenDialog.FileName;
 finally
   OpenDialog.Free;
 end
end;
{$WARN SYMBOL_PLATFORM ON}

Kendi işlerimde kullandığım fonksiyonları paylaşıyorum.

Bu konuyu yazdır

  IDE kapanma hatası
Yazar: serdar - 12-10-2019, Saat: 12:58 - Forum: Genel Programlama - Yorumlar (8)

Merhaba arkadaşlar
10.3.2 lisanslı ide kullanıyorum. son 10 gundur IDE kapattiktan sonra aşagıdaki hatayı alıyorum.
Aynı sorunu yaşayan yada çözümünü bilen varmıdır.



Ek Dosyalar Ekran Görüntüleri
   
Bu konuyu yazdır

  FireMonkey ile Modern Arayüz Tasarımı Webinarı (Web Semineri)
Yazar: Abdullah ILGAZ - 12-10-2019, Saat: 01:10 - Forum: Embarcadero Görsel Eğitimleri - Yorumlar (1)

Herkese Merhaba,

Embarcadero tarafından yayınlanacak olan ve Ekim 2019 içerisinde çevrimiçi olarak gerçekleştireceğimiz ve sizlere FireMonkey ile Modern Arayüz Tasarımı konusunda yapacağım anlatım, workshop ve soru-cevaptan oluşan web seminerine davetlisiniz.

Eğitim ilk olarak 1 saatlik anlatım ve workshop, akabinde soru-yanıt formatı ile ilerleyecektir. Etkinlik ilan tarihinden sonra buradan netleşen detayları sizlerle paylaşayacağım. 

Etkinlik boyunca aşina olduğumuz modern arayüzlerin ve kullanıcı deneyimlerinin bize sağladıkları üzerinde duracağız. Bir veya iki tane UI tasarımını UX prensiplerine bağlı olarak ve Responsive olması koşulu ile tamamlayacağız.

Etkinlik süresi boyunca görmek istediğiniz veya içerisinde olmasını istediğiniz özel bir konu var ise lütfen yorum olarak belirtiniz.

Görüşmek üzere!

Bu konuyu yazdır