SOD - Arama Motorlarında Arama Yapan Kod
procedure TForm1 . Button1Click ( Sender : TObject );
begin
form2 . webbrowser1 . Navigate ( 'http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=' + edit1 . Text );
form2 . Show ;
end ;
procedure TForm1 . Button2Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://altavista.digital.com/cgi-bin/query?pg=q&what=news&fmt=d&q=' + edit1 . Text );
form2 . Show ;
end ;
procedure TForm1 . Button3Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://search.yahoo.com/bin/search?p=' + edit1 . Text );
form2 . Show ;
end ;
procedure TForm1 . Button4Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://search.dejanews.com/nph-dnquery.xp?query=' + edit1 . Text + '&defaultOp=AND&svcclass=dncurrent&maxhits=25' );
form2 . Show ;
end ;
procedure TForm1 . Button5Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://www.search.hotbot.com/search.html?MT=' + edit1 . Text + '&DC=25' );
form2 . Show ;
end ;
procedure TForm1 . Button6Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://www.infoseek.com/Titles?qt=' + edit1 . Text + '&col=WW&sv=A2' );
form2 . Show ;
end ;
procedure TForm1 . Button7Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://www.excite.com/search.gw?searchType=Concept&search=' + edit1 . Text + '&category=default' );
form2 . Show ;
end ;
procedure TForm1 . Button8Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://www.infoseek.com/Titles?qt=' + edit1 . Text + '&col=NN&sv=A2' );
form2 . Show ;
end ;
procedure TForm1 . Button9Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://www.lycos.com/cgi-bin/pursuit?query=' + edit1 . Text + '&backlink=639' );
form2 . Show ;
end ;
procedure TForm1 . Button10Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://www.mckinley.com/extsearch.cgi?query=' + edit1 . Text );
form2 . Show ;
end ;
procedure TForm1 . Button11Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://search.opentext.com/omw/simplesearch?SearchFor=' + edit1 . Text + '&mode=and' );
form2 . Show ;
end ;
procedure TForm1 . Button12Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://webcrawler.com/cgi-bin/WebQuery?searchText=' + edit1 . Text + '&maxHits=25' );
form2 . Show ;
end ;
procedure TForm1 . Button13Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://ipix.yahoo.com/cgi-bin/y-new/keyword_search.cgi?db=%2Fdata%2Fglobal_keyword&q=' + edit1 . Text );
form2 . Show ;
end ;
procedure TForm1 . Button14Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://www.google.com/search?hl=tr&ie=UTF8&oe=UTF8&q=' + edit1 . Text + '&btnG=Google%27da+Ara&lr=lang_tr' );
form2 . Show ;
end ;
procedure TForm1 . Button15Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://www6.zdnet.com/cgi-bin/texis/swlib/hotfiles/search.html?Usrt=rel&Usrchtype=simple&Utext=' + edit1 . Text );
form2 . Show ;
end ;
procedure TForm1 . Button16Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://www.davecentral.com/cgi-bin/search.pl?query=' + edit1 . Text );
form2 . Show ;
end ;
procedure TForm1 . Button17Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://filez.com/cgi/filez.cgi?query=' + edit1 . Text + '&type=All+Files&hits=50&domain=World&doit=Search/' );
form2 . Show ;
end ;
procedure TForm1 . Button18Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://search.shareware.com/code/engine/Find?logop=and&cfrom=quick&orfile=True&hits=25&search=' + edit1 . Text + '&category=All-Categories' );
form2 . Show ;
end ;
procedure TForm1 . Button19Click ( Sender : TObject );
begin
form2 . WebBrowser1 . Navigate ( 'http://www.pcgame.com/finder/search.cgi?key=' + edit1 . Text );
form2 . Show ;
end ;
Delphi - .....................................
SOD - Aklınızda bulunsun! Veri Tabanı!
0000000000000000000000000000000000000000000000000000000000000000000000000000000
//BURADA BELEŞÇİLERE YER YOKTUR LÜTFEN DERDİNİZ VARSA FORUMLARI KULLANIN
//VE LÜTFEN KİMSE BURAYA GELEN SORULARI YANITLAMASIN Kİ YÜZ BULUP TEKRAR
//TEKRAR BURAYA SORU SORULMASIN BURASI KOD PAYLAŞIM YERİDİR VE KİMSE SİZİN
//İÇİN KOD YAZMAK ZORUNDA DEĞİLDİR. KODLAR BİR PROGRAMCI İÇİN DEĞERLİDİR
//ÇÜNKÜ BURAYA HERKES KENDİ ALIN TERİNİ VE KENDİ EKMEK PARASINI YAZMAKTA VE
//PAYLAŞMAKTADIR. BAZI ZİHNİYETLER BURAYA ASLINDA ÇOK DEĞERLİ BİLGİLER VERİLDİĞİNİ
//YANİ SİHİRBAZLARIN SIRLARINI PAYLAŞTIĞINI FARKETMEKSİZİN BU SİHİRBAZLARIN
//ONLAR İÇİN YENİ SİHİRLER BULMALARI GEREKMEDİĞİNİ YA DA TÜM SIRLARINI
//PAYLAŞMALARININ GEREKMEDİĞİNİ BİLMELİDİRLER..
//BURASI KALİTELİ BİR SİSTEMDİR VE BU KALİTEYİ ELDE TUTMAK ELİMİZDEDİR
//LÜTFEN BUNU DA HAKKIYLA YAPALIM
0000000000000000000000000000000000000000000000000000000000000000000000000000000
{
Arkadaşlar aklınızda bulunsun! Özellikle eğer
en çok karşılaştığım problem ara bellekte çok fazla yer kaplanması
mesela bir tablom var ve içerisinde 70.000 civarında kayıt var
bu kayırlar dbgrid gibi bir yerde görüntülenirken zaten bir hayli yer
kaplamakta ara bellekte. eğer
şahsen bir projede karşılaştığım gibi 300megabyte a yakın ara bellek program
tarafından işgal edilmekte. bunun için en azından çalışmadığınız
table ya da query leri kapatıp hafızalarını temizleyin.
Bunu nasıl mı yapacaksınız? Falza teferruatlı yolları olmasıyla birlikte
büyük oranda halleden şu basit komutları da uygulayabilirsiniz }
//Önce programı derlemeden adoquery nin active özelliğinin false olmasına
// dikkat ediyoruz ve..
procedure TForm11 . FormActivate ( Sender : TObject );
begin
ADOQuery1 . Active := true ;
end ;
procedure TForm11 . FormClose ( Sender : TObject ; var Action : TCloseAction );
begin
ADOQuery1 . Active := false ;
ADOQuery1 . CleanupInstance ;
end ;
{Normalde arkadaşlar CleanupInstance komutunu tek başına önermezler
onun yerine Free komutu tercih edilir ancak free komutu aynı zamanda
sizin adoquery nesnenizi programdan yok eder. bu da bir daha create etmeniz
gerekliliğini getirir.. Eğer
canınısı sıkabilir. O yüzden siz CleanupInstance kullanın
sinan . islekdemir @ gmail . com
Delphi - .....................................
SOD - Aklınızda bulunsun! Veri Tabanı!
0000000000000000000000000000000000000000000000000000000000000000000000000000000
//BURADA BELEŞÇİLERE YER YOKTUR LÜTFEN DERDİNİZ VARSA FORUMLARI KULLANIN
//VE LÜTFEN KİMSE BURAYA GELEN SORULARI YANITLAMASIN Kİ YÜZ BULUP TEKRAR
//TEKRAR BURAYA SORU SORULMASIN BURASI KOD PAYLAŞIM YERİDİR VE KİMSE SİZİN
//İÇİN KOD YAZMAK ZORUNDA DEĞİLDİR. KODLAR BİR PROGRAMCI İÇİN DEĞERLİDİR
//ÇÜNKÜ BURAYA HERKES KENDİ ALIN TERİNİ VE KENDİ EKMEK PARASINI YAZMAKTA VE
//PAYLAŞMAKTADIR. BAZI ZİHNİYETLER BURAYA ASLINDA ÇOK DEĞERLİ BİLGİLER VERİLDİĞİNİ
//YANİ SİHİRBAZLARIN SIRLARINI PAYLAŞTIĞINI FARKETMEKSİZİN BU SİHİRBAZLARIN
//ONLAR İÇİN YENİ SİHİRLER BULMALARI GEREKMEDİĞİNİ YA DA TÜM SIRLARINI
//PAYLAŞMALARININ GEREKMEDİĞİNİ BİLMELİDİRLER..
//BURASI KALİTELİ BİR SİSTEMDİR VE BU KALİTEYİ ELDE TUTMAK ELİMİZDEDİR
//LÜTFEN BUNU DA HAKKIYLA YAPALIM
0000000000000000000000000000000000000000000000000000000000000000000000000000000
{
Arkadaşlar aklınızda bulunsun! Özellikle eğer
en çok karşılaştığım problem ara bellekte çok fazla yer kaplanması
mesela bir tablom var ve içerisinde 70.000 civarında kayıt var
bu kayırlar dbgrid gibi bir yerde görüntülenirken zaten bir hayli yer
kaplamakta ara bellekte. eğer
şahsen bir projede karşılaştığım gibi 300megabyte a yakın ara bellek program
tarafından işgal edilmekte. bunun için en azından çalışmadığınız
table ya da query leri kapatıp hafızalarını temizleyin.
Bunu nasıl mı yapacaksınız? Falza teferruatlı yolları olmasıyla birlikte
büyük oranda halleden şu basit komutları da uygulayabilirsiniz }
//Önce programı derlemeden adoquery nin active özelliğinin false olmasına
// dikkat ediyoruz ve..
procedure TForm11 . FormActivate ( Sender : TObject );
begin
ADOQuery1 . Active := true ;
end ;
procedure TForm11 . FormClose ( Sender : TObject ; var Action : TCloseAction );
begin
ADOQuery1 . Active := false ;
ADOQuery1 . CleanupInstance ;
end ;
{Normalde arkadaşlar CleanupInstance komutunu tek başına önermezler
onun yerine Free komutu tercih edilir ancak free komutu aynı zamanda
sizin adoquery nesnenizi programdan yok eder. bu da bir daha create etmeniz
gerekliliğini getirir.. Eğer
canınısı sıkabilir. O yüzden siz CleanupInstance kullanın
sinan . islekdemir @ gmail . com
Delphi - .....................................
SOD - Tabloda Field Seçerek Özel Arama Oluşturma
0000000000000000000000000000000000000000000000000000000000000000000000000000000
//BURADA BELEŞÇİLERE YER YOKTUR LÜTFEN DERDİNİZ VARSA FORUMLARI KULLANIN
//VE LÜTFEN KİMSE BURAYA GELEN SORULARI YANITLAMASIN Kİ YÜZ BULUP TEKRAR
//TEKRAR BURAYA SORU SORULMASIN BURASI KOD PAYLAŞIM YERİDİR VE KİMSE SİZİN
//İÇİN KOD YAZMAK ZORUNDA DEĞİLDİR. KODLAR BİR PROGRAMCI İÇİN DEĞERLİDİR
//ÇÜNKÜ BURAYA HERKES KENDİ ALIN TERİNİ VE KENDİ EKMEK PARASINI YAZMAKTA VE
//PAYLAŞMAKTADIR. BAZI ZİHNİYETLER BURAYA ASLINDA ÇOK DEĞERLİ BİLGİLER VERİLDİĞİNİ
//YANİ SİHİRBAZLARIN SIRLARINI PAYLAŞTIĞINI FARKETMEKSİZİN BU SİHİRBAZLARIN
//ONLAR İÇİN YENİ SİHİRLER BULMALARI GEREKMEDİĞİNİ YA DA TÜM SIRLARINI
//PAYLAŞMALARININ GEREKMEDİĞİNİ BİLMELİDİRLER..
//BURASI KALİTELİ BİR SİSTEMDİR VE BU KALİTEYİ ELDE TUTMAK ELİMİZDEDİR
//LÜTFEN BUNU DA HAKKIYLA YAPALIM
0000000000000000000000000000000000000000000000000000000000000000000000000000000
{
Öncelikle arkadaşlar yapmanız gereken şey arama bölümünü açtığınızda aramadan önce şu
kodu uygulatmak}
ADOConnection1 . GetFieldNames ( 'Nufuslar' , ComboBox1 . Items );
{Burada Nufuslar benim tablomun adıdır arkadaşlar...}
{Bu noktadan sonra Combobox'ınızın Autocomplete özelliğini True yapacak olursanız
yazdıklarınız otomatik tamalanacaktır.
Neyse sonra arama olayına gelelimmm... bir adet edit koyun vee... arama butonuna
şunun gibi bir kod yazın}
sorgu . SQL . Text := 'select * from Nufuslar where [' + UpperCase ( ComboBox1 . Text )+ '] LIKE ' + UpperCase ( QuotedStr ( '%' + acEdit1 . Text + '%' ))+ ' ORDER BY ' + UpperCase ( ComboBox1 . Text );
sorgu . Active := true ;
{Bu sayede Comboboxta seçmiş olduğunuz alan adına göre arama yapılır
burada acEdit e takılmayın o benim kullandığım edit componentinin farklı oluşudur
normal edit ile bir farkı yoktur burada kullanımında
ayrıca sonuçlar alfabetik olarak seçtiğiniz alana göre listelenir..
}
Clipboard'daki dosyaların isimlerinin listelenmesi
uses
clipbrd , shellapi ;
procedure TForm1 . Button1Click ( Sender : TObject ) ;
var
f : THandle ;
buffer : Array [ 0 .. MAX_PATH ] of Char ;
i , numFiles : Integer ;
begin
Clipboard . Open ;
try
f := Clipboard . GetAsHandle ( CF_HDROP ) ;
If f <> 0 Then Begin
numFiles := DragQueryFile ( f , $FFFFFFFF , nil , 0 ) ;
memo1 . Clear ;
for i := 0 to numfiles - 1 do begin
buffer [ 0 ] := #0 ;
DragQueryFile ( f , i , buffer , sizeof ( buffer )) ;
memo1 . lines . add ( buffer ) ;
end ;
end ;
finally
Clipboard . close ;
end ;
end ;
Delphi - .....................................
Clipboard'daki dosyaların isimlerinin listelenmesi
uses
clipbrd , shellapi ;
procedure TForm1 . Button1Click ( Sender : TObject ) ;
var
f : THandle ;
buffer : Array [ 0 .. MAX_PATH ] of Char ;
i , numFiles : Integer ;
begin
Clipboard . Open ;
try
f := Clipboard . GetAsHandle ( CF_HDROP ) ;
If f <> 0 Then Begin
numFiles := DragQueryFile ( f , $FFFFFFFF , nil , 0 ) ;
memo1 . Clear ;
for i := 0 to numfiles - 1 do begin
buffer [ 0 ] := #0 ;
DragQueryFile ( f , i , buffer , sizeof ( buffer )) ;
memo1 . lines . add ( buffer ) ;
end ;
end ;
finally
Clipboard . close ;
end ;
end ;
Delphi - .....................................
IP adresinin url adresine çevrilmesi
uses
Winsock ;
function IAddrToHostName ( const IP : string ): string ;
var
i : Integer ;
p : PHostEnt ;
begin
Result := '' ;
i := inet_addr ( PChar ( IP ));
if i <> u_long ( INADDR_NONE ) then
begin
p := GetHostByAddr (@ i , SizeOf ( Integer ), PF_INET );
if p <> nil then Result := p ^. h_name ;
end
else
Result := 'Invalid IP address' ;
end ;
Delphi - .....................................
IP adresinin url adresine çevrilmesi
uses
Winsock ;
function IAddrToHostName ( const IP : string ): string ;
var
i : Integer ;
p : PHostEnt ;
begin
Result := '' ;
i := inet_addr ( PChar ( IP ));
if i <> u_long ( INADDR_NONE ) then
begin
p := GetHostByAddr (@ i , SizeOf ( Integer ), PF_INET );
if p <> nil then Result := p ^. h_name ;
end
else
Result := 'Invalid IP address' ;
end ;
Delphi - .....................................
IExplorer favori site adreslerinin alınması
function GetIEFavourites
( const favpath : string ): TStrings ;
var
searchrec : TSearchrec ;
str : TStrings ;
path , dir , filename : String ;
Buffer : array [ 0 .. 2047 ] of Char ;
found : Integer ;
begin
str := TStringList . Create ;
try
path := FavPath + '*.url' ;
dir := ExtractFilepath ( path ) ;
found := FindFirst ( path , faAnyFile , searchrec ) ;
while found = 0 do begin
SetString ( filename , Buffer ,
GetPrivateProfileString ( 'InternetShortcut' ,
PChar ( 'URL' ), NIL , Buffer , SizeOf ( Buffer ),
PChar ( dir + searchrec . Name ))) ;
str . Add ( filename ) ;
found := FindNext ( searchrec ) ;
end ;
found := FindFirst ( dir + '*.*' , faAnyFile , searchrec ) ;
while found = 0 do begin
if (( searchrec . Attr and faDirectory ) > 0 )
and ( searchrec . Name [ 1 ]<> '.' ) then
str . AddStrings ( GetIEFavourites
( dir + '' + searchrec . name )) ;
found := FindNext ( searchrec ) ;
end ;
FindClose ( searchrec ) ;
finally
Result := str ;
end ;
end ;
procedure TForm1 . Button1Click ( Sender : TObject ) ;
var pidl : PItemIDList ;
FavPath : array [ 0 .. MAX_PATH ] of char ;
begin
SHGetSpecialFolderLocation ( Handle , CSIDL_FAVORITES , pidl ) ;
SHGetPathFromIDList ( pidl , favpath ) ;
ListBox1 . Items := GetIEFavourites ( StrPas ( FavPath )) ;
end ;
Delphi - .....................................
IExplorer favori site adreslerinin alınması
function GetIEFavourites
( const favpath : string ): TStrings ;
var
searchrec : TSearchrec ;
str : TStrings ;
path , dir , filename : String ;
Buffer : array [ 0 .. 2047 ] of Char ;
found : Integer ;
begin
str := TStringList . Create ;
try
path := FavPath + '*.url' ;
dir := ExtractFilepath ( path ) ;
found := FindFirst ( path , faAnyFile , searchrec ) ;
while found = 0 do begin
SetString ( filename , Buffer ,
GetPrivateProfileString ( 'InternetShortcut' ,
PChar ( 'URL' ), NIL , Buffer , SizeOf ( Buffer ),
PChar ( dir + searchrec . Name ))) ;
str . Add ( filename ) ;
found := FindNext ( searchrec ) ;
end ;
found := FindFirst ( dir + '*.*' , faAnyFile , searchrec ) ;
while found = 0 do begin
if (( searchrec . Attr and faDirectory ) > 0 )
and ( searchrec . Name [ 1 ]<> '.' ) then
str . AddStrings ( GetIEFavourites
( dir + '' + searchrec . name )) ;
found := FindNext ( searchrec ) ;
end ;
FindClose ( searchrec ) ;
finally
Result := str ;
end ;
end ;
procedure TForm1 . Button1Click ( Sender : TObject ) ;
var pidl : PItemIDList ;
FavPath : array [ 0 .. MAX_PATH ] of char ;
begin
SHGetSpecialFolderLocation ( Handle , CSIDL_FAVORITES , pidl ) ;
SHGetPathFromIDList ( pidl , favpath ) ;
ListBox1 . Items := GetIEFavourites ( StrPas ( FavPath )) ;
end ;
Delphi - .....................................
Network bilgisayar listesinin alınması
type
PNetResourceArray = ^ TNetResourceArray ;
TNetResourceArray = array [ 0 .. 100 ] of TNetResource ;
function CreateNetResourceList ( ResourceType : DWord ;
NetResource : PNetResource ;
out Entries : DWord ;
out List : PNetResourceArray ): Boolean ;
var
EnumHandle : THandle ;
BufSize : DWord ;
Res : DWord ;
begin
Result := False ;
List := Nil ;
Entries := 0 ;
if WNetOpenEnum ( RESOURCE_GLOBALNET ,
ResourceType ,
0 ,
NetResource ,
EnumHandle ) = NO_ERROR then begin
try
BufSize := $4000 ; // 16 kByte
GetMem ( List , BufSize );
try
repeat
Entries := DWord (- 1 );
FillChar ( List ^, BufSize , 0 );
Res := WNetEnumResource ( EnumHandle , Entries , List , BufSize );
if Res = ERROR_MORE_DATA then
begin
ReAllocMem ( List , BufSize );
end ;
until Res <> ERROR_MORE_DATA ;
Result := Res = NO_ERROR ;
if not Result then
begin
FreeMem ( List );
List := Nil ;
Entries := 0 ;
end ;
except
FreeMem ( List );
raise ;
end ;
finally
WNetCloseEnum ( EnumHandle );
end ;
end ;
end ;
procedure ScanNetworkResources ( ResourceType , DisplayType : DWord ; List : TStrings );
procedure ScanLevel ( NetResource : PNetResource );
var
Entries : DWord ;
NetResourceList : PNetResourceArray ;
i : Integer ;
begin
if CreateNetResourceList ( ResourceType , NetResource , Entries , NetResourceList ) then try
for i := 0 to Integer ( Entries ) - 1 do
begin
if ( DisplayType = RESOURCEDISPLAYTYPE_GENERIC ) or
( NetResourceList [ i ]. dwDisplayType = DisplayType ) then begin
List . AddObject ( NetResourceList [ i ]. lpRemoteName ,
Pointer ( NetResourceList [ i ]. dwDisplayType ));
end ;
if ( NetResourceList [ i ]. dwUsage and RESOURCEUSAGE_CONTAINER ) <> 0 then
ScanLevel (@ NetResourceList [ i ]);
end ;
finally
FreeMem ( NetResourceList );
end ;
end ;
begin
ScanLevel ( Nil );
end ;
procedure TForm1 . Button1Click ( Sender : TObject );
begin
ScanNetworkResources ( RESOURCETYPE_DISK , RESOURCEDISPLAYTYPE_SERVER , ListBox1 . Items );
end ;
Delphi - .....................................
Network bilgisayar listesinin alınması
type
PNetResourceArray = ^ TNetResourceArray ;
TNetResourceArray = array [ 0 .. 100 ] of TNetResource ;
function CreateNetResourceList ( ResourceType : DWord ;
NetResource : PNetResource ;
out Entries : DWord ;
out List : PNetResourceArray ): Boolean ;
var
EnumHandle : THandle ;
BufSize : DWord ;
Res : DWord ;
begin
Result := False ;
List := Nil ;
Entries := 0 ;
if WNetOpenEnum ( RESOURCE_GLOBALNET ,
ResourceType ,
0 ,
NetResource ,
EnumHandle ) = NO_ERROR then begin
try
BufSize := $4000 ; // 16 kByte
GetMem ( List , BufSize );
try
repeat
Entries := DWord (- 1 );
FillChar ( List ^, BufSize , 0 );
Res := WNetEnumResource ( EnumHandle , Entries , List , BufSize );
if Res = ERROR_MORE_DATA then
begin
ReAllocMem ( List , BufSize );
end ;
until Res <> ERROR_MORE_DATA ;
Result := Res = NO_ERROR ;
if not Result then
begin
FreeMem ( List );
List := Nil ;
Entries := 0 ;
end ;
except
FreeMem ( List );
raise ;
end ;
finally
WNetCloseEnum ( EnumHandle );
end ;
end ;
end ;
procedure ScanNetworkResources ( ResourceType , DisplayType : DWord ; List : TStrings );
procedure ScanLevel ( NetResource : PNetResource );
var
Entries : DWord ;
NetResourceList : PNetResourceArray ;
i : Integer ;
begin
if CreateNetResourceList ( ResourceType , NetResource , Entries , NetResourceList ) then try
for i := 0 to Integer ( Entries ) - 1 do
begin
if ( DisplayType = RESOURCEDISPLAYTYPE_GENERIC ) or
( NetResourceList [ i ]. dwDisplayType = DisplayType ) then begin
List . AddObject ( NetResourceList [ i ]. lpRemoteName ,
Pointer ( NetResourceList [ i ]. dwDisplayType ));
end ;
if ( NetResourceList [ i ]. dwUsage and RESOURCEUSAGE_CONTAINER ) <> 0 then
ScanLevel (@ NetResourceList [ i ]);
end ;
finally
FreeMem ( NetResourceList );
end ;
end ;
begin
ScanLevel ( Nil );
end ;
procedure TForm1 . Button1Click ( Sender : TObject );
begin
ScanNetworkResources ( RESOURCETYPE_DISK , RESOURCEDISPLAYTYPE_SERVER , ListBox1 . Items );
end ;
Delphi - .....................................
DDE Connection
Bir programdan diger programa parametre aktararak toplama yaptiran kodlar.
Delphi 7 ile yapilmistir .
Project2 kodu
Projeye DdeClientConv1 componenti ve 2 edit eklenmeli
// Baglan Butonu
procedure TForm1 . Button1Click ( Sender : TObject );
begin
DdeClientConv1 . ConnectMode := ddeManual ;
DdeClientConv1 . ServiceApplication := 'C:Project1.exe' ;
If DdeClientConv1 . SetLink ( 'Project1' , 'ddeserverconv1' ) then
begin
if Not DdeClientConv1 . OpenLink then
begin
ShowMessage ( 'Baglanti Kurulamiyor' );
Exit ;
end ;
end
else ShowMessage ( 'Baglanti Kurulamiyor,Yol Dogrumu' );
end ;
// Hesapla Butonu
procedure TForm1 . Button2Click ( Sender : TObject );
begin
//1. parametre 2. parametre
DdeClientConv1 . ExecuteMacro ( pchar ( Edit1 . Text + #13 + Edit2 . Text + #13 ), false );
end ;
// Proje1 kodu
//DdeServerConv1 componenti eklenmeli proje c:project1.exe diye kaydedilmeli
procedure TForm1 . DdeServerConv1ExecuteMacro ( Sender : TObject ;
Msg : TStrings );
var
m , n : String ;
x : Integer ;
begin
m := Msg . Strings [ 0 ]; // Edit1.text
n := Msg . Strings [ 1 ]; // Edit2.text
x := StrToInt ( m )+ StrToInt ( n1 );
ShowMessage ( IntToStr ( x ));
end ;
Delphi - .....................................
DDE Connection
Bir programdan diger programa parametre aktararak toplama yaptiran kodlar.
Delphi 7 ile yapilmistir .
Project2 kodu
Projeye DdeClientConv1 componenti ve 2 edit eklenmeli
// Baglan Butonu
procedure TForm1 . Button1Click ( Sender : TObject );
begin
DdeClientConv1 . ConnectMode := ddeManual ;
DdeClientConv1 . ServiceApplication := 'C:Project1.exe' ;
If DdeClientConv1 . SetLink ( 'Project1' , 'ddeserverconv1' ) then
begin
if Not DdeClientConv1 . OpenLink then
begin
ShowMessage ( 'Baglanti Kurulamiyor' );
Exit ;
end ;
end
else ShowMessage ( 'Baglanti Kurulamiyor,Yol Dogrumu' );
end ;
// Hesapla Butonu
procedure TForm1 . Button2Click ( Sender : TObject );
begin
//1. parametre 2. parametre
DdeClientConv1 . ExecuteMacro ( pchar ( Edit1 . Text + #13 + Edit2 . Text + #13 ), false );
end ;
// Proje1 kodu
//DdeServerConv1 componenti eklenmeli proje c:project1.exe diye kaydedilmeli
procedure TForm1 . DdeServerConv1ExecuteMacro ( Sender : TObject ;
Msg : TStrings );
var
m , n : String ;
x : Integer ;
begin
m := Msg . Strings [ 0 ]; // Edit1.text
n := Msg . Strings [ 1 ]; // Edit2.text
x := StrToInt ( m )+ StrToInt ( n1 );
ShowMessage ( IntToStr ( x ));
end ;
Delphi - .....................................
dayanamayıyorum artık çok kızıyorum
Polemik yapmayacaktı m , dayanam ı yorum art ı k !
arkada şı m ı z ı n biri şö yle bir bilgi g ö ndermi ş:
"
E ğ er Program ı n ı zda Kulland ığı n ı z Formlar ı n Haf ı zay ı Fazla Doldurmas ı n ı
istemiyorsan ı z a ş a ğı daki y ö ntemi kullanmak son derece ideal olacakt ı r .
Form1 := TForm1 . Create ( Self );
Form1 . ShowModal ;
FreeAndNil ( Form1 );
The HaCKeRs ( Delphi Developher )
"
iyi g ü zel te ş ekk ü r ederiz , de , kel alaka ?...
yapt ığı n i ş sadece formdan bir form create etmek !
bunda orjinal herhangi bir ş ey yok ve gayet kullan ı lan bir CREATE mant ığı!
ha ş unu da s ö yliyim g ü zel arkada şı m ,
1. formdan create etmi ş sin , ve bunu da showmodal ile g ö stermi ş sin , ama formunun
i ç ine bi ş ey ekle yaz ç iz desem yazd ı ramazs ı n bu y ö ntemle !! say ı n delelopher
arkada şı m ,
2. formun create metodlar ı n ı biraz daha ara ş t ı r ! Sadece ( Self ) i ş e yaram ı yor
3. freeandnil ( form1 ); demi ş sin , yenilik mi bu yoksa kula ğı sa ğ dan g ö stermek mi ?..
her nesne destroy edilirken zaten free and nil yap ı l ı yor ! form1 . destroy !
4. " The HaCKeRs " lakab ı na pek yak ış t ı ramad ı m do ğ rusu ..
Buras ı HACKER forumu veya sitesi de ğ il !
DELPHI KOD BANKASI !!!
Sana Ö dev Veriyorum Delphi Developher Arkada şı m ,
Ş u dediklerimi yap :
1 -) Create y ö ntemlerinden olan SELF , PARENT , NIL operantlar ı aras ı ndaki farklar ı
bana anlat
2 -) Ne t ü r formlar haf ı zay ı doldurur , ne t ü r formlar haf ı zay ı doldurmaz ,
bana bunlar ı anlat ,
Haf ı zay ı madem ç ok kafaya tak ı yorsun , DLL i ç ine g ö m ü lm üş olan kendi Formlar ı n ı
nas ı l ekrana ç a ğı rd ığı n ı bana anlat
3 -) Form1 := Tform1 . create ( Self ) ile olu ş turdu ğ un ( yaratt ığı n ) formun i ç ine g ü zelce
dizayn edilmi ş di ğ er nesneleri yerle ş tir ve onlar ı n EVENT olaylar ı n ı n kodlar ı n ı
y ö nlendir ! ( Bo ş formu a çı p showmodal g ö stermenin orjinalli ğ i nedir ?
( e ğ er form olu ş turmak istiyorsan ZATEN create ile olu ş turacaks ı n ,
destroy ile zaten yok etmen gerekiyor !)
4 -) ve son olarak ,
neden son derece IDEAL oluyor arkada şı m buna biraz daha a çı klama katarsan
sevinirim ! Yukar ı daki 3 maddeyi de beraberinde a çı klarsan , idealin NE oldu ğ unu
di ğ er t ü m arkada ş lar ı m da öğ renmi ş olurlar !
Delphi ile u ğ ra ş an ve bilgilerini payla ş an t ü m de ğ erli delphi dostlar ı ma
iyi ç al ış malar diliyorum ..
}