AI muốn lập trình DLL cho Excel và các loại bằng Delphi thì xem video này nhé!

[Nguyễn Duy Tuân]

Đây là video hướng dẫn cách tạo DLL trên Delphi nhưng sử dụng trong VBA, Excel. Đây là phương pháp lập trình chuyên nghiệp nhưng không phải là khó. Giúp bạn bảo mật code của phần mềm tốt hơn.

Loạt video hướng dẫn lập trình Delphi cơ bản của mình tại đây:
https://www.giaiphapexcel.com/diend...-trình-delphi-cơ-bản-từ-bluesofts-net.138736/

 

[thuyyeu99]

Hihihi Cuối cùng bắt trước 2 anh cũng xong hàm TypeName mới

 

[Kiều Mạnh]

giờ mới rảnh 1 tẹo Copy code bài 920 thử Build 1 cái thì nó báo lỗi dòng sau:
Với trình của Mạnh thời điểm hiện tại code đó chỉ biết Copy mà xài chứ còn đọc hiểu và chỉnh sửa là điều ko thể ...
may ra sau này thì có thể chăng !!

phát sinh cái IDispatch lại bắt đầu mò tài liệu coi nó là cái chi .... mò diết sau này hệ thống lại kiến thức may ra mới có cái nhìn bao trùm và hiểu cơ bản được

if v^.vt and varTypeMask = VT_DISPATCH then
  begin
    if v^.vt and varByRef <>0 then
      Disp := IDispatch(v^.dispVal^) //Lỗi dòng này
    else
      Disp := IDispatch(v^.dispVal);
    if Disp = nil then
      s := 'Nothing' //from "rờ e" by TQN
    else

Bài đã được tự động gộp: 26/8/19

Hihihi Cuối cùng bắt trước 2 anh cũng xong hàm TypeName mới

Code TCA Mạnh sửa lại dòng này hoài ko xong ... sửa lại dùm đi

