180 uygun sonuç bulundu
- 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: 2013
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...
- 02 Haz 2023 09:20
- Forum: Programlama
- Başlık: unicode karakter ile base64 decode
- Cevaplar: 8
- Görüntüleme: 758
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...
- 01 Ağu 2022 09:40
- Forum: Programlama
- Başlık: Dosya işlemleri
- Cevaplar: 1
- Görüntüleme: 478
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...
- 16 Şub 2022 09:54
- Forum: Programlama
- Başlık: Memo İçinde Kelime Arama
- Cevaplar: 7
- Görüntüleme: 6369
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...
- 16 Şub 2022 09:52
- Forum: Programlama
- Başlık: Memo Nesnesinin istenilen Satirina imceci getirme
- Cevaplar: 6
- Görüntüleme: 2184
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...
- 03 Şub 2022 04:02
- Forum: Programlama
- Başlık: Delphi Listbox
- Cevaplar: 3
- Görüntüleme: 834
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...
- 02 Şub 2022 08:59
- Forum: Programlama
- Başlık: Delphi Listbox
- Cevaplar: 3
- Görüntüleme: 834
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;
- 28 Eki 2021 09:19
- Forum: Programlama
- Başlık: Timer ile kelime değiştirme(?)
- Cevaplar: 1
- Görüntüleme: 391
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...
- 27 Eki 2021 03:25
- Forum: Programlama
- Başlık: Fast Report formun altında kalıyor
- Cevaplar: 3
- Görüntüleme: 650
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...
- 24 Ağu 2021 09:49
- Forum: Programlama
- Başlık: Excelden Accesse Veri Aktarmak
- Cevaplar: 2
- Görüntüleme: 510
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 ...
- 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: 20654
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...
- 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: 1974
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...
- 13 Şub 2021 06:04
- Forum: Programlama
- Başlık: Modüllerde Kullanıcı Hakkı verme.
- Cevaplar: 1
- Görüntüleme: 592
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...
- 23 Oca 2021 10:13
- Forum: Programlama
- Başlık: FastReport Tarihi Tarihten Çıkarma
- Cevaplar: 5
- Görüntüleme: 959
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ı
01/01/2000 kaydettiğin alan string tipinde tanımlanmış, programcı hatası
- 21 Oca 2021 05:23
- Forum: Programlama
- Başlık: Timage den VT ye kayıt [Çözüldü]
- Cevaplar: 6
- Görüntüleme: 2906
Re: Timage den VT ye kayıt [Çözüldü]
Çok kısa yolunu buldum
Bir ara lazım oldu.
Kod: Tümünü seç
query. insert;
image1. picture. loadfromfile('c:\resim. jpg') ;
jvdbimage1. picture. assign(image1. picture. graphic) ;
query. post;