Tạo mật khẩu cài đặt Add-in

[ThangCuAnh]

Tui cũng thua luôn Hỏi bác Tuân ấy, tui đã nói là giờ nhìn Delphi tui ngán hơn cơm nếp mà. Chỉ nhớ gì nói phét đó thôi, chứ cái máy ở VP cty này, Ét xeo chạy còn chưa nổi lấy gì cài RAD Studio cả Gi mấy mà chỉ bác.

 

[Nguyễn Duy Tuân]

Nguyên lý chính để giảm dung lượng là chỉ khai báo các unit mà cần dùng thôi. Đôi khi chỉ vì dùng có vài hàm mà phải bê cả thư viện code trong unit (chứa đựng rất nhiều thứ) thì cân nhắc tự khai báo riêng để dll build ra nó nhẹ.

 

[vanmanhvcu]

Tôi có cách này hơi củ chuối một chút nhưng hy vọng sẽ giúp ích cho bạn. Khi cài nó đòi key thì nhập GPE-ADMIN-GIAIPHAP

@giaiphap
xem giúp tôi xem sai ở đâu ??
khi mở Excel lên máy tôi báo thế này 6 lần

Customs UI của tôi thế này

<?xml version="1.0" encoding="UTF-8"?> 
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="OnRibbonLoad">
    <ribbon startFromScratch="false">
        <tabs>
            <tab idMso="TabHome">
                
                <group id="customsGroup" label="T&#7891;n kho" insertBeforeMso="GroupStyles" getVisible="GetVisible">
                    <button id="customButton" label="Check t&#7891;n theo &#273;&#417;n"
size="large" onAction="PHANBO" imageMso="UpgradeWorkbook" screentip="Click &#273;&#7875; ch&#7841;y t&#7891;n kho" tag = "Tag1" />
                </group>
                <group id="customsGroup1" label="T&#225;ch Size" insertBeforeMso="GroupStyles" getVisible="GetVisible">
                    <button id="customButton1" label="T&#225;ch Size phi&#7871;u xu&#7845;t"
size="large" onAction="CLEAN" imageMso="PivotExportToExcel" screentip="Click tach size" tag = "Tag2"/>
                </group>
                <group id="DaoCat" label="Gh&#233;p Dao" insertBeforeMso="GroupStyles" getVisible="GetVisible">
                    <button id="customButton2" label="Pha Bang"
size="large" onAction="DisplayDaoCat" imageMso="DesignMode" screentip="Click de tinh" tag = "Tag3"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

 

[vanmanhvcu]

@giaiphap
xem giúp tôi xem sai ở đâu ??
khi mở Excel lên máy tôi báo thế này 6 lần
View attachment 220347
Customs UI của tôi thế này

<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="OnRibbonLoad">
    <ribbon startFromScratch="false">
        <tabs>
            <tab idMso="TabHome">
               
                <group id="customsGroup" label="T&#7891;n kho" insertBeforeMso="GroupStyles" getVisible="GetVisible">
                    <button id="customButton" label="Check t&#7891;n theo &#273;&#417;n"
size="large" onAction="PHANBO" imageMso="UpgradeWorkbook" screentip="Click &#273;&#7875; ch&#7841;y t&#7891;n kho" tag = "Tag1" />
                </group>
                <group id="customsGroup1" label="T&#225;ch Size" insertBeforeMso="GroupStyles" getVisible="GetVisible">
                    <button id="customButton1" label="T&#225;ch Size phi&#7871;u xu&#7845;t"
size="large" onAction="CLEAN" imageMso="PivotExportToExcel" screentip="Click tach size" tag = "Tag2"/>
                </group>
                <group id="DaoCat" label="Gh&#233;p Dao" insertBeforeMso="GroupStyles" getVisible="GetVisible">
                    <button id="customButton2" label="Pha Bang"
size="large" onAction="DisplayDaoCat" imageMso="DesignMode" screentip="Click de tinh" tag = "Tag3"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

Có ai biết xem giúp mình nhé. !

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

Mình tự mò ra được lỗi rồi
đã chạy được !

 

[batman1]

Những unit không dùng thì bỏ khỏi uses là đúng rồi. Nhưng cũng cần cân nhắc cách viết code. Tôi lấy vd. có thể không sát lắm nhưng chỉ để diễn giải ý mà thôi. Vd. ta có uses Windows, Messages, ...
Kiểm tra thì thấy cả 2 unit được dùng. Nhưng dò kỹ lại thì thấy Windows được dùng từ đầu đến cuối nhưng Messages chỉ được dùng vài chỗ, vài chục chỗ nhưng thực ra chỉ dùng 1 procedure duy nhất là ShowMessage. Thế thì bỏ Messages đi và thay ShowMessage bằng hàm API.

Vân vân và mây mây.

 

[Kiều Mạnh]

Những unit không dùng thì bỏ khỏi uses là đúng rồi. Nhưng cũng cần cân nhắc cách viết code. Tôi lấy vd. có thể không sát lắm nhưng chỉ để diễn giải ý mà thôi. Vd. ta có uses Windows, Messages, ...
Kiểm tra thì thấy cả 2 unit được dùng. Nhưng dò kỹ lại thì thấy Windows được dùng từ đầu đến cuối nhưng Messages chỉ được dùng vài chỗ, vài chục chỗ nhưng thực ra chỉ dùng 1 procedure duy nhất là ShowMessage. Thế thì bỏ Messages đi và thay ShowMessage bằng hàm API.

Vân vân và mây mây.

1/ Anh ... có cách nào Mình khai báo Uses Public mà xài chung cho nhiều Unit ko ???
2/ Em đang suy nghĩ bài 31 hoài dòng sau

