急需QRcode for delphi7 的原始碼，要求支持中文的，編碼控制元件
如果可以發郵件給我最好，確認可以使用的，立馬給分！
uj5u.com熱心網友回復：
郵件：[email protected]uj5u.com熱心網友回復：
在盒子上也沒找到，幫你頂下。uj5u.com熱心網友回復：
只有生成，沒有解碼。uj5u.com熱心網友回復：
樓上的，只要生成的，解碼不要的，如果有發我一份。uj5u.com熱心網友回復：
就這么沉了么？uj5u.com熱心網友回復：
[email protected] 我也想要，哪個大哥有的話，請發給我一份uj5u.com熱心網友回復：
，怎么只有生成，沒有解碼，急需delphi QRcode解碼
uj5u.com熱心網友回復：
郵箱是[email protected]uj5u.com熱心網友回復：
誰有也給我發一份吧，謝謝了，[email protected]uj5u.com熱心網友回復：
1.參考google.zxing,下載ZintInterface.pasuj5u.com熱心網友回復：
請問ZintInterface.pas在哪里下載，沒看到zxing里有delphi的介面
uj5u.com熱心網友回復：
可以用c++封裝一個DLL。uj5u.com熱心網友回復：
zxing就有c++代碼，可是不懂c++,能幫忙封裝一個么？
uj5u.com熱心網友回復：
BarCodeStudiouj5u.com熱心網友回復：
老貼重提，我就要生成的，但是好像沒有發給我。uj5u.com熱心網友回復：
現在外面，改天回去發給你uj5u.com熱心網友回復：
好的，先謝謝啦！uj5u.com熱心網友回復：
答案在 11樓，uj5u.com熱心網友回復：
貌似，DEV 里面有也 QRcode ？uj5u.com熱心網友回復：
還沒回來么？uj5u.com熱心網友回復：
http://download.csdn.net/detail/a864000/5951221這個測驗了一下，好用。
uj5u.com熱心網友回復：
to:babydog01這個有局限性的只能在FastReport中使用；
uj5u.com熱心網友回復：
參考google的unit getbarcode;
interface
uses
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&chl=%s';
QrImgCorrStr : array [TQrImage_ErrCorrLevel] of string=('L','M','Q','H');
procedure GetQrCode(Width,Height:Word;Correction_Level:TQrImage_ErrCorrLevel;const Data:string;StreamImage : TMemoryStream);
implementation
uses
PngImage,
HTTPApp,
WinInet;
procedure WinInet_HttpGet(const Url: string;Stream:TStream);
const
BuffSize = 1024*1024;
var
hInter : HINTERNET;
UrlHandle: HINTERNET;
BytesRead: DWORD;
Buffer : Pointer;
begin
hInter := InternetOpen('', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if Assigned(hInter) then
begin
Stream.Seek(0,0);
GetMem(Buffer,BuffSize);
try
UrlHandle := InternetOpenUrl(hInter, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
if Assigned(UrlHandle) then
begin
repeat
InternetReadFile(UrlHandle, Buffer, BuffSize, BytesRead);
if BytesRead>0 then
Stream.WriteBuffer(Buffer^,BytesRead);
until BytesRead = 0;
InternetCloseHandle(UrlHandle);
end;
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;
begin
EncodedURL:=Format(UrlGoogleQrCode,[Width,Height,QrImgCorrStr[Correction_Level],HTTPEncode(Data)]);
WinInet_HttpGet(EncodedURL,StreamImage);
end;
end.
uj5u.com熱心網友回復：
代碼還是這個，自己建了安裝包，到我的資源里下吧。
1.拷貝zint.dll到system32目錄下
2.分別執行D7目錄下*.dpk檔案,順序為
zintbarcode//支持控制元件包
dclzintbarcode//頁面控制元件
frxzintbarcode//報表控制元件
3.程式需手工參考ufrxZintBarcode
uj5u.com熱心網友回復：
frxzintbarcode//報表控制元件 在編譯的時候報錯，我的是D7
uj5u.com熱心網友回復：
報錯內容：[Fatal Error] frxZintBarcode.dpk(29): Required package 'frx7' not found
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
to delphi_freeman??
uj5u.com熱心網友回復：
delphi版的你可以看一下http://download.csdn.net/detail/hdljx/5447547,支持D7,完美支持中文,支持多種二維碼.安裝完后在system控制元件欄里.我也是找了許久才找到的,呵呵uj5u.com熱心網友回復：
有圖有真相
uj5u.com熱心網友回復：
這應該是樓主想要的吧,結帖,給分
,呵呵
uj5u.com熱心網友回復：
這個如何才能控制生成的二維碼大小呢？生成的圖片會隨著輸入的資訊增加而變大。
我想控制在一定范圍，自動縮放大小。如何才能實作呢》
uj5u.com熱心網友回復：
請問procedure GetQrCode(Width,Height:Word;Correction_Level:TQrImage_ErrCorrLevel;const Data:string;StreamImage : TMemoryStream);中的Data引數是什么？又是怎么回傳結果的？
uj5u.com熱心網友回復：
這個不是用c++寫的activeX控制元件么，會有delphi原始碼？uj5u.com熱心網友回復：
誰有也給我發一份吧，謝謝了，[email protected]uj5u.com熱心網友回復：
我在論壇發過一個c轉delphi的uj5u.com熱心網友回復：
BarCodeStudio很好用，最近剛好在研究 PDF417碼，也支持qr，用到了這個控制元件。比較成熟，用起來非常方便，有破解版的。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/94531.html
標籤：VCL組件開發及應用