34 uygun sonuç bulundu

gönderen aligel54
22 Ara 2021 03:36
Forum: Programlama
Başlık: PDF yi MySQL'e Blob Olarak Kaydedip Okumak
Cevaplar: 7
Görüntüleme: 2907

Re: PDF yi MySQL'e Blob Olarak Kaydedip Okumak

Ertan hocam sağolasın.

Verdiğiniz linklerden nasıl yapacağımı buldum.

My.ini dosyasında [mysqld] başlığı altına
max_allowed_packet=100000000
gibi bir satır yazıp mysql i tekrar başlattığımda problem kalmadı.
gönderen aligel54
17 Ara 2021 04:30
Forum: Programlama
Başlık: PDF yi MySQL'e Blob Olarak Kaydedip Okumak
Cevaplar: 7
Görüntüleme: 2907

Re: PDF yi MySQL'e Blob Olarak Kaydedip Okumak

Dosyayı MySQL veritabanına Blob olarak kaydederken, dosyanın boyutu çok büyükse "MySQL Gone Away" diye hata veriyor.
Dosyanın boyutu küçükse hatasız kaydediyor.

Dosyanın boyutu büyükse bunu nasıl kaydedebilirim. (Alan tipi LongBlob)
gönderen aligel54
09 May 2021 12:30
Forum: Programlama
Başlık: Oracle a bağlanamama Oci.dll hatası
Cevaplar: 1
Görüntüleme: 472

Oracle a bağlanamama Oci.dll hatası

3-4 günlük uğraşmama rağmen Delphi 7 ile Oracle veritabanına bağlanamadım. Oracle bağlanmak için Zeos componentini kullanıyorum. Daha önceden bu component ler başta MySQL ve MS-SQL olmak üzere bir çok veritabanına sorunsuz bağlanabilmiştim. Fakat bu Oracle mereti ne derdi var anlamadım bi türlü bağl...
gönderen aligel54
08 Oca 2021 12:39
Forum: Programlama
Başlık: StringReplace
Cevaplar: 13
Görüntüleme: 6070

Re:

