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.566
» Son Üye: motorola
» Toplam Konular: 3.084
» Toplam Yorumlar: 25.399

Detaylı İstatistikler

Son Aktiviteler
istenen işlem yükseltme g...
Forum: Genel Programlama
Son Yorum:

sabanakman
30 dakika önce
» Yorumlar: 2
» Okunma: 26
2-Kitap Kargo Takip - Gön...
Forum: Kitap Hakkında
Son Yorum:

Fesih ARSLAN
51 dakika önce
» Yorumlar: 33
» Okunma: 797
BMP resim dosyalarında bo...
Forum: Genel Programlama
Son Yorum:

engerex
1 saat önce
» Yorumlar: 2
» Okunma: 53
Kitap hakkında
Forum: Görüş & Öneri ve Yorum
Son Yorum:

ahmet_sinav
2 saat önce
» Yorumlar: 11
» Okunma: 390
Bileşen var mı yok mu ?
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

Fesih ARSLAN
2 saat önce
» Yorumlar: 1
» Okunma: 55
Özel bir TVertScrollBox
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

CesuR
2 saat önce
» Yorumlar: 3
» Okunma: 187
Medula Login Olma
Forum: Genel Programlama
Son Yorum:

Hayati
3 saat önce
» Yorumlar: 17
» Okunma: 470
Ağdaki Şifreli Paylaşıma ...
Forum: Genel Programlama
Son Yorum:

theSinan
5 saat önce
» Yorumlar: 15
» Okunma: 449
Soap Serverd uygulamasınd...
Forum: Genel Programlama
Son Yorum:

yhackup
6 saat önce
» Yorumlar: 4
» Okunma: 96
MSSQL Yedekleme Programı
Forum: Hazır Programlar
Son Yorum:

mrmarman
Bugün, Saat: 00:55
» Yorumlar: 6
» Okunma: 128

 
  14 Şubat :)
Yazar: sabanakman - 14-02-2019, Saat: 10:19 - Forum: Muhabbet Olsun - Yorumlar (19)

Delphi 24 yaşında (akıllara başka bir şey gelmesin Tongue )

Bu konuyu yazdır

  Apple Store Sürüm yayımlama süresi Hk.
Yazar: mcuyan - 13-02-2019, Saat: 19:52 - Forum: Muhabbet Olsun - Yorumlar (2)

Merhaba arkadaşlar.

IOS uygulamanızı appstore da yayımlarken ahiret sorusu sordukları ve sürecin uzun olduğu konusunda birçok bildirim ve geri dönüş almıştım.

13.02.2019 (Bugün) gece 02 sularında yeni sürüm yayımladım ve hiç bir soru vs sorulmadan uygulamamın yine 13.02.2019 (Bugün) 19.00 sularında yayımlandığını görünce şok oldum.. Hani daha önceki sürümlerimde bikaçgün geçtiğini gördüm ama bu kadar hızlı yayımlandını görünce şaşırdım   Rolleyes Shy

Acaba Apple bana imtiyaz mı geçiyor diye düşünmüyor değilim hani :Smile
Siz ne düşünüyorsunuz bu konuda..? Confused



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

  Zxing-Barcode scanner kaldırıldı !
Yazar: Mr.Developer - 13-02-2019, Saat: 15:59 - Forum: Muhabbet Olsun - Yorumlar (8)

Zxing Team'ın barkot okuma uygulamasını kullanan birisi olarak ( Projemde ) kötü bir an yaşadım  Smile

tam "Sonunda hepsi bitti" diyip yayınlamak üzere idim ve birde ne göreyim adamlar yayından çekmiş uygulamayı.

Kolsuz bacaksız kalmak gibi bir durum tabi bu ve bende çözümü apkMirror sağolsun ordan indirdim ama kullanıcılar neden google play dışı uygulama yüklesin o da ayrı muamma tabi.

sizin bu konuda öneriniz var mı ? diye de paylaşmak istedim Shy

Bu konuyu yazdır

  3-Kitap Kargo Takip - Gönderi Tarihi: 13.02.2019
Yazar: Fesih ARSLAN - 13-02-2019, Saat: 15:30 - Forum: Kitap Hakkında - Yorumlar (15)

kargo3.jpg

@mad85 Yurtiçi Kargo Takip No: 817589315340

Bu konuyu yazdır

  Kitabımızın Online Satış Sitesi
Yazar: Fesih ARSLAN - 13-02-2019, Saat: 15:05 - Forum: Kitap Hakkında - Yorumlar (26)

Merhaba,
Kitabımızın Satış Sitesi: https://store.btgrubu.com/book/

   

Bu konuyu yazdır

  Kodlarınızı neden ingilizce yazıyorsunuz?
