O QRcode for delphi7 source in Chinese-CodePudding

Need QRcode for delphi7 source and asked for support in Chinese, coding controls
If you can send an email to my best, to confirm, that can be used immediately to points!

CodePudding user response:

Mail: [email protected]

CodePudding user response:

Did not find on the box, to help you,

CodePudding user response:

Only generated, no decoding,

CodePudding user response:

Upstairs, as long as the generated, decoding don't of, if you have sent me a,

CodePudding user response:

So heavy?

CodePudding user response:

Which eldest brother 33095304 @qq.com, I also want anything, please send me a copy

CodePudding user response:

, how only generated, no decoding, be badly in need of Delphi QRcode decoding

CodePudding user response:

Email address is [email protected]

CodePudding user response:

Who is also a is sent to me, thank you, 28551554 @qq.com

CodePudding user response:

1. Refer to Google. Zxing, download ZintInterface pas

CodePudding user response:

11 references reverzeng response:

1. Refer to Google. Zxing, download ZintInterface. Pas

Download ZintInterface excuse me. Where is the pas, didn't see the zxing have Delphi interface

CodePudding user response:

Can use c + + to encapsulate a DLL,

CodePudding user response:

reference 13 floor wewaa reply:

can be encapsulated with c + + a DLL,

Zxing is c + + code, but I don't understand c + +, can help to encapsulate a?

CodePudding user response:

BarCodeStudio

CodePudding user response:

Old stick again, I will be generated, but didn't seem to me,

CodePudding user response:

Outside now, another day to send you back

CodePudding user response:

Ok, thank you first!

CodePudding user response:

The answer in the 11th floor,

CodePudding user response:

Apparently, DEV also QRcode is in it?

CodePudding user response:

Hasn't come back?

CodePudding user response:

http://download.csdn.net/detail/a864000/5951221
The test and use,

CodePudding user response:

To: babydog01
This limited can only be used in FastReport;

CodePudding user response:

Refer to the Google
The unit getbarcode;

Interface

USES the
Windows, Messages, SysUtils, Variants, Graphics, Controls,
Dialogs, ExtCtrls StdCtrls, Mask, ExtDlgs,
Classes;

Type
TQrImage_ErrCorrLevel=(L, M, Q, H);

Const
UrlGoogleQrCode='http://chart.apis.google.com/chart? CHS dx=% % d& CHT=qr& CHLD=% s& Chlorophyll=% s';
QrImgCorrStr: an array of string=[TQrImage_ErrCorrLevel] (' L ', 'M' and 'Q', 'H');

Procedure GetQrCode (Width, Height: Word; Correction_Level: TQrImage_ErrCorrLevel; Const Data: string; StreamImage: TMemoryStream);

Implementation
USES the
PngImage,
HTTPApp,
WinInet;

Procedure WinInet_HttpGet (const Url: string; Stream: TStream);
Const
BuffSize=1024 * 1024;
Var
HInter: HINTERNET;
UrlHandle: HINTERNET;
BytesRead: DWORD;
Buffer: Pointer;
The begin
HInter:=InternetOpen (' ', INTERNET_OPEN_TYPE_PRECONFIG, nil nil, 0).
If Assigned (hInter) then
The begin
Stream. Seek (0, 0);
GetMem (Buffer, BuffSize);
Try
UrlHandle:=InternetOpenUrl (hInter, PChar (Url), nil, 0, INTERNET_FLAG_RELOAD, 0).
If Assigned (UrlHandle) then
The begin
Repeat
InternetReadFile (UrlHandle, Buffer, BuffSize BytesRead);
If BytesRead> 0 then
Stream. WriteBuffer (Buffer ^ BytesRead);
Until BytesRead=0;
InternetCloseHandle (UrlHandle);
end;
The finally
FreeMem (Buffer);
end;
InternetCloseHandle (hInter);
End
end;

Procedure GetQrCode (Width, Height: Word; Correction_Level: TQrImage_ErrCorrLevel; Const Data: string; StreamImage: TMemoryStream);
Var
EncodedURL: string;
The begin
EncodedURL:=Format (UrlGoogleQrCode, Width, Height, QrImgCorrStr [Correction_Level], HTTPEncode (Data)]);
WinInet_HttpGet (EncodedURL StreamImage);
end;

The end.

CodePudding user response:

reference 23 f firestoneman response:

, babydog01
This limited can only be used in FastReport;

Or this code, build the installation package, to my resources, under the

1. Copy zint. DLL to system32 directory
2. Perform D7 respectively directory *. DPK file, order
Zintbarcode//support control packets

dclzintbarcode//HTML controlsFrxzintbarcode/control/statements

3. The program should be quoted ufrxZintBarcode by hand

CodePudding user response:

reference 25 floor babydog01 response:

Quote: reference 23 f firestoneman response:

To: babydog01
This limited can only be used in FastReport;

Or this code, build the installation package, to my resources, under the

1. Copy zint. DLL to system32 directory
nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull