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]

Anh Tuân cho Em hỏi tí !

Vậy phải xem code bạn viết trong sự kiện nào của List2 và bạn gán dữ liệu thế nào? Mình làm Delphi 11 năm nay chưa gặp vấn đề này bao giờ

Hihi em lấy sự kiện Doupble Click;

Code thì nó nguyên cả chùm Code này nó liên quan đến Code khác hichic
Hỏi chay thì anh cũng khó hình dung

procedure BangGiaDblClick(Sender: TObject);
begin
try
VST_BangGia.Refresh;
  edt_TS.Text := sArrBG[1, NodeRowBG.Index];
  edt_DVT.Text := sArrBG[3, NodeRowBG.Index];
  edt_DonGia.Text := ADOToString(sArrBG[4, NodeRowBG.Index]);
  edt_SoLuong.SetFocus;
  RefreshControl;
except on E: Exception do
end;
end;

 

[Nguyễn Duy Tuân]

Hihi em lấy sự kiện Doupble Click;

Code thì nó nguyên cả chùm Code này nó liên quan đến Code khác hichic
Hỏi chay thì anh cũng khó hình dung

procedure BangGiaDblClick(Sender: TObject);
begin
try
VST_BangGia.Refresh;
  edt_TS.Text := sArrBG[1, NodeRowBG.Index];
  edt_DVT.Text := sArrBG[3, NodeRowBG.Index];
  edt_DonGia.Text := ADOToString(sArrBG[4, NodeRowBG.Index]);
  edt_SoLuong.SetFocus;
  RefreshControl;
except on E: Exception do
end;
end;

Vẫn không hiểu gì luôn . "VST_BangGia" là loại control gì vậy bạn?

 

[thuyyeu99]

Vẫn không hiểu gì luôn . "VST_BangGia" là loại control gì vậy bạn?

nó là TVirtualStringTree anh

 

[Nguyễn Duy Tuân]

Hiện tại mình chỉ có chút time hỗ trợ các bạn trên các component chuẩn và học ngôn ngữ Delphi nên các thành phần "lạ" mình không tham gia vì sẽ phải thêm time nghiên cứu . Mình nghĩ vấn đề này bạn debug và tự giải quyết đc thôi.

 

[thanhthat]

Anh Tuân cho Em hỏi tí !
- Câu lệnh Last := ws.Range['B65536'].End[xlUp].Row; này khi Debug bị báo lỗi chắc là do Last: Longint nên Delphi không hiểu, Em sữa mà chưa được (Em tạm thời bỏ qua để build thử).
- Sau khi Build DLL em khai báo trong VBA:
Declare PtrSafe Function Test Lib "GetSheet.dll" () As Variant
Sub Main_ShName()
Call Test
End Sub
Nhưng khi chạy thì báo lỗi. Em nghỉ do bị lõi truyền App
//App phai dc truyen vao tu Excel
for I := 1 to App.Worksheets.Count do
...
Nhở Anh xem lại giúp Em với.
Cảm ơn Anh !

Bạn phải sửa code hàm trong Delphi để nó đón nhập Application từ VBA (bên ngoài) là

function Test(App: IDispatch): OleVariant; stdcall;
var
  App, ws: OleVariant;
  sSheetName,Lastvalue: String;
  Last: Longint;
  I: Integer;
begin
  //App phai dc truyen vao tu Excel
  for I := 1 to OleVariant(App).Worksheets.Count do
  begin
    ws := App.Worksheets[I];
    if (ws.Name <> 'Sheet1') and (ws.Name <> 'Sheet2') then
    begin
      sSheetName := ws.Name;
      Last := ws.Range['B65536'].End[xlUp].Row;
      Lastvalue := ws.Range['B' + IntToStr(Last)].Value;
      ShowMessage(sSheetName);
      ShowMessage(IntToStr(Last));
      ShowMessage(Lastvalue);
    end;
  end;

end;

Trong VBA khai báo hàm là
'Nếu Office 64 bit
Declare PtrSafe Function Test Lib "GetSheet.dll" (App As Application) As Variant


'Nếu Office 32 bit
Declare Function Test Lib "GetSheet.dll" (App As Application) As Variant

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

Vậy phải xem code bạn viết trong sự kiện nào của List2 và bạn gán dữ liệu thế nào? Mình làm Delphi 11 năm nay chưa gặp vấn đề này bao giờ [/QUOTE]
Em Build lại mà vẫn không được Anh ạ, Anh rảnh hay Bạn nào xem giúp mình với.
Cảm ơn nhiều !

 