Onu denedim ama olmadı ( tırnak içerisine #32 de ekledim yine olmadı) s := StringReplace(s,' ali',' veli',[rfReplaceAll, rfIgnoreCase]); bu kez ali satırın başındaysa veli olmuyor :? Bu sorun için de şu şekilde bir çözüme gidebilirsin. Stringin başına ve sonuna birer boşluk ekle. Sonra da tüm ' ali...
gönderen aligel54
07 Oca 2021 11:09
Forum: Programlama
Başlık: Dosya değiştirilme tarihini hangi komutla değiştirebilirim
Cevaplar: 3
Görüntüleme: 663

Re: Dosya değiştirilme tarihini hangi komutla değiştirebilirim

Öncelikler cevabın için teşekkür ederim. Maalesef Delphi 7 sürümünü kullanmaktayım ve System.IOUtils kütüphanesi bulunmamakta.. System ya da SysUtils kütüphanelerinde benzer komutları arayacağım. Bir handikap ise Delphi 7 nin yardımı Windows 10 da çalışmaması. Etik durmama konusuna gelirsek... Sonun...
gönderen aligel54
05 Oca 2021 12:35
Forum: Programlama
Başlık: Dosya değiştirilme tarihini hangi komutla değiştirebilirim
Cevaplar: 3
Görüntüleme: 663

Dosya değiştirilme tarihini hangi komutla değiştirebilirim

Bir uygulamada elle müdahale edilen verileri yedek txt dosyadan da değiştiriyorum. Fakat değiştirdiğimde dosyanın değiştirilme tarihi de değişiyor. Örneğin 10.07.2020 tarihinde oluşturulmuş-değiştirilmiş dosyayı düzenleyip kaydettiğimde değiştirilme tarihi 05.01.2021 oluyor. Dolayısıyla denetimci bu...
gönderen aligel54
05 Oca 2021 12:03
Forum: Programlama
Başlık: İç içe olan döngülerden hızlı çıkış
Cevaplar: 3
Görüntüleme: 942

Re: İç içe olan döngülerden hızlı çıkış

Demek istediğini tam anlayamadım.
Örnek kod verirsen daha iyi olur.

Ama normalde döngüden doğrudan çıkman için aşağıdaki komutu kullanabilirsin.

if Sart_olustuysa then break;
gönderen aligel54
10 Ara 2019 10:57
Forum: Programlama
Başlık: MP20656 Parmakizi okuyucudan soket bağlantısı ile veri almak
Cevaplar: 4
Görüntüleme: 1774

Re: MP20656 Parmakizi okuyucudan soket bağlantısı ile veri almak

Cihazın üretici firması ZKSoftware mi yoksa başka bir firma mı? Eğer ZK ise ya da muadili zk nın dll lerini kullanan bir cihaz ise yardımcı olabilirim.
gönderen aligel54
17 Nis 2019 05:00
Forum: Programlama
Başlık: Rakam ve Karakterli Toplama
Cevaplar: 7
Görüntüleme: 1461

Re: Rakam ve Karakterli Toplama

Biraz düşününce fonksiyon oluşturmadan tek satırda da halledebileceğin bir çözüm buldum. Yazi := StringReplace(format('GSM%12d', [Sayi]), ' ', '0', [rfReplaceAll]); Eğer string uzunluğunun değiştirilebilir olmasını istiyorsan, yani 12 karakterden farklı olma ihtimali varsa aşağıdaki şekilde değiştir...
gönderen aligel54
17 Nis 2019 04:06
Forum: Programlama
Başlık: İlginç Bir Hata (Toplama Yapmıyor)
Cevaplar: 2
Görüntüleme: 678

Re: İlginç Bir Hata (Toplama Yapmıyor)

Aşağıdaki şekilde bir fonksiyon oluşturabilirsin. function SayiyaCevir(GelenSTR:String):double; var i:integer; Yazi:String; BolgeFormat:TformatSettings; begin BolgeFormat.DecimalSeparator := ','; Yazi := ''; for i := 1 to Length(GelenSTR) do if GelenSTR[i] in ['0'..'9', ','] then Yazi := Yazi + Gele...
gönderen aligel54
17 Nis 2019 03:29
Forum: Programlama
Başlık: Rakam ve Karakterli Toplama
Cevaplar: 7
Görüntüleme: 1461

Re: Rakam ve Karakterli Toplama

Aşağıdaki şekilde bir fonksiyon oluşturabilirsin. Function SayiToSTR(GelenSayi:Int64; ToplamUzunluk:Integer):String; var i:integer; Uzunluk:Integer; Yazi:String; begin Yazi := inttostr(GelenSayi); Uzunluk := Length(Yazi); for i := Uzunluk to ToplamUzunluk - 1 do Yazi := '0' + Yazi; Result := Yazi; e...
gönderen aligel54
07 Ara 2017 01:21
Forum: Programlama
Başlık: Dinamik hafıza dizilerinde anlamadığım bir konu
Cevaplar: 3
Görüntüleme: 554

Re: Dinamik hafıza dizilerinde anlamadığım bir konu

Cevaplarınız için teşekkür ederim. O zaman ^ kullanmadan devam edeceğim.

Hafıza bırakma işlemini dediğin gibi zaten yapıyorum. Kod kısa olsun diye yazmamıştım. Hatırlattığın için sağol.
gönderen aligel54
06 Ara 2017 12:31
Forum: Programlama
Başlık: Dinamik hafıza dizilerinde anlamadığım bir konu
Cevaplar: 3
Görüntüleme: 554

Dinamik hafıza dizilerinde anlamadığım bir konu

Aşağıdaki kodda pointer değişken kullanımında anlamadığım bir konu var. type PKayitItem = ^TKayitItem; TKayitItem = record a,b:Integer; end; var Liste:TList; Kayit:PKayitItem; begin Liste := TList.Create; New(Kayit); Kayit^.a := 5; Kayit.b := 3; Liste.Add(Kayit); end; Kayit^.a := 5; satırında noktad...
gönderen aligel54
14 Eyl 2017 01:47
Forum: Programlama
Başlık: Formu ekranda en öne nasıl getirebilirim.
Cevaplar: 6
Görüntüleme: 1005

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

// ekranı en üstte tut SetWindowPos(handle, hwnd_TopMost,0,0,0,0, swp_NoMove or swp_NoSize) Evet işte bu oldu. Ne açarsam açayım bütün pencerelerin önünde kalıyor. Tam istediğim gibi oldu. #loaded fsStayOnTop da bir işe yaramadı. Bilgin olsun. Aslında sorunumu çözdüm. Ama bu sayfayı hep pencereleri...
gönderen aligel54
13 Eyl 2017 01:40
Forum: Programlama
Başlık: Formu ekranda en öne nasıl getirebilirim.
Cevaplar: 6
Görüntüleme: 1005

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

Var ama bir işe yaramıyor.

Application.BringToFront;
UyariPanel.BringToFront;

ikisi de...