- 博客(2)
- 资源 (5)
- 收藏
- 关注
delphi解析json处理单元
json串解析单元。简单易用,没有bug。
使用方法如下:
var
ResponseJson: string;
Json, childJson: TlkJSONobject;
begin
Json := TlkJson.ParseText(ResponseJson) as TlkJsonObject;
try
Success := Trim(Json.Field['success'].Value);
Msg := Trim(Json.Field['msg'].Value);
childJson := Json.Field['data'] as TlkJsonObject;
finally
FreeAndNil(Json);
end;
end;
2016-06-30
Zxing封装的二维码生成算法单元
换点资源分,二维码生成单元,已用于实际项目,安全、无bug。使用场景可用于各种文本信息转二维码图片中,如微信、支付宝主扫账单支付生成二维码等。
调用方法如下:
procedure TMainSweep.LoadQrCode(AQRCode: string; Img: TImage);
var
QRCode: TDelphiZXingQRCode;
Row, Column: Integer;
l, t, r, b: integer;
Scale : integer ;
begin
QRCode := TDelphiZXingQRCode.Create;
try
QRCode.Data := AQRCode;
QRCode.Encoding := TQRCodeEncoding(0);
QRCode.QuietZone := 5;
Scale := 5;
QRCodeBitmap.SetSize( Scale * QRCode.Rows, Scale * QRCode.Columns);
QRCodeBitmap.Clear( TAlphaColorRec.White);
QRCodeBitmap.Canvas.BeginScene();
for Row := 0 to QRCode.Rows - 1 do
begin
for Column := 0 to QRCode.Columns - 1 do
begin
if (QRCode.IsBlack[Row, Column]) then
begin
QRCodeBitmap.Canvas.Fill.Color := TAlphaColorRec.Black ;
l := Row * Scale ;
r := ( Row + 1 ) * Scale ;
t := Column * Scale ;
b := ( Column + 1 ) * Scale ;
QRCodeBitmap.Canvas.FillRect(TRectF.Create(l,t,r,b), 0, 100, AllCorners, 1);
end;
end;
end;
QRCodeBitmap.Canvas.EndScene;
finally
QRCode.Free;
end;
img.Bitmap.Assign(QRCodeBitmap);
end;
2016-06-30
firemonkey之如何正确使用stlye
firemonkey的style就是其页面布局文件,但实际上又比android或是java的页面布局文件功能更强大(只不过没有专业的编辑工具,至少到我上传资源之前都是通过文本来编辑的),如何强大呢,就是不用写一行源码,直接通过修改style就可以得到你想要的任何组件,组件还可以重用在不同工程项目,可以自定义动画效果(只要你能想得到的组件样式,都可以做出来)如果是做前端移动端(移动端的开发工具优秀的很多,不建议使用firemonkey)以外的应用firemonkey是你不二的选择。
2016-06-30
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人