動態 QR 碼生成軟體（免費和付費工具）

using IronQr;
using IronSoftware.Drawing;
using System;
using System.Collections.Generic;

namespace EnterpriseQRGenerator
{
    public class DynamicQRService
    {
        private readonly string _baseRedirectUrl = "___PROTECTED_URL_62___";

        // Generate a tracked QR code with metadata
        public QrResult GenerateTrackedQR(string campaignId, string destinationUrl, Dictionary<string, string> metadata)
        {
            try
            {
                // Create a trackable redirect URL
                string trackingId = Guid.NewGuid().ToString();
                string dynamicUrl = $"{_baseRedirectUrl}{trackingId}";

                // Generate QR code with advanced options
                var options = new QrOptions
                {
                    ErrorCorrection = QrErrorCorrectionLevel.High,
                    QuietZone = 4,
                    Version = 0 // Auto-select appropriate version
                };

                // Create the QR code
                QrCode qrCode = QrWriter.Write(dynamicUrl, options);

                // Style the QR code for branding
                var styleOptions = new QrStyleOptions
                {
                    BackgroundColor = Color.White,
                    ForegroundColor = Color.FromHex("#003366"),
                    Dimensions = 600, // High resolution for print
                    Margins = 20
                };

                // Apply styling
                AnyBitmap styledQr = qrCode.Save(styleOptions);

                // Save with metadata-rich filename
                string fileName = $"qr_{campaignId}_{DateTime.Now:yyyyMMddHHmmss}.png";
                string filePath = styledQr.SaveAs(fileName);

                // Log generation for audit trail
                LogQRGeneration(trackingId, campaignId, destinationUrl, metadata);

                return new QrResult
                {
                    Success = true,
                    FilePath = filePath,
                    TrackingId = trackingId,
                    DynamicUrl = dynamicUrl
                };
            }
            catch (Exception ex)
            {
                // Comprehensive error handling for enterprise logging
                LogError($"QR generation failed for campaign {campaignId}", ex);
                return new QrResult { Success = false, ErrorMessage = ex.Message };
            }
        }

        // Batch generate QR codes for campaign
        public List<QrResult> GenerateBulkQRCodes(string campaignId, List<QrTarget> targets)
        {
            var results = new List<QrResult>();

            foreach (var target in targets)
            {
                var metadata = new Dictionary<string, string>
                {
                    { "targetId", target.Id },
                    { "segment", target.Segment },
                    { "region", target.Region }
                };

                var result = GenerateTrackedQR(campaignId, target.DestinationUrl, metadata);
                results.Add(result);
            }

            return results;
        }

        private void LogQRGeneration(string trackingId, string campaignId, string destinationUrl, Dictionary<string, string> metadata)
        {
            // Implement enterprise logging for compliance
            // This would integrate with your logging infrastructure
        }

        private void LogError(string message, Exception ex)
        {
            // Implement enterprise error logging
            // This would integrate with your monitoring system
        }
    }

    public class QrResult
    {
        public bool Success { get; set; }
        public string FilePath { get; set; }
        public string TrackingId { get; set; }
        public string DynamicUrl { get; set; }
        public string ErrorMessage { get; set; }
    }

    public class QrTarget
    {
        public string Id { get; set; }
        public string DestinationUrl { get; set; }
        public string Segment { get; set; }
        public string Region { get; set; }
    }
}

Imports IronQr
Imports IronSoftware.Drawing
Imports System
Imports System.Collections.Generic

Namespace EnterpriseQRGenerator
    Public Class DynamicQRService
        Private ReadOnly _baseRedirectUrl As String = "___PROTECTED_URL_62___"

        ' Generate a tracked QR code with metadata
        Public Function GenerateTrackedQR(campaignId As String, destinationUrl As String, metadata As Dictionary(Of String, String)) As QrResult
            Try
                ' Create a trackable redirect URL
                Dim trackingId As String = Guid.NewGuid().ToString()
                Dim dynamicUrl As String = $"{_baseRedirectUrl}{trackingId}"

                ' Generate QR code with advanced options
                Dim options As New QrOptions With {
                    .ErrorCorrection = QrErrorCorrectionLevel.High,
                    .QuietZone = 4,
                    .Version = 0 ' Auto-select appropriate version
                }

                ' Create the QR code
                Dim qrCode As QrCode = QrWriter.Write(dynamicUrl, options)

                ' Style the QR code for branding
                Dim styleOptions As New QrStyleOptions With {
                    .BackgroundColor = Color.White,
                    .ForegroundColor = Color.FromHex("#003366"),
                    .Dimensions = 600, ' High resolution for print
                    .Margins = 20
                }

                ' Apply styling
                Dim styledQr As AnyBitmap = qrCode.Save(styleOptions)

                ' Save with metadata-rich filename
                Dim fileName As String = $"qr_{campaignId}_{DateTime.Now:yyyyMMddHHmmss}.png"
                Dim filePath As String = styledQr.SaveAs(fileName)

                ' Log generation for audit trail
                LogQRGeneration(trackingId, campaignId, destinationUrl, metadata)

                Return New QrResult With {
                    .Success = True,
                    .FilePath = filePath,
                    .TrackingId = trackingId,
                    .DynamicUrl = dynamicUrl
                }
            Catch ex As Exception
                ' Comprehensive error handling for enterprise logging
                LogError($"QR generation failed for campaign {campaignId}", ex)
                Return New QrResult With {.Success = False, .ErrorMessage = ex.Message}
            End Try
        End Function

        ' Batch generate QR codes for campaign
        Public Function GenerateBulkQRCodes(campaignId As String, targets As List(Of QrTarget)) As List(Of QrResult)
            Dim results As New List(Of QrResult)()

            For Each target In targets
                Dim metadata As New Dictionary(Of String, String) From {
                    {"targetId", target.Id},
                    {"segment", target.Segment},
                    {"region", target.Region}
                }

                Dim result As QrResult = GenerateTrackedQR(campaignId, target.DestinationUrl, metadata)
                results.Add(result)
            Next

            Return results
        End Function

        Private Sub LogQRGeneration(trackingId As String, campaignId As String, destinationUrl As String, metadata As Dictionary(Of String, String))
            ' Implement enterprise logging for compliance
            ' This would integrate with your logging infrastructure
        End Sub

        Private Sub LogError(message As String, ex As Exception)
            ' Implement enterprise error logging
            ' This would integrate with your monitoring system
        End Sub
    End Class

    Public Class QrResult
        Public Property Success As Boolean
        Public Property FilePath As String
        Public Property TrackingId As String
        Public Property DynamicUrl As String
        Public Property ErrorMessage As String
    End Class

    Public Class QrTarget
        Public Property Id As String
        Public Property DestinationUrl As String
        Public Property Segment As String
        Public Property Region As String
    End Class
End Namespace