180 uygun sonuç bulundu

gönderen Commandx
10 Kas 2023 08:54
Forum: FireMonkey ve Mobil
Başlık: Datasnap Server bir süre sonra çalışmayı durduruyor?
Cevaplar: 12
Görüntüleme: 1054

Re: Datasnap Server bir süre sonra çalışmayı durduruyor?

DataSnap değil ama rest tabanlı bir mimari ile yapılabilir. Mobil projeler, büyük esneklik sağlıyor. Yukarıda arkadaşların önerdiği sistemlerden birini kullanabilirsiniz. Tavsiyelerini dikkate alarak başlayabilirsin. Kolay gelsin. Hocam Merak ettiğim bir konu, UniDac Client Dataset bileşenleri kull...
gönderen Commandx
02 Haz 2023 09:20
Forum: Programlama
Başlık: unicode karakter ile base64 decode
Cevaplar: 8
Görüntüleme: 695

Re: unicode karakter ile base64 decode

Farklı bir yolla çözdüm bende, Lazım olur D7 için unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declaration...
gönderen Commandx
01 Ağu 2022 09:40
Forum: Programlama
Başlık: Dosya işlemleri
Cevaplar: 1
Görüntüleme: 458

Re: Dosya işlemleri

İlk satırdan kastınız nedir? Dosyanın sadece adını mı? uzantısı olmayan ad mı sadece mesela dosya1.txt -> dosya1 olarak mı? yoksa İlk dosyayı mı? Eğer Sadece Dosya adını uzantısız istiyorsan şöyle olmalı... procedure TForm1.Button1Click(Sender: TObject); VAR i,LEN:integer; // Len = Length Uzunluk de...
gönderen Commandx
16 Şub 2022 09:54
Forum: Programlama
Başlık: Memo İçinde Kelime Arama
Cevaplar: 7
Görüntüleme: 6305

Re: Memo İçinde Kelime Arama

USES STRUTILS; procedure memosatirsec(memo : TCustomMemo;satir:integer) ; begin with memo do begin SelStart := Perform(EM_LINEINDEX, satir, 0) ; SelLength := Length(Lines[satir]) ; end; end; procedure TForm1.Button1Click(Sender: TObject); var st: string; i: integer; begin st := EDIT1.Text; // ARANI...
gönderen Commandx
16 Şub 2022 09:52
Forum: Programlama
Başlık: Memo Nesnesinin istenilen Satirina imceci getirme
Cevaplar: 6
Görüntüleme: 2172

Re: Memo Nesnesinin istenilen Satirina imceci getirme

Çözülmüştür USES STRUTILS; procedure memosatirsec(memo : TCustomMemo;satir:integer) ; begin with memo do begin SelStart := Perform(EM_LINEINDEX, satir, 0) ; SelLength := Length(Lines[satir]) ; end; end; procedure TForm1.Button1Click(Sender: TObject); var st: string; i: integer; begin st := EDIT1.Tex...
gönderen Commandx
03 Şub 2022 04:02
Forum: Programlama
Başlık: Delphi Listbox
Cevaplar: 3
Görüntüleme: 812

Re: Delphi Listbox

Mesajınıza istinaden bunu deneyin bir. Listbox2 nin Listbox1 deki sıra karşılığındakileri toplar. Listbox3 de toplanmış olarak ekler // Burayı bir butona, yada listbox1 in Clickine de veya bir PopupMeüye yazabilirsin procedure TForm1.ListBox1DblClick(Sender: TObject); //ben dblclicke yazdım. VAR A,B...
gönderen Commandx
02 Şub 2022 08:59
Forum: Programlama
Başlık: Delphi Listbox
Cevaplar: 3
Görüntüleme: 812

Re: Delphi Listbox

Mobilden yazdım, denemedim

Kod: Tümünü seç

var
i:integer;
 begin
  listbox3. Clear ; 
   for i:= 0 to listbox1.items.count-1 do begin
   listbox3.items.add(IntToStr(StrToInt(listbox1.items.strings[i]) + StrToInt(listbox2. items. strings[i])) ) ;
 end;
end;
gönderen Commandx
28 Eki 2021 09:19
Forum: Programlama
Başlık: Timer ile kelime değiştirme(?)
Cevaplar: 1
Görüntüleme: 374

Re: Timer ile kelime değiştirme(?)