[Nguyễn Duy Tuân]

Trong code bạn hãy thay xlUp thành -4162 vì đây là hằng số bạn phải khai báo Unit "ExcelXP". Bạn làm rồi biên dichjneeus lỗi hãy chụp hình ảnh báo lỗi nhé. Hiện nay mình không dùng máy tính.

 

[thuyyeu99]

hic em sử dụng DBGrip cua Delphi thì không bị tình trạng đó

 

[thanhthat]

Trong code bạn hãy thay xlUp thành -4162 vì đây là hằng số bạn phải khai báo Unit "ExcelXP". Bạn làm rồi biên dichjneeus lỗi hãy chụp hình ảnh báo lỗi nhé. Hiện nay mình không dùng máy tính.

Em Google thì có 2 kiểu cho xlUp như sau:
const
xlUp = $FFFFEFBE;

Và
unit XLConst;
interface
XlDirection = TOleEnum;
const
xlPatternUp = -4162;
implementation
end.
Nhưng vẫn không được, Anh xem lại code và Build thử cho em project này hoàn chỉnh được không.

Cảm ơn Anh !

 

[thanhthat]

Em Google thì có 2 kiểu cho xlUp như sau:
const
xlUp = $FFFFEFBE;

Và
unit XLConst;
interface
XlDirection = TOleEnum;
const
xlPatternUp = -4162;
implementation
end.
Nhưng vẫn không được, Anh xem lại code và Build thử cho em project này hoàn chỉnh được không.

Cảm ơn Anh !

Các Anh giúp Em Project này với !!!

 

[thuyyeu99]

Em conect SQL Select mà nó báo lỗi này là sao nhỉ

insufficient key column information for updating or refreshing

 

[Kiều Mạnh]

Ý bạn ấy là thêm chữ N lòng vào câu lệnh SQL, làm cách đó cũng ra anh.

Công việc giải quyết xong tạm ổn nay lại nghiên cứu Delphi tiếp

Cái bài 454 đó bạn giải quyết xử lý Unicode sao rồi ... Mạnh hỏi để mai mốt cài cái Server khi nào rảnh quậy một tí ??!!

 

[thuyyeu99]

Công việc giải quyết xong tạm ổn nay lại nghiên cứu Delphi tiếp

Cái bài 454 đó bạn giải quyết xử lý Unicode sao rồi ... Mạnh hỏi để mai mốt cài cái Server khi nào rảnh quậy một tí ??!!

Giải quyết xong hết mọi lỗi luôn rồi
Xét Unicode làm theo cách đó cũng được nhưng mình làm theo kiểu khác gán tmp: OleVariant (Parameters[RC].Value:=tmp)
Giờ mình đang đuối ý tưởng trang trí Form làm sao cho đẹp

A2h tiện đây cho mình hỏi xíu luôn, có nên lưu ảnh vào SQL không đang phân vân mà chưa biết xử lý sao hichichic

 

[Kiều Mạnh]

Giải quyết xong hết mọi lỗi luôn rồi
Xét Unicode làm theo cách đó cũng được nhưng mình làm theo kiểu khác gán tmp: OleVariant (Parameters[RC].Value:=tmp)
Giờ mình đang đuối ý tưởng trang trí Form làm sao cho đẹp

A2h tiện đây cho mình hỏi xíu luôn, có nên lưu ảnh vào SQL không đang phân vân mà chưa biết xử lý sao hichichic

vừa làm vừa nghiên cứu và học mà cứ thử làm đi xem sao nó mới phát sinh cái hay

còn câu sau mạnh ko hiểu giải thích thêm cho Mạnh 1 chút

OleVariant (Parameters[RC].Value:=tmp)

 

[thuyyeu99]

vừa làm vừa nghiên cứu và học mà cứ thử làm đi xem sao nó mới phát sinh cái hay

còn câu sau mạnh ko hiểu giải thích thêm cho Mạnh 1 chút

OleVariant (Parameters[RC].Value:=tmp)

OleVariant (Parameters[RC].Value:=tmp) - Cái này mình ghi chú hihi
Cái này mình viết cái function để inser hay update cho SQL. mình dùng TADOQuery của Delphi chú không phải CreateOleObject('ADODB.Recordset');
đại khái nôm na như vầy
tmp:OleVariant;
ArrayQueryValue: array of OleVariant
RC: Integer
ArrayQuery:= [trim(edt_CMND.Text), DateForSQL(dtp_NgaycapCMND.Date)]
for i := Low(ArrayQuery) to High(ArrayQuery) do
tmp:=ArrayQuery[1]
Add dữ liệu vào SQL
Query.Parameters[RC].Value:=tmp;

 

