Sử dụng dll COM Delphi cho VB6 mà không cần đăng ký sử dụng với Windows

[Kiều Mạnh]

1/ Files Demo sau tôi viết theo người cầu của một người xx
2/ đã gửi mail cho xx xong ... tôi úp lên đây nếu ai có nhu cầu thì sử dụng
3/ DLL được viết bằng Delphi ( COM ActiveX dll )
.....
4/ Tôi xem rất nhiều tài liệu thì ra 20 năm trước tây nó đã biết sử dụng COM mà ko cần đăng ký sử dụng với Windows rồi
hình như đâu đó có bài viết nó còn có trước cả Ms khi phát triển tệp kê khai sau này *.res

5/ vậy tôi úp lên đây cho ai dùng được thì dùng và cho ai đó thấy được rằng ngày xưa rất xưa họ đã biết sử dụng COM mà ko cần đăng ký rồi

6/ có lẻ cách này là cách đầu tiên xuất hiện trên GPE và là cách chạy sau các lập trình viên quốc tế đã viết sau 20 Năm vẫn chạy tốt

7/ trong file có sử dụng code của tây ....

8/ 1 EXE và 1 DLL luôn copy cùng trong 1 folder mới sử dụng được ( sử dụng tốt cho Folder Unicode VD: D:\Kiều Mạnh )
Demo là 1 SQL builde cho Excel + Access + SQLite là 1 EXE chạy cùng với 1 DLL COM Delphi ( MyLibrary32.dll )

9/ Lưu ý tải file giải nén Pass là : 123

10/ Copy vào USB mang đi và sử dụng = đơn giản thế thôi
Hình minh họa



xin mời thưởng thức

SQLBuilderDatabase.rar

drive.google.com

10/ Tôi cung cấp cho ai đó muốn sử dụng hoặc tò mò list Hàm COM Delphi 1 chút
Sẻ có ai đó hỏi sao thấy hàm a hàm b mà ko sử dụng được như mô tả ở abcdxyz ... câu trả lời là trong đó như 1 công trường Rác chưa hoàn thiện nên chưa sử dụng được thế thôi

Hình Minh họa

 

[befaint]

Lại có cái mới hả anh.

 

[Kiều Mạnh]

Lại có cái mới hả anh.

Cái cũ có hết hàm trong DLL lâu rồi ... chỉ mới là sử dụng COM mà ko cần đăng ký ... và viết theo yêu cầu là 1 File chạy duy nhất thôi
Lần đâu tiên viết theo yêu cầu đấy và cũng là lần đâu tiên làm chuyện ấy $

 

[befaint]

Cái cũ có hết hàm trong DLL lâu rồi ... chỉ mới là sử dụng COM mà ko cần đăng ký ... và viết theo yêu cầu là 1 File chạy duy nhất thôi
Lần đâu tiên viết theo yêu cầu đấy và cũng là lần đâu tiên làm chuyện ấy $

Tuyệt đó anh. Hehe. .

 

[Kiều Mạnh]

sẻ có ai đó sẻ hỏi tại sao tôi sử dụng cái DLL đó cho VB6 không cần đăng ký mà sao nó không có được
Câu trả lời là thong thả mò đi sẻ thấy và nó sang một chủ đề khác .... vui lòng lập thớt mới mà bàn he

 

[Kiều Mạnh]

Tôi mới bổ sung thêm 1 file nữa SQL Builder cho Ms Server ... kiểu cũng thế
Copy vào USB mang đi và sử dụng

Hình Ảnh Như Sau


Nay vào tết Rảnh tôi sẻ làm như vậy các kiểu Úp phát hành ra công chúng sử dụng cho vui

chắc lần sau sẻ cái SQLTCP/IP = lấy dữ liệu qua Internet quá

Link File 2 trong 1

SQLBuilderDatabase.rar

drive.google.com

 

[Kiều Mạnh]

Mới làm xong Úp cho ai đó có nhu cầu sử dụng cho đủ bộ SQL

1/ nếu bạn nào chưa hình dung ra hay chưa biết sử dụng thì qua link sau bài số 1 tải Files Server đó về mà sử dụng

