78 uygun sonuç bulundu

gönderen loaded
18 Eki 2019 11:06
Forum: Programlama
Başlık: dosya meşgul hatası
Cevaplar: 16
Görüntüleme: 489

Re: dosya meşgul hatası

// Yazma Okuma Fonksiyonu // Yazma Okuma Fonksiyonu Sonu Aralıklarına kullanıcı kendi kontrollerini koyabilir. Ben kendi uygulamalarında GetTickCount64 yöntemi ile zaman kontrolü yapmaktayım işlem sonunda Application.ProcessMessages (Threadlarda farklı yöntemler uyguluyorum) ile de uygulamanın sürek...
gönderen loaded
18 Eki 2019 10:26
Forum: Programlama
Başlık: dosya meşgul hatası
Cevaplar: 16
Görüntüleme: 489

Re: dosya meşgul hatası

Benim bu tür asenkron durumlar için kullandığım basit bir yöntem denemekte fayda var procedure TForm1.Button1Click(Sender: TObject); var err:Boolean=false; begin repeat try // Yazma Okuma Fonksiyonu image1.Picture.Bitmap.SaveToFile('C:\deneme.png'); // Yazma Okuma Fonksiyonu Sonu err:=false; caption...
gönderen loaded
12 Eki 2019 09:08
Forum: Programlama
Başlık: Edit'in boş olmaması
Cevaplar: 3
Görüntüleme: 286

