Cara sederhana mengekspor dan mengimpor fungsi DLL C plus plus ( Dynamic Library (.dll) C++ exspor ke aplikasi VB )

Cara sederhana mengekspor dan mengimpor fungsi  DLL C plus plus ( Dynamic Library (.dll) C++ exspor  ke aplikasi VB ).Selamat malam/siang/pagi sahabat iT, pada postingan kali ini saya(bukan anda) selaku tukang posting akan mempostingkan tentang cara mengeksport fungsi dll menggunakan tool Borland C++. pasti anda memikirkan apa yang saya pikirkan juga,,, apakah ituu(halah sok gaktau wkwkwk). ya benar sekali kenapa saya menggunakan tool pemrogramman yang tergolong tua/jaman batu...wkwkwk piss pak!,,ini dikarenakan sebagian tujuan mengarah ke tugas kuliah sob. okelah daripada bercerita panjang lebar maka langsung aja ya gan..

Dynamic link library atau  DLL adalah sebuah konsep shared library yang diimplementasikan di Microsoft windows dan os/2, fungsi dari DLL adalah untukmembagikan fungsi tertentu ke aplikasi lain tanpa harus memperlihatkan source codenya
DLL export dengan menggunakan Borland C++
- Buat sebuah project baru
- Bagian target type pilih Dynamic Library(.dll)
- Bagian platform pilih win32
- Target name isi export
- Isi source code dibawah ini

export.cpp
#include <windows.h>
#define CFUNC extern "C"
#define ekspor __export
CFUNC long ekspor __stdcall ojixzzz();

BOOL WINAPI DllEntryPoint( HINSTANCE hinstDll, DWORD fdwReason, LPVOID plvReserved)
{
    switch (fdwReason)
    {
        case DLL_PROCESS_ATTACH:
MessageBox(0, "Dll was loaded.........", "http://blog.brursoft.com", 4160);
            break;

        case DLL_THREAD_ATTACH:
            break;

        case DLL_THREAD_DETACH:
            break;

        case DLL_PROCESS_DETACH:
MessageBox(0, "Dll was unloaded.....", "http://blog.brursoft.com", 4160);
            break;
    }

    return TRUE;
}

long ekspor __stdcall ojixzzz()
{
MessageBox(0, "Hagagagagaga, this function called from DLL export", "http://blog.brursoft.com", 4160);
return 1;
}

export.def
EXPORTS
gagaga = ojixzzz

DLL Import dengan visual basic
- buat sebuah project exe
- tambahkan 3 command button
- tombol 1 berilah nama call messagebox
- tombol 2 berilah nama load dll
- tombol 3 berilah nama unload dll
- bagian code isikan source code dibawah ini
Option Explicit
'http://blog.brursoft.com
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function gagaga Lib "export.dll" () As Long

Private Sub Command1_Click()
    gagaga
End Sub

Private Sub Command2_Click()
    LoadLibrary "export.dll"
End Sub

Private Sub Command3_Click()
    FreeLibrary GetModuleHandle("export.dll")
End Sub

Screen shoot

download tutorial + source code via ugm file upload

download tutorial + source code via google drive