Delphi Forum

Ertan kardeşim hızlı cevabın için teşekkür ederim öncelikle.
Dün yoğunluktan mesaj yazamadım.
Verdiğin fonksiyon işime yaradı. Senin fonksiyon 2 tarih aralığında tatil var mı? bunu hesaplıyor.

Ben tek bir tarihi kontrol edeceğim için aşağıdaki şekilde sadeleştirdim :
function Tatilmi(const ADate ...

Arkadaşlar merhaba;

Forumda ararken iki tarih arasındaki iş günlerini hesaplayan fonksiyonu buldum.
Ben ise vereceğim tarihin tatil günü olup olmadığını hesaplamasını ve true false cinsinden döndürmesini istiyorum fakat beceremedim.
Not:Tatil günlerini array şeklinde aşağıdaki gibi ben vereceğim ...

hepinize çok teşekkür ederim.

Arkadaşlar merhaba;

Uygulamam açılırken bazen gelen access violation hatası var.
Bu hatanın olmayan nesnelere erişimde geldiğini biliyorum.
Fakat hata sürekli gelmediği için çözüm üretemiyorum.
Defalarca düzgün açılıyor fakat arada bir access violation hatası veriyor.
Aynı hata program kapanırken ...

Tuğrul hocam lafım size değildi.
Thread konusunda epeyce araştırma yaptım , lakin bir türlü VCL bileşenler ile synchronize işlemini beceremedim.
----
not responding sorunumu farklı bir metodla çözdüm.
İşlem sırasında programın not responding konumuna düşmemesi için geçici olarak klavye ve mouse u ...

ben bu thread olayından vazgeçiyorum. bir türlü beceremedim.

çok teşekkür ederim.
Gerçi ben Delphi 7 kullanıyorum ama fikir verir en azından.

Arkadaşlar sürekli yaptığım hatayı söylüyorsunuz , onun zaten farkındayım synchronize kullanımını bilmiyorum evet.
Kod da gönderdim. Fakat bir türlü şunun doğru kullanımını örnek üzerinde açıklamıyorsunuz.
Basit bir örnek üzerinden gitsek -ki yukarda basit bir örnek kod da var, can çekiştirmeseniz ...

Yukarıdaki örnek thread uygulamasını kendi koduma uyarladım.
Thread kullanmadan önce donma problemi haricinde kod çalışıyordu.

Normalde Kaydet butonuna bağlı kodları
TAntifreeze.Execute prosedürünün içine aldım örnekte olduğu gibi.

Tabiki. Kod şöyle:


type
TAntifreeze = class(TThread)
protected
procedure Execute;override;
end;


implementation

{$R *.dfm}
uses DM,Ana;


procedure TFormYukle.CompressStream(inpStream, outStream: TStream);
var
InpBuf, OutBuf: Pointer;
InpBytes, OutBytes: Integer;
begin
InpBuf := nil ...

yukarıdaki şekliyle thread kullanımını kendi projemde uyguladım.
İşlemi yapaken donma olmuyor artık.
Ancak işlem bitince access violation hatası alıyorum.
Ardından da geçersiz pencere işleci hatası geliyor.

Sanırım yukarıdaki kodda bir eksiklik var. (synchronize komutunu kullanamadım)

birkaç deneme yaptım ama kod hata verdi.
Tam olarak nasıl kullanmam lazım yukarıdaki kodda yazabilirseniz sevinirim.

üstteki kodda synchronize komutunu nereye yerleştirmem gerekiyor?

Basit bir thread örneği buldum. Aynen dediğiniz gibi programdaki donma olayını bitiriyor.
Güzel bir olaymış bu thread. :wink:

Thread konusunda bilgili arkadaşlar aşağıdaki örneği inceleyip bir eksiklik varsa söyleyebilir mi?

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants ...

Arkadaşlar merhaba;
Aşağıdaki kod ile uzak SQL sunucudaki image tipli alana pdf dosyası kaydediyorum. (Uzaktan kastım internet üzerinden farklı lokasyondaki bir makinaya)

procedure TFormYukle.ButtonKaydetClick(Sender: TObject);
var
X:TMemoryStream;
ZIP:TMemoryStream;
begin
Panel2.Visible:=True ...