[Kiều Mạnh]

To @thuyyeu99
Mạnh đang tự đặt ra mấy câu hỏi sau xong có hướng nghiên cứu Nè

1/ Sử dụng ADO truy cập vào máy khác qua LAN lấy và ghi dữ liệu mà không phải Share Full Folder ????!!!!
2/ Tại sao chỉ khi cài SQL server thì mới lấy được dữ liêu qua Internet ???!!! tại sao ta ko thử cách khác thay thế nó ???!!!
....................................
Câu 1 Mạnh đã làm OK
Câu 2 chưa biết khi nào ..... chờ ý hay của bạn

 

[thuyyeu99]

To @thuyyeu99
Mạnh đang tự đặt ra mấy câu hỏi sau xong có hướng nghiên cứu Nè

1/ Sử dụng ADO truy cập vào máy khác qua LAN lấy và ghi dữ liệu mà không phải Share Full Folder ????!!!!
2/ Tại sao chỉ khi cài SQL server thì mới lấy được dữ liêu qua Internet ???!!! tại sao ta ko thử cách khác thay thế nó ???!!!
....................................
Câu 1 Mạnh đã làm OK
Câu 2 chưa biết khi nào ..... chờ ý hay của bạn

Minh co nghe noi toi datasap minh doc tieng anh kho hiểu qua.
Minh cung dang bi cai van de thu 2 cua manh, dot truoc minh cung tim hieu chat qua ip internet ma con ket noi data , bo tay chua mo ra, chac kien thuc tin hoc yếu qua
Manh thu tim hieu cai datasnap thu xem.

 

[Kiều Mạnh]

Minh co nghe noi toi datasap minh doc tieng anh kho hiểu qua.
Minh cung dang bi cai van de thu 2 cua manh, dot truoc minh cung tim hieu chat qua ip internet ma con ket noi data , bo tay chua mo ra, chac kien thuc tin hoc yếu qua
Manh thu tim hieu cai datasnap thu xem.

Mạnh mới thử lấy dữ liệu từ máy latop có kết nối Wifi thấy ok ko biết như vậy nó có hiểu là lấy dữ liệu trong mạng LAN ko nữa hay là qua Internet ????!!!!!!!!!!!

Ngày mai mang cái latop sang quán cafe test cái nếu lấy được dữ liệu trên máy bàn Ở nhà thì coi như là xong Hehehehehehe

 

[thuyyeu99]

Mạnh mới thử lấy dữ liệu từ máy latop có kết nối Wifi thấy ok ko biết như vậy nó có hiểu là lấy dữ liệu trong mạng LAN ko nữa hay là qua Internet ????!!!!!!!!!!!

Ngày mai mang cái latop sang quán cafe test cái nếu lấy được dữ liệu trên máy bàn Ở nhà thì coi như là xong Hehehehehehe

manh lam cach nao

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

Mạnh mới thử lấy dữ liệu từ máy latop có kết nối Wifi thấy ok ko biết như vậy nó có hiểu là lấy dữ liệu trong mạng LAN ko nữa hay là qua Internet ????!!!!!!!!!!!

Ngày mai mang cái latop sang quán cafe test cái nếu lấy được dữ liệu trên máy bàn Ở nhà thì coi như là xong Hehehehehehe

hình như muốn kết nối qua intenrt phải mở Port

 

[Kiều Mạnh]

manh lam cach nao

coi trên điện thoại hay sao mà viết ko dấu là họ la làng đó
Mai Mạnh thử xong xuoi cái đã xong tính nếu ok thì tuyệt vời đó ... sử dụng ADO lấy dữ liệu qua Internet mà ko phải cài SQL server he ....

 

[thuyyeu99]

coi trên điện thoại hay sao mà viết ko dấu là họ la làng đó
Mai Mạnh thử xong xuoi cái đã xong tính nếu ok thì tuyệt vời đó ... sử dụng ADO lấy dữ liệu qua Internet mà ko phải cài SQL server he ....

Hồi nãy viết trên điện thoại, mới chiếm quyền sử dụng máy tính nên mới dánh chính tả được hihihih. Mạnh nói sơ sơ cái hướng để mình hình dung với thắc mắt quá đi

Mạnh là Trùm Mò