Re: Edit'in boş olmaması

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if (AnsiPos('.',TEdit(sender).Text)<>0) and (key='.') then key:=#0;
  if (AnsiPos('.',TEdit(sender).Text)=0) and (key=',') then key:='.';
  if not (Key in ['0'..'9', '.', #8, #9]) then Key := #0;
end; 
gönderen loaded
01 Eki 2019 07:27
Forum: Programlama
Başlık: Delphide api nasıl yazılır
Cevaplar: 4
Görüntüleme: 243

Re: Delphide api nasıl yazılır

Uygulamanız masaüstü ise COM (Component Object Model) veya ActiveX gibi yöntemlerlede uygulamanıza api özelliği ekleyebilirsiniz. Api ile Excel Erişimi Örneği ; // Bu örnek Lazarusta Yazılmıştır. var ExcelApp: OleVariant; begin try ExcelApp := CreateOleObject('Excel.Application'); except ShowMessage...
gönderen loaded
29 Ağu 2019 07:19
Forum: Programlama
Başlık: harita pafta parseli seçimi ve üzerine bazı verilerin kaydedilmesi
Cevaplar: 2
Görüntüleme: 211

Re: harita pafta parseli seçimi ve üzerine bazı verilerin kaydedilmesi

Merhaba Yapmayı düşündüğünüz işlem CAD ve CBS temelli bir proje. Öncelikle çalışma sahanızda bulunan parsellere ait sayısal verileri temin etmelisiniz (TKGM parsel sorgu sitesine göz atabilirsiniz) ardından bunlara ait fotoğraf gibi doneleri mümkünse Coğrafi Konum Destekli (Çif kanallı GPS Destekli ...
gönderen loaded
22 May 2019 08:24
Forum: Programlama
Başlık: Text Dosyasına Yazma
Cevaplar: 1
Görüntüleme: 223

Re: Text Dosyasına Yazma

Lazarusta yazılıp, denenmiş kod ; procedure TForm1.Button1Click(Sender: TObject); var stream:TFileStream; bfile : text; path_a_file:string='c:\a.txt'; path_b_file:string='c:\b.txt'; sifre :string; begin if FileExists(path_a_file) then begin stream:=TFileStream.Create(path_a_file,fmOpenRead or fmShar...
gönderen loaded
19 Nis 2019 11:01
Forum: Kylix / Lazarus / Freepascal
Başlık: Lazarus 2.0.2 Yayında
Cevaplar: 0
Görüntüleme: 835

Lazarus 2.0.2 Yayında

Arkadaşlar bu sürüm gerçekten çok hoş olmuş, ayrıca indirilip kurulan LAMW adında Android Programları geliştirmek için çok faydalı bir pakete sahip. Yaptığım hız testlerinde muadilinden geri kalır bir tarafı da yok yani oldukça başarılı, denemekte fazlasıyla yarar var. Tamamen ücretsiz olması da cab...
gönderen loaded
19 Nis 2019 10:39
Forum: Programlama
Başlık: fareyi istenilen rengin üzerine konumlandırmak
Cevaplar: 2
Görüntüleme: 249

Re: fareyi istenilen rengin üzerine konumlandırmak

Canvas.pixel metodu, ekran görüntüsünde renk arama işlemleri için çok yavaş bir yöntemdir. Bunun yerine daha hızlı olan ScanLine metodunu kullanabilirsiniz.
Konuya benzer bir çalışma örneği http://delphidabbler.com/tips/21
gönderen loaded
26 Eyl 2018 03:08
Forum: Programlama
Başlık: memo nesnesinde bulunan sozcugun satirinin secilmesi
Cevaplar: 7
Görüntüleme: 267

Re: memo nesnesinde bulunan sozcugun satirinin secilmesi

Aşağıdaki kod, umarım işinizi görür. function memo_icerisinde_ara(const aranacak_memo:TMemo;aranacak_metin:String):String; var i,ik:integer; rc:array[0..6] of String=('ğ','ü','ş','i','ö','ç','ı'); rnc:array[0..6] of String=('Ğ','Ü','Ş','İ','Ö','Ç','I'); sms,sm:String; begin sm:=aranacak_metin; for i...
gönderen loaded
27 Eki 2017 08:20
Forum: Programlama
Başlık: Nasıl bir koruma koyabilirim ?
Cevaplar: 10
Görüntüleme: 485

Re: Nasıl bir koruma koyabilirim ?

Program koruma ile ilgili olarak bir topic; http://www.delphiturkiye.com/forum/viewtopic.php?f=2&t=34264&p=185519#p185519 Gözlemlerine göre ; - Windows işletim sistemi değişikliklerinde numara değişmiyor. - Sanal bilgisayarlarda ise makine çoğaltmalarında yada disk kopyalamalarında numara değişiyor....
gönderen loaded
13 Eyl 2017 02:58
Forum: Programlama
Başlık: Formu ekranda en öne nasıl getirebilirim.
Cevaplar: 6
Görüntüleme: 263

Re: Formu ekranda en öne nasıl getirebilirim.

Merhaba
Formunuza ait FormStyle özelliğini fsStayOnTop olarak ayarlarsanız, muhtemelen istediğiniz işlem gerçekleşecektir.
gönderen loaded
21 Ağu 2017 02:08
Forum: Programlama
Başlık: Canvas.TextOut nasıl
Cevaplar: 3
Görüntüleme: 221

Re: Canvas.TextOut nasıl

Merhaba procedure TForm1.Button1Click(Sender: TObject); var sayac,x,y:integer; begin image1.width := 800; image1.height := 600; x:=0;y:=0; For Sayac := $0621 to $063A do begin image1.Canvas.Font.Name := 'arial'; image1.Canvas.Font.Color := clred; image1.Canvas.Font.Height :=15; x:=x+image1.Canvas.Te...
gönderen loaded
19 May 2017 01:50
Forum: Programlama
Başlık: [dcc32 Fatal Error] F2039 Could not create output file
Cevaplar: 10
Görüntüleme: 792

Re: [dcc32 Fatal Error] F2039 Could not create output file

Selam
Birde şunu deneyebilirsiniz, bende sorunu çözdü.
Services.msc den ulaşacağınız Uygulama Deneyim servisi devre dışı ise öncelikle otomatik moda alıp ardından başlat yapıp çalıştırmalısınız.
gönderen loaded
03 Nis 2017 08:19
Forum: Programlama
Başlık: polyline veya polybezier ile çalışma
Cevaplar: 1
Görüntüleme: 175

Re: polyline veya polybezier ile çalışma

Selam

Kod: Tümünü seç

Canvas.Brush.Color := clred; //renklendirme
Canvas.Brush.Style := bsSolid; //doldurma
Konu ile ilgili detaylı bilgilere linkten ulaşabilirsiniz.
https://dm7blog.wordpress.com/2011/10/2 ... ulamalari/
gönderen loaded
20 Şub 2017 02:25
Forum: Programlama
Başlık: Html Table get Id/Name hakkında
Cevaplar: 7
Görüntüleme: 443

Re: Html Table get Id/Name hakkında

Selam Form içerisindeki elementlere ulaşan javascript kodu delphiye kendiniz uyarlayabilirsiniz. var dede='input'; // Form elemanlarının ortak adı input,button,select,textarea gibi ... if (document.getElementsByTagName(dede).length!=0){ for (i = 0; i < document.getElementsByTagName(dede).length; i++...