Yazar: ssahinoglu - 13-02-2019, Saat: 11:08 - Forum: Muhabbet Olsun - Yorumlar (7)

20 yıl önce bu soruyu bir arkadaşıma sorduğumda bana "belki ileride yabancı biriyle paylaşılır" falan deyince garipsemiştim.

Şimdi aynı soruyu sizlere soruyorum. Neden değişken ve fonksiyon adlarını ingilizce 'kavramlar' şeklinde yazıyorsunuz?

Bu konuyu yazdır

  Thread kod kontrolü
Yazar: esistem - 13-02-2019, Saat: 11:02 - Forum: Genel Programlama - Yorumlar (2)

Arkadaşlar merhaba, bir projede kullanmak üzere bir örnekten yararlanarak soket programı yazdım (kodlar aşağıda), thread ile kontrol sağlamaya çalıştım, şu an için 3-4 makinada sorunsuz çalışıyor. Konu hakkında uzman arkadaşlar kodu inceleyip ileride bir sorun çıkartırmı veya kodun yazılışında bir sorun varmı, ilaveler yapılabilirmi vs.vs. gibi kafamdaki sorular hakkında yorum yapabilirlerse memnun olurum. İleride 100 civarı (yerel ve uzak bağlantı şeklinde) kullanıcı bağlanacak şekilde kullanmayı düşünüyorum.

unit http_listen;

{$mode objfpc}{$H+}
//{$DEFINE Debug}

interface

uses
 Classes, SysUtils, blcksock, sockets,
 Synautil, // synapse
 fpjson, jsonparser, // json
 StdCtrls;

type
 TPassMessage = procedure(AMsg: string) of object;

 { TClientRaw }
 TClientRaw = class(TThread)
 protected
   FId: Integer;
   FClientSocket: TTCPBlockSocket;
   FMsg1: TPassMessage;
   procedure Execute; override;
 public
   constructor Create(Id: Integer; ASocket: TTCPBlockSocket; OnPassMessage: TPassMessage) ;
 end;

 { TClient }
 TClient = class(TThread)
 protected
   FId: Integer;
   FClientSocket: TTCPBlockSocket;
   FMsg: TPassMessage;
   procedure Execute; override;
 public
   constructor Create(Id: Integer; ASocket: TTCPBlockSocket; OnPassMessage: TPassMessage) ;
 end;

 { TLightWeb }

 TLightWeb = class(TThread)
 private
   _Port: word;
   _PassMessage: TPassMessage;
   procedure TriggerMessage(AMsg: string);
 protected
   procedure Execute; override;
 public
   constructor Create(APort: word);
   destructor Destroy; override;
   property OnPassMessage: TPassMessage read _PassMessage write _PassMessage;
 end;

var

  Const
   HtmlHeader : String = 'HTTP/1.0 200' + CRLF +
                'Content-type: Text/Html; charset=utf-8;' + CRLF +
                'Connection: close' + CRLF +
                'Server: Lazarus Synapse' + CRLF+
                'Access-Control-Allow-Origin: *' + CRLF;

implementation

{ TClientRaw }

constructor TClientRaw.Create(Id: Integer; ASocket: TTCPBlockSocket; OnPassMessage: TPassMessage);
begin
 inherited Create(False);
 Randomize;
 FId := Id;
 FMsg1 := OnPassMessage;
 FMsg1(IntToStr(FId) + ' - Create');
 FClientSocket := TTCPBlockSocket.Create;
 FClientSocket.Socket := ASocket.accept;
end;

procedure TClientRaw.Execute;
var
 timeout: integer;
 OutputDataString : String;
 MS:TMemoryStream;
begin
 timeout := 120000;
 try
   try
     FClientSocket.RecvStreamRaw(MS,timeout);
     OutputDataString:='Veri Geldi';
     FClientSocket.SendString(HtmlHeader);
     FClientSocket.SendString('Content-length: ' + IntTostr(Length(OutputDataString)) + CRLF); // mesaj boyutunu yaz
     FClientSocket.SendString('Date: ' + Rfc822DateTime(now) + CRLF);
     FClientSocket.SendString('' + CRLF);
     FClientSocket.SendString(OutputDataString);
   except
     on E: Exception do
     begin
       FMsg1(IntToStr(FId) + ' - Hata');
     end;
   end;
 finally
   FClientSocket.CloseSocket;
   FreeAndNil(FClientSocket);
   FMsg1(IntToStr(FId) + ' - Finally');
 end;
end;

{ TClient }

