DIỄN ĐÀN KỸ SƯ TÀU THỦY VIỆT NAM-VIETNAMESE SHIPBUILDING AND ENGINEERING FORUM
Hiện tại bạn đang là khách viếng thăm của Diễn Đàn Kỹ Sư Tàu Thủy Việt Nam – Nơi Hội Tụ Tinh Hoa Đóng Tàu Việt Nam. Nếu chưa có tài khoản, xin mời bạn Click chuột vào nút Đăng Ký bên dưới hoặc Click vào nút Đăng Nhập nếu bạn đã là thành viên chính thức để hưởng trọn quyền lợi của Diễn Đàn dành cho bạn. Mọi thắc mắc liên hệ với Ban Quản Trị qua địa chỉ: nhatlamntu@gmail.com
Cảm ơn bạn đã ghé thăm Diễn Đàn của chúng tôi!
Lưu ý: Bạn chỉ được phép sử dụng Tiếng Việt có dấu hoặc Tiếng Anh trên Diễn Đàn và chỉ có thành viên mới được quyền viết bài, nhận xét trên Diễn Đàn!
Chúc bạn thu được nhiều kiến thức từ việc tham gia Diễn Đàn của chúng ta!

DIỄN ĐÀN KỸ SƯ TÀU THỦY VIỆT NAM-VIETNAMESE SHIPBUILDING AND ENGINEERING FORUM


 
Trang ChínhTrang Chính  Home 1Home 1  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng Nhập  

Ngôn ngữ được sử dụng trên Diễn Đàn là Tiếng Việt có dấu hoặc Tiếng Anh. Tất cả các bài viết không đúng quy định sẽ bị Xóa khỏi Diễn Đàn Kỹ Sư Tàu Thủy Việt Nam trong vòng 24h!

Không đăng tải các nội dung đồi trụy, chống phá nhà nước Cộng Hòa Xã Hội Chủ Nghĩa Việt Nam

Diễn Đàn Kỹ Sư Tàu Thủy Việt Nam là nơi giao lưu, học hổi, trao đổi kinh nghiệm, kiến thức chuyên ngành tàu thủy. Chúng tôi nghiêm cấm các hoạt động tuyên truyền, quảng bá trái phép việc sử dụng phần mềm không bản quyền.

Mọi rắc rối liên quan đến việc quảng bá, cung cấp các phần mềm không bản quyền trên diễn đàn chúng tôi hoàn toàn không chịu trách nhiệm. Thân !
Mọi thắc mắc, góp ý, đóng góp cho Diễn Đàn mời các thành viên gửi về email: nhatlamntu@gmail.com Thanks !
Hiện tại BQT đã tích hợp thêm chức năng upload file trực tiếp lên Diễn Đàn , mọi người cùng nhau chia sẻ kiến thức với cộng đồng !

BQT Diễn Đàn Kỹ Sư Tàu Thủy Việt Nam không hoan nghênh các bài viết, quảng cáo không liên quan đến ngành công nghiệp tàu thủy Việt Nam.
Tất cả các bài viết không đúng quy định sẽ bị xóa, ngay khi BQT phát hiện được. !

Nhằm nâng cao chất lượng bài viết và chống spam, hai bài viết liên tiếp của 1 thành viên sẽ cách nhau 5 phút (300 giây)

Chúc mọi người có 1 ngày vui vẻ và thu được nhiều kiến thức khi tham gian vào Diễn Đàn Kỹ Sư Tàu Thủy Việt Nam !

Share | 
 

 Kỹ thuật lập trình Delphi

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
temp
Quản Trị Cao Cấp
Quản Trị Cao Cấp


Nam
Tổng số bài gửi : 50
Age : 32
Nghề nghiệp: (Student,..) : khong
Môn thể thao yêu thích: (football,..) : foolball
Điểm năng động tích lũy : 23
Registration date : 16/11/2008

