Forum İstatistikleri
Son Mesajlar
KonuTarih, saat YazarSon Gönderen Forum
  Windows tarafında düzgün çalışan kod IOS Tarafı... 21 dakika öncepro_imajpro_imaj Mobil Platform - FireMon...
  App Store Reject (5. 2.1 Legal: Intellectual Pr... 4 saat öncepro_imajhassur Mobil Platform - FireMon...
  raspberry pi web server hangi yaklaşımı(yöntemi... Dün, 22:1441linea4141linea41 Delphi ile Web Teknoloji...
  Comport veri okuma Dün, 17:19klavyeboreas Genel Programlama
  parent formda mouse sol klik çalışmıyor Dün, 14:30erdoganerdogan Genel Programlama
  açılış formunun gizlenmesi sorunu Dün, 14:01sadikacar60sadikacar60 Delphi Linux
  Çözüldü-tabloada arama yapmak Dün, 13:58sadikacar60sadikacar60 Delphi Linux
  timeline önerisi Dün, 08:50forumcualiforumcuali Genel Programlama
  İmagelist glyph kullanamama sorunu 06-17, 23:35QepnSQepnS Mobil Platform - FireMon...
  Bir formu modal olarak açıp gelen cevabı edite ... 06-17, 14:39caostercaoster Mobil Platform - FireMon...
  Delphi Community hakkında 06-17, 08:33hakanharbeliFesih ARSLAN Muhabbet Olsun
En Çok Cevaplananlar
  Youtube'da Delphi Eğitim... 127
  Yeni Kaynak Kitabın Yayı... 126
  Yeni Kaynak Kitap İhtiya... 123
  Delphi 10.3 Rio 111
  Kitap - Ön Siparişleri 109
  Karikatür Vakti 104
  Beklenen sürüm (Delphi 1... 75
  Kitap Telif Bedeli 72
  Delphi ile yazılımış tak... 71
  Delphi buluşması 68
  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.662
» Son Üye: panmilko
» Toplam Konular: 3.478
» Toplam Yorumlar: 28.553

Detaylı İstatistikler

Son Aktiviteler
Windows tarafında düzgün ...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

pro_imaj
21 dakika önce
» Yorumlar: 0
» Okunma: 9
App Store Reject (5. 2.1 ...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

hassur
4 saat önce
» Yorumlar: 6
» Okunma: 80
raspberry pi web server h...
Forum: Delphi ile Web Teknolojileri
Son Yorum:

41linea41
Dün, Saat: 22:14
» Yorumlar: 12
» Okunma: 209
Comport veri okuma
Forum: Genel Programlama
Son Yorum:

boreas
Dün, Saat: 17:19
» Yorumlar: 16
» Okunma: 170
parent formda mouse sol k...
Forum: Genel Programlama
Son Yorum:

erdogan
Dün, Saat: 14:30
» Yorumlar: 5
» Okunma: 93
açılış formunun gizlenmes...
Forum: Delphi Linux
Son Yorum:

sadikacar60
Dün, Saat: 14:01
» Yorumlar: 0
» Okunma: 31
Çözüldü-tabloada arama ya...
Forum: Delphi Linux
Son Yorum:

sadikacar60
Dün, Saat: 13:58
» Yorumlar: 9
» Okunma: 177
timeline önerisi
Forum: Genel Programlama
Son Yorum:

forumcuali
Dün, Saat: 08:50
» Yorumlar: 7
» Okunma: 232
İmagelist glyph kullanama...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

QepnS
17-06-2019, Saat: 23:35
» Yorumlar: 4
» Okunma: 93
Bir formu modal olarak aç...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

caoster
17-06-2019, Saat: 14:39
» Yorumlar: 7
» Okunma: 334

 
  raspberry pi web server hangi yaklaşımı(yöntemi) kullanmalıyım.
Yazar: 41linea41 - 15-06-2019, Saat: 21:52 - Forum: Delphi ile Web Teknolojileri - Yorumlar (12)

Merhaba

Raspberry pi de pinden aldığım veriyi sqlite a yazıyorum. Sqlite üzerindeki bu verileri web sayfası üzerinde göstermem gerekiyor.
Pyhton da flask yöntemiyle bi şeyler yapmaya çalıştım çok zorlandım.

Web sayfası aynı zaman da bootstrap desteğide olsun istedim bootstrap offline css dosyalarını da ekledim.

Sqlite dan veriyi çekip tablo/grid üzerinde gösterip kulaanıcıda bi kaç basit input alacağım.

-Bu işlemler için Delphi kullanabilir miyim Lazarus/CodeTyphoon yada başka free pascal ürünü?
-HTML 5 ile mi devam etmeliyim ?Sqlite bağlanısı yapabilir miyim Java script yada Node.js mi gerekli?
-PHP kullansam sqlite bağlantısı ve bootstrap desteği var mıdır?
-Python flask yada Node.js den mi devam etmeliyim?

Python bilgim az php ve Node.js bilmiyorum ama node.js de yapılmış örnekler gördüm.

Sizin düşüncenizi ve tavsiyenizi duymak isterim.

Edit:Bu videoda TMS component tanıtımında exe uygulamasını web sayafasına çeviriyor. Bu şekilde bir uygulama yaptınız bu yöntemi tavsiye eder misiniz
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız. (2:05)

İyi Çalışmalar.

Bu konuyu yazdır

  çözüldü-RadioGroup1 problemi
Yazar: sadikacar60 - 15-06-2019, Saat: 19:45 - Forum: Delphi Linux - Yorumlar (2)

arkadaşlar her zaman kullandığım 

Kod:
RadioGroup1.ItemIndex:=-1;
kod lazarusda hata veriyor 
A
B
C
D

şeklinde 4 seçenek var birini seçtikten sonra seçili seçeneği sıfırlamak istediğimde 
List index out of bounds hatasını alıyorum.

sanırım click eventi tekrar devreye giriyor.

sorun ne olabilir acaba 
saygılarımla

Bu konuyu yazdır

  Çözüldü-lazarus da store procedure kullanımı
Yazar: sadikacar60 - 15-06-2019, Saat: 16:13 - Forum: Delphi Linux - Yorumlar (2)

arkadaşlar store procedure hazırladım

Kod:
update TBL_SORULAR set DADET=DADET+1 where SBID=:KIM;
firebird veritanı programı ibexpertde sorunsuz çalışıyor 

lazarus formundan ulaşıp bu procudure yi çalıştırmam lazım
aşagıdaki kodları deniyorum olmadı.
Kod:
procedure DogruCevapKaydet(sbid:string);
begin

 //DMvt.SQLQuery1.Close;
 DMvt.SQLQuery1.SQL.Clear;
 DMvt.SQLQuery1.SQL.Add('execute procedure D_CEVAPARTTIR(:KIM,'''+sbid+''' ');

 DMvt.SQLQuery1.Open;
 DMvt.SQLTransaction1.Commit;

end;

delphide storeproc elemanını kullanarak yapıyprdum ama lazarusda benzer bir eleman bulamadım araştırdım yukardaki koddakine benzer bir şeyler buldum ama çalıştırmayı başaramadım neyi yanlış yapıyorum acaba

saygılarımla

Bu konuyu yazdır

Exclamation timeline önerisi
Yazar: forumcuali - 15-06-2019, Saat: 11:51 - Forum: Genel Programlama - Yorumlar (7)

Merhaba,
Evvela tüm Delphicanların geçmiş bayramı mubarek olsun.

aşağıdaki resim gibi bir görsel için; component önerisi veya şu şekilde olabiliri diye bir önerisi olan arkadaşımız varmı?

renklerin anlamları yazıyor. Ben bütün bu verilerin başlama ve bitiş saatlerini vt de tutuyorum. sadece bu veriyi aşağıdaki gibi bir görsele aktarmam gerek . Mesela vt bağlantılı bir timeline olabilir.  Delphi 2010 var(lisanslı)  veya 10.3 comminty var şahsi pc'de her ikisindeki çözümler olabilir .. yardımlarınız için şimdiden teşekkür ederim.
GZEJo2.jpg

Bu konuyu yazdır

  delphi'de Raporlama
Yazar: harezmi - 15-06-2019, Saat: 07:32 - Forum: Genel Programlama - Yorumlar (5)

Merhabalar Delphi'de fastreport kullanarak raporlama yapmak istiyorum. tam olarak yapmak istediğim şey şu:

kullanıcı dbgrid nesnesindeki kayıtlardan seçilenlerin başka bir dbgride eklenmesini ve yeni dbgriddeki kayıtların yazdırılmasını istiyorum. yada dbgridin çoklu seçim seçeneğiyle de seçili kayıtların yazdırılması olabilir. yada varsa başka bir yöntemle. kısacası dbgriddeki tüm kayıtları değilde sadece seçilecek kayıtları raporlamak istiyorum. nasıl yapabilirim yardımcı olabilir misiniz?

Bu konuyu yazdır

  Unigui Yeni Bileşenler
Yazar: pro_imaj - 14-06-2019, Saat: 13:58 - Forum: Delphi ile Web Teknolojileri - Yorumlar (5)

Son güncellemelerle birlikte unigui çok daha iyi bir yere geldi.

Aşağıda bazı yeni bileşenlere ait görselleri görebilirsiniz, son sürümde örnek projelerde eklenmiş.

ReCaptcha
ShowProgress
IconCombobox
PivotGrid
NativeImageList - Image Files
UniMap
CalendarPanel (Mobile)
Grid - RowWidget


+Grid - RowWidget 
brGqyo.png



+Maps
NO4nbJ.png

Bu konuyu yazdır

  treeview tarzı dbgrid önerisi
Yazar: wiseman - 14-06-2019, Saat: 12:23 - Forum: Genel Programlama - Yorum Yok

Arkadaşlar selamlar

XE2 versiyonunda kullanılmak üzere, treeview bileşenine benzer, dbgrid bileşenine ihtiyacım var. Ana grupların altında alt grupları listelemem gerekiyor. Bu konuda desteklerinizi rica ederim.

Bu konuyu yazdır

  Read-Only Hatası
Yazar: arsl01 - 14-06-2019, Saat: 10:00 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (8)

Merhaba, 
Ben multi-platform tarafinda sql server'a veri kaydetmeye calisiyorum,
Sorun windowsta derledigimde gayet duzgun calisiyor hat vermeden fakat androidde derledigimde read-only hatasi aliyorum.
isin ilginc tarafi veri okurken hicbir sikinti yok sadece veri kaydederken bu hatayi aliyorum.

procedure TForm1.btn_onaylaClick(Sender: TObject);
Var
 i:integer;
begin

if Edit1.Text='1578' then
begin
 ayarlartab_slide.ExecuteTarget(self);
 edit1.Text:='';
 exit;
end;
  if length(edit1.Text)<>11 then
  Begin
    ShowMessage('Hatalı Tc No');
    edit1.Text:='';
    Exit;
  End;
  Qry_Hasta.Close;
  Qry_Hasta.SQL.Text:='SELECT * FROM HASTA where TC_KIMLIK_NUMARASI='+QuotedStr(Edit1.Text);
  Qry_Hasta.Open;
  if Qry_Hasta.RecordCount=0 then
  Begin
  ShowMessage('Aranılan Kayıt Bulunamadı');
  Edit1.Text:='';
  Edit1.SetFocus;
 Exit;
  End;
  Qry_SiraAl.Close;
  Qry_SiraAl.SQL.Text:='SELECT * FROM HASTA_SIRA WHERE KABUL_TARIHI='+TarihDuzenlesql(date,'')+' AND HASTA_KODU='+Qry_Hasta.FieldByName('HASTA_KODU').AsString;
  Qry_SiraAl.Open;
  if Qry_SiraAl.RecordCount>0 then
  Begin
  Qry_sirakntrl.Close;
  Qry_sirakntrl.ParamByName('TC_KIMLIK_NUMARASI').Value:=edit1.Text;
  Qry_sirakntrl.Open;
  if Qry_sirakntrl.RecordCount<>0 then
  begin
  label2.Text:='MEVCUT SIRANIZ';
  siranotab_slide.ExecuteTarget(self);
  label2.Text:=Qry_sirakntrl.FieldByName('NUMARATOR_SIRASI').AsString;
  end;
    //ShowMessage('Kişi Daha Önce Sıra Almış Tekrar Alamaz...');
    edit1.Text:='';
    Exit; End;
 Qry_Sorgu.Close;
 Qry_Sorgu.SQL.Text:='SELECT MAX (NUMARATOR_SIRASI) AS SIRA FROM HASTA_SIRA WHERE KABUL_TARIHI='+TarihDuzenlesql(date,'')+' AND AH_KIMLIK_NO='+QuotedStr(initc);     //KAC KAYIT VAR SORGULU
 Qry_Sorgu.Open;
 i:=Qry_Sorgu.FieldByName('SIRA').AsInteger+1;
 Qry_SiraAl.Append;
 Qry_SiraAl.FieldByName('HASTA_KODU').Value:=Qry_Hasta.FieldByName('HASTA_KODU').AsString ;
 Qry_SiraAl.FieldByName('TC_KIMLIK_NUMARASI').Value:=Qry_Hasta.FieldByName('TC_KIMLIK_NUMARASI').AsString;
 Qry_SiraAl.FieldByName('AD').Value:=Qry_Hasta.FieldByName('AD').AsString ;
 Qry_SiraAl.FieldByName('SOYADI').Value:=Qry_Hasta.FieldByName('SOYADI').AsString ;
 Qry_SiraAl.FieldByName('AH_KIMLIK_NO').Value:=initc;
 Qry_SiraAl.FieldByName('NUMARATOR_SIRASI').AsInteger:=i;
 Qry_SiraAl.FieldByName('KABUL_TARIHI').AsDateTime:=DATE;
 Qry_SiraAl.FieldByName('KABUL_ZAMANI').AsDateTime:=NOW;
 Qry_SiraAl.Post;
 label2.Text:=i.ToString;
 siranotab_slide.ExecuteTarget(self);
 edit1.Text:='';
end;
Z5WOZZ.png

Bu konuyu yazdır

  Facebook gibi bildirim
Yazar: hakanharbeli - 14-06-2019, Saat: 00:00 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (5)

Merhaba,
Uygulamam facebook gibi bildirim eklemek istiyorum. Uygulama iconun sağ üst köşesinde 4 yazsın mesela. bunun için bildiğiniz bir yöntem kaynak var mı şimdiden çok teşekkür ederim

Bu konuyu yazdır

  Delphi LZW Algoritması
Yazar: narkotik - 13-06-2019, Saat: 22:35 - Forum: Makale - Yorumlar (2)

Merhaba,

İhtiyaç gereği LZW algoritması kullanmam gerekti. Diğer dillerde internet üzerinde pek çok örnek kod varken Delphi'de elle tutulur bir şey göremedim. İhtiyaç dahilinde yazdım birilerinin işini görür diye paylaşıyorum.

LZW algoritması nedir?
Lempel, Ziv ve Welch tarafından geliştirilmiş kayıpsız sıkıştırma algoritmalarından birisidir. Karşılaşılan karakter grupları bir tabloda tutularak aynı karakter grupları ile karşılaşıldığında sadece tablodaki numarası yazılarak veri kısaltılmış olur... Merak eden arkadaşlarımız devamını araştırabilir.

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

lQL3BX.png 

P7pnqd.png

unit LZWLib;

{****************************
 LZWLib.pas 2019
 Salih BAĞCI
*****************************}

interface

 uses SysUtils, System.Classes;

 type
   TLZWEncodeResult = record
   EncodeString     : String;
   SozcukList       : String;
 end;

 type
   TLZWDecodeResult = record
   DecodeString     : String;
   SozcukList       : String;
 end;

 type
   TMultiArray = array of array of String;

 function IntegerArrayIndexOf(const AArray:TMultiArray;const ASearch:String):Integer;
 function StringArrayIndexOf(const AArray:TMultiArray;const ASearch:String):Integer;
 function EncodeLZW(const AValue: String):TLZWEncodeResult;
 function DecodeLZW(const AValue: String):TLZWDecodeResult;

 const EncodeAyrac = '-';
 const ASCII_BEGIN = 400;

implementation

function IntegerArrayIndexOf(const AArray: TMultiArray; const ASearch: String): Integer;
Var
 Ind : Integer;
begin
 Result := -1;
 for Ind := Low(AArray) to High(AArray) do
   if AArray[Ind][1] = ASearch then
     Exit(Ind);
end;

function StringArrayIndexOf(const AArray: TMultiArray; const ASearch: String): Integer;
Var
 Ind : Integer;
begin
 Result := -1;
 for Ind := Low(AArray) to High(AArray) do
   if AArray[Ind][0] = ASearch then
     Exit(Ind);
end;

function DecodeLZW(const AValue: String): TLZWDecodeResult;
Var
 xSozcukArray  : TMultiArray;
 xSozcukKonumN : Integer;
 xSozcukLength : Integer;
 Ind           : Integer;
 xValueList    : TStringList;
 OLD           : String;
 NEW           : String;
 S,C           : String;
 ASCII         : Integer;
begin
 if AValue = '' then
   Exit;
 Result.DecodeString := '';
 Result.SozcukList   := '';
 xSozcukLength       := 0;
 ASCII               := ASCII_BEGIN;

 xValueList := TStringList.Create;
 with xValueList do
 begin
   BeginUpdate;
   Text := AValue;
   Text := StringReplace(Text,EncodeAyrac,sLineBreak,[rfReplaceAll]);
   EndUpdate;
 end;

 try
   for Ind := 0 to Pred(xValueList.Count) do
   begin
     if StrToInt(xValueList[Ind]) < ASCII_BEGIN + 1 then
     begin
       Inc(xSozcukLength);
       SetLength(xSozcukArray,xSozcukLength,2);
       xSozcukArray[Pred(xSozcukLength)][0] := Char(StrToInt(xValueList[Ind]));
       xSozcukArray[Pred(xSozcukLength)][1] := xValueList[Ind];
     end;
   end;

   OLD                 := Char(StrToInt(xValueList[0]));
   Result.DecodeString := OLD;
   C                   := '';

   for Ind := 1 to Pred(xValueList.Count) do
   begin
     NEW           := xValueList[Ind];
     xSozcukKonumN := IntegerArrayIndexOf(xSozcukArray,NEW);
     if xSozcukKonumN = -1 then
     begin
       S := OLD;
       S := S + C;
     end
     else
       S := xSozcukArray[xSozcukKonumN][0];

     Result.DecodeString := Result.DecodeString + S;
     C                   := S[1];

     Inc(xSozcukLength);
     Inc(ASCII);
     SetLength(xSozcukArray,xSozcukLength,2);
     xSozcukArray[Pred(xSozcukLength)][0] := OLD + C;;
     xSozcukArray[Pred(xSozcukLength)][1] := IntToStr(ASCII);
     Result.SozcukList                    := Result.SozcukList + OLD + C + ' : ' + IntToStr(ASCII) + sLineBreak;
     OLD                                  := S;
   end;
 finally
   FreeAndNil(xValueList);
 end;
end;

function EncodeLZW(const AValue: String): TLZWEncodeResult;
Var
 xSozcukArray   : TMultiArray;
 xSozcukLength  : Integer;
 xSozcukKonumPC : Integer;
 xSozcukKonumP  : Integer;
 Ind            : Integer;
 P              : String;
 C              : Char;
 ASCII          : Integer;
begin
 if AValue = '' then
   Exit;
 Result.EncodeString := '';
 Result.SozcukList   := '';
 xSozcukLength       := 0;
 ASCII               := ASCII_BEGIN;

 for Ind := Low(AValue) to High(AValue) do
 begin
   if StringArrayIndexOf(xSozcukArray,AValue[Ind]) = -1 then
   begin
     Inc(xSozcukLength);
     SetLength(xSozcukArray,xSozcukLength,2);
     xSozcukArray[Pred(xSozcukLength)][0] := AValue[Ind];
     xSozcukArray[Pred(xSozcukLength)][1] := IntToStr(Ord(AValue[Ind]));
   end;
 end;

 P := AValue[1];
 for Ind := Succ(Low(AValue)) to High(AValue) do
 begin
   C := AValue[Ind];
   xSozcukKonumPC := StringArrayIndexOf(xSozcukArray,P + C);
   if xSozcukKonumPC <> -1 then
     P := P + C
   else
   begin
     xSozcukKonumP       := StringArrayIndexOf(xSozcukArray,P);
     Result.EncodeString := Result.EncodeString + xSozcukArray[xSozcukKonumP][1] + EncodeAyrac;

     Inc(xSozcukLength);
     Inc(ASCII);
     SetLength(xSozcukArray,xSozcukLength,2);
     xSozcukArray[Pred(xSozcukLength)][0] := P + C;
     xSozcukArray[Pred(xSozcukLength)][1] := IntToStr(ASCII);
     Result.SozcukList                    := Result.SozcukList + P + C + ' : ' + IntToStr(ASCII) + sLineBreak;

     P := C;
   end;
 end;
 xSozcukKonumP       := StringArrayIndexOf(xSozcukArray,P);
 Result.EncodeString := Result.EncodeString + xSozcukArray[xSozcukKonumP][1];
end;

end.

Bu konuyu yazdır