if Failed(pDisp.QueryInterface(IID_IProvideClassInfo, pProvideClassInfo) then

Chậm hiểu quá he

 

[thuyyeu99]

Cái đó của anh tuân đó hả anh

 

[Kiều Mạnh]

Cái đó của anh tuân đó hả anh

thì đó .... sửa lại code TCA cho mạnh với ....??

 

[thuyyeu99]

thì đó .... sửa lại code TCA cho mạnh với ....??

  //v: OleVariant
  if PVariantArg(@v).vt and varTypeMask = VT_DISPATCH then
  begin
    if PVariantArg(@v).vt and varByRef <>0 then
      Disp := IDispatch(PVariantArg(@v).dispVal^)
    else
      Disp := IDispatch(PVariantArg(@v).dispVal);

Bài đã được tự động gộp: 26/8/19

Tóm lại là anh muốn Sửa code của ai

 

[Kiều Mạnh]

  //v: OleVariant
  if PVariantArg(@v).vt and varTypeMask = VT_DISPATCH then
  begin
    if PVariantArg(@v).vt and varByRef <>0 then
      Disp := IDispatch(PVariantArg(@v).dispVal^)
    else
      Disp := IDispatch(PVariantArg(@v).dispVal);

Bài đã được tự động gộp: 26/8/19

Tóm lại là anh muốn Sửa code của ai

Cả 2 đi

 

[ThangCuAnh]

Cả hai code đều có lỗi nghiêm trọng, tui chỉ nghĩ trong đầu mà code và chưa kiểm tra mã máy sinh ra. Khi phát hiện ra vấn đề thì dịch mã máy file dll của bác Tuân thì ngã ngữa. Tính để im mà thôi thấy vậy không được, do cũng từ mình mà ra. Lỗi này do cả 3, Delphi coder, Delphi compiler và sự khác nhau rất tinh tế của mã máy ASM của VC++ và Delphi.
Nhiều trường hợp, object được call TypeName sẽ không Release đúng, nên Reference Count vẫn dương. Khi Excel thoát thì nó thoát không được, phải chờ hoài forever.
Do mình code C/C++ với pointer quen rồi, chỉ 1 - 1 với mã máy, chứ có ngờ đâu ông Delphi ổng lanh chanh im lặng làm hậu trường quá nhiều vậy, AddRef, Release lung tung. Có cái ép kiểu thôi cũng sinh mã call AddRef thằng bị ép. Thoát khỏi hàm thì IntfClear 1 mớ nữa, chết là phải.

 

[Nguyễn Duy Tuân]

Cả hai code đều có lỗi nghiêm trọng, tui chỉ nghĩ trong đầu mà code và chưa kiểm tra mã máy sinh ra. Khi phát hiện ra vấn đề thì dịch mã máy file dll của bác Tuân thì ngã ngữa. Tính để im mà thôi thấy vậy không được, do cũng từ mình mà ra. Lỗi này do cả 3, Delphi coder, Delphi compiler và sự khác nhau rất tinh tế của mã máy ASM của VC++ và Delphi.
Nhiều trường hợp, object được call TypeName sẽ không Release đúng, nên Reference Count vẫn dương. Khi Excel thoát thì nó thoát không được, phải chờ hoài forever.
Do mình code C/C++ với pointer quen rồi, chỉ 1 - 1 với mã máy, chứ có ngờ đâu ông Delphi ổng lanh chanh im lặng làm hậu trường quá nhiều vậy, AddRef, Release lung tung. Có cái ép kiểu thôi cũng sinh mã call AddRef thằng bị ép. Thoát khỏi hàm thì IntfClear 1 mớ nữa, chết là phải.

Có một số dự án khác em làm thì kiểm tra Delphi tự Repease object, khi ép kiểu nó addRef nên có một số code tự viết lớp IMyDispatch.AddRef(+2), IMyDispatch.Release(-1) tính thằng Delphi nó "trừ hộ" 1 là hòa. Ví dụ MyTypeName vừa em em chỉ code theo đúng cách làm ngôn ngữ, và không xử lý lại việc này. Vì thế cái đoạn:
if ProviderClassInfor <> nil then
//ProviderClassInfor._Release; //crash Excel

Phải comment khóa đoạn đúng ra phải release. Thấy nó vô lý và cứ treo đó để tính sau đấy anh .

 

[ThangCuAnh]

Vì vậy mà anh test nó bị treo Excel khi thoát đó em, không biết trong trường hợp nào.
Còn tin vui là BSTR mà chúng ta SysAllocString dạng ANSI đánh lừa trả về, VBA nó free cho ta = SysFreeString, khỏi sợ leak memory
Hì hì lanh chanh MultiByteToWideChar thì ta cho mày MultiByte để convert cho thỏa luôn

 

[ThangCuAnh]

Lúc đầu anh tính cố tình đánh lừa nó bằng cách đẩy biến AnsiString về cho nó đó chứ, vì kiểu AnsiString cũng có 4 byte len đằng trước. Nhưng sau nếu nó SysFreeString thì không an toàn, thôi cứ cấp SysAllocString giả cho nó.

 

[Nguyễn Duy Tuân]

Vì vậy mà anh test nó bị treo Excel khi thoát đó em, không biết trong trường hợp nào.
Còn tin vui là BSTR mà chúng ta SysAllocString dạng ANSI đánh lừa trả về, VBA nó free cho ta = SysFreeString, khỏi sợ leak memory
Hì hì lanh chanh MultiByteToWideChar thì ta cho mày MultiByte để convert cho thỏa luôn

Viết hàm cho VBA thì như vậy là "vô tư" dùng không lo leak memory. Tuy nhiên những hàm dạng này nếu dùng lẫn trong Delphi thì Delphi Coder phải nhớ mà SysFreeString không thì leak. Delphi lại không tự free loại này !/?.

 

[ThangCuAnh]

Cho nên lúc trước vụ rtcTypeName trong Delphi, mình đã nói @thuyyeu99 là dùng sẽ bị leak memory mà, lúc đó ai hiểu đâu

 

[Kiều Mạnh]

Cuối cùng cũng mò ra là tại mình kem kém nên mới thế
Cảm ơn
@ThangCuAnh, @Nguyễn Duy Tuân và @thuyyeu99

 

[ThangCuAnh]

Đã nói là hàm có lỗi nghiêm trọng mà vẫn còn ráng dùng.

 

[Kiều Mạnh]

kiểu buông 1 câu lưng trừng trời vậy nhiều lúc thấy vừa bực mà vừa vui .... càng kiếm ta kiên trì mò thui

 

[Nguyễn Duy Tuân]

Cuối cùng cũng mò ra là tại mình kem kém nên mới thế
Cảm ơn
@ThangCuAnh, @Nguyễn Duy Tuân và @thuyyeu99


View attachment 223404

Thực ra code mình quăng lên copy vào là chạy. Chỉ cần thêm các unit: Winapi.ActiveX, ComObj là được mà.

 

[ThangCuAnh]

Lỗi này cậu fix không được đâu. Phải debug vào mã máy của Delphi đấy.

 

[Kiều Mạnh]

Thực ra code mình quăng lên copy vào là chạy. Chỉ cần thêm các unit: Winapi.ActiveX, ComObj là được mà.

Mạnh thêm dòng này ... cái xx của TCA nhức đầu quá
System.SysUtils,

 

[Nguyễn Duy Tuân]

Mạnh thêm dòng này ... cái xx của TCA nhức đầu quá
System.SysUtils,

SysUtils là gần như luôn có mặt trong các Project mà .

 

[Kiều Mạnh]

Cứ nghĩ nó có 2 dòng sau nên nó cứ build là nó lỗi link tinh hết
Winapi.ActiveX,
System.Variants;