Lấy Dữ liệu Qua Internet - Phương Thức SQL TCP/IP

1/ đây là bản Demo lấy dữ liệu qua Internet ... Úp lên đây cho bạn nào dùng được thì dùng 2/ đọc file hướng dẫn kèm theo khi tải Files 3/ Nếu máy bạn nào cài Office 64 bít thì bắt buộc cài Microsoft Access Database Engine 2010 Redistributable của Ms link sau thì mới sử dụng được...

www.giaiphapexcel.com

2/ Khi bạn thực hiện các thủ tục cần thiết theo chỉ dẫn link mục số 1 xong ... thì tải File sau về Copy vào USB hay bất cứ chỗ nào trên PC có thể lưu được nó ... Trong Folder có 2 File luôn đi cùng nhau trong 1 Folder nếu thiếu 1 trong 2 file là ko sử dụng được

3/ Với mục tiêu viết dễ sử dụng và thân thiện nhất cho người dùng từ phổ thông ko biết SQL cho đến ai đó thành thạo SQL

Hình ảnh như sau là SQLTCPIP = lấy dữ liệu qua Internet

SQL_TCPIP.rar

drive.google.com

 

[Kiều Mạnh]

Nếu rảnh Tôi viết tiếp cái Server mục số 1 bài số 7 kiểu ko cần đăng ký + cài đặt mà chỉ cần copy vào đâu đó xong chạy thôi .... cho nó gọn nhẹ và phổ biến tới mọi người có thể sử dụng nó mọi lúc mọi nơi quá

xét thấy nhiều người keo khó khăn cài đặt + UAC liên quan tới quyền Admin .... nên tôi sẻ làm cho nó thân thiện và dễ sử dụng nhất mà ko đụng vào Admin + UAC của Windows

 

[Kiều Mạnh]

Khai code đầu xuân Nhâm Dần 2022

Mấy năm nay tôi viết chơi + nhỏ lẻ rời rạc code các kiểu ... nay hệ thống lại cho nó vào 1 quy trình nhất định mà tôi sẻ hướng tới mục tiêu phổ biến nó ...

Hình ảnh sau là chọn bộ SQL viết nó thành 1 Add-Ins rất đơn giản và thân thiện với người sử dụng nó ... từ ko biết 1 chút SQL thì chỉ tích chọn ... cho đến người thành thạo SQL thì thao tác chỉnh sửa nó tùy theo chủ ý của ai đó

Một Add-Ins duy nhất bao gồm:

1/ SQLTCP/IP Lấy dữ liệu qua Internet Phương thức SQL TCP/IP ( kèm theo là 1 ServerNetwork.exe )

2/ SQL Builder Database lấy dữ liệu Excel + Access + SQLite ++++++ thêm nữa nếu thích ....

3/ SQL Builder For Ms Server lấy dữ liệu Ms Server
.....
xem xét thêm vào vài CSDL khác nếu xét thấy phổ biến và cần thiết

 

[Kiều Mạnh]

Như mô tả bài số 9 phía trên ... Hôm nay buổi sáng tôi rảnh code két 1 chút úp lên đây cho ai đó cần sử dụng nó

1/ File đã đính kèm luôn luôn update bài số 1 ... cứ thế tải về sử dụng ... Password winRaR là : 123
2/ nếu lần đầu sử dụng cái ServerNetwork.exe .... nếu có lỗi chưa load được thì khởi động lại PC là sử dụng ok
3/ tất cả các ứng dụng là EXE đi kèm nó là 1 DLL nếu thiếu là ko sử dụng được

4/ Nếu PC của Bạn nào sử dụng Office 64 bit mà muốn sử dụng SQLTCP/IP thì buộc phải cài File AccessDatabaseEngine2010_X32.exe thì mới sử dụng được
( Áp dụng cho Bạn nào sử dụng File ServerNetwork.exe ) ... nếu Office 32 bít thì bỏ qua mục cài đặt này

Download Microsoft Access Database Engine 2010 Redistributable from Official Microsoft Download Center

This download will install a set of components that can be used to facilitate transfer of data between 2010 Microsoft Office System files and non-Microsoft Office applications.