Bài gửiTiêu đề: Kỹ thuật lập trình Delphi   Sat 7 Nov 2009 - 10:18

Chuyên mục này tớ viết ít bài về kỹ thuật lập trình Delphi nhằm giúp các bạn có thêm chút ít kinh nghiệm trong kỹ thuật lập trình.
Làm thế nào copy Desktop vào chương trình của bạn?
Code :
- Đầu tiên bạn kéo 1 nút Button vào Form và 1 Paintbox.
- Tiếp theo bạn đúp đôi chuột vào nút Button, đặt vào đó đoạn code sau :

procedure TForm1.Button1Click(Sender: TObject);
// đoạn thêm vào
var
DeskTop : TCanvas ;
// kết thúc đoạn thêm vào
begin
//đoạn thêm vào
DeskTop := TCanvas.Create ;
try
with DeskTop do
Handle := GetWindowDC (GetDesktopWindow) ;

with PaintBox1.Canvas do
CopyRect (Rect (0, 0, 800, 600),
DeskTop,
Rect (0, 0, 800, 600))

finally
DeskTop.Free

end;
// kết thúc đoạn thêm vào
End.

Link vi du : http://rapidshare.com/files/305305344/Capture.exe.html
Thủ thuật thứ 2 : Làm thế nào để biết máy đang kết nối vào Internet?
Dễ lắm cứ theo tôi thì thấy.
- Đầu tiên bạn đưa vào form 1 nút Button.
sau đó bạn nhấp đôi chuột trái vào nút Button và gõ đoạn code sau :

Khai báo thư viện cần dùng dưới dòng implementation:

implementation


function
InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';


procedure TForm1.Button1Click(Sender: TObject);
begin
// đoạn thêm vào
if InetIsOffline(0) then
ShowMessage('Chà chà mình không kết nối được vào internet rồi!')
else
ShowMessage ('Thích quá lướt Web thôi.');
// kết thúc đoạn thêm vào
end;

link vi du : http://rapidshare.com/files/305305583/checkto.exe.html
Run cái thử xem, bạn thấy ngay kết quả.


Được sửa bởi temp ngày Wed 11 Nov 2009 - 0:25; sửa lần 1.
Về Đầu Trang Go down
Nguyễn Thanh Nghị
Quản Trị Cao Cấp
Quản Trị Cao Cấp
avatar

Nam
Tổng số bài gửi : 317
Age : 9
Điểm năng động tích lũy : 192
Registration date : 22/01/2008

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Sat 7 Nov 2009 - 10:36

Cảm ơn anh Triều đã tâm huyết với anh em. Đàn em thay mặt những anh em khác xin ghi nhận đóng góp của bác.
Về Đầu Trang Go down
temp
Quản Trị Cao Cấp
Quản Trị Cao Cấp


Nam
Tổng số bài gửi : 50
Age : 32
Nghề nghiệp: (Student,..) : khong
Môn thể thao yêu thích: (football,..) : foolball
Điểm năng động tích lũy : 23
Registration date : 16/11/2008

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Sun 8 Nov 2009 - 0:11

Thủ thuật 3: Làm thế nào để biết Ver của I.E ?
- Bạn kéo 1 nút button vào form và khai báo trong phần Uses thêm thư viện Registry
- gõ thêm đoạn code sau để lấy Version của I.E dưới mục implementation:

// đoạn thêm vào
function GetIEVersion(Key: string): string;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Internet Explorer', False);
try
Result := Reg.ReadString(Key);
except
Result := '';
end;
Reg.CloseKey;
finally
Reg.Free;
end;
end;
//kết thúc đoạn thêm vào

- Nhấp đôi chuột trái vào nút buton và đưa vào đoạn code sau :

procedure TForm1.Button1Click(Sender: TObject);
begin
//đoạn thêm vào
ShowMessage('IE-Version: ' + GetIEVersion('Version'));
// kết thúc đoạn thêm vào
end;

