Trình duyệt web bằng Pascal

Vuio Dev

Banned
Banned
19 Tháng năm 2017
57
15
61
23
[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

#Trình_duyệt_web_bằng_Pascal
Share cho các bạn xem thử trình duyệt web đơn giản làm bằng Pascal (thật ra là Delphi).
Link down: http*s://g*oo.gl/r9*kPB5 (chịu khó bỏ * đi nhé)
Trình duyệt này tự động lưu mật khẩu, lướt face cũng khá ngon, load nhanh mỗi tội hơi ngốn Ram (Đang tìm cách khắc phục)
Sử dụng TWebBrowser có sẵn trong Delphi mà code thêm.
Bạn nào muốn lấy code cmt bên dưới nhé.
 

trà nguyễn hữu nghĩa

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH
Thành viên
14 Tháng năm 2017
3,974
7,623
744
22
Phú Yên
Trường THPT Lương Văn Chánh
Bạn dùng ngôn ngữ nào vậy. Mình cũng đã từng làm một trình duyết Wed đơn giản bằng C# rồi, nếu dùng WedBrowser thì cũng khá dễ
 
  • Like
Reactions: Vuio Dev

trà nguyễn hữu nghĩa

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH
Thành viên
14 Tháng năm 2017
3,974
7,623
744
22
Phú Yên
Trường THPT Lương Văn Chánh
Sao Mình tải về rồi mà chạy không được. Có cần dùng thêm phần mềm nào không bạn
 

Vuio Dev

Banned
Banned
19 Tháng năm 2017
57
15
61
23
Cái này mình dùng TWebBrowser bên Delphi (C# gọi là WebBrowser) để làm. TWebBrowser là một bộ nhân trình duyệt lõi Trident của IE nên chậm.
Mình cũng đã làm thử 1 trình duyệt nhân Chromium, nhưng ngại up lên (40 MB lận)
 

trà nguyễn hữu nghĩa

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH
Thành viên
14 Tháng năm 2017
3,974
7,623
744
22
Phú Yên
Trường THPT Lương Văn Chánh
Cái này mình dùng TWebBrowser bên Delphi (C# gọi là WebBrowser) để làm. TWebBrowser là một bộ nhân trình duyệt lõi Trident của IE nên chậm.
Mình cũng đã làm thử 1 trình duyệt nhân Chromium, nhưng ngại up lên (40 MB lận)
Nhưng sao mình dùng thử không được vậy bạn.
 
  • Like
Reactions: Vuio Dev

Vuio Dev

Banned
Banned
19 Tháng năm 2017
57
15
61
23
À, đó là do máy bạn bật smart screen, trình duyệt của mình không có chữ ký nên bị chặn không cho chạy.
Bạn có thể chọn More info > Run anyway để chạy thử
 

trà nguyễn hữu nghĩa

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH
Thành viên
14 Tháng năm 2017
3,974
7,623
744
22
Phú Yên
Trường THPT Lương Văn Chánh
Mình chạy được rồi. Thấy giao diện cũng đẹp đó bạn , có điều nó chạy hơi lâu
 

trà nguyễn hữu nghĩa

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH
Thành viên
14 Tháng năm 2017
3,974
7,623
744
22
Phú Yên
Trường THPT Lương Văn Chánh
Bạn có thể chỉ mình cách tạo một icon làm biểu tượng ngoài desktop được không. Mình chỉ có thể đặt icon lên form mà không thể đặt ở ngoài
 
Last edited:

Vuio Dev

Banned
Banned
19 Tháng năm 2017
57
15
61
23
Icon cho file EXE:
C#: Vào Project > App1 Properties (App1 là tên ứng dụng) > Application > Icon & manifest > Chọn file .ico để làm icon
Delphi: Vào Project > Options > Application > Icon file > Chọn file .ico như trên.
Icon cho shortcut
Bạn vào thư mục chứa file Exe cần tạo shortcut, chuột phải chọn Create shortcut (tạo lối tắt), 1 shortcut mới được tạo ra trong thư mục đó, cứ để nó ở đấy.
Về cơ bản shortcut là 1 file có đuôi .LNK (link), ví dụ shortcut của file App1.exe thì file shortcut là App1.lnk
Khi đó bạn chỉ cần copy file App1.lnk từ thư mục hiện tại sang thư mục Desktop (C:\Users\<UserName>\Desktop\), bên Delphi có 1 hàm lấy chuỗi tên User là
GetEnvironmentVariable('UserProfile') sẽ có nội dung là C:\Users\Vuio (ví dụ tên người dùng là Vuio), ghép thêm \Desktop vào là được thư mục màn hình nền.
 

Quang Trungg

Học sinh xuất sắc
Thành viên
14 Tháng mười một 2015
4,677
7,748
879
20
Hà Nội
THCS Mai Dịch
Top Bottom