Delphi Forum

asagidaki dosyayi calip bittikten sonra nasil silerim. normalde sil dedigimde hemen siliyor. sorun yapiyor. bitmesini nasil beklerim MediaPlayer.Mode = mpPlaying runtime oldugundan yapamadim.

If MediaPlayer.playState = 3 then begin // yürütülmekte ise
MediaPlayer.close;
end else begin ...

Merhaba,



MsTools un ücretsiz olduğunu soylediler..ama bildiğiniz ve daha uygun ve iyi bir comp varsa onerinizi alabilirim



@nosedive ,



MMtools olarak bildiğim bileşen, SwiftSoft'a ait olup paralıdır .



Tamamen ücretsiz ve açık kaynak kodlu DSPack 2.3.4 bileşeni buradan indirip ...

ustadim tesekkur ederim oldu.
bir sey soracagim, 3 veya 4 harfim oldugunda '@qxw' de k gibi olmasi icin bu satirlarin bu şekilde değişmesi yerterli mi.

if Pos(C1, '@qxw') > 0 then C1 := 'k';
if Pos(C2, '@qxw') > 0 then C2 := 'k';

merhaba
asağıdaki fonksiyonla listemi siralama yapiyorum ozel olarak, fakat yapmak istedigim @ ve q harflerini de k ile birlikte k ya eşit bir şekilde siralamak istiyorum, nasıl yapabilirim. j<k,q,@<l gibi bir şey olmasi lazim heralde.
HarfDizisi:String='aâbcçdefgğhıiîjkq@lmnoöprsştuüûvyz'; bu ...

merhaba
2 adet richeditim var richedit2 de iken imlecin bulundugu satirdaki kelimeyi richedit1 de de aynı satir ve farkli kelime olan yeri nasil renklendiririm.
ornegin
imlecim richedit2 de 5.satir ve 3. kelimeye geldiginde
sadece richedit1 de 5.satir ve 3. kelime renklenecek.

nasil yapabilirim ...

Tencoding.Unicode actim bir sorun olmuyor buyuk ihtiamlle senin textin farkli. Tencoding.UTF8 veya Tencoding.BigEndianUnicode dene

1-
dönüştürdügüm Tbitmap seklindeki procedure orjinalindeki gibi asagidakilerden birini yazinca hata aliyorum. ntdll.dll gibi bir mesaj veriyor. bu yuzden 2 satirida sildimdi.
Bitmap.Assign( bitmap );
Bitmap.Free;

2-
2.ornekte şöyle bir hata goruyorum bana göre pixel buyuklugunu 2 ye ayarladigimda ...

ustadim 1. ornegi bu sekilde timage deb tbitmap e duzelttim. O sekilde kullanmam lazim oldugu icin bir sorun olur mu. Buyuk resimlerde 1-2 kez sorun nerden kaynaklandigini anlayamadim. 2. ornegide inceleyecegim.
procedure Tform.IzoleOlanlariTemizle( bitmap: Tbitmap );
Const
BitsPerPixel = 1;
Var
x ...

Üstadim cok tesekkur ederim çok makbule geçti, uğraştınız.
hep de problemli zamanlarımda siz koşuyorsunuz.

Const
BitsPerPixel = 2;
deneme yaptim 2 pixel de calistiramadim.

imageen komponentinde boyle bir procedure ImageEnView1.Proc.RemoveIsolatedPixels(0, 4); oldugunu gordum fakat inceledigimde bir bug oldugunu gördüm bildirdim. bir cevap cikmadi.
kodu buraya yazsam duzeltebilirmiyiz.

ustadim devamı gelmez insallah, yapmak istedigim sey.
threshold yaptigim bitmap resimlerde yazilara yakın ve diğer yerlerde kucuk siyahlıklar kaliyor bunlari temizlemek istiyordum.

asagidaki bir kodu inceliyordum. 24 bit icin bana 2 renkli 1 bit lazimdi.
procedure ChangeWhiteToBlack24(var Bitmap ...

ustadim bilgi icin tesekkur ederim. fakat dediğiniz sekilde bir kod yazacak kadar ileri seviyede değilim.

2 renkli 1 bit lik resmimde birbirinden ayrilmiş bütün 1 veya 2 pixel buyuklugundeki siyah noktalari scanline kullanarak silmek istiyorum. nokta sagindan solundan ustunden altindan diğer siyah pixellerle birleşmemesi lazım. Yardimci olacak arkadaslara tesekkur ederim.

tdk nin imla listesi var. benimde bir imla kontrolu yapacak kod algoritmaya ihtiyacim var.

(1) tüm kelimelerden (+) ifadesini kaldırın.
(2) Sorted:= True; ile sıralayın,
(3) sondan başa döngü kurun...
(4) Ardışık olarak aynı olan varsa o satırı silin.

biraz geç gördüm ama,
tesekkurler aynı şekilde yapmışım bende. sonuca ulaştım.
heceleme değildi hocam.