The introduction of encryption algorithm
This algorithm source code was originally written by Borland Delphi. The original author seems to be Allen Bauer. The code is as follows.
cMulKey = 52845;
cAddKey = 11719;function Decrypt(const S: String; Key: Word): String;
for I := 1 t ...
Posted on Fri, 17 Apr 2020 10:34:25 -0400 by ankycooper
Although Baidu everyone has been scolding, but I found that in fact Baidu some things can still be used. Now that everyone is engaged in artificial intelligence, we can't fall behind in Delphi. No more nonsense, just code
The first step is to obtain the AccessToken
function GetAccessToken(const client_id, client_secret: string;
HTTP: TNetHTT ...
Posted on Tue, 07 Apr 2020 10:21:17 -0400 by bigray
[delphi] WeChat official account control development (three) WeChat payment
1, Wechat payment method implemented by control
2, Development points of wechat payment Delphi
1. How to realize SSL bidirectional authentication in wechat payment?
2. How to ensure that the signature is correct?
3. Because ...
Posted on Mon, 16 Mar 2020 05:14:50 -0400 by madolia
According to the help button, this program requires us to eliminate the two buttons "OK" and "Cancel", showing the part covered by the button.
Each button requires a different algorithm to verify, so there are two verification functions.
The program after the break is shown ...
Posted on Mon, 27 Jan 2020 11:53:58 -0500 by wwfc_barmy_army
By way of sdk Mode compilation windows Window program, understanding windows Message driven mechanism and delphi Message programming helps a lot. sdk Organization windows Steps of window program: 1,Yes TWndClass Object to assign; 2,Register with system wndclass object(RegisterClass)； 3,CreateWindow Create window, get windo ...
Recently, in order to be compatible with XP system (conservative market) and need to make special effects of products, we have to learn this "smart language" from scratch.
Development environment: win10 Delphi 10.2 Version 25.0.26309.314
Product environment: minimum xp system
Use Gdi+ 1.0 from http://www.bilsen.com/gdiplus/index.shtml ...
Posted on Fri, 03 Jan 2020 19:13:42 -0500 by hyabusa
1. Judge between 0 and 10, when cycle I=3, jump out of the current cycle, when I is equal to 8, exit the current cycle.
1 procedure Countand();
3 I: Integer;
5 for I := 0 to 10 do
8 if I = 3 then
10 Writeln('Skip the current');
Posted on Sun, 08 Dec 2019 02:19:54 -0500 by keithwjones
I. routine: a unique name in Delphi. Routine is a form of encapsulating the code of a specific function: 1. Process 2. FunctionThe difference between a procedure and a function is whether there is a return valueFunction of routine 1. It can solve the problem of naming conflict 2. Improve code reuse rate 3. Improve code maintainabilityIII. ...
Posted on Tue, 03 Dec 2019 19:58:19 -0500 by Schlo_50
Debenu Quick PDF Library(PDF programming development tool) provides a comprehensive set of PDF API functions to help you process PDF files quickly and easily. From the basic operation of document properties to the creation of your own PDF viewer and pdf editor, this software meets all your needs. Quick PDF Library is a SDK for PD ...
Posted on Tue, 12 Nov 2019 13:58:12 -0500 by XenoPhage
How does Delphi call the member function of VC class?
For example, the following VC code:
int MyAdd(int a, int b)
return a + b;
::MessageBoxA(0, (LPCSTR)"Delphi call VC Member function of class", (LPCS ...
Posted on Fri, 01 Nov 2019 12:39:28 -0400 by gvp16