THT DUYURU

Web & Server Güvenliği Doğru web ve veritabanı sunucusu güvenliği sağlanmadan, bilgisayar korsanları hassas verilerinize erişebilir. Web, Sunucu ve veritabanı güvenliğini nasıl sağlayacağınızı buradan öğrenebilirsiniz.

chat
Seçenekler

basit bir FTP-sunucu oluşturmak için nasıl "Mini kağıt"

BEYAGU - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2015
Mesajlar:
672
Konular:
82
Teşekkür (Etti):
217
Teşekkür (Aldı):
79
Ticaret:
(0) %
09-05-2016 21:25
#1
Exclamation
basit bir FTP-sunucu oluşturmak için nasıl "Mini kağıt"
FTP sunucusu

basit bir FTP-sunucu oluşturmak için nasıl "Mini kağıt"


(Yeni başlayanlar için)
BEYAGU tarafından



Bizim FTP üzerinde çalışacak -sunucu TFTP protokolü ( TrivialFTP ). Form bileşeni ilk yer TIdTrivialFTPServer (sekmeleri ile Indy Sunucular kendi içinde mağaza tüm temel işlevler) FTP -Sunucu. protokol tarafından kullanılan bağlantı noktası TFTP varsayılan - 69 . Mülkiyet BufferSize tampon değerini tanımlar. Çeviri FTP aktif durumda -sunucu formunun oluşturulması sırasında gerçekleştirilir:



Kodu:
procedure TForm1.FormCreate (Sender: TObject);
başlamak
IdTrivialFTPServer1.Active: = true;
sonunda;
bir istek ile sunucusuna erişirken göndermek veya mesaj oluşturulan bir dosyayı almak için OnReadFile veya OnWriteFile . Her iki sluchayuh içinde bir operatör tüm bu parametre işleyicisi atanan kayıt gerekecektir aStream (tip TStream ) dosya akışı karşılık gelen değer. Bu okumak için bir akım açar veya dosya bir bilgisayarda oluşturulan ve içerik ağı alınan:
Kodu:
Prosedür TForm1.IdTrivialFTPServer1ReadFile (Sender: TObject;
var FileName: String; const PeerInfo: TPeerInfo;
var GrantAccess: Boolean; var AStream: TStream;
var FreeStreamOnComplete: Boolean);
başlamak
AStream: = TFileStream.Create (FileName, fmOpenRead);
sonunda;

Prosedür TForm1.IdTrivialFTPServer1WriteFile (Sender: TObject;
var FileName: String; const PeerInfo: TPeerInfo;
var GrantAccess: Boolean; var AStream: TStream;
var FreeStreamOnComplete: Boolean);
başlamak
AStream: = TFileStream.Create (FileName, fmCreate);
sonunda;
Bir olarak FTP -clients hazır bir örnek almak / Demos / Indy / TrivialFTPClient . Bu bileşen kullanmak TIdTrivialFTP bir istemci, FTP . -program
Sunucusundan dosyayı indirin ve sunucuya göndermek düğmelerine basarak sonucudur btnDownload ve btnUpload . alımı ve dosya iletim tüm süreç iki yöntem aracılığı ile otomatik olarak gerçekleştirilir almak ve koyun bileşeni TIdTrivialFTP :
Kodu:
Prosedür (const ASourceFile: string; Adest: TStream) alın;
prosedür koyun (const ASource: TStream; const ADestFile: string; const AAppend: Boolean);
ASourceFile - Uzak bulunan dosyanın adı , FTP . -Sunucu Adest - Yerel dosyasının adı. AAppend - alır true . Varolan dosyanın sonuna bir kayıt varsa, birisi ve söyleyebilir böyle Nemer (akordeon) ağı ... o yazdı .ama) = kod anlatmaya çalıştı

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler