RTL140.BPL Not Found!

Pernah mendapatkan error seperti di atas?

Error RTL140.BPL not found disebabkan oleh dua hal, yaitu ketika Anda menginstall sebuah component package yang spesifik untuk versi Delphi 2010 di versi Delphi yang lain.

Penyebab kedua, ketika Delphi mengompile aplikasi yang menyertakan secara manual library-library runtime. Ketika aplikasi ini dieksekusi dan ternyata salah satu library runtime (RTL) tidak diikutkan saat kompilasi sekaligus tidak ditemukan di komputer tempat eksekusi berlangsung, error pun terjadi.

Anda dapat mengatasi error oleh penyebab pertama dengan menginstall aplikasi pada versi yang sesuai.

Error yang kedua, dapat diatasi dengan menyertakan secara otomatis RTL yang dibutuhkan, sehingga Delphi akan mengikutkan RTL yang dibutuhkan saat kompilasi dan saat link. Secara default, Delphi telah diset untuk mengkompilasi pada kondisi ini. Efek samping dari automatic linking ini adalah file hasil kompilasi menjadi lebih besar. Tapi aplikasi menjadi lebih portabel tanpa repot dengan error di atas.

Automatic linking diaktifkan lewan menu Project>Project Options

Project1 - CodeGear RAD Studio for Microsoft Windows - Unit1_2011-04-25_12-42-16

Project1 - Options

Kemudian, di page Packages, hilangkan centang pada checkbox “Build with runtime packages”

Project Options for Project1

Project Options for Project1

Kini Anda dapat melakukan kompilasi tanpa repot dengan error RTL not found.

Sebagai catatan, perlakuan yang sama dapat juga diimplementasikan di versi Delphi yang lain.

3 thoughts on “RTL140.BPL Not Found!

  1. Mas, mau tanya nie. Misal ada 1 buah button dan 1 buah shape. Ketika button ditekan, shape yang semula berwarna hitam akan berubah menjadi merah selama 3 detik. Setelah itu shape tidak tampak selama 2 detik. Kemudian shape muncul kembali menjadi warna hijau selama 3 detik, dan setelah itu shape tidak tampak lagi selama 2 detik. Nah, untuk codingnya itu bagaimana ya mas kalau pake delphi 7..
    Mohon pencerahannya mas,terima kasih..

    • Silahkan dicoba saja ya. Semoga membantu🙂

      procedure TForm1.Button1Click(Sender: TObject);
      var
        currtime: Cardinal;
      begin
        currtime := GetTickCount;
        Shape1.Brush.Color := clRed;
        repeat
          Application.ProcessMessages;
          sleep(1);
        until (GetTickCount - currtime) >= 3000; //delay 3 detik.
      
        currtime := GetTickCount;
        Shape1.Hide;
        repeat
          Application.ProcessMessages;
          sleep(1);
        until (GetTickCount - currtime) >= 2000;
      
        currtime := GetTickCount;
        Shape1.Brush.Color := clGreen;
        Shape1.Show;
        repeat
          Application.ProcessMessages;
          sleep(1);
        until (GetTickCount - currtime) >= 3000;
      
        currtime := GetTickCount;
        Shape1.Hide;
        repeat
          Application.ProcessMessages;
          sleep(1);
        until (GetTickCount - currtime) >= 2000;
      
        //kembalikan ke posisi awal:
        Shape1.Brush.Color := clBlack;
        Shape1.Show;
      end;
      

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s