constructor TClient.Create(Id: Integer; ASocket: TTCPBlockSocket; OnPassMessage: TPassMessage);
begin
 inherited Create(False);
 Randomize;
 FId := Id;
 FMsg := OnPassMessage;
 FMsg(IntToStr(FId) + ' - Create');
 FClientSocket := TTCPBlockSocket.Create;
 FClientSocket.Socket := ASocket.accept;
end;

procedure TClient.Execute;
var
 timeout: integer;
 message: TStringList;
 OutputDataString : String;
 recv : string;
begin
 timeout := 120000;
 message := TStringList.Create;
 try
   try
     message.Append(FClientSocket.RecvString(Timeout));
     if (pos('komut=',message.Strings[message.Count - 1])>0) then
     begin
       recv:=copy(message.Strings[message.Count - 1],
                  pos('komut=',message.Strings[message.Count - 1])+6,
                  length(message.Strings[message.Count - 1]));
       delete(recv, pos('HTTP',recv)-1,50);
       FMsg('---Gelen = ' + DecodeUrl(recv));
       OutputDataString:='---Gelen = ' + DecodeUrl(recv);
     end else Exit;

     FClientSocket.SendString(HtmlHeader);
     FClientSocket.SendString('Content-length: ' + IntTostr(Length(OutputDataString)) + CRLF); // mesaj boyutunu yaz
     FClientSocket.SendString('Date: ' + Rfc822DateTime(now) + CRLF);
     FClientSocket.SendString('' + CRLF);
     FClientSocket.SendString(OutputDataString);
   except
     on E: Exception do
     begin
       FMsg(IntToStr(FId) + ' - Hata');
     end;
   end;
 finally
   FreeAndNil(message);
   FClientSocket.CloseSocket;
   FreeAndNil(FClientSocket);
   FMsg(IntToStr(FId) + ' - Finally');
 end;
end;

{ TLightWeb }

constructor TLightWeb.Create(APort: word);
begin
 inherited Create(False);
 _Port := Aport;
 TId:=0;
end;

procedure TLightWeb.Execute;
var
 Cl : TClient;
 C2 : TClientRaw;
 ListenerSocket, BlckSocket: TTCPBlockSocket;
begin
 try
   ListenerSocket := TTCPBlockSocket.Create;
   BlckSocket := TTCPBlockSocket.Create;

   ListenerSocket.CreateSocket;
   ListenerSocket.SetLinger(True, 100);
   ListenerSocket.bind('0.0.0.0', IntToStr(_Port));
   ListenerSocket.listen;
   repeat
     if ListenerSocket.canread(10000) then
     begin   // can read
If _Port=5050
  Then Begin
       Cl := TClient.Create(ClientId, ListenerSocket, _PassMessage);
       Cl.Start;
       End;
If _Port=5051
  Then Begin
       C2 := TClientRaw.Create(ClientId, ListenerSocket, _PassMessage);
       C2.Start;
       End;
     End;    // can read
   until Terminated;
 finally
   FreeAndNil(ListenerSocket);
 end;
end;

procedure TLightWeb.TriggerMessage(AMsg: string);
begin
 if Assigned(_PassMessage) then
   _PassMessage(AMsg);
end;

destructor TLightWeb.Destroy();
begin
 inherited Destroy;
end;

end.

Bu konuyu yazdır

  Combobox Item Stil değiştirme
Yazar: mcuyan - 13-02-2019, Saat: 03:34 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (4)

Merhaba arkadaşlar.
FMX formlarda Combobox yada listbox'ın Item'larını font punto gibi görsel özelliklerini değiştirmek için aşağıdaki kodları kullanabilirsiniz (Tabiiki Stil ile uğraşmak istemiyorsanız.. Smile )

 

var
 j: integer;
 Item: TListBoxItem;

begin

  ComboBox1.BeginUpdate;

  for j := 0 to Combobox1.Count - 1 do
  begin
    Item := TComboBox(FindComponent('Combobox1')).ListItems[j];
    Item.Font.Family := 'Roboto';
    Item.FontColor := TAlphaColorRec.Gray;
    Item.Font.Size := 11;
    Item.StyledSettings := Item.StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.FontColor];
  end;

  ComboBox1.EndUpdate;

Bu konuyu yazdır

  Bir Sorum olacak
Yazar: burak - 13-02-2019, Saat: 01:56 - Forum: Genel Programlama - Yorumlar (3)

delphide bu asdate,asstring,asint gibi komutlar cıkmıyor as ile baslıyan assign komutu var sadece bunun nedeni nedir?İyiAkşamlar.

Bu konuyu yazdır

  2-Kitap Kargo Takip - Gönderi Tarihi: 12.02.2019
Yazar: Fesih ARSLAN - 12-02-2019, Saat: 17:31 - Forum: Kitap Hakkında - Yorumlar (33)

kargo2.jpg

Bu konuyu yazdır