neoturk: Forum - "sağa dayalı edit"
"
Merhaba Arkadaslar 29 Kas ı m 2005 18: 34
Edit . text := '123,452.55' edit 'a seklinde bir deger atıyorum ancak
bunun saga yan ı s ı k olmas ı n ı istiyorum ama bir turlu beceremedim .
Kod Bankas ı ndaki saga dayal ı yazd ı rma seklindeki koduda denedim olmad ı,
TeditMask kullan ı md ı m , format ı n ı
! 999999 ; 1 ; seklinde yapt ı m olmad ı.
Rica etsem bir yard ı mda bulunurmusunuz . Tesekkurler .
lalecan
"
cevap :
merhaba ,
normal edit nesnesinin t ü m kal ı tsal ö zelliklerini i ç eren
komponent kodu a ş a ğı dad ı r .
kodu oldu ğ u gibi " alignment . pas " olarak kaydet .
( delphinin kurulu oldu ğ u dizin alt ı nda ,
imports klas ö r ü vard ı r . onun i ç ine kaydet )
daha sonra component men ü s ü ne gir ( ana men ü den )
( File Edit View Run " Component " )
install component se ç.
git imports klas ö r ü i ç erisindeki " alignment . pas " dosyas ı n ı se ç.
" samples " alt ı na kurulacakt ı r komponentin .
sa ğ a sola ortaya dayal ı istedi ğ in gibi kullan .
" samples " yazan yeri de ğ i ş tirerek varsa kendi palet ismini de belirtebilirsin . da ğı n ı kl ı k olmaz .........
Kolay gelsin .............
( sigaram bitti krize girdim ! kahretsin sinirleniyorum ! )
neoturk_
unit alignment ;
interface
uses
Windows , Messages , SysUtils , Classes , Graphics , Controls , Forms ,
Dialogs ,
StdCtrls ;
type
TJustaEdit = class ( TEdit )
private
{ Private declarations }
fAlignment : TAlignment ;
protected
{ Protected declarations }
procedure SetAlignment ( Value : TAlignment );
public
{ Public declarations }
procedure createParams ( var Params : TCreateParams ); override ;
published
{ Published declarations }
property Alignment : TAlignment read FAlignment write SetAlignment
default taLeftJustify ;
end ;
procedure Register ;
implementation
procedure TJustaEdit . CreateParams ( var Params : TCreateParams );
var
x : Longint ;
begin
inherited CreateParams ( Params );
case fAlignment of
tarightjustify : x := es_right ;
taleftjustify : x := es_left ;
tacenter : x := es_center ;
end ;
params . style := params . style or x ;
end ;
procedure TJustaEdit . SetAlignment ;
begin
if FAlignment <> Value then
begin
FAlignment := Value ;
RecreateWnd ;
end ;
end ;
procedure Register ;
begin
RegisterComponents ( 'Samples' , [ TJustaEdit ]);
end ;
end .
*******************************************
say ı n xxnt03 ; oncelikle yard ı m ı n icin tesekkur ederim .. 30 Kas ı m 2005 16 : 36
Soyledigin gibi , asag ı daki compenenti install ettim ama bana
programi calistirirken bana hata verdi ,
soyleki ,
"[ Fatal Error ] CariKart . dpr ( 1 ): Unit not found : 'System.pas' or binary equivalents ( DCU , DPU )"
simdi , programi calistiramiyorum , bunun icin ne yapabilirim , yard ı mc ı olurmusun ..
Tesekkurler .
Kolay gelsin ..
*******************************************
merhaba ,
"[ Fatal Error ] CariKart . dpr ( 1 ): Unit not found : 'System.pas' or binary equivalents ( DCU , DPU )"
bu hatan ı n kayna ğı, muhtemelen delphi k ü t ü phanen zarar g ö rd üğü i ç in .
system . pas dosyas ı bulunamamas ı ve beraberinde " dcu , dpu " dosyalar ı n ı n
bulunamamas ı anlam ı na geliyor ki , delphiyi tekrardan kurman gerekiyor .
zay ı f bir ihtimal ama environment paths ayarlar ı ile oynam ış isen k ü t ü phane
dosyalar ı n ı yine g ö remeyeceksindir .
yanl ış l ı kla delphiye system klas ö rlerini mi u ç urdun naptin ?...
projene zarar gelmez .....
verdi ğ im komponent kodu do ğ rudur , test ettim % 100 ç al ışı yor .
projenin yede ğ ini bir klas ö re al , delphiyi tamamen kald ı r yeniden kur .
sorun çö z ü lecektir ...
kolay gelsin ...
neoturk_
************************************************
"
DElphinin Tools men ü s ü nden Environment Options men ü s ü n ü t ı kla .
a çı lan pencede Library k ı sm ı na ge ç.. Browsing Path k ı sm ı nn kar şı s ı ndaki
buttonu t ı kla a çı lan pencereden Grayed items denote
invalid Path k ı sm ı na yeni ekledi ğ in kompanentin sourcelerinin bulundu ğ u
klas ö r ü n yolunu yaz . add ile ekle ...
ekledi ğ in kompanentler ç al ış acakt ı r ..
iyi ç al ış malar .....
aslanm
"
neoturk: Forum - "MERHABA ARKADAŞLAR YARDIMA İHTİYACIM VAR..."
Ş imdi Form11 Diye Bir M üş teri Kay ı t Formum Var Burada Formda ...
1 Edit
15 Adet Dbedit
Nesneleri Var .
1 Table
1 Datasource1
Ben Form11 Ü zerinde Edit1 OnExit Yordam ı na Ş unu Yaz ı yorum ...
Table1 . insert ;
Kaydet Butonunada Onclik Yordam ı nada ..
Table1 . post ;
Yaz ı yorum ...
bu kay ı t i ş lemini ba ş ka nas ı l yapt ı rabilirim ....
Yard ı mc ı olabilirseniz sevinirim ...
sahinmaster
"
cevap :
merhaba ,
sorunu biraz daha a çı klarsan daha iyi yard ı mc ı olurum ,
tam olarak amac ı n ı anlayamad ı m ,
edit1 h ü cresini terk etti ğ i anda bilgileri kaydetmek istiyorsun san ı r ı m .
edit nesnesini de dbedit olarak ayarlamal ı s ı n ,
otomatik olarak bu tip h ü creler terk edildi ğ inde
db dosyas ı na otomatik yaz ı l ı rlar .
( extra olarak tekrar post i ş lemi yapt ı rmana gerek yok )
normal edit nesnesinin i ç eri ğ ini onexit olay ı na yaz ı p ,
girilen bilgiyi post ettirmek istiyor isen ş ayet ,
edit1 nesnesinin on exit olay ı na ş unu yazabilirsin :
( access kulland ığı n ı varsay ı yorum )
adotable1 . edit ;
adotable1 . fields . fieldbyname ( 'ADI' ). asstring := edit1 . text ;
adotable1 . post ;
( h ü cre terk edilirken bu bilgiyi db ye yazm ış olursun )
adotable1 . insert yerine , adotable1 . append kullanman ı ö neriyorum .
append = en son sat ı ra ekler .
insert = araya ekler .
kolay gelsin .....
sayg ı lar ı mla_
neoturk_
*******************************
Karde ş Merhaba KArde ş Olay Ş u Ş imdi ....
Bir Projem Var .. Ana Formda M üş teri Kay ı t Butonunu T ı kl ı yom . Form11 A çı l ı yor .
Form11 Ü zerinde
1 Adet Edit1
15 Adet Dbedit
Nesneleri Var .
Kay ı t İç inde :
1 Table1
1 Datasource1 Nesneleri Var Databas Olarak Paradox Kullan ı yorum ...
Form11 A çı ld ığı nda K ü rs ü r İ lk Olarak Edit1 e Geliyor . Ş u Anna Kadar Databas Kay ı t İş lemi Yapmayacak . Ancak Ender Tu ş una veya Tab Tu ş una Barak Edit1 Den Ayr ı ld ığı mda Databas Kay ı t Durumuna Ge ç ecek Bende DBEdit1 Den Ba ş larakar EDEdit 'ler İçine Bilgileri Gireceğim.
Ve Buradada Kaydet Butonuna Basarsam Databas İç ine Girdi ğ im Biligileri Kay ı t Edecek .
Ş AYET Kaydet De ğ ilde Vazge ç Butonuna Basarsam Hi ç Bir Ş ey Kay ı t Etmeden Form11 Kapatacak .
KArde ş Olay bu .. Derdimi Anlatabilmi ş imdir İş allah .
Yard ı mc ı olabilirsen sevinirim ...
***********************************
merhaba ,
pekala .........
anlad ığı m ı yaz ı yorum :
" edit1 h ü cresinden TAB ya da ENTER tu ş u ile
ayr ı ld ığı nda veri taban ı na , KAYDET derseniz
kay ı t yapacak , VAZGE Ç derseniz hi ç bir kay ı t eklemeyecek ..."
peki ....
teorik yaz ı yorum ,
form11 ü zerinde 2 tane button yerle ş tirmi ş oldu ğ unu varsay ı yorum .
( button1 = kaydet , button2 = vazge ç olsun )
form11 ü zerindeki edit1 h ü cresinin " onenter " eventine ( olay ı na ) a ş a ğı daki kodu yaz
procedure TForm1 . Edit1Enter ( Sender : TObject );
begin
edit1 . tag := 0 ; //tab veya entere basılmamış say
table1 . disablecontrols ; //tabloyu pasif hale getir (seçimlik, sana kalmış )
button1 . enabled := false ; //kaydet düğmesini pasif yap
button2 . enabled := false ; //vazgeç düğmesini pasif yap
end ;
ayn ı ş ekilde form11 in edit1 h ü cresinin onkeypress olay ı na a ş a ğı daki kodu yaz :
procedure TForm11 . Edit1KeyPress ( Sender : TObject ; var Key : Char );
begin
if ( ord ( key )= 13 ) or ( ord ( key )= 9 ) then
begin
key := #0 ;
edit1 . tag := 1 ; //tab veya entere basılmış say
end ;
//final
end ;
ayn ı ş ekilde form11 in edit1 h ü cresinin onexit olay ı na a ş a ğı daki kodu yaz :
procedure TForm11 . Edit1onexit ( Sender : TObject );
begin
if edit1 . tag = 1 then //tab veya entere basılmış ise
begin
table1 . enablecontrols ; //tabloyu aktif hale getir (seçimlik, sana kalmış )
button1 . enabled := true ; //kaydet düğmesini aktif yap
button2 . enabled := true ; //vazgeç düğmesini aktif yap
end ;
end ;
giri ş-çı k ış lar ve tablo y ö netimi tamam ....
buton1 cli ğ ine ş unu yaz : ( kaydet )
begin
table1 . edit ; //değişiklikler yapılmış olabilir, edit moduna geçiyoruz
table1 . post ; //verileri kaydet, güncelle, üzerine yaz
end ;
buton2 cli ğ ine ş unu yaz : ( vazge ç )
begin
table1 . cancel ; //iptal et
end ;
not : dbedit kullan ı mlar ı nda dikkatli olmal ı s ı n . yapt ığı n de ğ i ş iklikler
otomatik olarak kaydediliyor çü nk ü.... bu y ü zden bazen " vazge ç" tu ş u ve cancel mant ığı problem olu ş turabilir ...
umar ı m sorunun hallolmu ş tur ?......
daha ba ş ka ne yapmam gerekiyorsa s ö yle ........
kolay gelsin ........
neoturk_
Delphi - .....................................
neoturk: Forum - "MERHABA ARKADAŞLAR YARDIMA İHTİYACIM VAR..."
"
MERHABA ARKADA Ş LAR YARDIMA İ HT İ YACIM VAR ... 29 Kas ı m 2005 09 : 57
Merhaba Arkada ş lar Kolay gelsin ... Ben Bir Konu Hakk ı nda Fikriniz Almak İ stiyorum ...
Ş imdi Form11 Diye Bir M üş teri Kay ı t Formum Var Burada Formda ...
1 Edit
15 Adet Dbedit
Nesneleri Var .
1 Table
1 Datasource1
Ben Form11 Ü zerinde Edit1 OnExit Yordam ı na Ş unu Yaz ı yorum ...
Table1 . insert ;
Kaydet Butonunada Onclik Yordam ı nada ..
Table1 . post ;
Yaz ı yorum ...
bu kay ı t i ş lemini ba ş ka nas ı l yapt ı rabilirim ....
Yard ı mc ı olabilirseniz sevinirim ...
sahinmaster
"
cevap :
merhaba ,
sorunu biraz daha a çı klarsan daha iyi yard ı mc ı olurum ,
tam olarak amac ı n ı anlayamad ı m ,
edit1 h ü cresini terk etti ğ i anda bilgileri kaydetmek istiyorsun san ı r ı m .
edit nesnesini de dbedit olarak ayarlamal ı s ı n ,
otomatik olarak bu tip h ü creler terk edildi ğ inde
db dosyas ı na otomatik yaz ı l ı rlar .
( extra olarak tekrar post i ş lemi yapt ı rmana gerek yok )
normal edit nesnesinin i ç eri ğ ini onexit olay ı na yaz ı p ,
girilen bilgiyi post ettirmek istiyor isen ş ayet ,
edit1 nesnesinin on exit olay ı na ş unu yazabilirsin :
( access kulland ığı n ı varsay ı yorum )
adotable1 . edit ;
adotable1 . fields . fieldbyname ( 'ADI' ). asstring := edit1 . text ;
adotable1 . post ;
( h ü cre terk edilirken bu bilgiyi db ye yazm ış olursun )
adotable1 . insert yerine , adotable1 . append kullanman ı ö neriyorum .
append = en son sat ı ra ekler .
insert = araya ekler .
kolay gelsin .....
sayg ı lar ı mla_
neoturk_
*******************************
Karde ş Merhaba KArde ş Olay Ş u Ş imdi ....
Bir Projem Var .. Ana Formda M üş teri Kay ı t Butonunu T ı kl ı yom . Form11 A çı l ı yor .
Form11 Ü zerinde
1 Adet Edit1
15 Adet Dbedit
Nesneleri Var .
Kay ı t İç inde :
1 Table1
1 Datasource1 Nesneleri Var Databas Olarak Paradox Kullan ı yorum ...
Form11 A çı ld ığı nda K ü rs ü r İ lk Olarak Edit1 e Geliyor . Ş u Anna Kadar Databas Kay ı t İş lemi Yapmayacak . Ancak Ender Tu ş una veya Tab Tu ş una Barak Edit1 Den Ayr ı ld ığı mda Databas Kay ı t Durumuna Ge ç ecek Bende DBEdit1 Den Ba ş larakar EDEdit 'ler İçine Bilgileri Gireceğim.
Ve Buradada Kaydet Butonuna Basarsam Databas İç ine Girdi ğ im Biligileri Kay ı t Edecek .
Ş AYET Kaydet De ğ ilde Vazge ç Butonuna Basarsam Hi ç Bir Ş ey Kay ı t Etmeden Form11 Kapatacak .
KArde ş Olay bu .. Derdimi Anlatabilmi ş imdir İş allah .
Yard ı mc ı olabilirsen sevinirim ...
***********************************
merhaba ,
pekala .........
anlad ığı m ı yaz ı yorum :
" edit1 h ü cresinden TAB ya da ENTER tu ş u ile
ayr ı ld ığı nda veri taban ı na , KAYDET derseniz
kay ı t yapacak , VAZGE Ç derseniz hi ç bir kay ı t eklemeyecek ..."
peki ....
teorik yaz ı yorum ,
form11 ü zerinde 2 tane button yerle ş tirmi ş oldu ğ unu varsay ı yorum .
( button1 = kaydet , button2 = vazge ç olsun )
form11 ü zerindeki edit1 h ü cresinin " onenter " eventine ( olay ı na ) a ş a ğı daki kodu yaz
procedure TForm1 . Edit1Enter ( Sender : TObject );
begin
edit1 . tag := 0 ; //tab veya entere basılmamış say
table1 . disablecontrols ; //tabloyu pasif hale getir (seçimlik, sana kalmış )
button1 . enabled := false ; //kaydet düğmesini pasif yap
button2 . enabled := false ; //vazgeç düğmesini pasif yap
end ;
ayn ı ş ekilde form11 in edit1 h ü cresinin onkeypress olay ı na a ş a ğı daki kodu yaz :
procedure TForm11 . Edit1KeyPress ( Sender : TObject ; var Key : Char );
begin
if ( ord ( key )= 13 ) or ( ord ( key )= 9 ) then
begin
key := #0 ;
edit1 . tag := 1 ; //tab veya entere basılmış say
end ;
//final
end ;
ayn ı ş ekilde form11 in edit1 h ü cresinin onexit olay ı na a ş a ğı daki kodu yaz :
procedure TForm11 . Edit1onexit ( Sender : TObject );
begin
if edit1 . tag = 1 then //tab veya entere basılmış ise
begin
table1 . enablecontrols ; //tabloyu aktif hale getir (seçimlik, sana kalmış )
button1 . enabled := true ; //kaydet düğmesini aktif yap
button2 . enabled := true ; //vazgeç düğmesini aktif yap
end ;
end ;
giri ş-çı k ış lar ve tablo y ö netimi tamam ....
buton1 cli ğ ine ş unu yaz : ( kaydet )
begin
table1 . edit ; //değişiklikler yapılmış olabilir, edit moduna geçiyoruz
table1 . post ; //verileri kaydet, güncelle, üzerine yaz
end ;
buton2 cli ğ ine ş unu yaz : ( vazge ç )
begin
table1 . cancel ; //iptal et
end ;
not : dbedit kullan ı mlar ı nda dikkatli olmal ı s ı n . yapt ığı n de ğ i ş iklikler
otomatik olarak kaydediliyor çü nk ü.... bu y ü zden bazen " vazge ç" tu ş u ve cancel mant ığı problem olu ş turabilir ...
umar ı m sorunun hallolmu ş tur ?......
daha ba ş ka ne yapmam gerekiyorsa s ö yle ........
kolay gelsin ........
neoturk_
Delphi - .....................................
neoturk: Forum - "Delphi7 'de Fasnet kontrolleri yok"
"
Delphi7 'de Fasnet kontrolleri yok 28 Kasım 2005 21:32
De ğ erli delphi kullan ı c ı lar ı. Benim gene size bir sorum olacak .
Ben delphi7 kullan ı yorum . Ama Fasnet kontrollerini bir t ü rl ü bulamad ı m .
Nas ı l alabilirim . L ü tfen yard ı m edin .
(İ yi ç al ış amalar )
delphiibo
"
cevap :
ESK İ CEVABIMDAN ALINTIDIR :
"
DELPHI 6 daki NMHTTP1 DELPHI 7 de Hangi Compunent Bug ü n 14 : 00
Herkese Merhabalar
Bu sitteden ç ok ş ey öğ rendim Eme ğ i ge ç en herkesten Allah Raz ı olsun .
Buraya Yine bir soru sormak i ç in geldim . Bilen bir arkada şı m varsa
rica edecem . Ben ö nceden Delphi6 ile ç al ışı yordum . Bir mesaj g ö nderme
program ı vard ı. Hatta o program burada da var .
Delphi 7 ye ge ç ince ç al ış maz oldu .Çü nk ü baz ı Compunentler ç al ış m ı yor
Ben ş imdi Bu delpi 6 daki NMHTTP Compunenti Delphi7de Ne ? idhttp ye
bak ı yorum . Orada get pos yok .
Bu delphi 7 de Nas ı l de ğ i ş iklik yapacam konusunda bir bilgisi olan varm ı acaba .
Ş imdiden te ş ekk ü rler .
Mert_
"
cevap :
al ı nt ı d ı r : ( nmstrm hakk ı nda genel )
"
Written by neoturk - 02.01.2004
1.Internet programc ı l ığı ile u ğ ra şı yor isek ( bu trojan veya her neyse fark etmez )
kesinlikle ve kesinlikle DOSYA TRANSFER İ olay ı n ı n % 100 sorunsuz olarak
çö z ü lmesi gerekiyor . Çü nk ü ba ğ lant ı sa ğ lanmas ı nda bir problem yok ,
ancak er ya da ge ç dosya transfer olay ı na ihtiya ç duyulacak !
Bunun i ç in bu konunun bizzat çö z ü mlenmesi ve kendi mant ığı m ı za g ö re i ş leme
ge ç mesi gerekiyor .
2.Delphi olsun CBuilder olsun , bu programlama dillerinde dosya transfer
i ş ini g ö ren NMSTRM adl ı komponent ( paket ) serisi var . Hemen hemen
t ü m programc ı lar bu komponentleri kullan ı rlar .
( Ç ok ö nemli dip not : Okudu ğ um bir ç ok delphi kitab ı nda
( okumad ığı m ı yok denecek kadar parmakla g ö sterebilirim ) dosya transfer ö rneklerini
nedense hep nmstrm komponentleri ü zerinde anlat ı rlar .
Oradaki ö rneklerde dosya transferleri ç al ışı r . Oturur yazars ı n ve her ş eyin
ç al ış t ığı n ı g ö r ü nce bir ş eyler öğ rendi ğ ini san ı rs ı n .. do ğ rudur ..
ama Level2 'ye geçtiğinde NMSTRM komponentlerinin yetersiz
oldu ğ unu ben dahil deneyimli coderler er ge ç fark etmi ş lerdir …
Bu nedenle oturup adam gibi kodunu kendin yazmal ı s ı n ..
( icq gibi , paltalk gibi .. )
3. Ö rnek trojanlar incelendi ğ inde nedense ç o ğ unda dosya transfer olay ı n ı n
nas ı l yap ı ld ığı g ö sterilmemi ş tir . Bunu g ö steren tek ö rnek trojan kodu LATINUS
trojan ı d ı r . ( tek t ü k baz ı trojanlarda da mevcut ancak tarihi eser
kal ı nt ı lar ı yla dolu ve ç al ış mayan kod par ç ac ı klar ı d ı r )
4.Latinus trojan ı ndaki dosya transfer i ş lemi Multi - File y ö ntemini
destekleyen ş ekilde transfere m ü saade ediyor , ama kullan ı m ı pek etkin de ğ il ..
denedim kulland ı m ç al ış t ı rd ı m ama etkin de ğ il .. hangi dosyan ı n ne zaman
vard ığı, nereye gitti ğ i Allah kerim .. gidiyor dosyalar ve direkt temp
klas ö r ü ne kopyas ı çı kart ı l ı yor .. kodu yazan adam biraz kula ğı n ı
SA Ğ 'dan göstermiş.. welhasıl pek verimli bir kod değil…
5.Dosya g ö ndermek ger ç ekten ö nemli bir konu , nedenine gelince ,
coderlerin % 99 'u ( abartmıyorum ) nmstrm komponentini kullanırlar
ve kullanacaklard ı r . Oturup s ı f ı rdan kodunu yazmas ı inan kas ı yor …
i ş in komik yan ı da network i ç inden d ış ar ı ya ba ğ lant ı yap ı ld ığı nda
nmstrm componentleri dosya transferlerini yapam ı yor ..
bunu ya bilerek es ge ç tiler ya da unuttular ..
çü nk ü bizim daha ö nceki yazd ığı m ı z t ü m versiyonlarda nmstrm komponentlerini
kullanm ış t ı m . O y ü zden network - dialup aras ı ndaki dosya transferleri
olmuyordu . ( network i ç inden evdeki pcye ba ğ lant ı ö rne ğ inde oldu ğ u gibi )
( ama msn veya icq bunu gayet g ü zel yap ı yor de ğ il mi ? )
6. Ç ok ince bir nuans daha var , tcp / ip ( socketler ) ü zerinden dosya
g ö nderece ğ imiz zaman 2 se ç ene ğ imiz var . Block ve None - Block se ç imi … block
i ş lemli socketlerde bir sonraki gelen veri paketi cache socket belle ğ inde
tutulur . Aktif olan veri dosyaya yaz ı ld ı ktan sonra cache socket belle ğ inden
al ı r ve b ö ylece i ş lemler devam eder .. ( winsock topolojisi ). none - block se ç imi
yaparsak cache bellekte veri tutulmaz . Gelen veri direkt i ş lenir . İş lenen bir
veri s ı ras ı nda ş ayet ikinci bir veri paketi gelirse bu paket bo ş a gide çü nk ü
cache bellekte tutulmaz … burada şö yle bir sorun var , winsock cache bellek
dolar elbet … bu durumda da aynen 3 ü n 1 ini al ı r ı z … bu sorunun d ü zeltilmesi
konusundaki baz ı profesyonel yakla şı mlar ı birka ç programda g ö rm üş t ü m ..
bunlardan en etkini de bildi ğ imiz icq ve msn dosya transferleri …
7.Benim amac ı m cache belle ğ in dolmas ı na m ü saade etmeden ping - pong
( paketi ald ı m - sonrakini g ö nder ) mant ığı na g ö re veri paketlerini s ı rayla
g ö ndermek . ( icqdaki file send speed olay ı, 1 - 5 aras ı h ı z se ç imi vard ı
hat ı rlarsan .. olay ı n ö z ü burada yani … )
......
"
delphi7 de nmstrm komponent serisi yok ...
bir ş ekilde kodlama ile bunu yapmak zorundas ı n ı z ,
veya di ğ er bir se ç enek , indy nesnelerini kullanman ı z ı tavsiye ediyorum ...
kolay gelsin .....
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "Delphi7 'de Fasnet kontrolleri yok"
"
Delphi7 'de Fasnet kontrolleri yok 28 Kasım 2005 21:32
De ğ erli delphi kullan ı c ı lar ı. Benim gene size bir sorum olacak .
Ben delphi7 kullan ı yorum . Ama Fasnet kontrollerini bir t ü rl ü bulamad ı m .
Nas ı l alabilirim . L ü tfen yard ı m edin .
(İ yi ç al ış amalar )
delphiibo
"
cevap :
ESK İ CEVABIMDAN ALINTIDIR :
"
DELPHI 6 daki NMHTTP1 DELPHI 7 de Hangi Compunent Bug ü n 14 : 00
Herkese Merhabalar
Bu sitteden ç ok ş ey öğ rendim Eme ğ i ge ç en herkesten Allah Raz ı olsun .
Buraya Yine bir soru sormak i ç in geldim . Bilen bir arkada şı m varsa
rica edecem . Ben ö nceden Delphi6 ile ç al ışı yordum . Bir mesaj g ö nderme
program ı vard ı. Hatta o program burada da var .
Delphi 7 ye ge ç ince ç al ış maz oldu .Çü nk ü baz ı Compunentler ç al ış m ı yor
Ben ş imdi Bu delpi 6 daki NMHTTP Compunenti Delphi7de Ne ? idhttp ye
bak ı yorum . Orada get pos yok .
Bu delphi 7 de Nas ı l de ğ i ş iklik yapacam konusunda bir bilgisi olan varm ı acaba .
Ş imdiden te ş ekk ü rler .
Mert_
"
cevap :
al ı nt ı d ı r : ( nmstrm hakk ı nda genel )
"
Written by neoturk - 02.01.2004
1.Internet programc ı l ığı ile u ğ ra şı yor isek ( bu trojan veya her neyse fark etmez )
kesinlikle ve kesinlikle DOSYA TRANSFER İ olay ı n ı n % 100 sorunsuz olarak
çö z ü lmesi gerekiyor . Çü nk ü ba ğ lant ı sa ğ lanmas ı nda bir problem yok ,
ancak er ya da ge ç dosya transfer olay ı na ihtiya ç duyulacak !
Bunun i ç in bu konunun bizzat çö z ü mlenmesi ve kendi mant ığı m ı za g ö re i ş leme
ge ç mesi gerekiyor .
2.Delphi olsun CBuilder olsun , bu programlama dillerinde dosya transfer
i ş ini g ö ren NMSTRM adl ı komponent ( paket ) serisi var . Hemen hemen
t ü m programc ı lar bu komponentleri kullan ı rlar .
( Ç ok ö nemli dip not : Okudu ğ um bir ç ok delphi kitab ı nda
( okumad ığı m ı yok denecek kadar parmakla g ö sterebilirim ) dosya transfer ö rneklerini
nedense hep nmstrm komponentleri ü zerinde anlat ı rlar .
Oradaki ö rneklerde dosya transferleri ç al ışı r . Oturur yazars ı n ve her ş eyin
ç al ış t ığı n ı g ö r ü nce bir ş eyler öğ rendi ğ ini san ı rs ı n .. do ğ rudur ..
ama Level2 'ye geçtiğinde NMSTRM komponentlerinin yetersiz
oldu ğ unu ben dahil deneyimli coderler er ge ç fark etmi ş lerdir …
Bu nedenle oturup adam gibi kodunu kendin yazmal ı s ı n ..
( icq gibi , paltalk gibi .. )
3. Ö rnek trojanlar incelendi ğ inde nedense ç o ğ unda dosya transfer olay ı n ı n
nas ı l yap ı ld ığı g ö sterilmemi ş tir . Bunu g ö steren tek ö rnek trojan kodu LATINUS
trojan ı d ı r . ( tek t ü k baz ı trojanlarda da mevcut ancak tarihi eser
kal ı nt ı lar ı yla dolu ve ç al ış mayan kod par ç ac ı klar ı d ı r )
4.Latinus trojan ı ndaki dosya transfer i ş lemi Multi - File y ö ntemini
destekleyen ş ekilde transfere m ü saade ediyor , ama kullan ı m ı pek etkin de ğ il ..
denedim kulland ı m ç al ış t ı rd ı m ama etkin de ğ il .. hangi dosyan ı n ne zaman
vard ığı, nereye gitti ğ i Allah kerim .. gidiyor dosyalar ve direkt temp
klas ö r ü ne kopyas ı çı kart ı l ı yor .. kodu yazan adam biraz kula ğı n ı
SA Ğ 'dan göstermiş.. welhasıl pek verimli bir kod değil…
5.Dosya g ö ndermek ger ç ekten ö nemli bir konu , nedenine gelince ,
coderlerin % 99 'u ( abartmıyorum ) nmstrm komponentini kullanırlar
ve kullanacaklard ı r . Oturup s ı f ı rdan kodunu yazmas ı inan kas ı yor …
i ş in komik yan ı da network i ç inden d ış ar ı ya ba ğ lant ı yap ı ld ığı nda
nmstrm componentleri dosya transferlerini yapam ı yor ..
bunu ya bilerek es ge ç tiler ya da unuttular ..
çü nk ü bizim daha ö nceki yazd ığı m ı z t ü m versiyonlarda nmstrm komponentlerini
kullanm ış t ı m . O y ü zden network - dialup aras ı ndaki dosya transferleri
olmuyordu . ( network i ç inden evdeki pcye ba ğ lant ı ö rne ğ inde oldu ğ u gibi )
( ama msn veya icq bunu gayet g ü zel yap ı yor de ğ il mi ? )
6. Ç ok ince bir nuans daha var , tcp / ip ( socketler ) ü zerinden dosya
g ö nderece ğ imiz zaman 2 se ç ene ğ imiz var . Block ve None - Block se ç imi … block
i ş lemli socketlerde bir sonraki gelen veri paketi cache socket belle ğ inde
tutulur . Aktif olan veri dosyaya yaz ı ld ı ktan sonra cache socket belle ğ inden
al ı r ve b ö ylece i ş lemler devam eder .. ( winsock topolojisi ). none - block se ç imi
yaparsak cache bellekte veri tutulmaz . Gelen veri direkt i ş lenir . İş lenen bir
veri s ı ras ı nda ş ayet ikinci bir veri paketi gelirse bu paket bo ş a gide çü nk ü
cache bellekte tutulmaz … burada şö yle bir sorun var , winsock cache bellek
dolar elbet … bu durumda da aynen 3 ü n 1 ini al ı r ı z … bu sorunun d ü zeltilmesi
konusundaki baz ı profesyonel yakla şı mlar ı birka ç programda g ö rm üş t ü m ..
bunlardan en etkini de bildi ğ imiz icq ve msn dosya transferleri …
7.Benim amac ı m cache belle ğ in dolmas ı na m ü saade etmeden ping - pong
( paketi ald ı m - sonrakini g ö nder ) mant ığı na g ö re veri paketlerini s ı rayla
g ö ndermek . ( icqdaki file send speed olay ı, 1 - 5 aras ı h ı z se ç imi vard ı
hat ı rlarsan .. olay ı n ö z ü burada yani … )
......
"
delphi7 de nmstrm komponent serisi yok ...
bir ş ekilde kodlama ile bunu yapmak zorundas ı n ı z ,
veya di ğ er bir se ç enek , indy nesnelerini kullanman ı z ı tavsiye ediyorum ...
kolay gelsin .....
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "Edit Server"
"
Edit Server 28 Kas ı m 2005 20 : 58
Arkada ş lar hep soru sorup sizleride rahats ı z ediyorum ama affedin .
Bu seferki sorum şö yle . Program a çı ld ığı zaman mail at ı yo .
Programda şö yle bi kod var
NMSMTP1 . PostMessage . ToAddress . Text := 'hackman_76@hotmail.com' ;
Ş imdi ben delphide ba ş ka bi program yaz ı p bu kodu nas ı l deyi ş tirebilirim .
yani mailin hackman_76 @ hotmail . com de ğ ilde sonradan programla yazava ğı m adrese
gelsesini nas ı l sa ğ layabilirim .Ş imdiden te ş ekk ü rler .
MK - Programing
"
cevap :
merhaba ,
sorunu tam olarak anlamad ı m ,
haz ı r kaynak kod elinde mevcut ise ;
istedi ğ in mail adresini oraya belirtebilirsin .
exe halindeki bir dosyan ı n i ç erisinde b ö yle bir string ge ç iyor ise
( hex edit ö r ile bakt ı ysan veya g ö rd ü ysen )
tekrar hex edit ö r ile [ 10 karakter @ hotmail . com ] ş eklinde
d ü zeltmen gerek . eksik ya da fazla olmamal ı.. aksi halde
mant ı ksal hata verebilir ...
( bo ş luk b ı rak ı l ı rsa bile hataya sebebiyet verebilir )
( hackman_76 --> 10 karakter uzunlu ğ unda oldu ğ u i ç in )
kolay gelsin ....
sayg ı lar ı mla_
neoturk_
Delphi - .....................................
neoturk: Forum - "Edit Server"
"
Edit Server 28 Kas ı m 2005 20 : 58
Arkada ş lar hep soru sorup sizleride rahats ı z ediyorum ama affedin .
Bu seferki sorum şö yle . Program a çı ld ığı zaman mail at ı yo .
Programda şö yle bi kod var
NMSMTP1 . PostMessage . ToAddress . Text := 'hackman_76@hotmail.com' ;
Ş imdi ben delphide ba ş ka bi program yaz ı p bu kodu nas ı l deyi ş tirebilirim .
yani mailin hackman_76 @ hotmail . com de ğ ilde sonradan programla yazava ğı m adrese
gelsesini nas ı l sa ğ layabilirim .Ş imdiden te ş ekk ü rler .
MK - Programing
"
cevap :
merhaba ,
sorunu tam olarak anlamad ı m ,
haz ı r kaynak kod elinde mevcut ise ;
istedi ğ in mail adresini oraya belirtebilirsin .
exe halindeki bir dosyan ı n i ç erisinde b ö yle bir string ge ç iyor ise
( hex edit ö r ile bakt ı ysan veya g ö rd ü ysen )
tekrar hex edit ö r ile [ 10 karakter @ hotmail . com ] ş eklinde
d ü zeltmen gerek . eksik ya da fazla olmamal ı.. aksi halde
mant ı ksal hata verebilir ...
( bo ş luk b ı rak ı l ı rsa bile hataya sebebiyet verebilir )
( hackman_76 --> 10 karakter uzunlu ğ unda oldu ğ u i ç in )
kolay gelsin ....
sayg ı lar ı mla_
neoturk_
Delphi - .....................................
neoturk: Forum - "xxnt03 hocamın dikkatine..."
"
xxnt03 hocam ı n dikkatine ... 28 Kas ı m 2005 19 : 40
hocam vermi ş oldu ğ un kodu bu ş ekilde d ü zenledim program ç al ışı yor
ama ilgili kay ı tlar ı listboxta g ö stermiyor ...
procedure listbox_icinde_ara ( l1aciklama : tlistbox ; aranan : string ; var sonuc : Tstringlist );
var m : integer ; x : string ;
begin
sonuc . clear ;
for m := 0 to l1aciklama . items . count - 1 do
begin
x := l1aciklama . items [ m ];
if x = aranan then sonuc . add ( inttostr ( m + 1 )+ '-' + x );
end ;
end ;
procedure Tanaform . BitBtn28Click ( Sender : TObject );
var tx : tstringlist ;
begin
tx := tstringlist . create ;
tx . clear ; listbox_icinde_ara ( l1aciklama , 'DISKET' , tx );
l1aciklama . items . assign ( tx );
end ;
memolipascal
"
cevap :
merhaba ,
ö nceki kodlamamda ufak bir hatam oldu g ö z ü mden ka çı rd ı m ,
tlistbox : listbox yazm ışı m , ( h ı zl ı cevap verdi ğ im i ç in )
listbox : Tlistbox olarak yer de ğ i ş ecek . zaten sen de de ğ i ş tirmi ş sin ,
tekrar d ü zeltiyorum ,
{************** büyük harfe çeviren fonksiyon **************************}
function bh ( x : string ): string ;
var m : integer ; t1 , t2 : string ;
begin
t1 := '' ; t2 := '' ; x := trim ( x );
for m := 1 to length ( x ) do
begin
if x [ m ]= 'ğ' then t2 := 'Ğ' else
if x [ m ]= 'ü' then t2 := 'Ü' else
if x [ m ]= 'ş' then t2 := 'Ş' else
if x [ m ]= 'i' then t2 := 'İ' else
if x [ m ]= 'ö' then t2 := 'Ö' else
if x [ m ]= 'ç' then t2 := 'Ç' else
if x [ m ]= 'ı' then t2 := 'I' else
t2 := uppercase ( x [ m ]);
t1 := t1 + t2 ;
end ;
bh := t1 ;
end ;
{********** belirtilen listbox içerisinde arama yapar ***********}
procedure listbox_icinde_ara ( listbox : tlistbox ; aranan : string ; var sonuc : Tstringlist ; aramamodu : byte );
var m : integer ; x : string ;
begin
sonuc . clear ;
aranan := bh ( aranan );
for m := 0 to listbox . items . count - 1 do
begin
x := bh ( listbox . items [ m ]);
case aramamodu of
1 : if x = aranan then sonuc . add ( inttostr ( m + 1 )+ '-' + x );
2 : if pos ( aranan , x )> 0 then sonuc . add ( inttostr ( m + 1 )+ '-' + x );
end ; //case
end ;
end ;
procedure TForm1 . Button1Click ( Sender : TObject );
var tx : tstringlist ;
begin
tx := tstringlist . Create ;
listbox_icinde_ara ( listbox1 , 'DISKET' , tx , 2 );
memo1 . text := tx . text ;
//veya listbox9.items.assign(tx);
tx . Free ;
end ;
arama modu diye bi parametre ekledim ,
1 dersen " DISKET " ile ba ş layanlar ı listeler
2 dersen " DISKET " i ç erenleri listeler .
ş u anda kodu test ettim ve % 100 olarak ç al ışı yor .
ö nceki kodlamamdan kaynakl ı " Tlistbox : listbox " ibaresi h ı zl ı yazd ığı m i ç in
hatal ı yd ı. daha sonra farkettim ...
ş imdi durum OK_
kolay gelsin ..
sayg ı lar ı mla_
neoturk_
*******************************************
"
ç ok te ş ekk ü r ederim hocam
memolipascal
"
*******************************************
rica ederim ....
ne demek ..................
neoturk_
Delphi - .....................................
neoturk: Forum - "xxnt03 hocamın dikkatine..."
"
xxnt03 hocam ı n dikkatine ... 28 Kas ı m 2005 19 : 40
hocam vermi ş oldu ğ un kodu bu ş ekilde d ü zenledim program ç al ışı yor
ama ilgili kay ı tlar ı listboxta g ö stermiyor ...
procedure listbox_icinde_ara ( l1aciklama : tlistbox ; aranan : string ; var sonuc : Tstringlist );
var m : integer ; x : string ;
begin
sonuc . clear ;
for m := 0 to l1aciklama . items . count - 1 do
begin
x := l1aciklama . items [ m ];
if x = aranan then sonuc . add ( inttostr ( m + 1 )+ '-' + x );
end ;
end ;
procedure Tanaform . BitBtn28Click ( Sender : TObject );
var tx : tstringlist ;
begin
tx := tstringlist . create ;
tx . clear ; listbox_icinde_ara ( l1aciklama , 'DISKET' , tx );
l1aciklama . items . assign ( tx );
end ;
memolipascal
"
cevap :
merhaba ,
ö nceki kodlamamda ufak bir hatam oldu g ö z ü mden ka çı rd ı m ,
tlistbox : listbox yazm ışı m , ( h ı zl ı cevap verdi ğ im i ç in )
listbox : Tlistbox olarak yer de ğ i ş ecek . zaten sen de de ğ i ş tirmi ş sin ,
tekrar d ü zeltiyorum ,
{************** büyük harfe çeviren fonksiyon **************************}
function bh ( x : string ): string ;
var m : integer ; t1 , t2 : string ;
begin
t1 := '' ; t2 := '' ; x := trim ( x );
for m := 1 to length ( x ) do
begin
if x [ m ]= 'ğ' then t2 := 'Ğ' else
if x [ m ]= 'ü' then t2 := 'Ü' else
if x [ m ]= 'ş' then t2 := 'Ş' else
if x [ m ]= 'i' then t2 := 'İ' else
if x [ m ]= 'ö' then t2 := 'Ö' else
if x [ m ]= 'ç' then t2 := 'Ç' else
if x [ m ]= 'ı' then t2 := 'I' else
t2 := uppercase ( x [ m ]);
t1 := t1 + t2 ;
end ;
bh := t1 ;
end ;
{********** belirtilen listbox içerisinde arama yapar ***********}
procedure listbox_icinde_ara ( listbox : tlistbox ; aranan : string ; var sonuc : Tstringlist ; aramamodu : byte );
var m : integer ; x : string ;
begin
sonuc . clear ;
aranan := bh ( aranan );
for m := 0 to listbox . items . count - 1 do
begin
x := bh ( listbox . items [ m ]);
case aramamodu of
1 : if x = aranan then sonuc . add ( inttostr ( m + 1 )+ '-' + x );
2 : if pos ( aranan , x )> 0 then sonuc . add ( inttostr ( m + 1 )+ '-' + x );
end ; //case
end ;
end ;
procedure TForm1 . Button1Click ( Sender : TObject );
var tx : tstringlist ;
begin
tx := tstringlist . Create ;
listbox_icinde_ara ( listbox1 , 'DISKET' , tx , 2 );
memo1 . text := tx . text ;
//veya listbox9.items.assign(tx);
tx . Free ;
end ;
arama modu diye bi parametre ekledim ,
1 dersen " DISKET " ile ba ş layanlar ı listeler
2 dersen " DISKET " i ç erenleri listeler .
ş u anda kodu test ettim ve % 100 olarak ç al ışı yor .
ö nceki kodlamamdan kaynakl ı " Tlistbox : listbox " ibaresi h ı zl ı yazd ığı m i ç in
hatal ı yd ı. daha sonra farkettim ...
ş imdi durum OK_
kolay gelsin ..
sayg ı lar ı mla_
neoturk_
*******************************************
"
ç ok te ş ekk ü r ederim hocam
memolipascal
"
*******************************************
rica ederim ....
ne demek ..................
neoturk_
Delphi - .....................................
neoturk: Forum - "Firebird/Server-Client"
"
Firebird / Server - Client 28 Kas ı m 2005 19 : 14
Sorumuz event alert iyle ilgili ;
Ö nce FDB ve ba ğ lant ı larla ilgili yap ı lanlar ı yazay ı m :
IBXxpert taraf ı nda
Server : Remote
server name : 10.0.0.7
Modemde ( e - con ) virtual server 3050 tcp 10.0.0.7 makinemizin ip si i ş lemi yap ı ld ı.
Prtotokol : TCP / IP
Server Version : Firebird 1.5
Database File : C : HAYSOFT_YZL Haysoft_CLS data DENEME . FDB
alias : 10.0.0.7 : C : HAYSOFT_YZL Haysoft_CLS data DENEME . FDB
İ stanbul 'dan makine ip 10.0.0.0 yerine modem ip si ile bağlandı. modem ip virtual server ile makine ip sine yönlendirildi.ibexpert le bağlanıldı.
82.115.57.222 : C : HAYSOFT_YZL Haysoft_CLS data DENEME . FDB
Ayn ı anda bizde yukar ı daki i ş lem le ba ğ land ı k .
Denetim masas ı g ü venlik duvar ı ndan adnan ad ı nda 3050 port ( ba ğ lant ı noktas ı) a çı ld ı.
Yerel makineler sunucu payla şı mad ı database yolu ile ba ğ land ı.
Ana makina : C : HAYSOFT_YZL Haysoft_CLS data DENEME . FDB ile ba ğ land ı.
IBDatabase connection local olarak .
Terminal ise ;
Pc HAYSOFT_YZL Haysoft_CLS data DENEME . FDB
database editor ;
Connection : Remote
Server : Pc ( Sunucu ad ı -> yani bilgisayar ad ı)
Protokol : NamedPipe
Database : HAYSOFT_YZL Haysoft_CLS data DENEME . FDB
Pc HAYSOFT_YZL Haysoft_CLS data DENEME . FDB
Bu ş ekil bir ba ğ lant ı ç al ışı yor .
İ ki tarafta da FB . Server kurulu .
serverdeki ve terminaldeki programda ibevents1 var .
Trigger ismi : EKLEME_VAR o da object inspectorden IBEvents in strings ine eklendi .
procedure TForm1 . IBEvents1EventAlert ( Sender : TObject ; EventName : String ;
EventCount : Integer ; var CancelAlerts : Boolean );
begin
ShowMessage ( 'Stok Listesinde: "' + EventName +
'", Hareket Adedi: ' + IntToStr ( EventCount ));
IBDataSet1 . Close ;
IBDataSet1 . Open ;
end ;
B İ Z İ M SORUMUZ Ş U
Lokal durumda sorun yok ç al ışı yor . Ancak internet ba ğ lant ı s ı nda kilitlenme oluyor .
Terminal makinede IBEvents i autoregister TRUE yaparsak , kilitlenme oluyor . E ğ er terminal makinede Autoregister False olursa problem yok .
Her iki tarafta ç ok g ü zel ç al ışı yor . Ama terminal veri giri ş lerinde anl ı k de ğ i ş meleri g ö remiyor . Refresh yapmas ı laz ı m .
Acaba bu kilitlenme neden yapabilir ???
menderes
"
cevap :
merhaba ,
teknik detay ı n ı z i ç in te ş ekk ü r ederim .
sorunuza tam olarak cevap veremeyece ğ im ...
IBserver modelini ben de local network ü zerinde denemi ş tim
ve ç al ış t ı rm ış t ı m . Remote olarak herhangi bir denemem olmam ış t ı.
konuya uzak da al ı nt ı bir cevab ı m ı yaz ı yorum :
"
Bug ü n 15 : 17
online ba ğ lant ı yaparak 2 bilgisayar ı n veri tabanlar ı n ı tek bir
alanda tutmak
Arakada ş lar olay ı n genel ö zetini a çı klay ı m 2 kullan ı c ı ba ş ka illerde
olup ikiside tek veri taban ı n ı kullanarak bu programda girdikleri
yeni biligileri ve d ü zeltmeleri an ı nda g ö rmek istemektedirler bu olay ı
baz ı arkada ş lar Statik IP vererek server a digerleride bu IP direk ba ğ lanarak
bunu yapabileceklerini s ö ylediler ama tam olarak nas ı l yap ı laca ğı konusunda
bilgim olmad ığı i ç in bu konuda y ö nelme yapamad ı m .
mertgenc
"
cevap :
g ü zel sorunuz i ç in te ş ekk ü r ediyorum ....
Bu konuda 6 ay ö nce kurumlar aras ı ortak bir veritaban ı sorgulama
ve kayet ekleme mod ü l ü n ü tcp / ip ü zerinden yapm ış t ı m .
tecr ü belerimi aktarmak istiyorum :
**********
Y Ö NTEM - 1
**********
tcp / ip ( socket programming ) ü zerinden yapmaya karar verir iseniz ş ayet ,
sistem gereksinimleriniz ş unlar olacakt ı r :
1. ana veri taban ı n ı n bulundu ğ u bir pc ve bu pc ye internet ü zerinden
eriş im sa ğ layacak static bir IP numaras ı ve izin verilmi ş bir port
( fw programlar ı na da izin verilmesi icab ediyor server ü zerinde )
2. veri taban ı olarak ben access kullanm ış t ı m , performans ı fena de ğ il .
3. client pc lere sizin yazaca ğı n ı z local program ı n ı z ve pclerin internet ba ğ lant ı s ı
olmak zorundad ı r .
ben b ö yle bir program ı yazd ığı mda , istekleri yerine getiriyordu ,
ama ş u sorunlarla kar şı la ş m ış t ı m , daha sonra ilave yamalarla olduk ç a
detayl ı ( mecburen ) ilave kodlarla s ü slemi ş tim .
kar şı la ş t ığı m problemler :
1. ilk ba ş ta ba ğ lant ı olay ı n ı toz pembe g ö rm üş t ü m ,
ancak daha sonra gereksiz ki ş ilerin de bu IP ye ve porta
saldı r ı yapt ı klar ı nda sistemin devre d ışı kald ığı n ı ( ç uvallad ığı n ı )
farkettim . Dolay ı s ı yla " ban " lama sistemi ekledim ve
sistem otomatik olarak atı yorum 10 kere ba ğ lan ı p kopmu ş sa ,
veya gereksiz flood ç ekiliyorsa kafadan " ban " l ı yordu , ve
o IP yi devre dışı b ı rak ı yordu . bir nevi mant ı ksal ve yaz ı l ı msal fw
sistemi gibiydi. bu mant ığı programa belirttikten sonra rahatlad ı durum .
2. her ö n ü ne gelen ki ş i client program ı n ı z ile ba ğ lanamamal ı.
çünk ü o zaman i ş lemler ve hatlar kar ış abiliyor .
bu sorunu da " kullan ı c ı ismi " ve " yetki ş ifresi " giri ş y ö ntemi ile
dü zenledim ve faydas ı n ı g ö rd ü m . dolay ı s ı yla client program ı n ı z
dış ar ı ya izinsiz da ğı t ı ld ığı nda bile , kullan ı c ı ad ı ve ş ifresi do ğ ru
girilmediğ i s ü rece ( server ü zerine ) kafadan ban listesine o ip yi
ve akabinde belli bir tekrardan sonra o kiş inin t ü m haklar ı n ı ( hangi
IP den bağ lan ı rsa ba ğ lans ı n ) ban listesine al ı yordum .
bu da durumu d ü zeltti bir nevi
3. bazen hatlar ı n yo ğ un olmas ı ndan dolay ı, client - server aras ı ndaki veri k ü meleri
eksik gidebiliyor veya gaibe gidebiliyor. bu durumda da client program ı n ı z ı
son derece hatalara kar şı korumal ı yazmal ı s ı n ı z . derin d üşü n ü p , gereken
iş lemin ger ç ekten yapt ı r ı l ı p yapt ı rmad ığı n ı tekrardan server ü zerinden
öğ renmeniz gerekiyor . aksi halde client program ı n ı z " i ş leminiz yap ı l ı yor
lü tfen bekleyiniz " mesaj ı ile sonsuz d ö ng ü de bekler ve donar kal ı r ...
(sebebi bilinmeyen bir nedenden ö t ü r ü komut yerine getirilememi ş olabiliyor )
4. server program ı n ı z ı son derece dikkatli ve esnek kodlaman ı z gerekmektedir .
ilk ba ş ta veri taban ı y ö netimsel ara ç lar ı n ı z ı ve alt fonksiyonlar ı n ı z ı
kusursuz olarak ç al ış t ığı ndan emin olun . daha sonra client ba ğ lant ı lar ı
ve bunlar ı n y ö netimlerini ele al ı n .
5. verilerin servere yaz ı lmas ı ve aktar ı lmas ı ister mesaj y ö netmiyle , isterseniz
dosya gö nderme y ö ntemi ile yapt ı rabilirsiniz . ben her ikisini de kullanm ış t ı m .
ve i ş lem karma şı kl ığı na izin vermemi ş tim . giden veri paketi nereye gidece ğ ini
hangi yere yazı laca ğı n ı biliyor ve kar şı l ı kl ı olarak pasla şı yorlard ı.
(i ş lemi yapt ı m - tamam - s ı radaki emir nedir vs .)
6. client program ı n ı z uzaktan sorgu ç ekti ğ inde , server program ı sorgu sonu ç
listesini yeni bir access dosyas ı olarak yaz ı yor , ve bu access dosyas ı n ı da
client program ı al ı p , kendi local pc sinde dbgird ü zerine yap ış t ı r ı yordu .
dolay ı s ı yla her ş ey ç ok g ü zel halloluyordu .
(beni k ı zd ı ran kitaplar ı n bir ç o ğ unda bu y ö ntemi html olarak web sayfas ı
üzerinde listelettiriyorlard ı ama ne kadar gereksiz oldu ğ unu siz de anlayacaks ı n ı z
ve saç ma sapan 1000 lerce kayd ı n tek bir sayfada g ö sterilmesinin ve hi ç bir hakimiyet
kurulamaması n ı n verece ğ i g ü l ü n ç duruma d üş memeniz i ç in ,
s ö yledi ğ im gibi sorgu sonu ç listesini client program ı n ı z local pc ye indirsin ,
ve dbgrid ü zerinde local olarak sql ile sorgular ı na yine devam ettirsin .)
7. kabaca kar şı la ş aca ğı n ı z problemler bunlar olacakt ı r .
gerekli kod detaylar ı n ı ş u an i ç in veremeyece ğ im . kabaca anlatmaya ç al ış t ı m .
8. tcp / ip y ö ntemi bu i ş ler i ç in ç ok verimli DE Ğİ LD İ R . ç uvallamaya m ü said bir yap ı d ı r .
( çok kullan ı c ı oldu ğ u zaman )
socket programlama ve i ş lemlerin karma şı kl ığı n ı hizaya getirmek zordur ........
**********
Y Ö NTEM - 2
**********
sordu ğ unuz sorunun cevab ı tam olarak " COM " ( common object module )
y ö ntemine girer . Bunu mutlaka g ü n ü n birinde kullanacaks ı n ı z .
hen ü z tam verimiyle kullanmad ı m , bu y ü zden bunun e ğ itimini al ı yorum .
ama ç, uzaktan veri taban ı modellerine ba ğ lanmak , sorgulamak , veri kaydetmek vs ...
toparlanm ış haline de " DOTNET "(. NET ) diyoruz ....
se ç im sizindir ...................
tcp / ip konusunda b ö yle bir ç al ış maya ba ş laman ı z ı ö neriyorum .
Ç ok ş ey öğ reneceksiniz emin olun ....
" alt tabandan gelmi ş bir e ğ itim en m ü kemmel e ğ itimdir "
pek yard ı m ı m olamad ı m , ama nacizane tecr ü belerimi aktarmak istedim .....
kolay gelsin ...........
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
"
İ lginiz ve sabr ı n ı z i ç in ç ok te ş ekk ü r ederim . Bu konuyu 4 - 5 foruma yazd ı m .
Sadece ba ş ka bir forumda daha cevap yaz ı lm ış ama o veritabanlar ı yolunun
burada verilmemesi gibi bir ş ey yazm ış ü z ü ld ü m tabi . Fakat Sizin yaz ı n ı zla
onore oldum . Delphi T ü rk e bu arada tekrar te ş ekk ü r ederim .
Asl ı nda bizim ana sorun serverde veya terminalde yap ı lan veri
de ğ i ş ikliklerinden t ü m terminallerin an ı nda haber almas ı.
Yani kimse ilgili de ğ i ş ikli ğ i g ö rmek i ç in ilgili tableyi manuel
olarak a çı p kapatmas ı n . Tabiki illa yukar ı da yazd ığı m ı z gibi olacak diye
bir ş ey yok ba ş ka alternatifler de olabilir .
menderes
"
Delphi - .....................................
neoturk: Forum - "Firebird/Server-Client"
"
Firebird / Server - Client 28 Kas ı m 2005 19 : 14
Sorumuz event alert iyle ilgili ;
Ö nce FDB ve ba ğ lant ı larla ilgili yap ı lanlar ı yazay ı m :
IBXxpert taraf ı nda
Server : Remote
server name : 10.0.0.7
Modemde ( e - con ) virtual server 3050 tcp 10.0.0.7 makinemizin ip si i ş lemi yap ı ld ı.
Prtotokol : TCP / IP
Server Version : Firebird 1.5
Database File : C : HAYSOFT_YZL Haysoft_CLS data DENEME . FDB
alias : 10.0.0.7 : C : HAYSOFT_YZL Haysoft_CLS data DENEME . FDB
İ stanbul 'dan makine ip 10.0.0.0 yerine modem ip si ile bağlandı. modem ip virtual server ile makine ip sine yönlendirildi.ibexpert le bağlanıldı.
82.115.57.222 : C : HAYSOFT_YZL Haysoft_CLS data DENEME . FDB
Ayn ı anda bizde yukar ı daki i ş lem le ba ğ land ı k .
Denetim masas ı g ü venlik duvar ı ndan adnan ad ı nda 3050 port ( ba ğ lant ı noktas ı) a çı ld ı.
Yerel makineler sunucu payla şı mad ı database yolu ile ba ğ land ı.
Ana makina : C : HAYSOFT_YZL Haysoft_CLS data DENEME . FDB ile ba ğ land ı.
IBDatabase connection local olarak .
Terminal ise ;
Pc HAYSOFT_YZL Haysoft_CLS data DENEME . FDB
database editor ;
Connection : Remote
Server : Pc ( Sunucu ad ı -> yani bilgisayar ad ı)
Protokol : NamedPipe
Database : HAYSOFT_YZL Haysoft_CLS data DENEME . FDB
Pc HAYSOFT_YZL Haysoft_CLS data DENEME . FDB
Bu ş ekil bir ba ğ lant ı ç al ışı yor .
İ ki tarafta da FB . Server kurulu .
serverdeki ve terminaldeki programda ibevents1 var .
Trigger ismi : EKLEME_VAR o da object inspectorden IBEvents in strings ine eklendi .
procedure TForm1 . IBEvents1EventAlert ( Sender : TObject ; EventName : String ;
EventCount : Integer ; var CancelAlerts : Boolean );
begin
ShowMessage ( 'Stok Listesinde: "' + EventName +
'", Hareket Adedi: ' + IntToStr ( EventCount ));
IBDataSet1 . Close ;
IBDataSet1 . Open ;
end ;
B İ Z İ M SORUMUZ Ş U
Lokal durumda sorun yok ç al ışı yor . Ancak internet ba ğ lant ı s ı nda kilitlenme oluyor .
Terminal makinede IBEvents i autoregister TRUE yaparsak , kilitlenme oluyor . E ğ er terminal makinede Autoregister False olursa problem yok .
Her iki tarafta ç ok g ü zel ç al ışı yor . Ama terminal veri giri ş lerinde anl ı k de ğ i ş meleri g ö remiyor . Refresh yapmas ı laz ı m .
Acaba bu kilitlenme neden yapabilir ???
menderes
"
cevap :
merhaba ,
teknik detay ı n ı z i ç in te ş ekk ü r ederim .
sorunuza tam olarak cevap veremeyece ğ im ...
IBserver modelini ben de local network ü zerinde denemi ş tim
ve ç al ış t ı rm ış t ı m . Remote olarak herhangi bir denemem olmam ış t ı.
konuya uzak da al ı nt ı bir cevab ı m ı yaz ı yorum :
"
Bug ü n 15 : 17
online ba ğ lant ı yaparak 2 bilgisayar ı n veri tabanlar ı n ı tek bir
alanda tutmak
Arakada ş lar olay ı n genel ö zetini a çı klay ı m 2 kullan ı c ı ba ş ka illerde
olup ikiside tek veri taban ı n ı kullanarak bu programda girdikleri
yeni biligileri ve d ü zeltmeleri an ı nda g ö rmek istemektedirler bu olay ı
baz ı arkada ş lar Statik IP vererek server a digerleride bu IP direk ba ğ lanarak
bunu yapabileceklerini s ö ylediler ama tam olarak nas ı l yap ı laca ğı konusunda
bilgim olmad ığı i ç in bu konuda y ö nelme yapamad ı m .
mertgenc
"
cevap :
g ü zel sorunuz i ç in te ş ekk ü r ediyorum ....
Bu konuda 6 ay ö nce kurumlar aras ı ortak bir veritaban ı sorgulama
ve kayet ekleme mod ü l ü n ü tcp / ip ü zerinden yapm ış t ı m .
tecr ü belerimi aktarmak istiyorum :
**********
Y Ö NTEM - 1
**********
tcp / ip ( socket programming ) ü zerinden yapmaya karar verir iseniz ş ayet ,
sistem gereksinimleriniz ş unlar olacakt ı r :
1. ana veri taban ı n ı n bulundu ğ u bir pc ve bu pc ye internet ü zerinden
eriş im sa ğ layacak static bir IP numaras ı ve izin verilmi ş bir port
( fw programlar ı na da izin verilmesi icab ediyor server ü zerinde )
2. veri taban ı olarak ben access kullanm ış t ı m , performans ı fena de ğ il .
3. client pc lere sizin yazaca ğı n ı z local program ı n ı z ve pclerin internet ba ğ lant ı s ı
olmak zorundad ı r .
ben b ö yle bir program ı yazd ığı mda , istekleri yerine getiriyordu ,
ama ş u sorunlarla kar şı la ş m ış t ı m , daha sonra ilave yamalarla olduk ç a
detayl ı ( mecburen ) ilave kodlarla s ü slemi ş tim .
kar şı la ş t ığı m problemler :
1. ilk ba ş ta ba ğ lant ı olay ı n ı toz pembe g ö rm üş t ü m ,
ancak daha sonra gereksiz ki ş ilerin de bu IP ye ve porta
saldı r ı yapt ı klar ı nda sistemin devre d ışı kald ığı n ı ( ç uvallad ığı n ı )
farkettim . Dolay ı s ı yla " ban " lama sistemi ekledim ve
sistem otomatik olarak atı yorum 10 kere ba ğ lan ı p kopmu ş sa ,
veya gereksiz flood ç ekiliyorsa kafadan " ban " l ı yordu , ve
o IP yi devre dışı b ı rak ı yordu . bir nevi mant ı ksal ve yaz ı l ı msal fw
sistemi gibiydi. bu mant ığı programa belirttikten sonra rahatlad ı durum .
2. her ö n ü ne gelen ki ş i client program ı n ı z ile ba ğ lanamamal ı.
çünk ü o zaman i ş lemler ve hatlar kar ış abiliyor .
bu sorunu da " kullan ı c ı ismi " ve " yetki ş ifresi " giri ş y ö ntemi ile
dü zenledim ve faydas ı n ı g ö rd ü m . dolay ı s ı yla client program ı n ı z
dış ar ı ya izinsiz da ğı t ı ld ığı nda bile , kullan ı c ı ad ı ve ş ifresi do ğ ru
girilmediğ i s ü rece ( server ü zerine ) kafadan ban listesine o ip yi
ve akabinde belli bir tekrardan sonra o kiş inin t ü m haklar ı n ı ( hangi
IP den bağ lan ı rsa ba ğ lans ı n ) ban listesine al ı yordum .
bu da durumu d ü zeltti bir nevi
3. bazen hatlar ı n yo ğ un olmas ı ndan dolay ı, client - server aras ı ndaki veri k ü meleri
eksik gidebiliyor veya gaibe gidebiliyor. bu durumda da client program ı n ı z ı
son derece hatalara kar şı korumal ı yazmal ı s ı n ı z . derin d üşü n ü p , gereken
iş lemin ger ç ekten yapt ı r ı l ı p yapt ı rmad ığı n ı tekrardan server ü zerinden
öğ renmeniz gerekiyor . aksi halde client program ı n ı z " i ş leminiz yap ı l ı yor
lü tfen bekleyiniz " mesaj ı ile sonsuz d ö ng ü de bekler ve donar kal ı r ...
(sebebi bilinmeyen bir nedenden ö t ü r ü komut yerine getirilememi ş olabiliyor )
4. server program ı n ı z ı son derece dikkatli ve esnek kodlaman ı z gerekmektedir .
ilk ba ş ta veri taban ı y ö netimsel ara ç lar ı n ı z ı ve alt fonksiyonlar ı n ı z ı
kusursuz olarak ç al ış t ığı ndan emin olun . daha sonra client ba ğ lant ı lar ı
ve bunlar ı n y ö netimlerini ele al ı n .
5. verilerin servere yaz ı lmas ı ve aktar ı lmas ı ister mesaj y ö netmiyle , isterseniz
dosya gö nderme y ö ntemi ile yapt ı rabilirsiniz . ben her ikisini de kullanm ış t ı m .
ve i ş lem karma şı kl ığı na izin vermemi ş tim . giden veri paketi nereye gidece ğ ini
hangi yere yazı laca ğı n ı biliyor ve kar şı l ı kl ı olarak pasla şı yorlard ı.
(i ş lemi yapt ı m - tamam - s ı radaki emir nedir vs .)
6. client program ı n ı z uzaktan sorgu ç ekti ğ inde , server program ı sorgu sonu ç
listesini yeni bir access dosyas ı olarak yaz ı yor , ve bu access dosyas ı n ı da
client program ı al ı p , kendi local pc sinde dbgird ü zerine yap ış t ı r ı yordu .
dolay ı s ı yla her ş ey ç ok g ü zel halloluyordu .
(beni k ı zd ı ran kitaplar ı n bir ç o ğ unda bu y ö ntemi html olarak web sayfas ı
üzerinde listelettiriyorlard ı ama ne kadar gereksiz oldu ğ unu siz de anlayacaks ı n ı z
ve saç ma sapan 1000 lerce kayd ı n tek bir sayfada g ö sterilmesinin ve hi ç bir hakimiyet
kurulamaması n ı n verece ğ i g ü l ü n ç duruma d üş memeniz i ç in ,
s ö yledi ğ im gibi sorgu sonu ç listesini client program ı n ı z local pc ye indirsin ,
ve dbgrid ü zerinde local olarak sql ile sorgular ı na yine devam ettirsin .)
7. kabaca kar şı la ş aca ğı n ı z problemler bunlar olacakt ı r .
gerekli kod detaylar ı n ı ş u an i ç in veremeyece ğ im . kabaca anlatmaya ç al ış t ı m .
8. tcp / ip y ö ntemi bu i ş ler i ç in ç ok verimli DE Ğİ LD İ R . ç uvallamaya m ü said bir yap ı d ı r .
( çok kullan ı c ı oldu ğ u zaman )
socket programlama ve i ş lemlerin karma şı kl ığı n ı hizaya getirmek zordur ........
**********
Y Ö NTEM - 2
**********
sordu ğ unuz sorunun cevab ı tam olarak " COM " ( common object module )
y ö ntemine girer . Bunu mutlaka g ü n ü n birinde kullanacaks ı n ı z .
hen ü z tam verimiyle kullanmad ı m , bu y ü zden bunun e ğ itimini al ı yorum .
ama ç, uzaktan veri taban ı modellerine ba ğ lanmak , sorgulamak , veri kaydetmek vs ...
toparlanm ış haline de " DOTNET "(. NET ) diyoruz ....
se ç im sizindir ...................
tcp / ip konusunda b ö yle bir ç al ış maya ba ş laman ı z ı ö neriyorum .
Ç ok ş ey öğ reneceksiniz emin olun ....
" alt tabandan gelmi ş bir e ğ itim en m ü kemmel e ğ itimdir "
pek yard ı m ı m olamad ı m , ama nacizane tecr ü belerimi aktarmak istedim .....
kolay gelsin ...........
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
"
İ lginiz ve sabr ı n ı z i ç in ç ok te ş ekk ü r ederim . Bu konuyu 4 - 5 foruma yazd ı m .
Sadece ba ş ka bir forumda daha cevap yaz ı lm ış ama o veritabanlar ı yolunun
burada verilmemesi gibi bir ş ey yazm ış ü z ü ld ü m tabi . Fakat Sizin yaz ı n ı zla
onore oldum . Delphi T ü rk e bu arada tekrar te ş ekk ü r ederim .
Asl ı nda bizim ana sorun serverde veya terminalde yap ı lan veri
de ğ i ş ikliklerinden t ü m terminallerin an ı nda haber almas ı.
Yani kimse ilgili de ğ i ş ikli ğ i g ö rmek i ç in ilgili tableyi manuel
olarak a çı p kapatmas ı n . Tabiki illa yukar ı da yazd ığı m ı z gibi olacak diye
bir ş ey yok ba ş ka alternatifler de olabilir .
menderes
"
Delphi - .....................................
neoturk: Forum - "listboxta istenen kaydı listelemede sorun...!"
"
selam hocam ya ben vermi ş oldu ğ un kodu programa uyarlayamad ı m ...
sorun ş u ..:
procedure listbox_icinde_ara ( Tlistbox : listbox ; aranan : string ;
var sonuc : Tstringlist );
buradaki listbox nedir diyor ? hata veriyor . listbox yazan yere kendi listbox
isimlerimide yazd ı m fakat olmad ı ..
kodlar ı ayr ı nt ı l ı olarak yazarsan ç ok sevinirim . ş u
an kafam durmu ş bir durum ve moralimde ç ok bozuldu ya
2 g ü n oldu ayn ı sorunla u ğ ra şı yorum .
acaba kodlarda eksiklik mi var ? yard ı mlar ı n ı bekliyorum
sayg ı lar ı mla ...
vermi ş oldu ğ un kod a ş a ğı da :
***********
Y ö ntem - 1
***********
> listbox1 i ç erisindeki t ü m ad ı " neoturk " olanlar ı n listesinin çı kart ı lmas ı
procedure listbox_icinde_ara ( Tlistbox : listbox ; aranan : string ;
var m : integer ; x : string ;
begin
sonuc . clear ;
for m := 0 to listbox . items . count - 1 do
begin
x := listbox . items [ m ];
if x = aranan then sonuc . add ( inttostr ( m + 1 )+ '-' + x ); //büyük küçük harfe duyarlı
//bu kısmı düzenleyiniz.
//büyükharfe çeviren fonksiyon desteği ekleyiniz.
//bu şekilde taratma yapınız
//örnek buyukharf(x)=buyukharf(aranan) then ......
end ;
end ;
kullan ı m ı:
button1 onclick :
var tx : tstringlist ;
begin
tx := tstringlist . create ;
tx . clear ; listbox_icinde_ara ( listbox1 , 'neoturk' , tx );
showmessage ( tx . text ); // sıra numaralarıyla beraber bulunan kayıtları listeleyecek
//bu sonuç listesini isterseniz başka bir listboxa atamak isterseniz
//listbox2.items.assign(tx); şeklinde kullanabilirsiniz.
end ;
memolipascal
"
cevap :
merhaba ,
ö nceki kodlamamda ufak bir hatam oldu g ö z ü mden ka çı rd ı m ,
tlistbox : listbox yazm ışı m , ( h ı zl ı cevap verdi ğ im i ç in )
listbox : Tlistbox olarak yer de ğ i ş ecek . zaten sen de de ğ i ş tirmi ş sin ,
tekrar d ü zeltiyorum ,
{************** büyük harfe çeviren fonksiyon **************************}
function bh ( x : string ): string ;
var m : integer ; t1 , t2 : string ;
begin
t1 := '' ; t2 := '' ; x := trim ( x );
for m := 1 to length ( x ) do
begin
if x [ m ]= 'ğ' then t2 := 'Ğ' else
if x [ m ]= 'ü' then t2 := 'Ü' else
if x [ m ]= 'ş' then t2 := 'Ş' else
if x [ m ]= 'i' then t2 := 'İ' else
if x [ m ]= 'ö' then t2 := 'Ö' else
if x [ m ]= 'ç' then t2 := 'Ç' else
if x [ m ]= 'ı' then t2 := 'I' else
t2 := uppercase ( x [ m ]);
t1 := t1 + t2 ;
end ;
bh := t1 ;
end ;
{********** belirtilen listbox içerisinde arama yapar ***********}
procedure listbox_icinde_ara ( listbox : tlistbox ; aranan : string ; var sonuc : Tstringlist ; aramamodu : byte );
var m : integer ; x : string ;
begin
sonuc . clear ;
aranan := bh ( aranan );
for m := 0 to listbox . items . count - 1 do
begin
x := bh ( listbox . items [ m ]);
case aramamodu of
1 : if x = aranan then sonuc . add ( inttostr ( m + 1 )+ '-' + x );
2 : if pos ( aranan , x )> 0 then sonuc . add ( inttostr ( m + 1 )+ '-' + x );
end ; //case
end ;
end ;
procedure TForm1 . Button1Click ( Sender : TObject );
var tx : tstringlist ;
begin
tx := tstringlist . Create ;
listbox_icinde_ara ( listbox1 , 'DISKET' , tx , 2 );
memo1 . text := tx . text ;
//veya listbox9.items.assign(tx);
tx . Free ;
end ;
arama modu diye bi parametre ekledim ,
1 dersen " DISKET " ile ba ş layanlar ı listeler
2 dersen " DISKET " i ç erenleri listeler .
ş u anda kodu test ettim ve % 100 olarak ç al ışı yor .
ö nceki kodlamamdan kaynakl ı " Tlistbox : listbox " ibaresi h ı zl ı yazd ığı m i ç in
hatal ı yd ı. daha sonra farkettim ...
ş imdi durum OK_
kolay gelsin ..
sayg ı lar ı mla_
neoturk_
Delphi - .....................................
neoturk: Forum - "listboxta istenen kaydı listelemede sorun...!"
"
selam hocam ya ben vermi ş oldu ğ un kodu programa uyarlayamad ı m ...
sorun ş u ..:
procedure listbox_icinde_ara ( Tlistbox : listbox ; aranan : string ;
var sonuc : Tstringlist );
buradaki listbox nedir diyor ? hata veriyor . listbox yazan yere kendi listbox
isimlerimide yazd ı m fakat olmad ı ..
kodlar ı ayr ı nt ı l ı olarak yazarsan ç ok sevinirim . ş u
an kafam durmu ş bir durum ve moralimde ç ok bozuldu ya
2 g ü n oldu ayn ı sorunla u ğ ra şı yorum .
acaba kodlarda eksiklik mi var ? yard ı mlar ı n ı bekliyorum
sayg ı lar ı mla ...
vermi ş oldu ğ un kod a ş a ğı da :
***********
Y ö ntem - 1
***********
> listbox1 i ç erisindeki t ü m ad ı " neoturk " olanlar ı n listesinin çı kart ı lmas ı
procedure listbox_icinde_ara ( Tlistbox : listbox ; aranan : string ;
var m : integer ; x : string ;
begin
sonuc . clear ;
for m := 0 to listbox . items . count - 1 do
begin
x := listbox . items [ m ];
if x = aranan then sonuc . add ( inttostr ( m + 1 )+ '-' + x ); //büyük küçük harfe duyarlı
//bu kısmı düzenleyiniz.
//büyükharfe çeviren fonksiyon desteği ekleyiniz.
//bu şekilde taratma yapınız
//örnek buyukharf(x)=buyukharf(aranan) then ......
end ;
end ;
kullan ı m ı:
button1 onclick :
var tx : tstringlist ;
begin
tx := tstringlist . create ;
tx . clear ; listbox_icinde_ara ( listbox1 , 'neoturk' , tx );
showmessage ( tx . text ); // sıra numaralarıyla beraber bulunan kayıtları listeleyecek
//bu sonuç listesini isterseniz başka bir listboxa atamak isterseniz
//listbox2.items.assign(tx); şeklinde kullanabilirsiniz.
end ;
memolipascal
"
cevap :
merhaba ,
ö nceki kodlamamda ufak bir hatam oldu g ö z ü mden ka çı rd ı m ,
tlistbox : listbox yazm ışı m , ( h ı zl ı cevap verdi ğ im i ç in )
listbox : Tlistbox olarak yer de ğ i ş ecek . zaten sen de de ğ i ş tirmi ş sin ,
tekrar d ü zeltiyorum ,
{************** büyük harfe çeviren fonksiyon **************************}
function bh ( x : string ): string ;
var m : integer ; t1 , t2 : string ;
begin
t1 := '' ; t2 := '' ; x := trim ( x );
for m := 1 to length ( x ) do
begin
if x [ m ]= 'ğ' then t2 := 'Ğ' else
if x [ m ]= 'ü' then t2 := 'Ü' else
if x [ m ]= 'ş' then t2 := 'Ş' else
if x [ m ]= 'i' then t2 := 'İ' else
if x [ m ]= 'ö' then t2 := 'Ö' else
if x [ m ]= 'ç' then t2 := 'Ç' else
if x [ m ]= 'ı' then t2 := 'I' else
t2 := uppercase ( x [ m ]);
t1 := t1 + t2 ;
end ;
bh := t1 ;
end ;
{********** belirtilen listbox içerisinde arama yapar ***********}
procedure listbox_icinde_ara ( listbox : tlistbox ; aranan : string ; var sonuc : Tstringlist ; aramamodu : byte );
var m : integer ; x : string ;
begin
sonuc . clear ;
aranan := bh ( aranan );
for m := 0 to listbox . items . count - 1 do
begin
x := bh ( listbox . items [ m ]);
case aramamodu of
1 : if x = aranan then sonuc . add ( inttostr ( m + 1 )+ '-' + x );
2 : if pos ( aranan , x )> 0 then sonuc . add ( inttostr ( m + 1 )+ '-' + x );
end ; //case
end ;
end ;
procedure TForm1 . Button1Click ( Sender : TObject );
var tx : tstringlist ;
begin
tx := tstringlist . Create ;
listbox_icinde_ara ( listbox1 , 'DISKET' , tx , 2 );
memo1 . text := tx . text ;
//veya listbox9.items.assign(tx);
tx . Free ;
end ;
arama modu diye bi parametre ekledim ,
1 dersen " DISKET " ile ba ş layanlar ı listeler
2 dersen " DISKET " i ç erenleri listeler .
ş u anda kodu test ettim ve % 100 olarak ç al ışı yor .
ö nceki kodlamamdan kaynakl ı " Tlistbox : listbox " ibaresi h ı zl ı yazd ığı m i ç in
hatal ı yd ı. daha sonra farkettim ...
ş imdi durum OK_
kolay gelsin ..
sayg ı lar ı mla_
neoturk_
Delphi - .....................................
neoturk: Forum - "msn messenger"
"
Messengerda bize g ö nderilen iletinin i ç eri ğ ini delphide yapaca ğı m ı z bir
programla kontrol edebilirmiyiz
yani e ğ er mesaj ı n i ç inde k ü f ü r vs varsa mesaj bize ula ş m ı yacak ve kar şı
tarafa otomatik olarak
'iletinizin içinde "s*****m" kelimesi geçtiği için mesajınız iletilemedi'
diye mesaj g ö nderecek
bana bu i ş biraz zor gibi geliyor
bu konuda fikri olan arka ş lar ı n mesajlar ı n ı bekliyorum
shafack
"
cevap :
merhaba ,
piyasada dola ş an haz ı r msn dlllerini kullanan kodlar mevcuttur ,
gelen giden mesaja m ü dahale edilebilmekte ve auto - mesaj y ö nlendirmesi yap ı labilmektedir .
kaynak olarak herhangi bir site g ö steremiyorum ,
arat ı r iseniz bulabilirsiniz .
port dinleme ile bu i ş olmaz . msn bu konuda ayr ı bir mant ı k kullan ı yor .
( xml destekli http protokol ü kullan ı yor )
( tcp yi dosya g ö nderme ve alma i ş lemleri i ç in kullan ı yor )
kolay gelsin ....
sayg ı lar ı mla_
neoturk_
Delphi - .....................................
neoturk: Forum - "msn messenger"
"
Messengerda bize g ö nderilen iletinin i ç eri ğ ini delphide yapaca ğı m ı z bir
programla kontrol edebilirmiyiz
yani e ğ er mesaj ı n i ç inde k ü f ü r vs varsa mesaj bize ula ş m ı yacak ve kar şı
tarafa otomatik olarak
'iletinizin içinde "s*****m" kelimesi geçtiği için mesajınız iletilemedi'
diye mesaj g ö nderecek
bana bu i ş biraz zor gibi geliyor
bu konuda fikri olan arka ş lar ı n mesajlar ı n ı bekliyorum
shafack
"
cevap :
merhaba ,
piyasada dola ş an haz ı r msn dlllerini kullanan kodlar mevcuttur ,
gelen giden mesaja m ü dahale edilebilmekte ve auto - mesaj y ö nlendirmesi yap ı labilmektedir .
kaynak olarak herhangi bir site g ö steremiyorum ,
arat ı r iseniz bulabilirsiniz .
port dinleme ile bu i ş olmaz . msn bu konuda ayr ı bir mant ı k kullan ı yor .
( xml destekli http protokol ü kullan ı yor )
( tcp yi dosya g ö nderme ve alma i ş lemleri i ç in kullan ı yor )
kolay gelsin ....
sayg ı lar ı mla_
neoturk_
Delphi - .....................................
neoturk: Forum - "Tlistview hakkinda bir soru.."
Tlistview hakkinda bir soru..
28 Kas ı m 2005 17 : 05
Arkadaslar , yapmakta oldugum program icin TListView ile bu goruntuyu
elde etmem gerekiyor . Yalniz sekildekinin aksine disket surucu ve cdrom
gibi cikarilabilir suruculerin goruntulenmemesini istiyorum .
Kapasite ve bos kapasite icin diskfree , disksize komutlarindan baska
hangi komutlar kullanilabilir ?
Yardimlariniz icin tesekkurler .
Not : Yardim edecek arkadaslar mumkunse hem diskfree hem de diger olasi komutlari soyleyebilirler mi ?
bloodfloweur
"
listview nesnesinde imageleri kullanmak istiyor isen ,
bir adet image list ekle ve forma yerle ş tir .
imageindex de ğ erlerini d ö ng ü ile listview nesnesine kodlama ile
aktaracaks ı n . ş u anda buna ili ş kin bir kod g ö nderemiyorum .
( cd ar ş ivime bakmam laz ı m )
eski program ı mda kulland ığı m disk kapasiteleri ve bo ş yer miktarlar ı na
ili ş kin kod ö rnekleri a ş a ğı dad ı r . kendine g ö re d ü zenleyeceksin .
( pc info adl ı program ı mda a ş a ğı daki kodlar ı m ı kulland ı m ,
genel de ğ i ş kenlerle ba ğ lant ı l ı oldu ğ u i ç in sadece function kodlar ı n ı belirttim .
kulland ığı m kodlama ve mant ığ a bakarak kendine g ö re d ü zenleyebilirsin )
//written by neoturk 2005
{*************** drivers info **********************}
function get_driversinfo ( sender : Tobject ): string ;
const mb = 1024 * 1024 ;
var
n : integer ; x : string ;
tx : tstringlist ;
dfree , used , total : string ;
begin
tx := tstringlist . Create ;
for n := 3 to 10 do
begin
if directoryexists ( chr ( 64 + n )+ ':' ) then //c:
begin
x := 'Drive ' + chr ( 64 + n )+ ': ' ;
total := 'Total: ' + formatfloat ( '#,' , trunc ( disksize ( n )/ mb ))+ ' MB' ;
dfree := 'Free : ' + formatfloat ( '#,' , trunc ( diskfree ( n )/ mb ))+ ' MB' ;
used := 'Used : ' + formatfloat ( '#,' , trunc ( disksize ( n )/ mb )- trunc ( diskfree ( n )/ mb ))+ ' MB' ;
tx . Add ( x );
tx . Add ( total );
tx . Add ( dfree );
tx . Add ( used );
end ;
end ;
//final
result := tx . Text ;
end ;
{*************** drivers info **********************}
function get_driversinfo ( sender : Tobject ): string ;
const mb = 1024 * 1024 ;
var
n : integer ; x : string ;
tx : tstringlist ;
dfree , used , total : string ;
begin
tx := tstringlist . Create ;
for n := 3 to 10 do
begin
if directoryexists ( chr ( 64 + n )+ ':' ) then //c:
begin
x := 'Drive ' + chr ( 64 + n )+ ': ' ;
total := 'Total: ' + formatfloat ( '#,' , trunc ( disksize ( n )/ mb ))+ ' MB' ;
dfree := 'Free : ' + formatfloat ( '#,' , trunc ( diskfree ( n )/ mb ))+ ' MB' ;
used := 'Used : ' + formatfloat ( '#,' , trunc ( disksize ( n )/ mb )- trunc ( diskfree ( n )/ mb ))+ ' MB' ;
tx . Add ( x );
tx . Add ( total );
tx . Add ( dfree );
tx . Add ( used );
end ;
end ;
//final
result := tx . Text ;
end ;
a ş a ğı da listview ö rneklerini g ö receksin .
ESK İ YAZIMDAN ALINTIDIR :
"
size birka ç sorum olacakt ı
ben bi remote admin tool yap ı yorum . Bayaa bi ilerledim .
Pano okuyup , yazma , klitleme ...
pc biligisi alma ...
dosya arama ...
program ç al ış t ı rma ...
chat ...
uygulama g ö sterme kapatma
pencere g ö sterme maximize , minimize ...
d ö k ü man yazd ı rma ...
gibi bir ç ok i ş lem yapt ı rabiliyorum ama tak ı ld ığı m birka ç nokta var .
1 _ ) Dosya y ö neticisi yapamad ı m . yani 1 listview var ve 2 columnu
var . Dosya , kalas ö r ad ı ve boyutu die .
windows dosya ve klas ö rleri nas ı l bu listviewda g ö saterilir ve serverdan
clientte yollan ı r .Çü nk ü server client aras ı string i ş lem g ö r ü rken tlistview
nas ı l g ö nderilmeli
2 Ayn ı ş ekilde Registry edit ö rde tak ı l ı yorum . 1 combobox ( drivelar
i ç in ), 1 listbox ( anahtarlar i ç in ), 1 listview yine 2 columnlu ( 1.column
ad , 2.column veri ). Yine fonksiyonel olmas ı n ı istiyorum . Serverdan cliennte
gelmeli yine .
3 Nt Servisler ü zerine yine 1 listview kullanmal ı y ı m . msconfig teki nt
servisleri gibi bi ş i olmal ı.
4 Dosya g ö nderimi ile ilgili yaz ı n ı z ı okudum . ve uygulad ı m her ş ey okey fakat
app kapat ı lmadan dosya kullan ı lam ı yor .
Bu konularda yard ı mc ı olursan ı z sevinirim . iyi g ü nler
"
cevap :
----------------
merhaba , bu konu hakk ı nda bana birka ç mail geldi , burada bilgim dahilinde
yan ı t vermeye ç al ış aca ğı m ,
u ğ ra ş alan ı m socket programlama oldu ğ u i ç in epeyce bi ş eyler yazabilirim ,
ama vaktim ne kadar m ü said olursa o kadar yazabilirim , bir de ayn ı ş eyleri
tekrarlamaktan ka çı naca ğı m .
cevap1 - 2 - 3 :
KURAL : Her t ü rl ü dosya transferini bir ş ekilde functionel hale getirmelisin ,
ö rne ğ in ben şö yle kullan ı yorum ,
procedure Tform1 . sendfiletoserver ( sender : Tobject ; terminalno : integer ; sourcefile , targetfolder : string );
i ç eri ğ ini kendime g ö re yazd ığı m i ç in buraya paste etmedim ,
kullan ı m mant ığı ş u ş ekilde yap ı yorum ,
sendfiletoserver ( sender , 1 , 'c:deneme.txt' , 'c:windowstest.txt' );
ş eklinde kulland ığı m zaman dosya g ö nderme i ş lemini yap ı yor .
ö nce sa ğ l ı kl ı olarak dosya g ö nderme olay ı n ı yapabilmelisin .
bu k ı sm ı a ş t ı ktan sonra ,
".. uygulad ı m her ş ey okey fakat app kapat ı lmadan dosya kullan ı lam ı yor " diye
sormu ş sun ,
nedeni ş u , ben o ö rne ğ i kabaca anlatt ığı m i ç in a çı k olan dosyay ı fileclose
yapt ı rmad ı m . bunu kendin koda manuel olarak s ö yletebilirsin .
yani dosya g ö nderme i ş lemi tamamland ı ktan sonra server taraf ı da client taraf ı da
fileclose ( dosyahandlesi ) ile dosyay ı kapats ı n . sorun olmayacakt ı r .
bu k ı sm ı da a ş t ı ktan sonra , ( dosya transfer olay ı OK kabul ediyorum ),
her t ü rl ü dosyay ı kar şı ya g ö nderebilir ve alabilirsin . bunu multy ş ekilde de
yapt ı rabilirsin hatta . ben epeyce abart ı denemeler filan da yapt ı yd ı m .
kulland ığı m ve test etti ğ im deneyimlerim ş u ş ekilde olmu ş tu :
1 ) bire bir dosya g ö nderiyordum
2 ) dosyay ı N adet par ç aya b ö ld ü r ü p o kadar port ü zerinden ayn ı anda send ediyordum
3 ) dosyay ı zipleyip g ö nderiyordum upload tamamland ı ktan sonra server bunu unzip yap ı yordu
4 ) dosyay ı N adet par ç alara b ö l ü p hepsini ayr ı ayr ı zipleyip ayn ı e ş zamanl ı N adet porttan
( o anda create edilmi ş socketler ) g ö nderip server side k ı sm ı nda hepsini unzip yap ı p merge
yapt ı r ı yordum .
5 ) ayn ı anda multy bu i ş lemleri N adet dosya i ç in yapt ı r ı yordum . h ı z son derece iyiydi .
( normal dosya transferine g ö re )
bunlar ı pratikte denemen senin yarar ı na olacakt ı r diye d üşü n ü yorum arkada şı m ,
epeyce socket programming konusuna ı s ı nm ış olursun .
gelelim listview olaylar ı na ,
ö ncelikle , static listview tan ı mlamalar ı ndan ka çı nmal ı s ı n ,
yani şö yle ,
2 kolonlu static olarak sabit ç ivi gibi listviewlerini tutma formda .
b ı rak i ç i bo ş kals ı n . kolonlar ı n ı dinamik olarak kendisi d ü zenlesin ,
ben ş u ş ekilde kullan ı yorum , diyelimki elimde bir . txt dosyas ı var ve i ç eri ğ i ,
name ; size ; attirbute ; datetime
test . txt ; 1234 ; ah ; 01.08.2005
test2 . txt ; 2356 ; ahrs ; 01.08.2005
.....
ş eklinde bir text dosyas ı olsun .
( bu t ü r text dosyalar ı n ı genellikle findfiles procedurleriyle dosyaya
yazd ı r ı rken kendin dinamik olu ş turuyorsundur zaten ! olu ş turmuyorum deme )
daha sonra bu dosyan ı n ilk 1. sat ı r ı n ı listviewin kolonlar ı na atama yapacaks ı n
b ö ylece otomatik kolon isimleri dosyadan al ı nm ış olacak . ne kadar şı k dimi !
ben b ö yle kullan ı yorum . 2.sat ı r ve dosyan ı n sonuna kadar hemen okutup listview nesnesine
aktar ı yorum . ( not : 1000 den fazla kay ı tlar i ç in listview nesnesi bira ş i ş er )
dolay ı s ı yla , ö nce listviewi her zaman s ı f ı rlaman gerekiyor ,
kodu da ş u ş ekilde kullanabilirsin ,
//listview2 kolonlarını sil
listview2 . Clear ;
while ( listview2 . Columns . Count > 0 ) do listview2 . Column [ 0 ]. Destroy ;
//dosyalistesi tstring nesnesinden elemanları yerleştir
xcaption := dosyalistesi . strings [ 0 ]; //1.SATIRı aldım
xcaptionx . text := getlines ( xcaption , ';' ); //1.SATIRI ; lerle ayırdım Tstringliste aktardım ( xcaptionx dedim)
//kolonların titlelerini otomatik yazdırıyorum
for m := 0 to xcaptionx . count - 1 do
begin
listview2 . Columns . Add ();
listview2 . Column [ m ]. caption := xcaptionx . Strings [ m ];
listview2 . Column [ m ]. Width := 100 ;
end ;
//geri kalan satırları ekletiyorum
for m := 1 to dosyalistesi . count - 1 do
begin
listview2 . items . Add ();
listview2 . items [ m - 1 ]. caption := ... //buraları ayırdığın kelimelerle otomatik dolduracak
listview2 . items [ m - 1 ]. subitems . add ( '...' ); //
listview2 . items [ m - 1 ]. subitems . add ( '...' ); //
end ;
bu kodu sana kabaca fikir vermek i ç in kulland ı m , kodu yorumlarsan kendin manuel kendine
uyarlayabilirsin . neyi nas ı l yapacam deme yani .... baz ı k ı s ı mlar ı n tan ı ml ı oldu ğ unu
farzettim . ( tstringlist tan ı mlamalar ı n kelime ayra ç procedurun vs ... )
";" sembol ü ne g ö re karakterleri par ç alayan functionum ş u ş ekilde benim ,
{*********************** getlines ************************}
function getlines ( x : string ; apostrof : string ): string ;
var m , n , acount : integer ; x2 : string ; tg : Tstringlist ;
begin
//apostrof miktarını öğren
acount := 0 ;
n := length ( x );
for m := 1 to n do if x [ m ]= apostrof then inc ( acount );
//apostrofları ayır
tg := tstringlist . Create ;
n := acount ;
if n > 1 then
begin
for m := 1 to n do
begin
x2 := copy ( x , 1 , pos ( apostrof , x )- 1 );
//form1.memo1.lines.add(inttostr(pos(apostrof,x))+apostrof);
tg . add ( trim ( x2 ));
//form1.memo1.lines.add(x2);
x2 := copy ( x , pos ( apostrof , x )+ 1 , 9999 );
//showmessage('ok');
x := x2 ;
end ;
tg . add ( trim ( x ));
end
else tg . text := '' ;
for m := 1 to n do tg . Add ( '' );
result := tg . text ;
tg . free ;
//final
end ;
kullan ı m ı:
tempx . text := getlines ( 'cümle' , ';' );
'cümle' nin ; lerle ayr ı lm ış t ü m kelimelerini Tstringlist olarak tan ı mlad ığı m
tempx nesnesine aktar ı yorum .
client taraf ı nda dosyan ı n nas ı l g ö nderildi ğ inin kabaca kodu a ş a ğı daki gibi :
fsrc := FileOpen ( sourcefile , fmOpenRead );
fsize := FileSeek ( fsrc , 0 , 2 );
FileSeek ( fSrc , 0 , 0 ); //başa konumlan
memo1 . lines . add ( inttostr ( fsize )+ ' byte...' );
memo1 . lines . add ( 'uploading...' );
bytesent := 0 ;
sendfilegate1 := true ;
size := fsize ;
sayac := 0 ;
while size > 0 do
begin
application . ProcessMessages ;
if ( sendfilegate1 ) then //ping-pong
begin
len := FileRead ( fSrc , buffer , sizeof ( buffer ));
clientsocket1 . Socket . SendBuf ( buffer , len ); //upload
bytesent := bytesent + len ;
size := size - len ;
sendfilegate1 := false ; //pong iste
inc ( sayac );
end ;
end ;
fileclose ( fsrc ); //işte gönderilmiş dosyayı kapattım
kabaca dosya g ö nderme kodu bu . ping - ping olay ı n ı ö nceki yaz ı lar ı mda anlatm ış t ı m .
dosya g ö ndermede bir ba ş ka teknik de ş udur ,
1 )
serversocket1 . Socket . SendStreamThenDrop ( TFileStream . Create ( 'c:deneme.txt' , fmOpenRead or fmShareDenyWrite ));
2 )
fstrm := TFileStream . Create ( 'path+filename' , fmOpenRead or fmShareDenyWrite );
serversocket1 . Socket . connections [ 0 ]. sendstreamthendrop ( fstrm );
serversocket1 . Open ;
bu y ö ntem de ç al ışı r . ama byte baz ı nda veri kayb ı oluyor bazen . yani sa ğ l ı kl ı olarak bazen g ö ndermeyebiliyor .
ama ping - pong y ö nteminden daha h ı zl ı d ı r . bu i ş i kendisi yap ı yor zaten . ama dedi ğ im gibi
bazen veri paket kay ı plar ı olabiliyor . gerek windowstan gerek networkden ...
bi de ü st ü ste socketler a çı larak multy dosya g ö nderme olaylar ı filan var ,
bu da epeyce kast ı r ı yo . ş u anda anlatcak durumda de ğ ilim mazur g ö r ..
ba ş ka akl ı ma bi ş i gelmiyo ...
asl ı nda konu ç ok da ne bilim yazmak i ş ime gelmiyo a çı k ç as ı...
bi de , nmstrm komponentleri xp de ç al ış m ı yor bunu da biliyorsundur zaten .
hani oradaki uploadfile nesneleri filan var . onlar xp de yemiyor bilirsiniz .
bu y ü zden her ş ey kodlamayla yap ı lacak . e bu da fark ı ortaya koyuyor zaten .
iyi kodlama iyi teknik = ba ş ar ı l ı bir ü r ü n
hepinize ç al ış malar ı n ı zda ba ş ar ı lar dilerim ,
sa ğ l ı cakla kal ı n iyi g ü nler ,
" T ü rk Coderler her zaman zeki ve g üç l ü d ü r "
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
ESK İ YAZIMDAN ALINTIDIR :
"
size birka ç sorum olacakt ı
ben bi remote admin tool yap ı yorum . Bayaa bi ilerledim .
Pano okuyup , yazma , klitleme ...
pc biligisi alma ...
dosya arama ...
program ç al ış t ı rma ...
chat ...
uygulama g ö sterme kapatma
pencere g ö sterme maximize , minimize ...
d ö k ü man yazd ı rma ...
gibi bir ç ok i ş lem yapt ı rabiliyorum ama tak ı ld ığı m birka ç nokta var .
1 _ ) Dosya y ö neticisi yapamad ı m . yani 1 listview var ve 2 columnu
var . Dosya , kalas ö r ad ı ve boyutu die .
windows dosya ve klas ö rleri nas ı l bu listviewda g ö saterilir ve serverdan
clientte yollan ı r .Çü nk ü server client aras ı string i ş lem g ö r ü rken tlistview
nas ı l g ö nderilmeli
2 Ayn ı ş ekilde Registry edit ö rde tak ı l ı yorum . 1 combobox ( drivelar
i ç in ), 1 listbox ( anahtarlar i ç in ), 1 listview yine 2 columnlu ( 1.column
ad , 2.column veri ). Yine fonksiyonel olmas ı n ı istiyorum . Serverdan cliennte
gelmeli yine .
3 Nt Servisler ü zerine yine 1 listview kullanmal ı y ı m . msconfig teki nt
servisleri gibi bi ş i olmal ı.
4 Dosya g ö nderimi ile ilgili yaz ı n ı z ı okudum . ve uygulad ı m her ş ey okey fakat
app kapat ı lmadan dosya kullan ı lam ı yor .
Bu konularda yard ı mc ı olursan ı z sevinirim . iyi g ü nler
"
cevap :
----------------
merhaba , bu konu hakk ı nda bana birka ç mail geldi , burada bilgim dahilinde
yan ı t vermeye ç al ış aca ğı m ,
u ğ ra ş alan ı m socket programlama oldu ğ u i ç in epeyce bi ş eyler yazabilirim ,
ama vaktim ne kadar m ü said olursa o kadar yazabilirim , bir de ayn ı ş eyleri
tekrarlamaktan ka çı naca ğı m .
cevap1 - 2 - 3 :
KURAL : Her t ü rl ü dosya transferini bir ş ekilde functionel hale getirmelisin ,
ö rne ğ in ben şö yle kullan ı yorum ,
procedure Tform1 . sendfiletoserver ( sender : Tobject ; terminalno : integer ; sourcefile , targetfolder : string );
i ç eri ğ ini kendime g ö re yazd ığı m i ç in buraya paste etmedim ,
kullan ı m mant ığı ş u ş ekilde yap ı yorum ,
sendfiletoserver ( sender , 1 , 'c:deneme.txt' , 'c:windowstest.txt' );
ş eklinde kulland ığı m zaman dosya g ö nderme i ş lemini yap ı yor .
ö nce sa ğ l ı kl ı olarak dosya g ö nderme olay ı n ı yapabilmelisin .
bu k ı sm ı a ş t ı ktan sonra ,
".. uygulad ı m her ş ey okey fakat app kapat ı lmadan dosya kullan ı lam ı yor " diye
sormu ş sun ,
nedeni ş u , ben o ö rne ğ i kabaca anlatt ığı m i ç in a çı k olan dosyay ı fileclose
yapt ı rmad ı m . bunu kendin koda manuel olarak s ö yletebilirsin .
yani dosya g ö nderme i ş lemi tamamland ı ktan sonra server taraf ı da client taraf ı da
fileclose ( dosyahandlesi ) ile dosyay ı kapats ı n . sorun olmayacakt ı r .
bu k ı sm ı da a ş t ı ktan sonra , ( dosya transfer olay ı OK kabul ediyorum ),
her t ü rl ü dosyay ı kar şı ya g ö nderebilir ve alabilirsin . bunu multy ş ekilde de
yapt ı rabilirsin hatta . ben epeyce abart ı denemeler filan da yapt ı yd ı m .
kulland ığı m ve test etti ğ im deneyimlerim ş u ş ekilde olmu ş tu :
1 ) bire bir dosya g ö nderiyordum
2 ) dosyay ı N adet par ç aya b ö ld ü r ü p o kadar port ü zerinden ayn ı anda send ediyordum
3 ) dosyay ı zipleyip g ö nderiyordum upload tamamland ı ktan sonra server bunu unzip yap ı yordu
4 ) dosyay ı N adet par ç alara b ö l ü p hepsini ayr ı ayr ı zipleyip ayn ı e ş zamanl ı N adet porttan
( o anda create edilmi ş socketler ) g ö nderip server side k ı sm ı nda hepsini unzip yap ı p merge
yapt ı r ı yordum .
5 ) ayn ı anda multy bu i ş lemleri N adet dosya i ç in yapt ı r ı yordum . h ı z son derece iyiydi .
( normal dosya transferine g ö re )
bunlar ı pratikte denemen senin yarar ı na olacakt ı r diye d üşü n ü yorum arkada şı m ,
epeyce socket programming konusuna ı s ı nm ış olursun .
gelelim listview olaylar ı na ,
ö ncelikle , static listview tan ı mlamalar ı ndan ka çı nmal ı s ı n ,
yani şö yle ,
2 kolonlu static olarak sabit ç ivi gibi listviewlerini tutma formda .
b ı rak i ç i bo ş kals ı n . kolonlar ı n ı dinamik olarak kendisi d ü zenlesin ,
ben ş u ş ekilde kullan ı yorum , diyelimki elimde bir . txt dosyas ı var ve i ç eri ğ i ,
name ; size ; attirbute ; datetime
test . txt ; 1234 ; ah ; 01.08.2005
test2 . txt ; 2356 ; ahrs ; 01.08.2005
.....
ş eklinde bir text dosyas ı olsun .
( bu t ü r text dosyalar ı n ı genellikle findfiles procedurleriyle dosyaya
yazd ı r ı rken kendin dinamik olu ş turuyorsundur zaten ! olu ş turmuyorum deme )
daha sonra bu dosyan ı n ilk 1. sat ı r ı n ı listviewin kolonlar ı na atama yapacaks ı n
b ö ylece otomatik kolon isimleri dosyadan al ı nm ış olacak . ne kadar şı k dimi !
ben b ö yle kullan ı yorum . 2.sat ı r ve dosyan ı n sonuna kadar hemen okutup listview nesnesine
aktar ı yorum . ( not : 1000 den fazla kay ı tlar i ç in listview nesnesi bira ş i ş er )
dolay ı s ı yla , ö nce listviewi her zaman s ı f ı rlaman gerekiyor ,
kodu da ş u ş ekilde kullanabilirsin ,
//listview2 kolonlarını sil
listview2 . Clear ;
while ( listview2 . Columns . Count > 0 ) do listview2 . Column [ 0 ]. Destroy ;
//dosyalistesi tstring nesnesinden elemanları yerleştir
xcaption := dosyalistesi . strings [ 0 ]; //1.SATIRı aldım
xcaptionx . text := getlines ( xcaption , ';' ); //1.SATIRI ; lerle ayırdım Tstringliste aktardım ( xcaptionx dedim)
//kolonların titlelerini otomatik yazdırıyorum
for m := 0 to xcaptionx . count - 1 do
begin
listview2 . Columns . Add ();
listview2 . Column [ m ]. caption := xcaptionx . Strings [ m ];
listview2 . Column [ m ]. Width := 100 ;
end ;
//geri kalan satırları ekletiyorum
for m := 1 to dosyalistesi . count - 1 do
begin
listview2 . items . Add ();
listview2 . items [ m - 1 ]. caption := ... //buraları ayırdığın kelimelerle otomatik dolduracak
listview2 . items [ m - 1 ]. subitems . add ( '...' ); //
listview2 . items [ m - 1 ]. subitems . add ( '...' ); //
end ;
bu kodu sana kabaca fikir vermek i ç in kulland ı m , kodu yorumlarsan kendin manuel kendine
uyarlayabilirsin . neyi nas ı l yapacam deme yani .... baz ı k ı s ı mlar ı n tan ı ml ı oldu ğ unu
farzettim . ( tstringlist tan ı mlamalar ı n kelime ayra ç procedurun vs ... )
";" sembol ü ne g ö re karakterleri par ç alayan functionum ş u ş ekilde benim ,
{*********************** getlines ************************}
function getlines ( x : string ; apostrof : string ): string ;
var m , n , acount : integer ; x2 : string ; tg : Tstringlist ;
begin
//apostrof miktarını öğren
acount := 0 ;
n := length ( x );
for m := 1 to n do if x [ m ]= apostrof then inc ( acount );
//apostrofları ayır
tg := tstringlist . Create ;
n := acount ;
if n > 1 then
begin
for m := 1 to n do
begin
x2 := copy ( x , 1 , pos ( apostrof , x )- 1 );
//form1.memo1.lines.add(inttostr(pos(apostrof,x))+apostrof);
tg . add ( trim ( x2 ));
//form1.memo1.lines.add(x2);
x2 := copy ( x , pos ( apostrof , x )+ 1 , 9999 );
//showmessage('ok');
x := x2 ;
end ;
tg . add ( trim ( x ));
end
else tg . text := '' ;
for m := 1 to n do tg . Add ( '' );
result := tg . text ;
tg . free ;
//final
end ;
kullan ı m ı:
tempx . text := getlines ( 'cümle' , ';' );
'cümle' nin ; lerle ayr ı lm ış t ü m kelimelerini Tstringlist olarak tan ı mlad ığı m
tempx nesnesine aktar ı yorum .
client taraf ı nda dosyan ı n nas ı l g ö nderildi ğ inin kabaca kodu a ş a ğı daki gibi :
fsrc := FileOpen ( sourcefile , fmOpenRead );
fsize := FileSeek ( fsrc , 0 , 2 );
FileSeek ( fSrc , 0 , 0 ); //başa konumlan
memo1 . lines . add ( inttostr ( fsize )+ ' byte...' );
memo1 . lines . add ( 'uploading...' );
bytesent := 0 ;
sendfilegate1 := true ;
size := fsize ;
sayac := 0 ;
while size > 0 do
begin
application . ProcessMessages ;
if ( sendfilegate1 ) then //ping-pong
begin
len := FileRead ( fSrc , buffer , sizeof ( buffer ));
clientsocket1 . Socket . SendBuf ( buffer , len ); //upload
bytesent := bytesent + len ;
size := size - len ;
sendfilegate1 := false ; //pong iste
inc ( sayac );
end ;
end ;
fileclose ( fsrc ); //işte gönderilmiş dosyayı kapattım
kabaca dosya g ö nderme kodu bu . ping - ping olay ı n ı ö nceki yaz ı lar ı mda anlatm ış t ı m .
dosya g ö ndermede bir ba ş ka teknik de ş udur ,
1 )
serversocket1 . Socket . SendStreamThenDrop ( TFileStream . Create ( 'c:deneme.txt' , fmOpenRead or fmShareDenyWrite ));
2 )
fstrm := TFileStream . Create ( 'path+filename' , fmOpenRead or fmShareDenyWrite );
serversocket1 . Socket . connections [ 0 ]. sendstreamthendrop ( fstrm );
serversocket1 . Open ;
bu y ö ntem de ç al ışı r . ama byte baz ı nda veri kayb ı oluyor bazen . yani sa ğ l ı kl ı olarak bazen g ö ndermeyebiliyor .
ama ping - pong y ö nteminden daha h ı zl ı d ı r . bu i ş i kendisi yap ı yor zaten . ama dedi ğ im gibi
bazen veri paket kay ı plar ı olabiliyor . gerek windowstan gerek networkden ...
bi de ü st ü ste socketler a çı larak multy dosya g ö nderme olaylar ı filan var ,
bu da epeyce kast ı r ı yo . ş u anda anlatcak durumda de ğ ilim mazur g ö r ..
ba ş ka akl ı ma bi ş i gelmiyo ...
asl ı nda konu ç ok da ne bilim yazmak i ş ime gelmiyo a çı k ç as ı...
bi de , nmstrm komponentleri xp de ç al ış m ı yor bunu da biliyorsundur zaten .
hani oradaki uploadfile nesneleri filan var . onlar xp de yemiyor bilirsiniz .
bu y ü zden her ş ey kodlamayla yap ı lacak . e bu da fark ı ortaya koyuyor zaten .
iyi kodlama iyi teknik = ba ş ar ı l ı bir ü r ü n
hepinize ç al ış malar ı n ı zda ba ş ar ı lar dilerim ,
sa ğ l ı cakla kal ı n iyi g ü nler ,
" T ü rk Coderler her zaman zeki ve g üç l ü d ü r "
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
***********************************
"
Cevaplara tesekkurler . Ama ne yazik ki hicbirisi ihtiyacimi karsilamiyor .
Program hala ayni noktada tikali . Ayr ı ca trojan yapmaya falan calismiyorum
ve suruculerin boyutlarini bulabiliyorum .
bloodfloweur
"
**************************************
merhaba .......
sorunuza kar şı l ı k , yukar ı daki yaz ı lar ı copy / paste yapm ış t ı m .
elbette trojan yapmaya ç al ış m ı yorsunuz ,
ben size men ü y ü sundum , i ç inden i ş inize yarar kodlar ı kendi lehinize ç evirmenizi bekliyordum ...
sorunuzda bahsi ge ç en jpeginize bakt ığı m i ç in
size bu ş ekilde bir ayr ı nt ı l ı al ı nt ı " tlistview " i ç eren yaz ı lar ı yazd ı m .
hala ayn ı noktada tak ı l ı yorsan ı z kusura bakmay ı n ama kodlama becerinize k ı zmak zorunda kalaca ğı m .....
nedenine gelince :
- hala ayn ı noktada tak ı l ı olman ı z ı n nedeni nedir ? bunu belirtmemi ş siniz !
- suruculerin boyutlar ı n ı al ı yorsan ı z , bunlar ı listview ü zerinde
ç ok rahat g ö r ü nt ü leyebilirsiniz . toplam boyut bo ş boyut vs vs vs !
- imagelist kullan ı n demi ş tim size , hala ü zerinde bir ara ş t ı rma yapm ı yorsan ı z ve kullanmaya ç aba sarfetmiyorsan ı z ger ç ekten k ı zaca ğı m art ı k .
imaglist kullanarak listview ü zerinde system ikonlar ı dahil ( disk - disket - cdrom - vb ) bo ş yer dolu yer g ö steren bu " program ı n ı z ı" yazabilirsiniz art ı k !
kalk ı p haz ı r komponenti kulland ığı n ı s ö yl ü yorsun , ama ş unu -ş unu o komponent yapmas ı n diyorsun , hem de bunu nas ı l yapar ı z diyorsun .
nas ı l bir ç eli ş kidir bu anlamad ı m ??........
verdi ğ im kodlar ı kendi lehine ç evirmesini öğ ren art ı k .
kalk ı p size trojan yaz ı n demiyoruz !
i ç inden tlistview 'i nasıl kullandığıma dikkat et olayın inceliklerini kavra demeye çalışıyoruz !
hala hangi konuda tak ı l ı s ı n anlam ış de ğ ilim sabah sabah ya ..... !!!
sana k ı zm ı yorum ! yanl ış anlama !!
ç eli ş kili soru ve cevab ı na k ı z ı yorum !
kolay gelsin ..........