link vi du : http://rapidshare.com/files/305306086/Ver_IE.exe.html

Thủ thuật 4 : Làm thế nào để download file từ Interner ?
- Bạn thêm vào 2 thư viện trong phần Uses URLMon, ShellApi
-
Viết hàm Download file :

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end;

- Kéo nút button vào trên form-->nhấp đôi chuột trái trên button và viết đoạn code sau :

procedure TForm1.Button1Click(Sender: TObject);
const
// địa chỉ file cần lấy
SourceFile = 'http://www.google.com/intl/de/images/home_title.gif';
// lưu file lại ở đây
DestFile = 'c:\temp\google-image.gif';
begin
if
DownloadFile(SourceFile, DestFile) then
begin
ShowMessage('Download hoàn thành!'); ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
PChar(''), nil, SW_NORMAL)
end
else
ShowMessage('Lỗi trong khi download file ' + SourceFile)
end;

link vi du (down mặc định file VD1.exe lên Disk C):
http://rapidshare.com/files/305306478/Download_File.exe.html


Được sửa bởi temp ngày Wed 11 Nov 2009 - 0:28; sửa lần 1.
Về Đầu Trang Go down
hoangvantho
Quản Trị Cao Cấp
Quản Trị Cao Cấp
avatar

Nam
Tổng số bài gửi : 176
Age : 31
Đến từ:(NTU,...) : Nha Trang University
Nghề nghiệp: (Student,..) : Engineer
Môn thể thao yêu thích: (football,..) : FootBall
Điểm năng động tích lũy : 117
Registration date : 28/01/2008

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Sun 8 Nov 2009 - 21:23

Cái này hay ghê. Không biết bác temp mất bao lâu mới làm được nhỉ? Bác có thể chỉ cụ thể hơn thao tác mình có thể làm được các thủ thuật trên sau khi đã có chương trình không?

Hy vọng là bác có thêm nhiều phần tiện ích hay hơn! Cám ơn bác đã đóng góp cho diễn đàn!
Về Đầu Trang Go down
http://votauthuy.co.cc
temp
Quản Trị Cao Cấp
Quản Trị Cao Cấp


Nam
Tổng số bài gửi : 50
Age : 32
Nghề nghiệp: (Student,..) : khong
Môn thể thao yêu thích: (football,..) : foolball
Điểm năng động tích lũy : 23
Registration date : 16/11/2008

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Sun 8 Nov 2009 - 22:04

hoangvantho đã viết:
Bác có thể chỉ cụ thể hơn thao tác mình có thể làm được các thủ thuật trên sau khi đã có chương trình không?
Câu hỏi trên có phải bạn muốn tôi chỉ rõ cách viết code như thế nào khi đã cài trình biên dịch Delphi trên máy phải không?
Nếu đúng thế thì các bài hướng dẫn trên đã rất cụ thể rồi.Bạn cứ khởi động Delphi tạo 1 application mới sẽ thấy ngay các component đã có trước của Delphi, phần còn lại bạn chỉ việc kéo thả vào form và viết code thôi.
Về Đầu Trang Go down
hoangvantho
Quản Trị Cao Cấp
Quản Trị Cao Cấp
avatar

Nam
Tổng số bài gửi : 176
Age : 31
Đến từ:(NTU,...) : Nha Trang University
Nghề nghiệp: (Student,..) : Engineer
Môn thể thao yêu thích: (football,..) : FootBall
Điểm năng động tích lũy : 117
Registration date : 28/01/2008

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Sun 8 Nov 2009 - 23:36

Không. Ý em là sau khi bác đã viết xong chương trình và tạo thành file .exe thì em sài thế nào đó chứ. Nếu có bác share cho em mấy tiện ích nhỏ này chứ ạ? Thanks!
Về Đầu Trang Go down
http://votauthuy.co.cc
temp
Quản Trị Cao Cấp
Quản Trị Cao Cấp