build release mode, tắt option debug symbols

Khi em tắt đi nó giảm file tới 5MB đó ....???

Anh biết giải thích dùm

 

[batman1]

1/ Anh ... có cách nào Mình khai báo Uses Public mà xài chung cho nhiều Unit ko ???

Tôi không biết bạn khai báo gì cụ thể nhưng có 2 chỗ uses là ở phần interface và phần implementation. Bạn nên tự đọc và tìm hiểu. Khi khai báo có thể gặp "Circular unit reference". Lại tìm và đọc để hiểu.

Vd. bạn có một loạt Const, procedure, function sẽ được dùng trong các unit khác thì khai báo chúng ở phần interface, code (implementation) của procedure, function ở phần implementation của unit vd. myConst. Sau đó trong các unit khác thêm myConst vào uses thôi.

2/ Em đang suy nghĩ bài 31 hoài dòng sau

build release mode, tắt option debug symbols

Khi em tắt đi nó giảm file tới 5MB đó ....???

Anh biết giải thích dùm

Bạn đã được ThangCuAnh cung cấp vài thông tin thì đọc đi rồi tìm đọc và tìm hiểu thêm.

 

[ThangCuAnh]

Khổ ghê, chưa học bò đã đòi học chạy. Cứ nôn nóng, đốt cháy giai đoạn.
Bác Mạnh chịu khó đọc 2 cái link này sẽ hiểu thế nào là Debug build/Release build. Còn TDS debug symbol thì cứ biết là có nó đi, còn nó có cấu trúc ra sao, làm gì... thì từ từ tìm hiểu sau:

Delphi Tutorials

Follow along with these examples before building your own applications with Delphi. Find tutorials for beginners and professionals that take you step-by-step through a variety of projects and provide sample code.

www.thoughtco.com

Build Configurations Overview - RAD Studio

docwiki.embarcadero.com

 

[ThangCuAnh]

Hì hì, xuống được bao nhiêu MB rồi bạn Mạnh ?
Tui cũng lạ là làm sao file binary của bạn phình to khủng khiếp vậy, mười mấy MB. Size cỡ đó phải cỡ 1 project rất lớn, hơn chục coder tham gia.
Bác xem có bật nhúng remote debug symbols trong Project Options không đấy ?

 

[Kiều Mạnh]

Hì hì, xuống được bao nhiêu MB rồi bạn Mạnh ?
Tui cũng lạ là làm sao file binary của bạn phình to khủng khiếp vậy, mười mấy MB. Size cỡ đó phải cỡ 1 project rất lớn, hơn chục coder tham gia.
Bác xem có bật nhúng remote debug symbols trong Project Options không đấy ?

1/ bỏ bớt Uses đi nữa giản rất nhiều

2/ bỏ theo hình sau giản 1 cái 5M đó


Theo Mạnh suy đoán bỏ cái đó là rất khó coi các tên Hàm đó ... mà chỉ mò code xong debug he

Vì Mạnh có nhớ bạn có nói tới mấy bài trên GPE ... nếu tìm thấy symbols là có cơ hội ....

Cảm ơn Bạn rất nhiều nếu Mạnh ko úp file DLL lên nói qua nói lại nghe sốc chút thì làm sao Mạnh biết thêm mấy cái chiêu này nữa ... hỏi thì cũng ko biết hỏi cái chi ... có xung đột thì nó mới phát sinh và lòi ra nhiều cái hay của nó


Bạn kinh nghiệm Delphi đầy mình ra .... có chiêu nào hay chỉ thêm cho Mạnh học với ... ngộ nhỡ sau này nó thất truyền đi thì thấy tiếc đó he

 

[ThangCuAnh]

Khổ ghê, nhìn cái hình bạn vẫn đang ở mode compile Debug kìa.

 

[Kiều Mạnh]

Khổ ghê, nhìn cái hình bạn vẫn đang ở mode compile Debug kìa.

vậy là sai chỗ nào chỉ dùm đi

 

[ThangCuAnh]

Mấy cái link tui đưa lên, bạn có đọc chưa ? Chỉ đơn giản là switch từ Debug mode sang Release mode mà bạn mò chưa ra à ?

 

[Nguyễn Duy Tuân]

vậy là sai chỗ nào chỉ dùm đi

Bạn làm thế này

​

 

[Kiều Mạnh]

Mấy cái link tui đưa lên, bạn có đọc chưa ? Chỉ đơn giản là switch từ Debug mode sang Release mode mà bạn mò chưa ra à ?

phải trăng là nó

 

[ThangCuAnh]

Đúng rồi đó bạn Mạnh. Xem thử các options của Release khác Debug như thế nào, và tại sao khác luôn
Build Release mode xem file dll xuống còn bao nhiêu ?

 

[Kiều Mạnh]

Đúng rồi đó bạn Mạnh. Xem thử các options của Release khác Debug như thế nào, và tại sao khác luôn
Build Release mode xem file dll xuống còn bao nhiêu ?

cảm ơn rất nhiều mới thử xong Từ 20M xuống còn 4M file rất nhẹ
Còn chữ to và đậm kia là thua luôn .... sau nay may ra biết ???!!!

 

[ThangCuAnh]

Vẫn còn bự quá, sao lạ vậy ta, chỉ có vài unit với vài hàm thôi mà. So size với các Addin A-Tools của bác Tuân thử bác Mạnh ?
Mình nghĩ nhiêu đó thì chỉ dưới 1 MB thôi.
Bạn chụp cho mình hình Project Options - Release mode, 2 hình Compiling và Linking luôn, mình xem thử có remote debug symbol hay gì khác nữa không ?