Mungkin Anda terkesan dengan fungsi canggih dan teknologi canggih perangkat lunak aplikasi Internet seperti browser IE Microsoft, mungkin Anda belum mampu mengembangkan sistem berskala besar yang begitu rumit, tapi jangan khawatir, ini bisa memberi Anda kesempatan untuk berlatih, adalah belajar menggunakan Winsocket Delphi untuk menulis aplikasi berbasis TCP/ip. Diasumsikan Anda sudah familiar dengan alat pengembangan Delphi.
Kita dapat membayangkan bahwa jika Anda menulis sebuah program untuk berkomunikasi dengan komputer jarak jauh sejak awal, Anda harus memiliki pemahaman yang komprehensif dan penguasaan protokol jaringan yang relevan, pengetahuan dasar tentang sistem, serta teknologi perangkat lunak dan perangkat keras jaringan Hal ini hanya dapat dicapai dalam waktu singkat.
Untungnya, pustaka komponen jaringan Delphi memberi kita komponen untuk mengimplementasikan komunikasi jaringan, yang merangkum detail implementasi yang kompleks. Komponen ClientSocket dan ServerSocket memungkinkan kita dengan mudah menulis program komunikasi jaringan dan berbagi sumber daya kita sendiri.
Langkah-langkah penulisan program Winsocket pada Delphi 4.0 adalah sebagai berikut:
1) Pengaturan properti komponen Winsocket;
2) Buat koneksi dengan komputer jarak jauh;
3) Transmisi data antar komputer;
Ketiga langkah tersebut dijelaskan secara rinci di bawah ini.
satu. Mengatur properti Winsocket
Di Delphi 4.0, Winsocket dibagi menjadi dua komponen: ClientSocket dan ServerSocket. Mereka masing-masing berfungsi sebagai komponen sisi klien dan sisi server. Artinya, komponen ClientSocket digunakan di program klien, dan komponen ServerSocket digunakan di sisi server. Melalui komunikasi antara kedua komponen ini, ditambah dengan kode aplikasi tambahan, program komunikasi sederhana dapat diimplementasikan. Tentu saja, jika ServerSocket dimasukkan ke dalam program klien, program klien dapat bertindak sebagai server dan menanggapi permintaan dari program klien lainnya.
Jika Anda menulis program sisi server, Anda harus mengatur properti Port dari komponen ServerSocket. Alasan mengapa parameter ini disetel adalah karena mungkin ada beberapa program server yang berjalan di komputer yang sama, dan program tersebut mungkin terus-menerus menerima permintaan koneksi dari program klien jarak jauh. Jika Anda mencoba mengirim email dan sistem menghubungkan permintaan Anda ke program server lain, email Anda pasti tidak akan terkirim dengan benar. Oleh karena itu, nomor port yang sesuai Port harus ditetapkan untuk komponen ServerSocket pada program server. Anda juga dapat mengatur atribut Service, yang menunjukkan jenis layanan yang disediakan oleh ServerSocket, seperti: FTP, HTTP, dll. Kemudian atur properti Aktif ke True.
Jika Anda menulis program klien, ada lebih banyak properti untuk mengatur komponen ClientServer. Atribut Port harus diatur agar konsisten dengan nilai atribut Port di sisi server. Selain itu, properti Host harus diatur dengan benar. Ini adalah properti read-only dan tidak tersedia pada waktu desain. Ini menunjukkan nama host dari server jarak jauh yang ingin dihubungkan oleh program klien. Anda juga dapat mengatur atribut Alamat, yang merupakan alamat IP dari host jarak jauh. Jika kedua atribut disetel, sistem akan menggunakan atribut Host, dan alamat IP yang disetel oleh atribut Address akan menjadi tidak valid.
dua. Buat koneksi ke komputer jarak jauh
Untuk mentransfer data antara sistem komputer jarak jauh, koneksi harus dibuat terlebih dahulu antara dua host yang berkomunikasi.
Komponen ServerSocket di sisi server memanggil metode Terbuka untuk menginisialisasi koneksi Socket. Pada saat yang sama, ia menetapkan atribut Aktif ke True, mengatur komponen ServerSocket ke mode mendengarkan, dan mendeteksi apakah ada permintaan koneksi kapan saja.
Jika server menerima permintaan koneksi dari program klien, event OnAccept dipicu. Kode berikut adalah apa yang perlu dilakukan program server setelah menerima koneksi.
Prosedur Myform..ServerSocketAccept(Pengirim: TObject, Socket: TCustomWinSocket);
mulai
IsServer := Benar;
akhir;
Dalam program klien, komponen ClientSocket menetapkan properti yang diperlukan seperti Port dan Host, lalu menetapkan properti Aktif ke True untuk membuat permintaan koneksi.
tiga. Transfer data antar komputer
Setelah server menerima permintaan koneksi dari klien, klien dapat mengirim data. Saat ini, terdapat Socket antara klien dan server, dan komunikasi dicapai melalui Socket ini. Oleh karena itu, atribut Socket sangat penting dan memiliki banyak metode. Dengan menggunakan beberapa metode sederhana, Anda dapat mengirim dan menerima data.
Sisi klien menggunakan formulir berikut: ClientSocket1.socket.sendtext('string yang ingin Anda kirim');
Di sisi server, dibutuhkan bentuk berikut: ServerSocket1.socket.recievetext(str: string); Fungsi ini mengembalikan panjang string yang diterima dan menyimpan string dalam variabel str.
Di atas adalah contoh transmisi data yang paling sederhana. Anda juga dapat menggunakan metode lain yang disediakan oleh properti Socket untuk mengimplementasikan transmisi data yang kompleks.
Meskipun sangat nyaman menggunakan komponen Winsocket di Delphi 4.0, jika Anda ingin benar-benar mahir menggunakannya untuk mengembangkan aplikasi jaringan, Anda harus membaca dengan cermat file bantuan dan program contohnya. Bandingkan kelebihan metode ini dalam pembelajaran berkelanjutan, kuasai fitur pemrogramannya, lalu kuasai keterampilan pemrograman komponen jaringan lain yang disediakan di Delphi, seperti: NMPOP3, NMUDP, NMFTP, dll. Pada saat itu, Anda akan memiliki kemampuan untuk berpartisipasi dalam pengembangan aplikasi jaringan nyata, daripada hanya menggunakan perangkat lunak aplikasi jaringan orang lain, mengaturnya, dan mengoperasikannya dengan terampil.