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/

 

[Kiều Mạnh]

Mạnh up Cái File excel mẫu của mạnh lên đây xóa bớt dữ liệu đi, để mình kiểm tra cột 2 là kiểu dữ liệu gì, 3,4 là Double rồi, 6 là date, còn cột 2 nhìn không biết nó là kiểu gì

Bạn xem dùm Mình

 

[thuyyeu99]

Bạn xem dùm Mình

Code mạnh không sai chỉ tại mạnh chưa chuyển dữ liệu quaa tring thôi

          showmessage('Số Cột' + VarianToString(ColFilter));
          For y := 1 To lcols do begin
              If VarianToString(sArr[x, ColFilter]) <>'' Then begin

              end;
          end;

 

[Kiều Mạnh]

Code mạnh không sai chỉ tại mạnh chưa chuyển dữ liệu quaa tring thôi

          showmessage('Số Cột' + VarianToString(ColFilter));
          For y := 1 To lcols do begin
              If VarianToString(sArr[x, ColFilter]) <>'' Then begin

              end;
          end;

View attachment 207224View attachment 207226

Sao mình mới copy vào thì nó báo đỏ dòng VarianToString
Hay phải Use cái gì nữa

 

[thuyyeu99]

Sao mình mới copy vào thì nó báo đỏ dòng VarianToString
Hay phải Use cái gì nữa

Cai này là hàm VarianToString made in tự thân vận động (manh đọc lại các bài trước đi dụng cụ có hết rồi chỉ việc linh động xử lý)

 

[Kiều Mạnh]

Cai này là hàm VarianToString made in tự thân vận động (manh đọc lại các bài trước đi dụng cụ có hết rồi chỉ việc linh động xử lý)

CHỈ DÙM MẠNH LUÔN ĐI ....

 

[Kiều Mạnh]

Các bạn chỉ dùm Mạnh cách xài Hàm Sau:

procedure TestBien(const Bien: Boolean)
Var
....
Begin
    if Bien then begin
            ShowMessage('ok');
    end;
End;

Vậy khi sử dụng như thế nào mà If Bien đó nó nổi lên OK
Hiện if Bien trên là sai ... Lỗi code ... vậy viết lại sao cho đúng ??!!
Xin Cảm ơn

 

[Kiều Mạnh]

Các bạn chỉ dùm Mạnh cách xài Hàm Sau:

procedure TestBien(const Bien: Boolean)
Var
....
Begin
    if Bien then begin
            ShowMessage('ok');
    end;
End;

Vậy khi sử dụng như thế nào mà If Bien đó nó nổi lên OK
Hiện if Bien trên là sai ... Lỗi code ... vậy viết lại sao cho đúng ??!!
Xin Cảm ơn

Làm phiền @Nguyễn Duy Tuân
chỉ cho Mạnh cách truyền tham số Boolean từ Excel vào Hàm với ... loay hoay chưa làm được

1/ Có nghĩa là mình truyền tham số từ Excel và là True thì cái Sub kia nó Chạy Msgbox OK

2/ Nếu Mình truyền Vào Là False thì nó IM RE vậy thôi

xin cảm ơn

 

[Nguyễn Duy Tuân]

Làm phiền @Nguyễn Duy Tuân
chỉ cho Mạnh cách truyền tham số Boolean từ Excel vào Hàm với ... loay hoay chưa làm được

1/ Có nghĩa là mình truyền tham số từ Excel và là True thì cái Sub kia nó Chạy Msgbox OK

2/ Nếu Mình truyền Vào Là False thì nó IM RE vậy thôi

xin cảm ơn

Trong Delphi, khi viết DLL với hàm API thì kiểu dữ liệu thay Boolean thành WordBool nhé.

 

[Kiều Mạnh]

Trong Delphi, khi viết DLL với hàm API thì kiểu dữ liệu thay Boolean thành WordBool nhé.

Có nghĩa khai báo trong DLL là bien WordBool
xong từ Excel truyền vào là TRue thì nó chạy còn Flase thì nó IM RE vậy

 

[Nguyễn Duy Tuân]

Có nghĩa khai báo trong DLL là bien WordBool
xong từ Excel truyền vào là TRue thì nó chạy còn Flase thì nó IM RE vậy

IF Bien THEN
BEGIN
// chỉ chạy khi Bien = True
END:

Bạn chưa có code chạy khi Bien=False thì sao mà nó chạy?

 

[Kiều Mạnh]

Cảm Ơn

IF Bien THEN
BEGIN
// chỉ chạy khi Bien = True
END:

Bạn chưa có code chạy khi Bien=False thì sao mà nó chạy?

OK ... xong Rồi Cảm ơn Bạn ... có vậy loay hoay hôm qua tới Nay có bạn chỉ mới xong

if Bien then ShowMessage('OK');

Mong Kẹt tới đâu các Bạn chỉ cho Mạnh vậy là Ok rồi còn lại code két nay viết khá hơn chút nữa

Bài đã được tự động gộp: 9/11/18

Các Bạn cho mình hỏi chút ... thấy Tây nó keo là xài hàm sau nó Ánh xạ tới System tốc độ sẻ nhanh hơn xài IntToStr ... một chút ...
không biết nó nói vậy đúng không

function ConvertIntToStr(Value: integer): string;
begin
  System.Str(Value, result);
end;

 

[thuyyeu99]

Hic sao em không kết nối SQl duoc nhỉ
hichichic biết lỗi rồi do cái Unikey

 

[Hai Lúa Miền Tây]

Hic sao em không kết nối SQl duoc nhỉ
hichichic biết lỗi rồi do cái Unikey

Phải cấu hình vài thứ nữa mới có thể chạy được bạn nhé.

 

[thuyyeu99]

Phải cấu hình vài thứ nữa mới có thể chạy được bạn nhé.

Dạ em cấu hình xong hết rồi đó cái Unikey để gõ dấu VNI nên nó sai pass đăng nhập

 

[Hai Lúa Miền Tây]

Dạ em cấu hình xong hết rồi đó cái Unikey để gõ dấu VNI nên nó sai pass đăng nhập

Vậy là bạn đã kết nối được rồi đúng không bạn?

 

[thuyyeu99]

Vậy là bạn đã kết nối được rồi đúng không bạn?

dạ em kết nối được rồi cám ơn anh
giờ sao copy các table của Acees vao SQL anh

 

[Hai Lúa Miền Tây]

dạ em kết nối được rồi cám ơn anh
giờ sao copy các table của Acees vao SQL anh

Bạn xem clip nhé

https://www.facebook.com/video.php?v=10215433069453851

 

[Kiều Mạnh]

Hic sao em không kết nối SQl duoc nhỉ
hichichic biết lỗi rồi do cái Unikey

Trong 1 số trường hợp Unikey nó ko hiểu Unicode thì làm theo khoanh màu đỏ nhé là OK

 

[thuyyeu99]

Hihi xong hết rồi đổi code qua SQL sever luôn rồi hihihi

 

[Kiều Mạnh]

Hihi xong hết rồi đổi code qua SQL sever luôn rồi hihihi

máy cấu hình sao cài được vậy.... xem sao mạnh cũng chơi khi rảnh quậy luôn