Nam
Tổng số bài gửi : 50
Age : 32
Nghề nghiệp: (Student,..) : khong
Môn thể thao yêu thích: (football,..) : foolball
Điểm năng động tích lũy : 23
Registration date : 16/11/2008

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Mon 9 Nov 2009 - 0:13

hoangvantho đã viết:
Không. Ý em là sau khi bác đã viết xong chương trình và tạo thành file .exe thì em sài thế nào đó chứ. Nếu có bác share cho em mấy tiện ích nhỏ này chứ ạ? Thanks!
Bạn cứ làm y như trên sau đó biên dịch nó sẽ là file exe chạy độc lâp (cả nền 32 bit và 64 bit).Một lưu ý nhỏ là đối với Delphi khi bạn chạy chương trình tự động nó sẽ biên dịch ra file exe ngay thời điểm đó luôn.Điểm tiện ích lớn nhất của Delphi là khi chạy chỉ cần 1 file độc lập không cần hỗ trợ thêm các OCX hoặc Framework (nếu như bạn dùng Ver 6.0 hoặc 7.0).
Các bài viết sau tôi sẽ đính kèm file biên dịch để các bạn chạy thử sau mỗi thủ thuật (mục đích để các bạn chưa cài được trình biên dịch có thể chạy nó)
Về Đầu Trang Go down
temp
Quản Trị Cao Cấp
Quản Trị Cao Cấp


Nam
Tổng số bài gửi : 50
Age : 32
Nghề nghiệp: (Student,..) : khong
Môn thể thao yêu thích: (football,..) : foolball
Điểm năng động tích lũy : 23
Registration date : 16/11/2008

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Mon 9 Nov 2009 - 21:54

Còn rất nhiều bạn còn thắc mắc và nghi ngờ về ngôn ngữ này. Tiện đây tôi sẽ viết các ví dụ nhỏ về khả năng của nó cho các bạn thấy và mong rằng các bạn sẽ thấy được thế mạnh của ngôn ngữ này. Tôi mong rằng các bạn hãy nghiên cứu lệnh cơ bản và cú pháp của nó một cách nghiêm túc, vì ở chuyên mục này tôi không nhắc lại về các cú pháp và lệnh của nó (điều này làm mất thời gian). Tôi hy vọng rằng thời sau với sự ham học hỏi của các bạn (cũng là nguồn động viên cổ vũ cho tôi) các bạn thừa khả năng tự xây dựng cho mình các soft riêng phục vụ cho ngành.
Các ví dụ về đồ họa của ngôn ngữ Delphi.
các ví dụ dưới đây được tôi xây dựng hoàn toàn bằng ngôn ngữ Delphi Ver 6.0 (các bạn nên cài nó vì là chuẩn nhất trong các Ver của nó). Tôi đã biên dịch thành file chạy, mục đích cho các bạn chưa có điều kiện cài trình biên dịch của nó có thể chạy được nó. Các mã nguồn tôi sẽ trình bày cho các bài viết sau trong chuyên mục này.
link ví dụ 1 : http://rapidshare.com/files/304753959/VD1.exe.html
link vi du 2 :
http://rapidshare.com/files/304754327/VD2.exe.html
link ví dụ 3 :
http://rapidshare.com/files/304754553/VD3.exe.html
link ví du 4 :
http://rapidshare.com/files/304754821/VD4.exe.html
link ví dụ 5 (bạn giải nén và để các file ảnh chung thư mục file chạy):
http://rapidshare.com/files/304755017/VD5.rar.html
link ví dụ 6 :
http://rapidshare.com/files/304755313/VD6.exe.html
link ví dụ 7 (bạn giải nén và để các file ảnh chung thư mục file chạy):
http://rapidshare.com/files/304755596/VD_7.rar.html
Nếu thời gian cho phép, từ từ tôi cũng sẽ hướng dẫn các bạn về kỹ thuật điện tử số cũng như các ngôn ngữ lập trình khá mạnh khác như : c#, Lisp và Autoit (Anh bạn này là ngôn ngữ mô tả nhưng cực kỳ mạnh có thể các bạn còn chưa biết đến nó).
Thân chào, Phan Hải Triều.
Về Đầu Trang Go down
Nguyễn Thanh Nghị
Quản Trị Cao Cấp
Quản Trị Cao Cấp
avatar