Rastgele isterseniz bu şekilde oluyor, bir fikir vermesi açısından Random kullandım procedure TForm1.Timer1Timer(Sender: TObject); VAR DEGER:INTEGER; begin DEGER:= (RANDOM(11)); IF DEGER=1 THEN BEGIN EDIT1.Text:='ALİ' END; IF DEGER=2 THEN BEGIN EDIT1.Text:='AYŞE' END; IF DEGER=3 THEN BEGIN EDIT1.Tex...
gönderen Commandx
27 Eki 2021 03:25
Forum: Programlama
Başlık: Fast Report formun altında kalıyor
Cevaplar: 3
Görüntüleme: 623

Re: Fast Report formun altında kalıyor

Bir fikir verebilir belki procedure TForm1.CheckBox1Click(Sender: TObject); begin Application.NormalizeTopMosts; if CheckBox1.Checked=True then begin FormStyle:=fsStayOnTop; SetWindowPos(Form1.Handle, HWND_TOPMOST, 0,0,0,0, SWP_NOACTIVATE+SWP_NOMOVE+SWP_NOSIZE); END else begin FormStyle:=fsNormal; S...
gönderen Commandx
24 Ağu 2021 09:49
Forum: Programlama
Başlık: Excelden Accesse Veri Aktarmak
Cevaplar: 2
Görüntüleme: 485

Re: Excelden Accesse Veri Aktarmak

Verilerini olduğu gibi aktarabilirsiniz fakat yazı tipi, fontu, rengi vs gibi alanlar için veritabanı bunlar için ayrı bir alan ister. Renk için, Yazı Tipi için, Büyüklüğü için, Kısaca her özellik için ayrı ayrı alan ister ve bunlarla uğraşmak çok zordur. Öyle yapacağına excell Dosyasını Blob alana ...
gönderen Commandx
21 May 2021 01:46
Forum: FireBird
Başlık: Firebird 2.1 ile kullanabileceğiniz fonksiyonlar(23.02.2008)
Cevaplar: 8
Görüntüleme: 19933

Re: Firebird 2.1 ile kullanabileceğiniz fonksiyonlar(23.02.2008)

Lazım olacak notlar Null veya Byte uzunluğu 0 olan kayıtları döndür QUERY1.SQL.Add(' select * From KAYITLARTABLOSU Where (KOLONADI IS NULL OR CHAR_LENGTH(KOLONADI)= 0)'); // String ALanlar İçin Nokta virgül Değişimi SQL Update update TABLO SET KOLON= (replace(TABLO.KOLON, '.', ',')) ; // null alan d...
gönderen Commandx
25 Mar 2021 08:30
Forum: Programlama
Başlık: 1 client 5 server pc arasında haberleşme hk.
Cevaplar: 13
Görüntüleme: 1935

Re: 1 client 5 server pc arasında haberleşme hk.

merak ettiğim bir şey var 5 pc aynı anda veya gelişiguzel zamanlarda clientdeki ana veritabanına bağlanıp data yazabilirmi? bu iletişim problem yaratır mı? Sorun yaratmaz. sadece zorluk çıkartır Veritabanı denilen olgu budur zaten, Aslolan Veriler Tek yerde toplanmalıdır, Tüm clientler bağlanıp bil...
gönderen Commandx
13 Şub 2021 06:04
Forum: Programlama
Başlık: Modüllerde Kullanıcı Hakkı verme.
Cevaplar: 1
Görüntüleme: 587

Re: Modüllerde Kullanıcı Hakkı verme.

Veritabanınızda bir tablo daha açıp kullanıcı yetkileri verebilmek için kullanıcı adı(USER) ve şifresi(PASSWORD) alanları yanında birde o kullanıcının erişim yetkileri olarak stok_bakiye_raporu , Stok_hareket_raporu vs. .... gibi alanlar daha ekleyerek ve bunları bir tabloya veya datasete bağlayıp o...
gönderen Commandx
23 Oca 2021 10:13
Forum: Programlama
Başlık: FastReport Tarihi Tarihten Çıkarma
Cevaplar: 5
Görüntüleme: 944

Re: FastReport Tarihi Tarihten Çıkarma

veriyi 01/01/2000 kaydettiğin alan string tipinde olduğu için, date tipinde olmadğı için fastreport tarih dönüşümü yapamayıp hata veriyor.
01/01/2000 kaydettiğin alan string tipinde tanımlanmış, programcı hatası
gönderen Commandx
21 Oca 2021 05:23
Forum: Programlama
Başlık: Timage den VT ye kayıt [Çözüldü]
Cevaplar: 6
Görüntüleme: 2876

Re: Timage den VT ye kayıt [Çözüldü]

Çok kısa yolunu buldum

Kod: Tümünü seç

query. insert;
image1. picture. loadfromfile('c:\resim. jpg') ;
jvdbimage1. picture. assign(image1. picture. graphic) ;
query. post;
Bir ara lazım oldu.