www.microsoft.com

5/ tất cả các File chỉ Copy vào đâu đó trên USB hoặc PC là có thể sử dụng được nó ... ko cần đăng ký + quyền Adim + UAC vvv

Chi tiết chỉ dẫn copy vào USB hay đâu đó trên PC và sử dụng nó nếu cần

Yêu cầu hệ thống sử dụng nó

1/ Máy tính cài từ WindowsXP To Windows11
2/ Máy tính cài Office 2003 to 365 mọi phiên bản ( x32 và x64 )

Chi tiết các File luôn luôn copy đi kèm với nhau trong 1 Folder nếu ai đó thích tách riêng lẻ ra ... nếu thiếu là ko sử dụng được

1/ File ServerNetwork.exe + File MyLibrary32.dll

2/ File SQLTCPIP.exe + File VB6Library.dll

3/ File SQLBuilderDatabase.exe + File MyLibrary32.dll

4/ File SQLBuilderServer.exe + File MyLibrary32.dll

Nếu bạn nào muốn sử dụng Add-Ins thì code của nó đơn giản như sau
khi Bạn copy hay tải các file đó về lần đầu chạy File EXE thì nó sẻ lưu cái đường dẫn đó vào Registry
xong từ Excel lấy + check cái dường dẫn đó nếu tồn tại thì mở nó lên vì vậy việc chạy File EXE lần đầu tiên là bắt buộc

Nếu thay đổi đường dẫn thì thao tác lại từ đầu
Code áp dụng cho Add-Ins như sau

Rem #####################################################################################################
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
          (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
          ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Rem #####################################################################################################
Rem ========== Kiem tra su ton Tai Cua File neu = True
Public Function CheckPath(ByVal FileName_Path As String) As Boolean
    With CreateObject("Scripting.FileSystemObject")
        If .FileExists(FileName_Path) Then CheckPath = True
    End With
End Function
Rem #####################################################################################################
Public Sub ShellExOpen(ByVal Path As String, Optional ByVal Parameters As String, Optional ByVal HideWindow As Boolean)
    If CheckPath(Path) Then ShellExecute 0, "open", Path, Parameters, "", IIf(HideWindow, 0, 1)
End Sub
Rem #####################################################################################################
Rem ==========
Sub ServerNetwork()
    Dim ServerNetworkPath As String
    ServerNetworkPath = GetSetting("ServerPath", "Server", "Path")
    Debug.Print ServerNetworkPath
    Call ShellExOpen(ServerNetworkPath)
End Sub
Rem ==========
Sub SQLTCPIP()
    Dim SQLTCPIPPath As String
    SQLTCPIPPath = GetSetting("SQLTCPIPPath", "SQLTCPIP", "Path")
    Debug.Print SQLTCPIPPath
    Call ShellExOpen(SQLTCPIPPath)
End Sub
Rem ==========
Sub SQLBuilderPath()
    Dim SQLBuilder As String
    SQLBuilder = GetSetting("SQLBuilderPath", "SQLBuilder", "Path")
    Debug.Print SQLBuilder
    Call ShellExOpen(SQLBuilder)
End Sub
Rem ==========
Sub SQLMsServer()
    Dim SQLMsServer As String
    SQLMsServer = GetSetting("SQLMsServerPath", "SQLMsServer", "Path")
    Debug.Print SQLMsServer
    Call ShellExOpen(SQLMsServer)
End Sub
Rem #####################################################################################################

Chi tiết File đính kèm bài số 1 có hết trong đó ... khi tải về là SQLTCPIPBuilder.xlsb xong mở lên Save As thành *.xla Or *.xlam tùy thích

Giao diện nó như sau




Hình ảnh truy xuất dữ liệu qua Internet như sau ... mọi cái chỉ việc tích chọn rất đơn giản ... nếu ai biết SQL thì tùy chỉnh nó
Truy xuất dữ liệu Excel + Access ... tất cả các Files trong Folder mà Server chia Sẻ




Hình ảnh cho SQL Builder For Excel - Access -- SQLite nhu sau



Hình Ảnh cho SQL Builder Ms Server như sau