Nam
Tổng số bài gửi : 317
Age : 9
Điểm năng động tích lũy : 192
Registration date : 22/01/2008

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Tue 10 Nov 2009 - 7:50

hic, kỹ thuật lập trình của anh Triều đã đạt tới cảnh giới rồi, đàn em phục sát đất.
Hi vọng thời gian tới được anh chỉ bảo nhiều. hic hic
Về Đầu Trang Go down
DSC-Marine Co.,LTD
Quản Trị Cao Cấp
Quản Trị Cao Cấp
avatar

Nam
Tổng số bài gửi : 960
Age : 31
Đến từ:(NTU,...) : NTU
Nghề nghiệp: (Student,..) : Ship's Designer
Môn thể thao yêu thích: (football,..) : Sports
Điểm năng động tích lũy : 1404
Registration date : 26/12/2007

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Tue 10 Nov 2009 - 7:57

Hic, bai phục, bái phục. Không ngờ delphi hay thế, có thời gian em cũng sẽ cố gắng mò nó thôi. Quá hay !
Thanks Mr. temp

_________________
DSC-Marine Co.,LTD.
Design, Shipbuilder and Marine Commercial Company Limited.
Add:  No.19/18 Vo Van Ngan Street, Linh Chieu Ward, Thu Duc District, Ho Chi Minh City, Viet Nam.
Contacts: (+84).977 310 828 Skype: DSC-Marine or nhatlamntu Email: dsc.marine.design@gmail.com.
OUR SERVICES:
1.Boatdesign.vn: Yacht, ferry, catamaran, tug,fishing..Design.
2.Shipbuilder: Aluminum, Steel, Wooden boat and Scale down models.
3.Marine Commercial: Ship broker, Re-seller genius software.
Về Đầu Trang Go down
http://www.votauthuy.org
tanminh49dt
Ban Điều Hành
Ban Điều Hành
avatar

Nam
Tổng số bài gửi : 162
Age : 28
Đến từ:(NTU,...) : NTU
Nghề nghiệp: (Student,..) : Student
Môn thể thao yêu thích: (football,..) : volleyball
Điểm năng động tích lũy : 314
Registration date : 29/10/2008

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Tue 10 Nov 2009 - 11:23

Thật sự tuyệt quá ,hay quá đi mất.Không biết học cái này khó lắm không bác Triều .Bác đúng là pro quá,thank....
Về Đầu Trang Go down
http://votauthuy.co.cc
temp
Quản Trị Cao Cấp
Quản Trị Cao Cấp


Nam
Tổng số bài gửi : 50
Age : 32
Nghề nghiệp: (Student,..) : khong
Môn thể thao yêu thích: (football,..) : foolball
Điểm năng động tích lũy : 23
Registration date : 16/11/2008

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Wed 11 Nov 2009 - 3:16

Tôi có làm một ví dụ nhỏ để mô phỏng vật chuyển động trên nước. Nếu như các bạn đã nắm vững được ngôn ngữ này các bạn có thể xây dựng con tàu của "riêng các bạn" hoạt động trên biển... và phát triển theo nhiều hướng khác nữa
đây là link ví dụ mô phỏng nhỏ : http://rapidshare.com/files/305351402/MP_Bien.rar.html
Về Đầu Trang Go down
temp
Quản Trị Cao Cấp
Quản Trị Cao Cấp


Nam
Tổng số bài gửi : 50
Age : 32
Nghề nghiệp: (Student,..) : khong
Môn thể thao yêu thích: (football,..) : foolball
Điểm năng động tích lũy : 23
Registration date : 16/11/2008

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Fri 13 Nov 2009 - 9:13

