Free Web Site - Free Web Space and Site Hosting - Web Hosting - Internet Store and Ecommerce Solution Provider - High Speed Internet
Search the Web

İnternet Uygulamaları

FTP BROWSER YAPMAK

Ftp internetle içli dışlı olanların sıkça duyduğu bir kelimedir. Ftp (File Transfer Protocol) dosyaları bir bilgisayardan server'a yada serverdan bilgisayara kopyalamak için kullanılan bir komuttur. Bu işi yapmak içinde bazı programlar yazılmıştır cuteftp, ws_ftp gibi. Biz şimdi bunu delphide yazmayı deniyeceğiz. Umarım başarılıda oluruz.

Bunu yapmak için ilk önce internet internet bölümünden ftp componentini forma yerleştirin. Daha sonra dört tane edit, bir tane listbox ve bir tanede button koyun. Burdaki birinci edit kutusu adresi yazıcağımız yer , ikinci edit kutusu kullanıcı adı, üçüncü edit kutusu şifre ve dördüncüsüde port olarak kullanılıcak. Listbox componenti ise dosyayı listeliyeceğimiz yer.

Ftp componentinin üstüne iki kere clickleyin ve değerleri şöyle yapın.

General

ikisinide check edin. (işaretleyin)

Client

RemoteHost 127.0.0.1
RemotePort 21 (ftp için kullanılan port)
NotificationMode 0

Authenticate

UserID anonymous (herkese açık - anonim- )
Password mail adresinizi yazın

Bunları yaptıktan sonra button1'in onclick olayına

ftp1.remotehost:=edit1.text; //bağlanılacak adres
ftp1.userid:=edit2.text; //kullanıcı adı
ftp1.password:=edit3.text; //şifre
ftp1.port:=strtoint(edit4.text); //transfer yapılcak port

Sıra geldi ftp componentinin olaylarına

ilk olarak ftp nin protocolstatechanged olayına aşağıdaki kodu yazın

Begin
case protocolstate of
ftpauthentication: ftp1.authenticate(ftp1.userid,ftp1.password);
ftptransaction: ftp1.list('/');
end;
end;

Daha sonra dosyaları listelemesi için aşağıdaki kodu girin

if item.attributes in [0,2] then //eğer böyle ise dosya demektir
listbox1.items.add('--> '+item.filename)
else //değilse klasördür
listbox1.items.add('> '+item.filename);
end;

Şimdide klasör açmayı yazıcağız.

listbox'ın dblclick olayına aşağıdaki kodu girin

var

alan:string;

begin

alan:=listbox1.items[listbox1.itemindex];

if alan[1]='>' then begin
ftp1.changedir(copy(alan,3,length(alan)-2));
//bunu yazmakla bulunan klasörün içine girmiş oluruz
end;
end;

Evet bunları yaptığınız zaman tam bir ftp programı olmasada ona yakın bir şey yazmış olursunuz. Zaten burdaki amaç oturup cuteftp gibi bir program yazmak değil sadece girişi yapmak. Ama yinede ftp ile ilgili bazı komutların kullanılışını aşağıda gösterdim.

getfile(dosyaadı,kopyalanmasını istediğiniz yer ); //siteden--> sizin bilgisayara
putfile(sizin bilgisayarınızdaki yer, dosya); //sizin bilgisayardan --> siteye
Createdir('klasör'); //klasör yarat
Deletedir('klasör'); //klasör sil
deletefile('dosya'); //dosya sil

Dosyamı yoksa klasörm olduğunu anlamamıza yarayan attributes değerleri

WEB BROWSER YAPMAK

Web browser'ları açıklamaya gerek görmüyorum zaten bu sayfayı okuyorsanız kullanıyorsunuz demektir. Delphide web browser yapmak çok kolaydır. Bunun için önce formunuza internet bölümünden html componentini daha sonra bir tane edit ve bir tane de button yerleştirin.

Buttonnun onclick olayına aşağıdaki kodu girin

html1.RequestDoc(edit1.text);

eğer bu şekilde bırakırsanız web browserınızda sayfaları görürsünüz.