Mengapa menggunakan thread? Sederhananya, sehingga beberapa pemula seperti saya tidak mengerti, ketika Anda selesai memprogram suatu program, misalnya program yang membaca file, jika file yang Anda baca besar, program Anda akan melakukannya. tidak dieksekusi melalui thread, apa akibatnya jika anda memindahkan jendela program yang sedang membaca file tersebut? Yang "layar mati" artinya program anda tidak bisa di drag sama sekali dan tidak bisa melanjutkan melakukan hal lain Haha, jika menggunakan thread , Semua masalah telah terselesaikan, jadi berhentilah bicara yang tidak masuk akal dan bacalah artikel berikut jika ingin mempelajarinya.
Pertama-tama tentunya buka delphi 6 anda, klik File-New-Others di menu bar, akan muncul jendela label, pilih label baru, lalu cari Objek Thread, itu saja, klik dua kali, a akan muncul jendela penamaan kelas.Masukkan mitos, tentu saja namanya bisa ditentukan sendiri. Saat ini, program secara otomatis membuat unit. Ini unit2. Sekarang mari kita lihat kodenya sebagai berikut:
satuan Unit2;
antarmuka
kegunaan
Kelas;
jenis
mitosread = kelas(TTthread)
Pribadi
{Deklarasi pribadi}
terlindung
prosedur Jalankan;
akhir;
pelaksanaan
{ Penting: Metode dan properti objek di VCL atau CLX hanya dapat digunakan
dalam metode yang disebut menggunakan Sinkronisasi, misalnya,
Sinkronisasi(UpdateCaption);
dan UpdateCaption akan terlihat seperti,
prosedur mitosread.UpdateCaption;
mulai
Form1.Caption := 'Diperbarui di thread';
akhir; }
{mitos }
prosedur mitosread.Execute;
mulai
{ Tempatkan kode rangkaian pesan di sini }
akhir;
akhir.
Diantaranya, perhatikan prosedur find mythread.execute;. Anda seharusnya sudah menemukannya. Bahkan saya melihatnya. Ini adalah thread yang baru saja Anda buat. Lalu yang harus kita lakukan adalah menambahkan kode untuk eksekusi latar belakang ditambahkan di sana? Tidak, tentu saja akan ditambahkan
mulai
//Di sinilah kode program ditambahkan
akhir;
Jika Anda ingin memanggil kontrol pada unit1, Anda cukup menambahkan unit1 ke penggunaan pada unit2. Ingat, tambahkan penggunaan unit2 setelah implementasi di unit1, sehingga Anda dapat mereferensikan thread di unit1. Metode referensinya sangat sederhana. hanya saja, itu, itu, oke, saya tidak akan memikirkannya lagi, itu mitos.Create(false);. OK Ini thread di Delphi, haha.
Saya baru belajar Delphi. Jika ada yang saya katakan salah, silakan mengkritik dan menunjukkan.