Thủ thật 5 : làm thế nào chuyển đổi file dạng *.swf (Flash file) sang file *.exe?
Đầu tiên bạn viết thêm hàm chuyển đổi :

function Swf2Exe(S, D, F: string): string;
//S = File nguồn (swf)
//D = File đích (exe)
//F = Cờ nhận biết Flash file
varSourceStream, DestinyStream, LinkStream: TFileStream;
flag: Cardinal;
SwfFileSize: Integer;
beginResult := 'Lỗi
không làm gì';
DestinyStream := TFileStream.Create(D, fmCreate);
tryLinkStream := TFileStream.Create(F, fmOpenRead or fmShareExclusive);
tryDestinyStream.CopyFrom(LinkStream, 0);
finallyLinkStream.Free;
end;

SourceStream := TFileStream.Create(S, fmOpenRead or fmShareExclusive);
tryDestinyStream.CopyFrom(SourceStream, 0);
flag := $FA123456;
DestinyStream.WriteBuffer(flag, SizeOf(Integer));
SwfFileSize := SourceStream.Size;
DestinyStream.WriteBuffer(SwfFileSize, SizeOf(Integer));
Result := '';
finallySourceStream.Free;
end;
finallyDestinyStream.Free;
end;
end;


Sau đó kéo nút button vào Form và viết thêm đoạn code :

procedure TForm1.Button1Click(Sender: TObject);
beginSwf2Exe('c:\VD.swf', 'c:\VD.exe',
'c:\Program Files\Macromedia\Flash MX\Players\SAFlashPlayer.exe');
end;

Về Đầu Trang Go down
temp
Quản Trị Cao Cấp
Quản Trị Cao Cấp


Nam
Tổng số bài gửi : 50
Age : 32
Nghề nghiệp: (Student,..) : khong
Môn thể thao yêu thích: (football,..) : foolball
Điểm năng động tích lũy : 23
Registration date : 16/11/2008

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Sat 14 Nov 2009 - 2:15

Hôm nay rảnh chút, tớ viết thêm cho các bạn đoạn code nhỏ về mã hóa.

Thủ thuật 6 : Làm cách nào mã hóa và giải mã file hoặc chuổi?
Bạn bắt tay vào viết hàm mã hóa sau :

Khai báo thêm kiểu dữ liệu
type
TWordTriple = Array[0..2] of Word;

Hàm mã hóa như sau :
function MemoryEncrypt(Src: Pointer; SrcSize: Cardinal; Target: Pointer; TargetSize: Cardinal; Key: TWordTriple): boolean;
var
pIn, pOut: ^byte;
i : Cardinal;
begin
if SrcSize = TargetSize then
begin
pIn := Src;
pOut := Target;
for i := 1 to SrcSize do
begin
pOut^ := pIn^ xor (Key[2] shr 8);
Key[2] := Byte(pIn^ + Key[2]) * Key[0] + Key[1];
inc(pIn);
inc(pOut);
end;
Result := True;
end else
Result := False;
end;

function TextCrypt(const s: string; Key: TWordTriple; Encrypt: Boolean): string;
var
bOK: Boolean;
begin
SetLength(Result, Length(s));
if Encrypt then
bOK := MemoryEncrypt(PChar(s), Length(s), PChar(Result), Length(Result), Key)
else
bOK := MemoryDecrypt(PChar(s), Length(s), PChar(Result), Length(Result), Key);
if not bOK then Result := '';
end;

function TextEncrypt(const s: string; Key: TWordTriple): string;
begin
Result := TextCrypt(s, Key, True);
end;

Thêm vào form nút button và đoạn lệnh sau :
procedure TForm1.Button1Click(Sender: TObject);
var s: TWordTriple; //đoạn thêm
begin
edit2.text:= TextEncrypt(edit1.Text,s); //chuổi mã hóa lưu tại Edit2
end;

Tương tự hàm giải mã được viết như sau :
function MemoryDecrypt(Src: Pointer; SrcSize: Cardinal; Target: Pointer; TargetSize: Cardinal; Key: TWordTriple): boolean;
var
pIn, pOut: ^byte;
i : Cardinal;
begin
if SrcSize = TargetSize then
begin
pIn := Src;
pOut := Target;
for i := 1 to SrcSize do
begin
pOut^ := pIn^ xor (Key[2] shr 8);
Key[2] := byte(pOut^ + Key[2]) * Key[0] + Key[1];
inc(pIn);
inc(pOut);
end;
Result := True;
end else
Result := False;
end;

function TextDecrypt(const s: string; Key: TWordTriple): string;
begin
Result := TextCrypt(s, Key, False);
end;

Để mã hóa file, các bạn có thể làm tương tự.
Về Đầu Trang Go down
heenoowoon
Thành Viên Mới
Thành Viên Mới


Nam
Tổng số bài gửi : 1
Age : 29
Đến từ:(NTU,...) : việt nam
Nghề nghiệp: (Student,..) : student
Môn thể thao yêu thích: (football,..) : football
Điểm năng động tích lũy : 1
Registration date : 20/07/2011

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Wed 20 Jul 2011 - 22:15

cho em hỏi cách cài đặt bộ tools của delphi 7, từng bước cụ thể, và có thể cho em luôn bộ nguồn cài đặt và bộ tools mới ạh, thank
Về Đầu Trang Go down
http://www.votauthuy.org
dovanqui
Thành Viên Mới
Thành Viên Mới


Nam
Tổng số bài gửi : 1
Age : 25
Đến từ:(NTU,...) : quang ngai
Nghề nghiệp: (Student,..) : sinh vien
Môn thể thao yêu thích: (football,..) : football
Điểm năng động tích lũy : 1
Registration date : 31/05/2014

Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   Sun 1 Jun 2014 - 3:05

a có thể chỉ e làm sao lập trình  delphi 7 kết nối công com rs232 với vi điều khiển avr 16 điều khiển tăng giảm nhiệt độ
sử dụng cổng com ao để kết nối
Về Đầu Trang Go down
Sponsored content




Bài gửiTiêu đề: Re: Kỹ thuật lập trình Delphi   

Về Đầu Trang Go down
 
Kỹ thuật lập trình Delphi
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
DIỄN ĐÀN KỸ SƯ TÀU THỦY VIỆT NAM-VIETNAMESE SHIPBUILDING AND ENGINEERING FORUM :: TỔNG HỢP :: TIN HỌC THƯỜNG THỨC :: MẸO VẶT MÁY TÍNH-
Chuyển đến 
THỐNG KÊ DIỄN ĐÀN
LƯỢT TRUY CẬP
Top posters
DSC-Marine Co.,LTD (960)
 
Nguoihatinh (521)
 
shippro (415)
 
Nguyễn Thanh Nghị (317)
 
tanduong028 (287)
 
quangthu (247)
 
nguyenxuanviet (235)
 
Anh2Long (197)
 
KENT0906 (196)
 
Hồng Thất Công (188)
 
DÀNH CHO QUẢNG CÁO
CÔNG TY TNHH THIẾT KẾ DSC-MARINE.
DỊCH VỤ THIẾT KẾ, ĐÓNG MỚI VÀ SỬA CHỮA TÀU
CÔNG TY TNHH BON VÀNG - THI CÔNG CHỐNG ĐẠN VỎ TÀU, GIA CƯỜNG KẾT CẤU, CHỐNG THẤM NGƯỢC
DỊCH VỤ TỪ DIỄN ĐÀN KỸ SƯ TÀU THỦY VIỆT NAM
LIÊN HỆ VỚI CHÚNG TÔI NGAY BẰNG CÁCH BẤM VÀO ĐÂY !