liquanhai
liquanhai

rmbtPDF417

{----------------------------------------------------------------------------- 
 Unit Name: RM_barC2 
 Author:    lz 
 Email:     [email protected] 
 此代码献给所有喜欢编码的朋友，和我的最爱的huang xiao。 
-----------------------------------------------------------------------------} 
 
unit RM_BarCode; 
 
interface 
 
{$I RM.INC} 
 
{$IFDEF TurboPower} 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
  Dialogs, Menus, Math, StdCtrls, RM_Class, Buttons, ExtCtrls, ComCtrls, 
  RM_Common, RM_Ctrls, RM_DsgCtrls 
  , RM_StBarC, RM_St2DBarC //SysTools 4.0 incold 
{$IFDEF USE_INTERNAL_JVCL}, rm_JvInterpreter{$ELSE}, JvInterpreter{$ENDIF} 
  {$IFDEF Delphi6}, Variants{$ENDIF}; 
 
const 
  cbDefaultText = '12345678'; 
 
type 
 
  TRMBarCodeAngleType = (rmatNone, rmat90, rmat180, rmat270); 
 
  TRMBarCodeObject = class(TComponent) // fake component 
  end; 
 
  TRMBarCodeInfo = class(TPersistent) 
  private 
    FBarCode: TStBarCode; 
    FRotationType: TRMBarCodeAngleType; 
 
    function GetBarTextFont: TFont; 
    procedure SetBarTextFont(Value: TFont); 
    function GetAddCheckChar: Boolean; 
    procedure SetAddCheckChar(Value: Boolean); 
    function GetBarCodeType: TStBarCodeType; 
    procedure SetBarCodeType(Value: TStBarCodeType); 
    function GetBarColor: TColor; 
    procedure SetBarColor(Value: TColor); 
    function GetTallGuardBars: Boolean; 
    procedure SetTallGuardBars(Value: Boolean); 
    function GetSupplementalCode: string; 
    procedure SetSupplementalCode(Value: string); 
    function GetShowGuardChars: Boolean; 
    procedure SetShowGuardChars(Value: Boolean); 
    function GetShowCode: Boolean; 
    procedure SetShowCode(Value: Boolean); 
    function GetExtendedSyntax: Boolean; 
    procedure SetExtendedSyntax(Value: Boolean); 
    function GetBearerBars: Boolean; 
    procedure SetBearerBars(Value: Boolean); 
    function GetCode128Subset: TStCode128CodeSubset; 
    procedure SetCode128Subset(Value: TStCode128CodeSubset); 
    function GetBarWidth: Double; 
    procedure SetBarWidth(Value: Double); 
    function GetBarNarrowToWideRatio: Integer; 
    procedure SetBarNarrowToWideRatio(Value: Integer); 
    function GetBarToSpaceRatio: Double; 
    procedure SetBarToSpaceRatio(Value: Double); 
  public 
    constructor Create(aBarCode: TStBarCode); 
    destructor Destroy; override; 
  published 
    property BarTextFont: TFont read GetBarTextFont write SetBarTextFont; 
    property RotationType: TRMBarCodeAngleType read FRotationType write FRotationType; 
    property AddCheckChar: Boolean read GetAddCheckChar write SetAddCheckChar; 
    property BarCodeType: TStBarCodeType read GetBarCodeType write SetBarCodeType; 
    property BarColor: TColor read GetBarColor write SetBarColor; 
    property TallGuardBars: Boolean read GetTallGuardBars write SetTallGuardBars; 
    property SupplementalCode: string read GetSupplementalCode write SetSupplementalCode; 
    property ShowGuardChars: Boolean read GetShowGuardChars write SetShowGuardChars; 
    property ShowCode: Boolean read GetShowCode write SetShowCode; 
    property ExtendedSyntax: Boolean read GetExtendedSyntax write SetExtendedSyntax; 
    property BearerBars: Boolean read GetBearerBars write SetBearerBars; 
    property Code128Subset: TStCode128CodeSubset read GetCode128Subset write SetCode128Subset; 
    property BarToSpaceRatio: Double read GetBarToSpaceRatio write SetBarToSpaceRatio; 
    property BarNarrowToWideRatio: Integer read GetBarNarrowToWideRatio write SetBarNarrowToWideRatio; 
    property BarWidth: Double read GetBarWidth write SetBarWidth; 
  end; 
 
  { TRMBarCodeView } 
  TRMBarCodeView = class(TRMReportView) 
  private 
    FBarCode: TStBarCode; 
    FBarCodeInfo: TRMBarCodeInfo; 
 
    function GetDirectDraw: Boolean; 
    procedure SetDirectDraw(Value: Boolean); 
  protected 
    function GetViewCommon: string; override; 
    procedure PlaceOnEndPage(aStream: TStream); override; 
  public 
    constructor Create; override; 
    destructor Destroy; override; 
    procedure LoadFromStream(aStream: TStream); override; 
    procedure SaveToStream(aStream: TStream); override; 
    procedure Draw(aCanvas: TCanvas); override; 
 
    procedure ShowEditor; override; 
  published 
    property LeftFrame; 
    property TopFrame; 
    property RightFrame; 
    property BottomFrame; 
    property FillColor; 
    property DataField; 
    //property BarCode: TStBarCode read FBarCode; 
    property DirectDraw: Boolean read GetDirectDraw write SetDirectDraw; 
    property PrintFrame; 
    property Printable; 
    property BarCodeInfo: TRMBarCodeInfo read FBarCodeInfo write FBarCodeInfo; 
  end; 
 
  TRM2DBarcodeType = (rmbtPDF417, rmbtMAXI); 
 
  { TRM2DBarCodeView } 
  TRM2DBarCodeView = class(TRMReportView) 
  private 
    FBarCodeType: TRM2DBarCodeType; 
    FViewpdf417: TStPDF417Barcode; 
    FViewMaxi: TStMaxiCodeBarcode; 
 
    function GetDirectDraw: Boolean; 
    procedure SetDirectDraw(Value: Boolean); 
  protected 
    function GetViewCommon: string; override; 
    procedure PlaceOnEndPage(aStream: TStream); override; 
  public 
    constructor Create; override; 
    destructor Destroy; override; 
    procedure LoadFromStream(aStream: TStream); override; 
    procedure SaveToStream(aStream: TStream); override; 
    procedure Draw(aCanvas: TCanvas); override; 
 
    procedure ShowEditor; override; 
    procedure DefinePopupMenu(aPopup: TRMCustomMenuItem); override; 
  published 
    property LeftFrame; 
    property TopFrame; 
    property RightFrame; 
    property BottomFrame; 
    property FillColor; 
    property Memo; 
    property BarCodeType: TRM2DBarCodeType read FBarCodeType write FBarCodeType; 
    //    property PDF417Barcode: TStPDF417Barcode read FViewpdf417; 
    property MaxiCodeBarcode: TStMaxiCodeBarcode read FViewMaxi; 
    property DirectDraw: Boolean read GetDirectDraw write SetDirectDraw; 
    property PrintFrame; 
    property Printable; 
  end; 
 
  { TRMBar2CodeForm } 
  TRM2DBarCodeForm = class(TForm) 
    SaveDialog1: TSaveDialog; 
    Panel3: TPanel; 
    DBBtn: TSpeedButton; 
    Label1: TLabel; 
    SpeedButton1: TSpeedButton; 
    SpeedButton2: TSpeedButton; 
    Label14: TLabel; 
    Label15: TLabel; 
    Label16: TLabel; 
    edtCode: TMemo; 
    Choos2DType: TPageControl; 
    TabSheet1: TTabSheet; 
    TabSheet2: TTabSheet; 
    btnOK: TButton; 
    btnCancel: TButton; 
    Panel1: TPanel; 
    GroupBox2: TGroupBox; 
    Label7: TLabel; 
    cmbMaxiMode: TComboBox; 
    Label10: TLabel; 
    Edit2: TEdit; 
    Edit4: TEdit; 
    Label12: TLabel; 
    Label11: TLabel; 
    Edit3: TEdit; 
    GroupBox4: TGroupBox; 
    Label2: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label5: TLabel; 
    ComboBox1: TComboBox; 
    GroupBox1: TGroupBox; 
    Label13: TLabel; 
    Label8: TLabel; 
    GroupBox3: TGroupBox; 
    Label6: TLabel; 
    Label9: TLabel; 
    CheckBox2: TCheckBox; 
    CheckBox5: TCheckBox; 
    ComboBox2: TComboBox; 
    ComboBox4: TComboBox; 
    Edit1: TEdit; 
    Edit5: TEdit; 
    CheckBox1: TCheckBox; 
    CheckBox3: TCheckBox; 
    rb1: TRadioButton; 
    rb2: TRadioButton; 
    rb3: TRadioButton; 
    procedure FormCreate(Sender: TObject); 
    procedure SpeedButton1Click(Sender: TObject); 
    procedure DBBtnClick(Sender: TObject); 
    procedure SpinEdit1KeyDown(Sender: TObject; var Key: Word; 
      Shift: TShiftState); 
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word; 
      Shift: TShiftState); 
    procedure SpinEdit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    procedure SpinEdit3KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    procedure CheckBox2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    procedure barcolorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    procedure backgroundColorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    procedure btnOKKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    procedure btnCancelKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    procedure CheckBox2Click(Sender: TObject); 
    procedure FormResize(Sender: TObject); 
    procedure Edit2KeyPress(Sender: TObject; var Key: Char); 
    procedure Edit3KeyPress(Sender: TObject; var Key: Char); 
    procedure Edit4KeyPress(Sender: TObject; var Key: Char); 
    procedure Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    procedure Edit3KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    procedure Edit4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    procedure Choos2DTypeChange(Sender: TObject); 
    procedure FormDestroy(Sender: TObject); 
    procedure Edit1DblClick(Sender: TObject); 
    procedure edtCodeChange(Sender: TObject); 
    procedure CheckBox5Click(Sender: TObject); 
    procedure CheckBox5KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
    procedure SpinEdit1Change(Sender: TObject); 
    procedure ComboBox1Change(Sender: TObject); 
    procedure ComboBox2Change(Sender: TObject); 
    procedure Edit1Change(Sender: TObject); 
    procedure CheckBox1Click(Sender: TObject); 
    procedure CheckBox3Click(Sender: TObject); 
    procedure CheckBox4Click(Sender: TObject); 
    procedure Edit2Change(Sender: TObject); 
    procedure Edit4Change(Sender: TObject); 
    procedure Edit3Change(Sender: TObject); 
    procedure cmbMaxiModeChange(Sender: TObject); 
    procedure ComboBox4Change(Sender: TObject); 
    procedure Edit5Change(Sender: TObject); 
    procedure FormShow(Sender: TObject); 
    procedure edtCodeKeyDown(Sender: TObject; var Key: Word; 
      Shift: TShiftState); 
    procedure SpeedButton2Click(Sender: TObject); 
    procedure RB1Click(Sender: TObject); 
    procedure rb2Click(Sender: TObject); 
    procedure rb3Click(Sender: TObject); 
  private 
    { Private declarations } 
    FPDF417: TStPDF417Barcode; 
    FMaxi: TStMaxiCodeBarcode; 
    FSpinEdit1, FSpinEdit2, FSpinEdit3: TRMSpinEdit; 
    FBusy: Boolean; 
    function Check2BarCode(S: ansistring): Boolean; 
    procedure Localize; 
    procedure ShowSample; 
  public 
    { Public declarations } 
  end; 
 
  {$ENDIF} 
implementation 
 
{$R *.dfm} 
 
{$IFDEF TurboPower} 
 
uses RM_Const, RM_Utils, RM_EditorBarCode; 
 
const 
  flBarcodeDirectDraw = $2; 
 
procedure RotateWmf(AWmf, DestWmf: TMetaFile; const Angle: Double); 
var 
  d1, d2, d3, d4, d5, d6: Double; 
  pXf: XFORM; 
  liMetafile: TMetafile; 
  liMetafileCanvas: TMetafileCanvas; 
  R: TRect; 
 
  function _CalAngle(PointX, PointY: Double): Double; 
  var 
    d1, d2, d3: Double; 
  begin 
    d1 := -PointX; 
    d2 := -PointY; 
    if d1 <> 0 then 
    begin 
      d3 := ArcTan(Abs(d2 / d1)) * 180 / PI; 
      if (d2 > 0) and (d1 < 0) then 
        d3 := 180 - d3 
      else if (d2 <= 0) and (d1 < 0) then 
        d3 := d3 + 180 
      else if (d2 < 0) and (d1 > 0) then 
        d3 := 360 - d3; 
    end 
    else 
    begin 
      if d2 > 0 then 
        d3 := 90 
      else if D2 < 0 then 
        d3 := 270 
      else 
        d3 := -1; 
    end; 
    Result := d3; 
  end; 
 
begin 
  if not Assigned(AWmf) or (Angle = 0) then 
    Exit; 
  if (AWmf.Width = 0) or (AWmf.Height = 0) then 
    Exit; 
 
  with pXf do 
  begin 
    d3 := -Angle * PI / 180; 
    d1 := COS(d3); 
    d2 := SIN(d3); 
 
    eM11 := d1; 
    eM12 := d2; 
    eM21 := -d2; 
    eM22 := d1; 
 
    d4 := AWmf.Width / 2; 
    d5 := AWmf.Height / 2; 
 
    d3 := _CalAngle(d4, d5) - Angle; 
    d3 := -d3 * PI / 180; 
 
    d6 := sqrt(d4 * d4 + d5 * d5); 
    d1 := COS(d3) * d6 + d4; 
    d2 := -SIN(d3) * d6 + d5; 
 
    eDx := d1; 
    eDy := d2; 
  end; 
 
  liMetafile := TMetafile.Create; 
  try 
    R := Rect(0, 0, AWmf.Width, AWmf.Height); 
    liMetafile.Width := AWmf.Width; 
    liMetafile.Height := AWmf.Height; 
 
    liMetafileCanvas := TMetafileCanvas.Create(liMetafile, 0); 
    try 
      SetGraphicsMode(AWmf.Handle, GM_COMPATIBLE); 
      SetGraphicsMode(liMetafileCanvas.Handle, GM_ADVANCED); 
      SetWorldTransform(liMetafileCanvas.Handle, pXf); 
      PlayEnhMetaFile(liMetafileCanvas.Handle, AWmf.Handle, R); 
    finally 
      liMetafileCanvas.Free; 
    end; 
 
    DestWmf.Clear; 
    DestWmf.Assign(liMetafile); 
  finally 
    liMetafile.Free; 
  end; 
end; 
 
{------------------------------------------------------------------------------} 
{------------------------------------------------------------------------------} 
{ TRMBarCodeInfo } 
 
constructor TRMBarCodeInfo.Create(aBarCode: TStBarCode); 
begin 
  inherited Create; 
 
  FRotationType := rmatNone; 
  FBarCode := aBarCode; 
end; 
 
destructor TRMBarCodeInfo.Destroy; 
begin 
  inherited; 
end; 
 
function TRMBarCodeInfo.GetBarTextFont: TFont; 
begin 
  Result := FBarCode.Font; 
end; 
 
procedure TRMBarCodeInfo.SetBarTextFont(Value: TFont); 
begin 
  FBarCode.Font.Assign(Value); 
end; 
 
function TRMBarCodeInfo.GetAddCheckChar: Boolean; 
begin 
  Result := FBarCode.AddCheckChar; 
end; 
 
procedure TRMBarCodeInfo.SetAddCheckChar(Value: Boolean); 
begin 
  FBarCode.AddCheckChar := Value; 
end; 
 
function TRMBarCodeInfo.GetBarCodeType: TStBarCodeType; 
begin 
  Result := FBarCode.BarCodeType; 
end; 
 
procedure TRMBarCodeInfo.SetBarCodeType(Value: TStBarCodeType); 
begin 
  FBarCode.BarCodeType := Value; 
end; 
 
function TRMBarCodeInfo.GetBarColor: TColor; 
begin 
  Result := FBarCode.BarColor; 
end; 
 
procedure TRMBarCodeInfo.SetBarColor(Value: TColor); 
begin 
  FBarCode.BarColor := Value; 
end; 
 
function TRMBarCodeInfo.GetTallGuardBars: Boolean; 
begin 
  Result := FBarCode.TallGuardBars; 
end; 
 
procedure TRMBarCodeInfo.SetTallGuardBars(Value: Boolean); 
begin 
  FBarCode.TallGuardBars := Value; 
end; 
 
function TRMBarCodeInfo.GetSupplementalCode: string; 
begin 
  Result := FBarCode.SupplementalCode; 
end; 
 
procedure TRMBarCodeInfo.SetSupplementalCode(Value: string); 
begin 
  FBarCode.SupplementalCode := Value; 
end; 
 
function TRMBarCodeInfo.GetShowGuardChars: Boolean; 
begin 
  Result := FBarCode.ShowGuardChars; 
end; 
 
procedure TRMBarCodeInfo.SetShowGuardChars(Value: Boolean); 
begin 
  FBarCode.ShowGuardChars := Value; 
end; 
 
function TRMBarCodeInfo.GetShowCode: Boolean; 
begin 
  Result := FBarCode.ShowCode; 
end; 
 
procedure TRMBarCodeInfo.SetShowCode(Value: Boolean); 
begin 
  FBarCode.ShowCode := Value; 
end; 
 
function TRMBarCodeInfo.GetExtendedSyntax: Boolean; 
begin 
  Result := FBarCode.ExtendedSyntax; 
end; 
 
procedure TRMBarCodeInfo.SetExtendedSyntax(Value: Boolean); 
begin 
  FBarCode.ExtendedSyntax := Value; 
end; 
 
function TRMBarCodeInfo.GetBearerBars: Boolean; 
begin 
  Result := FBarCode.BearerBars; 
end; 
 
procedure TRMBarCodeInfo.SetBearerBars(Value: Boolean); 
begin 
  FBarCode.BearerBars := Value; 
end; 
 
function TRMBarCodeInfo.GetCode128Subset: TStCode128CodeSubset; 
begin 
  Result := FBarCode.Code128Subset; 
end; 
 
procedure TRMBarCodeInfo.SetCode128Subset(Value: TStCode128CodeSubset); 
begin 
  FBarCode.Code128Subset := Value; 
end; 
 
function TRMBarCodeInfo.GetBarWidth: Double; 
begin 
  Result := FBarCode.BarWidth; 
end; 
 
procedure TRMBarCodeInfo.SetBarWidth(Value: Double); 
begin 
  FBarCode.BarWidth := Value; 
end; 
 
function TRMBarCodeInfo.GetBarNarrowToWideRatio: Integer; 
begin 
  Result := FBarCode.BarNarrowToWideRatio; 
end; 
 
procedure TRMBarCodeInfo.SetBarNarrowToWideRatio(Value: Integer); 
begin 
  FBarCode.BarNarrowToWideRatio := Value; 
end; 
 
function TRMBarCodeInfo.GetBarToSpaceRatio: Double; 
begin 
  Result := FBarCode.BarToSpaceRatio; 
end; 
 
procedure TRMBarCodeInfo.SetBarToSpaceRatio(Value: Double); 
begin 
  FBarCode.BarToSpaceRatio := Value; 
end; 
 
{------------------------------------------------------------------------------} 
{------------------------------------------------------------------------------} 
{ TRMBarCodeView } 
 
type 
  THackBarCode = class(TStBarCode) 
  end; 
 
constructor TRMBarCodeView.Create; 
begin 
  inherited Create; 
  BaseName := 'BarCode'; 
 
  FBarCode := TStBarCode.Create(nil); 
  FBarCodeInfo := TRMBarCodeInfo.Create(FBarCode); 
end; 
 
destructor TRMBarCodeView.Destroy; 
begin 
  FreeAndNil(FBarCodeInfo); 
  FreeAndNil(FBarCode); 
 
  inherited Destroy; 
end; 
 
procedure TRMBarCodeView.Draw(aCanvas: TCanvas); 
var 
  liCodeStr: string; 
  EMF, liEmf1: TMetafile; 
  EMFCanvas: TMetafileCanvas; 
begin 
  BeginDraw(aCanvas); 
  Memo1.Assign(Memo); 
 
  if (Memo1.Count > 0) and (Length(Memo1[0]) > 0) and 
    ((FBarCode.BarCodeType in [bcCode39, bcCode128, bcCodabar]) or RMisNumeric(Memo1[0])) then 
    liCodeStr := Memo1[0] 
  else 
    liCodeStr := cbDefaultText; 
 
  try 
    FBarCode.Code := liCodeStr; 
  except 
    FBarCode.Code := cbDefaultText; 
  end; 
 
  EMF := TMetafile.Create; 
  EMF.Width := spWidth; 
  EMF.Height := spHeight; 
  EMFCanvas := TMetafileCanvas.Create(EMF, 0); 
  FBarCode.PaintToCanvas(EMFCanvas, Rect(0, 0, spWidth, spHeight)); 
 
  EMFCanvas.Free; 
 
  CalcGaps; 
 
  liEmf1 := nil; 
  ShowBackground; 
  IntersectClipRect(aCanvas.Handle, RealRect.Left, RealRect.Top, RealRect.Right, RealRect.Bottom); 
  try 
    case FBarCodeInfo.RotationType of 
      rmatNone: 
        begin 
          RMPrintGraphic(aCanvas, RealRect, emf, IsPrinting, DirectDraw, False); 
          //          aCanvas.StretchDraw(RealRect, EMF); 
        end; 
      rmat90: 
        begin 
          liEMF1 := TMetafile.Create; 
          liEMF1.Width := spWidth; 
          liEMF1.Height := spHeight; 
          RotateWmf(emf, liEmf1, 90); 
          RMPrintGraphic(aCanvas, RealRect, liEmf1, IsPrinting, DirectDraw, False); 
          aCanvas.StretchDraw(RealRect, liEmf1); 
        end; 
      rmat180: 
        begin 
          liEMF1 := TMetafile.Create; 
          liEMF1.Width := spWidth; 
          liEMF1.Height := spHeight; 
          RotateWmf(emf, liEmf1, 180); 
          RMPrintGraphic(aCanvas, RealRect, liEmf1, IsPrinting, DirectDraw, False); 
          //          aCanvas.StretchDraw(RealRect, liEmf1); 
        end; 
      rmat270: 
        begin 
          liEMF1 := TMetafile.Create; 
          liEMF1.Width := spWidth; 
          liEMF1.Height := spHeight; 
          RotateWmf(emf, liEmf1, 270); 
          RMPrintGraphic(aCanvas, RealRect, liEmf1, IsPrinting, DirectDraw, False); 
          //          aCanvas.StretchDraw(RealRect, liEmf1); 
        end; 
    end; 
  finally 
    Windows.SelectClipRgn(aCanvas.Handle, 0); 
  end; 
  liEmf1.Free; 
  EMF.Free; 
 
  ShowFrame; 
  RestoreCoord; 
end; 
 
procedure TRMBarCodeView.PlaceOnEndPage(aStream: TStream); 
begin 
  inherited; 
end; 
 
procedure TRMBarCodeView.LoadFromStream(aStream: TStream); 
begin 
  inherited LoadFromStream(aStream); 
  RMReadWord(aStream); 
  FBarCodeInfo.RotationType := TRMBarCodeAngleType(RMReadByte(aStream)); 
  RMReadFont(aStream, FBarCode.Font); 
  FBarCode.AddCheckChar := RMReadBoolean(aStream); 
  FBarCode.BarCodeType := TStBarCodeType(RMReadByte(aStream)); 
  FBarCode.BarColor := RMReadInt32(aStream); 
  FBarCode.BarToSpaceRatio := RMReadInt32(aStream) / 1000; 
  FBarCode.BarNarrowToWideRatio := RMReadInt32(aStream); 
  FBarCode.BarWidth := RMReadInt32(aStream) / 1000; 
  FBarCode.BearerBars := RMReadBoolean(aStream); 
  FBarCode.Code128Subset := TStCode128CodeSubset(RMReadByte(aStream)); 
  FBarCode.ExtendedSyntax := RMReadBoolean(aStream); 
  FBarCode.ShowCode := RMReadBoolean(aStream); 
  FBarCode.ShowGuardChars := RMReadBoolean(aStream); 
  FBarCode.SupplementalCode := RMReadString(aStream); 
  FBarCode.TallGuardBars := RMReadBoolean(aStream); 
end; 
 
procedure TRMBarCodeView.SaveToStream(aStream: TStream); 
begin 
  inherited SaveToStream(aStream); 
  RMWriteWord(aStream, 0); // 版本号 
  RMWriteByte(aStream, Byte(FBarCodeInfo.RotationType)); 
  RMWriteFont(aStream, FBarCode.Font); 
  RMWriteBoolean(aStream, FBarCode.AddCheckChar); 
  RMWriteByte(aStream, Byte(FBarCode.BarCodeType)); 
  RMWriteInt32(aStream, FBarCode.BarColor); 
  RMWriteInt32(aStream, Round(FBarCode.BarToSpaceRatio * 1000)); 
  RMWriteInt32(aStream, FBarCode.BarNarrowToWideRatio); 
  RMWriteInt32(aStream, Round(FBarCode.BarWidth * 1000)); 
  RMWriteBoolean(aStream, FBarCode.BearerBars); 
  RMWriteByte(aStream, Byte(FBarCode.Code128Subset)); 
  RMWriteBoolean(aStream, FBarCode.ExtendedSyntax); 
  RMWriteBoolean(aStream, FBarCode.ShowCode); 
  RMWriteBoolean(aStream, FBarCode.ShowGuardChars); 
  RMWriteString(aStream, FBarCode.SupplementalCode); 
  RMWriteBoolean(aStream, FBarCode.TallGuardBars); 
end; 
 
procedure TRMBarCodeView.ShowEditor; 
var 
  tmp: TRMBarcodeForm; 
begin 
  tmp := TRMBarcodeForm.Create(nil); 
  try 
    tmp.edtCode.Text := cbDefaultText; 
    tmp.cmbTypes.ItemIndex := ord(FBarCode.BarCodeType); 
    tmp.chkAddCheckChar.Checked := FBarCode.AddCheckChar; 
    tmp.eZoom.Text := FloatToStr(FBarCode.BarToSpaceRatio); 
    tmp.chkViewText.Checked := FBarCode.ShowCode; 
    tmp.chkTallGuardBars.Checked := FBarCode.TallGuardBars; 
    if Memo.Count > 0 then 
      tmp.edtCode.Text := Memo.Strings[0]; 
    if tmp.ShowModal = mrOk then 
    begin 
      RMDesigner.BeforeChange; 
      Memo.Clear; 
      Memo.Add(tmp.edtCode.Text); 
      FBarCode.BarCodeType := TStBarCodeType(tmp.cmbTypes.ItemIndex); 
      FBarCode.AddCheckChar := tmp.chkAddCheckChar.Checked; 
      FBarCode.BarToSpaceRatio := StrToFloat(tmp.eZoom.Text); 
      FBarCode.ShowCode := tmp.chkViewText.Checked; 
      FBarCode.TallGuardBars := tmp.chkTallGuardBars.Checked; 
    end; 
  finally 
    tmp.Free; 
  end; 
end; 
 
function TRMBarCodeView.GetDirectDraw: Boolean; 
begin 
  Result := (FFlags and flBarCodeDirectDraw) = flBarCodeDirectDraw; 
end; 
 
procedure TRMBarCodeView.SetDirectDraw(Value: Boolean); 
begin 
  FFlags := (FFlags and not flBarCodeDirectDraw); 
  if Value then 
    FFlags := FFlags + flBarCodeDirectDraw; 
end; 
 
function TRMBarCodeView.GetViewCommon: string; 
begin 
  Result := '[BarCode]'; 
end; 
 
{------------------------------------------------------------------------------} 
{------------------------------------------------------------------------------} 
{ TRM2DBarCodeView } 
 
constructor TRM2DBarCodeView.Create; 
begin 
  inherited Create; 
  BaseName := 'BarCode2D'; 
 
  FBarCodeType := rmbtPDF417; 
 
  FViewpdf417 := TStPDF417Barcode.Create(nil); 
  FViewMaxi := TStMaxiCodeBarcode.Create(nil); //121 * 121 
  FillColor := clWhite; 
  spHeight := 80; 
  spWidth := 300; 
end; 
 
destructor TRM2DBarCodeView.Destroy; 
begin 
  FViewpdf417.Free; 
  FViewMaxi.Free; 
  inherited Destroy; 
end; 
 
type 
  THack2dBarCode = class(TStCustom2DBarcode) 
  end; 
 
procedure TRM2DBarCodeView.Draw(aCanvas: TCanvas); 
var 
  liBarCodeStr: string; 
  liEmf: TMetafile; 
  liEmfCanvas: TMetafileCanvas; 
  Fixcolor: Tcolor; 
begin 
  //  spHeight := Param.cheight + 4; 
  //  spWidth := Param.cwidth + 4; 
  Fixcolor := clWhite; // $00F8F8F8; //248 248 248 2003-3-25 
  BeginDraw(aCanvas); 
  Memo1.Assign(Memo); 
  if Memo1.Count > 0 then 
  begin 
    liBarCodeStr := Memo1.Text; 
    if liBarCodeStr <> '' then 
      SetLength(liBarCodeStr, Length(liBarCodeStr) - 2); 
  end 
  else 
    liBarCodeStr := ''; 
 
  liEmf := TMetafile.Create; 
  liEmf.Width := spWidth; 
  liEmf.Height := spHeight; 
  liEmfCanvas := TMetafileCanvas.Create(liEmf, 0); 
 
  if FBarCodeType = rmbtpdf417 then 
  begin 
    FViewpdf417.code := liBarCodeStr; 
    FViewpdf417.SetBounds(0, 0, spWidth, spHeight); 
    THack2dBarCode(FViewpdf417).GenerateBarcodeBitmap(spWidth, spHeight); 
    with FViewpdf417 do 
    begin 
      liEMFCanvas.Brush.Color := FillColor; 
      liEMFCanvas.Brushcopy(Rect(0, 0, Bitmap.Width, Bitmap.Height), Bitmap, 
        Rect(0, 0, Bitmap.Width, Bitmap.Height), Fixcolor); 
    end; 
  end 
  else 
  begin 
    FViewMaxi.Code := liBarCodeStr; 
    FViewMaxi.SetBounds(0, 0, spWidth, spHeight); 
    THack2dBarCode(FViewMaxi).GenerateBarcodeBitmap(spWidth, spHeight); 
    with FViewMaxi do 
    begin 
      liEMFCanvas.Brush.Color := FillColor; 
      liEMFCanvas.Brushcopy(Rect(0, 0, Bitmap.Width, Bitmap.Height), Bitmap, 
        Rect(0, 0, Bitmap.Width, Bitmap.Height), Fixcolor); 
    end; 
  end; 
 
  liEmfCanvas.Free; 
  CalcGaps; 
 
  ShowBackground; 
  IntersectClipRect(aCanvas.Handle, RealRect.Left, RealRect.Top, RealRect.Right, RealRect.Bottom); 
  try 
    RMPrintGraphic(aCanvas, RealRect, liEmf, IsPrinting, DirectDraw, False); 
    //    aCanvas.StretchDraw(RealRect, liEMF); 
  finally 
    Windows.SelectClipRgn(aCanvas.Handle, 0); 
  end; 
  liEMF.Free; 
 
  ShowFrame; 
  RestoreCoord; 
end; 
 
procedure TRM2DBarCodeView.PlaceOnEndPage(aStream: TStream); 
begin 
  inherited; 
end; 
 
procedure TRM2DBarCodeView.LoadFromStream(aStream: TStream); 
begin 
  inherited LoadFromStream(aStream); 
  RMReadWord(aStream); 
  FBarCodeType := TRM2DBarCodeType(RMReadByte(aStream)); 
  if FBarCodeType = rmbtpdf417 then 
  begin 
    FViewpdf417.ECCLevel := TStPDF417ECCLevels(RMReadByte(aStream)); 
    FViewpdf417.NumColumns := RMReadInt32(aStream); 
    FViewpdf417.NumRows := RMReadInt32(aStream); 
    FViewpdf417.Truncated := RMReadBoolean(aStream); 
 
    FViewpdf417.BarHeight := RMReadInt32(aStream); 
    FViewpdf417.BarHeightToWidth := RMReadInt32(aStream); 
    FViewpdf417.BarWidth := RMReadInt32(aStream); 
    FViewpdf417.CaptionLayout := TTextLayout(RMReadByte(aStream)); 
    FViewpdf417.ExtendedSyntax := RMReadBoolean(aStream); 
    FViewpdf417.RelativeBarHeight := RMReadBoolean(aStream); 
    FViewpdf417.QuietZone := RMReadInt32(aStream); 
    FViewpdf417.Caption := RMReadString(aStream); 
    RMReadFont(aStream, FViewpdf417.Font); 
  end 
  else if FBarCodeType = rmbtMAXI then 
  begin 
    FViewMaxi.AutoScale := RMReadBoolean(aStream); 
    FViewMaxi.CarrierCountryCode := RMReadInt32(aStream); 
    FViewMaxi.CarrierPostalCode := RMReadString(aStream); 
    FViewMaxi.CarrierServiceClass := RMReadInt32(aStream); 
    FViewMaxi.HorPixelsPerMM := RMReadInt32(aStream) / 1000; 
    FViewMaxi.Mode := TStMaxiCodeMode(RMReadByte(aStream)); 
    FViewMaxi.VerPixelsPerMM := RMReadInt32(aStream) / 1000; 
 
    FViewMaxi.BarHeight := RMReadInt32(aStream); 
    FViewMaxi.BarHeightToWidth := RMReadInt32(aStream); 
    FViewMaxi.BarWidth := RMReadInt32(aStream); 
    FViewMaxi.CaptionLayout := TTextLayout(RMReadByte(aStream)); 
    FViewMaxi.ExtendedSyntax := RMReadBoolean(aStream); 
    FViewMaxi.RelativeBarHeight := RMReadBoolean(aStream); 
    FViewMaxi.QuietZone := RMReadInt32(aStream); 
    FViewMaxi.Caption := RMReadString(aStream); 
    RMReadFont(aStream, FViewMaxi.Font); 
  end; 
end; 
 
procedure TRM2DBarCodeView.SaveToStream(aStream: TStream); 
begin 
  inherited SaveToStream(aStream); 
  RMWriteWord(aStream, 0); // 版本号 
  RMWriteByte(aStream, Byte(FBarCodeType)); 
  if FBarCodeType = rmbtpdf417 then 
  begin 
    RMWriteByte(aStream, Byte(FViewpdf417.ECCLevel)); 
    RMWriteInt32(aStream, FViewpdf417.NumColumns); 
    RMWriteInt32(aStream, FViewpdf417.NumRows); 
    RMWriteBoolean(aStream, FViewpdf417.Truncated); 
 
    RMWriteInt32(aStream, FViewpdf417.BarHeight); 
    RMWriteInt32(aStream, FViewpdf417.BarHeightToWidth); 
    RMWriteInt32(aStream, FViewpdf417.BarWidth); 
    RMWriteByte(aStream, Byte(FViewpdf417.CaptionLayout)); 
    RMWriteBoolean(aStream, FViewpdf417.ExtendedSyntax); 
    RMWriteBoolean(aStream, FViewpdf417.RelativeBarHeight); 
    RMWriteInt32(aStream, FViewpdf417.QuietZone); 
    RMWriteString(aStream, FViewpdf417.Caption); 
    RMWriteFont(aStream, FViewpdf417.Font); 
  end 
  else if FBarCodeType = rmbtMAXI then 
  begin 
    RMWriteBoolean(aStream, FViewMaxi.AutoScale); 
    RMWriteInt32(aStream, FViewMaxi.CarrierCountryCode); 
    RMWriteString(aStream, FViewMaxi.CarrierPostalCode); 
    RMWriteInt32(aStream, FViewMaxi.CarrierServiceClass); 
    RMWriteInt32(aStream, Round(FViewMaxi.HorPixelsPerMM * 1000)); 
    RMWriteByte(aStream, Byte(FViewMaxi.Mode)); 
    RMWriteInt32(aStream, Round(FViewMaxi.VerPixelsPerMM * 1000)); 
 
    RMWriteInt32(aStream, FViewMaxi.BarHeight); 
    RMWriteInt32(aStream, FViewMaxi.BarHeightToWidth); 
    RMWriteInt32(aStream, FViewMaxi.BarWidth); 
    RMWriteByte(aStream, Byte(FViewMaxi.CaptionLayout)); 
    RMWriteBoolean(aStream, FViewMaxi.ExtendedSyntax); 
    RMWriteBoolean(aStream, FViewMaxi.RelativeBarHeight); 
    RMWriteInt32(aStream, FViewMaxi.QuietZone); 
    RMWriteString(aStream, FViewMaxi.Caption); 
    RMWriteFont(aStream, FViewMaxi.Font); 
  end; 
end; 
 
procedure TRM2DBarCodeView.ShowEditor; 
var 
  tmpForm: TRM2DBarcodeForm; 
begin 
  tmpForm := TRM2DBarcodeForm.Create(nil); 
  try 
    tmpForm.FBusy := True; 
    tmpForm.edtCode.Text := Memo.Text; 
 
    tmpForm.CheckBox2.Checked := FViewpdf417.Caption <> ''; 
    tmpForm.Edit1.Text := FViewpdf417.Caption; 
    tmpForm.ComboBox2.ItemIndex := Byte(FViewpdf417.CaptionLayout); 
    tmpForm.FSpinEdit1.Value := FViewpdf417.BarWidth; 
 
    tmpForm.FSpinEdit2.Value := FViewpdf417.NumColumns; 
    tmpForm.FSpinEdit3.Value := FViewpdf417.NumRows; 
    tmpForm.CheckBox1.Checked := FViewpdf417.Truncated; 
    tmpForm.ComboBox1.ItemIndex := Byte(FViewpdf417.ECCLevel); 
    tmpForm.CheckBox3.Checked := FViewpdf417.RelativeBarHeight; 
    // tmpForm.CheckBox4.Checked:=FViewpdf417.ParentColor; 
    if FViewpdf417.Alignment = taCenter then 
      tmpForm.rb2.Checked := True 
    else if FViewpdf417.Alignment = taLeftJustify then 
      tmpForm.rb1.Checked := True 
    else if FViewpdf417.Alignment = taRightJustify then 
      tmpForm.rb3.Checked := True; 
 
    tmpForm.CheckBox5.Checked := FViewMaxi.Caption <> ''; 
    tmpForm.Edit5.Text := FViewMaxi.Caption; 
    tmpForm.ComboBox4.ItemIndex := Byte(FViewMaxi.CaptionLayout); 
    tmpForm.Edit2.Text := IntToStr(FViewMaxi.CarrierCountryCode); 
    tmpForm.Edit3.Text := FViewMaxi.CarrierPostalCode; 
    tmpForm.edit4.text := IntToStr(FViewMaxi.CarrierServiceClass); 
    tmpForm.cmbMaxiMode.ItemIndex := Byte(FViewMaxi.Mode); 
    if FBarCodeType = rmbtpdf417 then 
      tmpForm.Choos2DType.ActivePage := tmpForm.tabSheet1 
    else 
      tmpForm.Choos2DType.ActivePage := tmpForm.tabSheet2; 
 
    if tmpForm.ShowModal = mrOk then 
    begin 
      RMDesigner.BeforeChange; 
      Memo.Clear; 
      Memo.Add(tmpForm.edtCode.Text); 
      if tmpForm.Choos2DType.ActivePage = tmpForm.TabSheet1 then 
      begin 
        FBarCodeType := rmbtpdf417; 
        if tmpForm.CheckBox2.Checked then 
          FViewpdf417.Caption := tmpForm.Edit1.Text 
        else 
          FViewpdf417.Caption := ''; 
        FViewpdf417.CaptionLayout := TTextLayout(tmpForm.ComboBox2.ItemIndex); 
        FViewpdf417.BarWidth := tmpForm.FSpinEdit1.AsInteger; 
        FViewpdf417.NumColumns := tmpForm.FSpinEdit2.AsInteger; 
        FViewpdf417.NumRows := tmpForm.FSpinEdit3.AsInteger; 
        FViewpdf417.Truncated := tmpForm.CheckBox1.Checked; 
        //  FViewpdf417.ParentColor:=tmpForm.CheckBox4.Checked; 
 
        if tmpForm.rb2.Checked = True then 
          FViewpdf417.Alignment := taCenter 
        else if tmpForm.rb1.Checked = True then 
          FViewpdf417.Alignment := taLeftJustify 
        else if tmpForm.rb3.Checked = True then 
          FViewpdf417.Alignment := taRightJustify; 
 
        FViewpdf417.RelativeBarHeight := tmpForm.CheckBox3.Checked; 
        FViewpdf417.ECCLevel := TStPDF417ECCLevels(tmpForm.ComboBox1.ItemIndex); 
      end 
      else if tmpForm.Choos2DType.ActivePage = tmpForm.TabSheet2 then 
      begin 
        FBarCodeType := rmbtMaxi; 
        if tmpForm.CheckBox5.Checked then 
          FViewMaxi.Caption := tmpForm.Edit5.Text 
        else 
          FViewMaxi.Caption := ''; 
        FViewMaxi.CaptionLayout := TTextLayout(tmpForm.ComboBox4.ItemIndex); 
        FViewMaxi.CarrierCountryCode := StrToInt(tmpForm.Edit2.Text); 
        FViewMaxi.CarrierPostalCode := tmpForm.Edit3.Text; 
        FViewMaxi.CarrierServiceClass := StrToInt(tmpForm.edit4.text); 
        FViewMaxi.Mode := TStMaxiCodeMode(tmpForm.cmbMaxiMode.ItemIndex); 
      end; 
    end; 
  finally 
    tmpForm.Free; 
  end; 
end; 
 
procedure TRM2DBarCodeView.DefinePopupMenu(aPopup: TRMCustomMenuItem); 
begin 
  inherited; 
end; 
 
function TRM2DBarCodeView.GetDirectDraw: Boolean; 
begin 
  Result := (FFlags and flBarCodeDirectDraw) = flBarCodeDirectDraw; 
end; 
 
procedure TRM2DBarCodeView.SetDirectDraw(Value: Boolean); 
begin 
  FFlags := (FFlags and not flBarCodeDirectDraw); 
  if Value then 
    FFlags := FFlags + flBarCodeDirectDraw; 
end; 
 
function TRM2DBarCodeView.GetViewCommon: string; 
begin 
  Result := '[2DBarCode]'; 
end; 
 
{------------------------------------------------------------------------------} 
{------------------------------------------------------------------------------} 
{ TRMBar2CodeForm } 
{----------------------------------------------------------------------------- 
  Procedure: BarcodeEditor 
  Author:    lz 
  Date:      21-二月-2003 
  Arguments: Sender: TObject 
  Result:    None 
  Email : [email protected] 
-----------------------------------------------------------------------------} 
 
procedure TRM2DBarCodeForm.FormCreate(Sender: TObject); 
begin 
  FPDF417 := TStPDF417Barcode.Create(Self); 
  FPDF417.Parent := Panel1; 
  FPDF417.Align := alClient; 
  FPDF417.Code := edtCode.Text; 
 
  FMaxi := TStMaxiCodeBarcode.Create(Self); 
  FMaxi.Parent := Panel1; 
  FMaxi.Align := alClient; 
  FMaxi.Code := edtCode.Text; 
  FMaxi.Visible := False; 
 
  FSpinEdit1 := TRMSpinEdit.Create(Self); 
  with FSpinEdit1 do 
  begin 
    Parent := GroupBox4; 
    ValueType := rmvtInteger; 
    SetBounds(47, 9, 85, 22); 
    OnChange := SpinEdit1Change; 
    MinValue := 1; 
  end; 
  FSpinEdit2 := TRMSpinEdit.Create(Self); 
  with FSpinEdit2 do 
  begin 
    Parent := GroupBox4; 
    ValueType := rmvtInteger; 
    SetBounds(47, 34, 85, 22); 
    OnChange := SpinEdit1Change; 
    MinValue := 0; 
  end; 
  FSpinEdit3 := TRMSpinEdit.Create(Self); 
  with FSpinEdit3 do 
  begin 
    Parent := GroupBox4; 
    ValueType := rmvtInteger; 
    SetBounds(195, 34, 90, 22); 
    OnChange := SpinEdit1Change; 
  end; 
  edit1.Visible := False; 
  edit5.Visible := False; 
  Choos2DType.Visible := True; 
  Localize; 
end; 
 
procedure TRM2DBarCodeForm.SpeedButton1Click(Sender: TObject); 
begin 
  SaveDialog1.FileName := ''; 
  SaveDialog1.DefaultExt := '.BMP'; 
  SaveDialog1.Filter := 'BMP图形文件(*.BMP)|*.BMP'; 
  if SaveDialog1.Execute then 
  begin 
    Fpdf417.SaveToFile(SaveDialog1.FileName); 
  end; 
end; 
 
procedure TRM2DBarCodeForm.DBBtnClick(Sender: TObject); 
var 
  s: string; 
begin 
  s := RMDesigner.InsertExpression; 
  if s <> '' then 
    edtCode.SelText := s; 
end; 
 
procedure TRM2DBarCodeForm.SpinEdit1KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if (key = vk_return) then 
    SelectNext(Sender as Twincontrol, true, true); 
end; 
 
procedure TRM2DBarCodeForm.ComboBox1KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if (key = vk_return) then 
    SelectNext(Sender as Twincontrol, true, true); 
end; 
 
procedure TRM2DBarCodeForm.SpinEdit2KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if (key = vk_return) then 
    SelectNext(Sender as Twincontrol, true, true); 
end; 
 
procedure TRM2DBarCodeForm.SpinEdit3KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if (key = vk_return) then 
    SelectNext(Sender as Twincontrol, true, true); 
end; 
 
procedure TRM2DBarCodeForm.ComboBox2KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if (key = vk_return) then 
    SelectNext(Sender as Twincontrol, true, true); 
end; 
 
procedure TRM2DBarCodeForm.CheckBox2KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if CheckBox2.Checked then 
  begin 
    ComboBox2.Enabled := True; 
    label6.Enabled := True; 
    edit1.Enabled := True; 
    label9.Enabled := true; 
  end 
  else 
  begin 
    ComboBox2.Enabled := false; 
    label6.Enabled := false; 
    edit1.Enabled := False; 
    label9.Enabled := False; 
  end; 
end; 
 
procedure TRM2DBarCodeForm.barcolorKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if (key = vk_return) then 
    SelectNext(Sender as Twincontrol, true, true); 
end; 
 
procedure TRM2DBarCodeForm.backgroundColorKeyDown(Sender: TObject; 
  var Key: Word; Shift: TShiftState); 
begin 
  if (key = vk_return) then 
    SelectNext(Sender as Twincontrol, true, true); 
end; 
 
procedure TRM2DBarCodeForm.btnOKKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if (key = vk_down) then 
    SelectNext(Sender as Twincontrol, true, true) 
  else if (key = vk_up) then 
    SelectNext(Sender as Twincontrol, false, true); 
end; 
 
procedure TRM2DBarCodeForm.btnCancelKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if (key = vk_down) then 
    SelectNext(Sender as Twincontrol, true, true) 
  else if (key = vk_up) then 
    SelectNext(Sender as Twincontrol, false, true); 
end; 
 
procedure TRM2DBarCodeForm.CheckBox2Click(Sender: TObject); 
begin 
  ShowSample; 
  if CheckBox2.Checked then 
  begin 
    ComboBox2.Visible := True; 
    label13.Visible := True; 
    edit1.Visible := True; 
    label8.Visible := true; 
  end 
  else 
  begin 
    ComboBox2.Visible := False; 
    label13.Visible := False; 
    edit1.Visible := False; 
    label8.Visible := False; 
  end; 
end; 
 
procedure TRM2DBarCodeForm.FormResize(Sender: TObject); 
 
begin 
  ShowSample; 
  { 
   If RMBar2CodeForm.Width <= 481 Then 
     RMBar2CodeForm.Width := 481; 
   If RMBar2CodeForm.Height <= 337 Then 
     RMBar2CodeForm.Height := 337; 
 } 
end; 
 
procedure TRM2DBarCodeForm.Edit2KeyPress(Sender: TObject; var Key: Char); 
begin 
  if key = #13 then 
    key := #0; 
  if sender is Tedit then 
    if ('Edit2' = (sender as Tedit).name) then 
    begin 
      if (not ((key in ['0'..'9']) or (key = #8) or (key = #13) or (key = #40))) then 
        abort; 
    end; 
end; 
 
procedure TRM2DBarCodeForm.Edit3KeyPress(Sender: TObject; var Key: Char); 
begin 
  if key = #13 then 
    key := #0; 
  if sender is Tedit then 
    if ('Edit3' = (sender as Tedit).name) then 
    begin 
      if (not ((key in ['0'..'9']) or (key = #8) or (key = #13) or (key = #40))) then 
        abort; 
    end; 
end; 
 
procedure TRM2DBarCodeForm.Edit4KeyPress(Sender: TObject; var Key: Char); 
begin 
  if key = #13 then 
    key := #0; 
  if sender is Tedit then 
    if ('Edit4' = (sender as Tedit).name) then 
    begin 
      if (not ((key in ['0'..'9']) or (key = #8) or (key = #13) or (key = #40))) then 
        abort; 
    end; 
end; 
 
procedure TRM2DBarCodeForm.Edit2KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if (key = vk_down) then 
    SelectNext(Sender as Twincontrol, true, true) 
  else if (key = vk_up) then 
    SelectNext(Sender as Twincontrol, false, true); 
end; 
 
procedure TRM2DBarCodeForm.Edit3KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if (key = vk_down) then 
    SelectNext(Sender as Twincontrol, true, true) 
  else if (key = vk_up) then 
    SelectNext(Sender as Twincontrol, false, true); 
end; 
 
procedure TRM2DBarCodeForm.Edit4KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if (key = vk_down) then 
    SelectNext(Sender as Twincontrol, true, true) 
  else if (key = vk_up) then 
    SelectNext(Sender as Twincontrol, false, true); 
end; 
 
procedure TRM2DBarCodeForm.Choos2DTypeChange(Sender: TObject); 
begin 
  if Choos2DType.ActivePage = tabSheet1 then 
  begin 
    FPDF417.Visible := True; 
    Fmaxi.Visible := False; 
    edtCode.MaxLength := 0; 
    ShowSample; 
  end 
  else if Choos2DType.ActivePage = tabSheet2 then 
  begin 
    FPDF417.Visible := False; 
    edtCode.MaxLength := 85; 
    if Length(edtCode.text) > 85 then 
      edtCode.text := Copy(edtCode.text, 1, 80); 
 
    Fmaxi.Visible := True; 
    ShowSample; 
  end; 
end; 
 
procedure TRM2DBarCodeForm.Localize; 
var 
  str: string; 
  liPos: Integer; 
begin 
  Font.Name := RMLoadStr(SRMDefaultFontName); 
  Font.Size := StrToInt(RMLoadStr(SRMDefaultFontSize)); 
  Font.Charset := StrToInt(RMLoadStr(SCharset)); 
 
  RMSetStrProp(Label1, 'Caption', rmRes + 260); 
  RMSetStrProp(Label16, 'Caption', rmRes + 261); 
  RMSetStrProp(Label14, 'Caption', rmRes + 261); 
  RMSetStrProp(Label15, 'Caption', rmRes + 261); 
 
  RMSetStrProp(Label2, 'Caption', rmRes + 262); 
  RMSetStrProp(Label4, 'Caption', rmRes + 263); 
  RMSetStrProp(Label3, 'Caption', rmRes + 264); 
  RMSetStrProp(Label5, 'Caption', rmRes + 265); 
  RMSetStrProp(CheckBox2, 'Caption', rmRes + 660); 
  RMSetStrProp(Label6, 'Caption', rmRes + 661); 
  RMSetStrProp(Label9, 'Caption', rmRes + 662); 
  RMSetStrProp(CheckBox1, 'Caption', rmRes + 663); 
  RMSetStrProp(CheckBox3, 'Caption', rmRes + 664); 
  RMSetStrProp(rb1, 'Caption', rmRes + 665); 
  RMSetStrProp(rb2, 'Caption', rmRes + 666); 
  RMSetStrProp(rb3, 'Caption', rmRes + 665); 
 
  RMSetStrProp(CheckBox5, 'Caption', rmRes + 660); 
  RMSetStrProp(Label7, 'Caption', rmRes + 667); 
  RMSetStrProp(Label8, 'Caption', rmRes + 662); 
  RMSetStrProp(Label13, 'Caption', rmRes + 661); 
  RMSetStrProp(Label10, 'Caption', rmRes + 668); 
  RMSetStrProp(Label12, 'Caption', rmRes + 669); 
  RMSetStrProp(Label11, 'Caption', rmRes + 670); 
  cmbMaxiMode.Items.Clear; 
  cmbMaxiMode.Items.Add(RMLoadStr(rmRes + 672)); 
  cmbMaxiMode.Items.Add('cmMode3'); 
  cmbMaxiMode.Items.Add(RMLoadStr(rmRes + 673)); 
  cmbMaxiMode.Items.Add(RMLoadStr(rmRes + 674)); 
  cmbMaxiMode.Items.Add('cmMode6'); 
 
  RMSetStrProp(DBBtn, 'Hint', rmRes + 656); 
 
  str := RMLoadStr(rmRes + 671); 
  ComboBox2.Items.Clear; 
  liPos := Pos(';', str); 
  while liPos > 0 do 
  begin 
    ComboBox2.Items.Add(Copy(str, 1, liPos - 1)); 
    Delete(str, 1, liPos); 
    liPos := Pos(';', str); 
  end; 
  ComboBox2.Items.Add(str); 
  ComboBox4.Items.Assign(ComboBox2.Items); 
 
  btnOk.Caption := RMLoadStr(SOk); 
  btnCancel.Caption := RMLoadStr(SCancel); 
end; 
 
procedure TRM2DBarCodeForm.ShowSample; 
var 
  Xsize, Ysize: integer; 
begin 
  if Check2BarCode(edtCode.text) = false then //条码 连续的数字溢出 
    exit; 
  if FBusy then 
    Exit; 
 
  FBusy := True; 
  Fpdf417.code := ''; 
  ySize := FPDF417.Height; 
  xSize := FPDF417.Width; 
 
  if Choos2DType.ActivePage = tabSheet1 then //PDF417 
  begin 
    Fpdf417.BarWidth := FSpinEdit1.AsInteger; 
    Fpdf417.NumColumns := FSpinEdit2.AsInteger; 
    Fpdf417.NumRows := FSpinEdit3.AsInteger; 
    Fpdf417.Height := Ysize; 
    Fpdf417.Width := Xsize; 
    case ComboBox1.ItemIndex of 
      0: Fpdf417.ECCLevel := ecAuto; 
      1: Fpdf417.ECCLevel := ecLevel0; 
      2: Fpdf417.ECCLevel := ecLevel1; 
      3: Fpdf417.ECCLevel := ecLevel2; 
      4: Fpdf417.ECCLevel := ecLevel3; 
      5: Fpdf417.ECCLevel := ecLevel4; 
      6: Fpdf417.ECCLevel := ecLevel5; 
      7: Fpdf417.ECCLevel := ecLevel6; 
      8: Fpdf417.ECCLevel := ecLevel7; 
      9: Fpdf417.ECCLevel := ecLevel8; 
    else 
      Fpdf417.ECCLevel := ecAuto; 
    end; 
 
    if CheckBox1.Checked then 
      Fpdf417.Truncated := True 
    else 
      Fpdf417.Truncated := false; 
 
    if CheckBox3.checked then 
      Fpdf417.RelativeBarHeight := True 
    else 
      Fpdf417.RelativeBarHeight := False; 
 
    //   If CheckBox4.checked Then 
    //     Fpdf417.ParentColor := True 
    //   Else 
    //     Fpdf417.ParentColor := False; 
    if rb2.Checked = True then 
      Fpdf417.Alignment := taCenter 
    else if rb1.Checked = True then 
      Fpdf417.Alignment := taLeftJustify 
    else if rb3.Checked = True then 
      Fpdf417.Alignment := taRightJustify; 
 
    if CheckBox2.Checked then 
    begin 
      Fpdf417.Caption := Edit1.Text; 
      case ComboBox2.ItemIndex of 
        0: Fpdf417.CaptionLayout := tlTop; 
        1: Fpdf417.CaptionLayout := tlCenter; 
        2: Fpdf417.CaptionLayout := tlBottom; 
      else 
        Fpdf417.CaptionLayout := tlCenter; 
      end; 
    end 
    else 
      Fpdf417.Caption := ''; 
 
    Fpdf417.Code := edtCode.text; 
    label14.caption := 'Width:' + inttostr(Fpdf417.BarCodeWidth); 
    label15.caption := 'Height:' + inttostr(Fpdf417.BarCodeHeight); 
  end 
  else if Choos2DType.ActivePage = tabSheet2 then //maxicode 
  begin 
    if cmbMaxiMode.ItemIndex = 0 then 
    begin 
      FMaxi.CarrierCountryCode := StrToInt(Edit2.Text); 
      FMaxi.CarrierPostalCode := Edit3.Text; 
      FMaxi.CarrierServiceClass := StrToInt(Edit4.Text); 
      FMaxi.Mode := cmMode2; 
    end 
    else 
    begin 
      FMaxi.CarrierCountryCode := 0; 
      FMaxi.CarrierPostalCode := '000000000'; 
      FMaxi.CarrierServiceClass := 0; 
      FMaxi.Mode := cmMode4; 
    end; 
 
    if CheckBox5.Checked then 
    begin 
      FMaxi.Caption := Edit5.Text; 
      case ComboBox4.itemindex of 
        0: FMaxi.CaptionLayout := tlTop; 
        1: FMaxi.CaptionLayout := tlCenter; 
        2: FMaxi.CaptionLayout := tlBottom; 
      else 
        FMaxi.CaptionLayout := tlBottom; 
      end; 
    end 
    else 
      FMaxi.Caption := ''; 
    case cmbMaxiMode.ItemIndex of 
      0: FMaxi.Mode := cmMode2; 
      1: FMaxi.Mode := cmMode3; 
      2: FMaxi.Mode := cmMode4; 
      3: FMaxi.Mode := cmMode5; 
      4: FMaxi.Mode := cmMode6; 
    else 
      FMaxi.Mode := cmMode4; 
    end; 
    FMaxi.code := edtCode.text; 
    label14.caption := 'Width:' + inttostr(FMaxi.BarCodeWidth); 
    label15.caption := 'Height:' + inttostr(FMaxi.BarCodeHeight); 
  end 
  else 
  begin //其他 可以加入其他二维条码类型 退出 
  end; 
 
  FBusy := False; 
end; 
 
procedure TRM2DBarCodeForm.FormDestroy(Sender: TObject); 
begin 
  FPDF417.Free; 
  FMaxi.Free; 
end; 
 
procedure TRM2DBarCodeForm.Edit1DblClick(Sender: TObject); 
begin 
  Edit1.Text := ''; 
end; 
 
procedure TRM2DBarCodeForm.edtCodeChange(Sender: TObject); 
begin 
 
  if Check2BarCode(edtCode.Text) = False then 
    Edtcode.Undo 
  else 
    ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.CheckBox5Click(Sender: TObject); 
begin 
  ShowSample; 
  if CheckBox5.Checked then 
  begin 
    ComboBox4.visible := True; 
    label6.visible := True; 
    edit5.visible := True; 
    label9.visible := true; 
  end 
  else 
  begin 
    ComboBox4.visible := false; 
    label6.visible := false; 
    edit5.visible := False; 
    label9.visible := False; 
  end; 
end; 
 
procedure TRM2DBarCodeForm.CheckBox5KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if CheckBox5.Checked then 
  begin 
    ComboBox4.Enabled := True; 
    label13.Enabled := True; 
    edit5.Enabled := True; 
    label8.Enabled := true; 
  end 
  else 
  begin 
    ComboBox4.Enabled := false; 
    label13.Enabled := false; 
    edit5.Enabled := False; 
    label8.Enabled := False; 
  end; 
end; 
 
procedure TRM2DBarCodeForm.SpinEdit1Change(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.ComboBox1Change(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.ComboBox2Change(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.Edit1Change(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.CheckBox1Click(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.CheckBox3Click(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.CheckBox4Click(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.Edit2Change(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.Edit4Change(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.Edit3Change(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.cmbMaxiModeChange(Sender: TObject); 
begin 
  if cmbMaxiMode.ItemIndex >= 0 then 
    FMaxi.Mode := TStMaxiCodeMode(cmbMaxiMode.ItemIndex); 
  ShowSample; 
 
  if cmbMaxiMode.ItemIndex = 0 then 
  begin 
    label10.Enabled := True; 
    label11.Enabled := True; 
    label12.Enabled := True; 
    edit2.Enabled := True; 
    edit3.Enabled := True; 
    edit4.Enabled := True; 
  end 
  else 
  begin 
    label10.Enabled := False; 
    label11.Enabled := False; 
    label12.Enabled := False; 
    edit2.Enabled := False; 
    edit3.Enabled := False; 
    edit4.Enabled := False; 
  end; 
end; 
 
procedure TRM2DBarCodeForm.ComboBox4Change(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.Edit5Change(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.FormShow(Sender: TObject); 
begin 
  Choos2DTypeChange(nil); 
  cmbMaxiModeChange(nil); 
  FBusy := False; 
  ShowSample; 
end; 
 
function TRM2DBarCodeForm.Check2BarCode(S: ansistring): Boolean; 
const 
  Number = ['0'..'9']; //字符类型 
var 
  i, j, k: integer; 
  WS: string; 
  BKiss: TStringlist; 
begin 
  BKiss := TStringList.Create; 
  try 
    bKiss.Clear; 
    S := Trim(S + '#'); 
    j := 0; 
    Result := True; 
    for i := 1 to Length(s) do 
    begin 
      WS := ''; 
      if not (S[i] in Number) then 
      begin 
        if Length(Copy(S, j + 1, i - j - 1)) <> 0 then 
          WS := (Copy(S, j + 1, i - j - 1)); 
        j := i; 
        if trim(WS) <> '' then 
          BKiss.Append(ws); 
      end; 
    end; 
    for k := 0 to BKiss.Count - 1 do 
    begin 
      if length(BKiss.Strings[k]) > 17 then 
      begin 
        Result := False; 
        Application.MessageBox(Pchar('整形溢出错误,连续的数字不可以大于17位.' + #13 + '请效验数字类型字符"' + 
          BKiss.Strings[k] + 
          '"'), '错误', MB_OK + 
          MB_ICONSTOP); 
 
      end; 
    end; 
  finally 
    FreeAndNil(BKiss); 
  end; 
end; 
 
procedure TRM2DBarCodeForm.edtCodeKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if Check2BarCode(edtcode.Text) = false then 
end; 
 
procedure TRM2DBarCodeForm.SpeedButton2Click(Sender: TObject); 
begin 
  Application.MessageBox(Pchar( 
    '二维条码PDF417技术的特点' + #13 
    + '1 、信息量大 一个PDF417条码符号，可以将1848个字母字符或2729个数字字符或字母、数字混编字符进行    编码。在同等面积下，二维条码比一维条码信息含量高几十倍。' + 
    #13 
    + '2、容易印制 PDF417条码可以印在纸、卡片及各种常用条码载体上，可以用多种标准的打印技术及卡片印制   技术印制，包括：喷墨打印、激光打印、热敏／热转印条码打印机打印等。' + 
    #13 
    + '3、修正错误能力强 错误修正甚至可以将符号受损面积达50％的条码符号所含信息复现出来。' + #13 
    + '4、译码可靠性高 在管理数据库测试中，阅读2000万个条码符号，没有出现一例译码错误，这说明PDF417具   有极高的可靠性。' + 
    #13 
    + '5、保密性强 PDF417可以把编码信息按密码格式进行编码,防止伪造条码符号或非法使用有关编码的信息。' 
    ), '错误', MB_OK + MB_ICONINFORMATION); 
end; 
 
procedure TRM2DBarCodeForm.RB1Click(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.rb2Click(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
procedure TRM2DBarCodeForm.rb3Click(Sender: TObject); 
begin 
  ShowSample; 
end; 
 
const 
    cRM = 'RM_BarCode'; 
 
procedure RM_RegisterRAI2Adapter(RAI2Adapter: TJvInterpreterAdapter); 
begin 
  with RAI2Adapter do 
  begin 
    AddClass(cRM, TRMBarCodeView, 'TRMBarCodeView'); 
    AddClass(cRM, TRM2DBarCodeView, 'TRM2DBarCodeView'); 
  end; 
end; 
 
initialization 
  RM_RegisterRAI2Adapter(GlobalJvInterpreterAdapter); 
  RMRegisterObjectByRes(TRMBarCodeView, 'RM_BarCodeObject', RMLoadStr(SInsBarcode), nil); 
  RMRegisterObjectByRes(TRM2DBarCodeView, 'RM_2BARCODEOBJECT', RMLoadStr(SInsBarcode), nil); 
//  RMRegisterControls('ReportPage Additional', 'RM_OtherComponent', False, 
//    [TRMBarCodeView, TRM2DBarCodeView], 
//    ['RM_BarCodeObject', 'RM_2BARCODEOBJECT'], 
//    [RMLoadStr(SInsBarcode), RMLoadStr(SInsBarcode)]); 
 
finalization 
 
  {$ENDIF} 
end.

你可能感兴趣的:(rmbtPDF417)

  • rmbtPDF417 liquanhai
    {-----------------------------------------------------------------------------UnitName:RM_barC2Author:lzEmail:[email protected]此代码献给所有喜欢编码的朋友，和我的最爱的huangxiao。---------------------------------------------
  • Java常用排序算法/程序员必须掌握的8大排序算法 cugfy java
    分类： 1）插入排序（直接插入排序、希尔排序） 2）交换排序（冒泡排序、快速排序） 3）选择排序（直接选择排序、堆排序） 4）归并排序 5）分配排序（基数排序） 所需辅助空间最多：归并排序 所需辅助空间最少：堆排序 平均速度最快：快速排序 不稳定：快速排序，希尔排序，堆排序。 先来看看8种排序之间的关系：   1.直接插入排序 （1
  • 【Spark102】Spark存储模块BlockManager剖析 bit1129 manager
    Spark围绕着BlockManager构建了存储模块，包括RDD，Shuffle，Broadcast的存储都使用了BlockManager。而BlockManager在实现上是一个针对每个应用的Master/Executor结构，即Driver上BlockManager充当了Master角色，而各个Slave上(具体到应用范围，就是Executor)的BlockManager充当了Slave角色
  • linux 查看端口被占用情况详解 daizj linux端口占用netstatlsof
    经常在启动一个程序会碰到端口被占用，这里讲一下怎么查看端口是否被占用，及哪个程序占用，怎么Kill掉已占用端口的程序   1、lsof -i:port port为端口号   [root@slave /data/spark-1.4.0-bin-cdh4]# lsof -i:8080 COMMAND   PID USER   FD   TY
  • Hosts文件使用 周凡杨 hostslocahost
         一切都要从localhost说起，经常在tomcat容器起动后，访问页面时输入http://localhost:8088/index.jsp，大家都知道localhost代表本机地址，如果本机IP是10.10.134.21，那就相当于http://10.10.134.21:8088/index.jsp，有时候也会看到http: 127.0.0.1:
  • java excel工具 g21121 Java excel
    直接上代码，一看就懂，利用的是jxl： import java.io.File; import java.io.IOException; import jxl.Cell; import jxl.Sheet; import jxl.Workbook; import jxl.read.biff.BiffException; import jxl.write.Label; import
  • web报表工具finereport常用函数的用法总结（数组函数） 老A不折腾 finereportweb报表函数总结
    ADD2ARRAY ADDARRAY(array,insertArray, start):在数组第start个位置插入insertArray中的所有元素，再返回该数组。 示例： ADDARRAY([3,4, 1, 5, 7], [23, 43, 22], 3)返回[3, 4, 23, 43, 22, 1, 5, 7]. ADDARRAY([3,4, 1, 5, 7], "测试&q
  • 游戏服务器网络带宽负载计算 墙头上一根草 服务器
    家庭所安装的4M，8M宽带。其中M是指，Mbits/S 其中要提前说明的是： 8bits = 1Byte 即8位等于1字节。我们硬盘大小50G。意思是50*1024M字节，约为 50000多字节。但是网宽是以“位”为单位的，所以，8Mbits就是1M字节。是容积体积的单位。 8Mbits/s后面的S是秒。8Mbits/s意思是 每秒8M位，即每秒1M字节。 我是在计算我们网络流量时想到的
  • 我的spring学习笔记2-IoC（反向控制 依赖注入） aijuans Spring 3 系列
    IoC（反向控制 依赖注入）这是Spring提出来了，这也是Spring一大特色。这里我不用多说，我们看Spring教程就可以了解。当然我们不用Spring也可以用IoC，下面我将介绍不用Spring的IoC。 IoC不是框架，她是java的技术，如今大多数轻量级的容器都会用到IoC技术。这里我就用一个例子来说明： 如：程序中有 Mysql.calss 、Oracle.class 、SqlSe
  • 高性能mysql 之 选择存储引擎(一) annan211 mysqlInnoDBMySQL引擎存储引擎
    1 没有特殊情况，应尽可能使用InnoDB存储引擎。   原因：InnoDB 和 MYIsAM 是mysql 最常用、使用最普遍的存储引擎。其中InnoDB是最重要、最广泛的存储引擎。她   被设计用来处理大量的短期事务。短期事务大部分情况下是正常提交的，很少有回滚的情况。InnoDB的性能和自动崩溃   恢复特性使得她在非事务型存储的需求中也非常流行，除非有非常
  • UDP网络编程 百合不是茶 UDP编程局域网组播
      UDP是基于无连接的,不可靠的传输   与TCP/IP相反       UDP实现私聊,发送方式客户端,接受方式服务器 package netUDP_sc; import java.net.DatagramPacket; import java.net.DatagramSocket; import java.net.Ine
  • JQuery对象的val()方法执行结果分析 bijian1013 JavaScriptjsjquery
            JavaScript中，如果id对应的标签不存在（同理JAVA中，如果对象不存在），则调用它的方法会报错或抛异常。在实际开发中，发现JQuery在id对应的标签不存在时，调其val()方法不会报错，结果是undefined。        
  • http请求测试实例（采用json-lib解析） bijian1013 jsonhttp
            由于fastjson只支持JDK1.5版本，因些对于JDK1.4的项目，可以采用json-lib来解析JSON数据。如下是http请求的另外一种写法，仅供参考。 package com; import java.util.HashMap; import java.util.Map; import
  • 【RPC框架Hessian四】Hessian与Spring集成 bit1129 hessian
    在【RPC框架Hessian二】Hessian 对象序列化和反序列化一文中介绍了基于Hessian的RPC服务的实现步骤，在那里使用Hessian提供的API完成基于Hessian的RPC服务开发和客户端调用，本文使用Spring对Hessian的集成来实现Hessian的RPC调用。   定义模型、接口和服务器端代码 |---Model    &nb
  • 【Mahout三】基于Mahout CBayes算法的20newsgroup流程分析 bit1129 Mahout
    1.Mahout环境搭建  1.下载Mahout http://mirror.bit.edu.cn/apache/mahout/0.10.0/mahout-distribution-0.10.0.tar.gz    2.解压Mahout  3. 配置环境变量 vim /etc/profile export HADOOP_HOME=/home
  • nginx负载tomcat遇非80时的转发问题 ronin47
    　　nginx负载后端容器是tomcat（其它容器如WAS,JBOSS暂没发现这个问题）非８０端口，遇到跳转异常问题。解决的思路是：$host:port        详细如下： 　　 该问题是最先发现的，由于之前对nginx不是特别的熟悉所以该问题是个入门级别的： ? 1 2 3 4 5
  • java-17-在一个字符串中找到第一个只出现一次的字符 bylijinnan java
    public class FirstShowOnlyOnceElement { /**Q17.在一个字符串中找到第一个只出现一次的字符。如输入abaccdeff，则输出b * 1.int[] count:count[i]表示i对应字符出现的次数 * 2.将26个英文字母映射：a-z <--> 0-25 * 3.假设全部字母都是小写 */ pu
  • mongoDB 复制集 开窍的石头 mongodb
    mongo的复制集就像mysql的主从数据库，当你往其中的主复制集(primary)写数据的时候，副复制集(secondary)会自动同步主复制集(Primary)的数据,当主复制集挂掉以后其中的一个副复制集会自动成为主复制集。提供服务器的可用性。和防止当机问题             mo
  • [宇宙与天文]宇宙时代的经济学 comsci 经济
        宇宙尺度的交通工具一般都体型巨大，造价高昂。。。。。      在宇宙中进行航行，近程采用反作用力类型的发动机，需要消耗少量矿石燃料，中远程航行要采用量子或者聚变反应堆发动机，进行超空间跳跃，要消耗大量高纯度水晶体能源      以目前地球上国家的经济发展水平来讲，
  • Git忽略文件 Cwind git
         有很多文件不必使用git管理。例如Eclipse或其他IDE生成的项目文件，编译生成的各种目标或临时文件等。使用git status时，会在Untracked files里面看到这些文件列表，在一次需要添加的文件比较多时（使用git add . / git add -u），会把这些所有的未跟踪文件添加进索引。 ==== ==== ==== 一些牢骚
  • MySQL连接数据库的必须配置 dashuaifu mysql连接数据库配置
    MySQL连接数据库的必须配置   1.driverClass：com.mysql.jdbc.Driver   2.jdbcUrl：jdbc:mysql://localhost:3306/dbname   3.user：username   4.password：password   其中1是驱动名；2是url，这里的‘dbna
  • 一生要养成的60个习惯 dcj3sjt126com 习惯
    一生要养成的60个习惯 第1篇 让你更受大家欢迎的习惯 1 守时，不准时赴约,让别人等,会失去很多机会。 如何做到： ①该起床时就起床， ②养成任何事情都提前15分钟的习惯。 ③带本可以随时阅读的书，如果早了就拿出来读读。 ④有条理，生活没条理最容易耽误时间。 ⑤提前计划：将重要和不重要的事情岔开。 ⑥今天就准备好明天要穿的衣服。 ⑦按时睡觉，这会让按时起床更容易。 2 注重
  • [介绍]Yii 是什么 dcj3sjt126com PHPyii2
    Yii 是一个高性能，基于组件的 PHP 框架，用于快速开发现代 Web 应用程序。名字 Yii （读作 易）在中文里有“极致简单与不断演变”两重含义，也可看作 Yes It Is! 的缩写。 Yii 最适合做什么？ Yii 是一个通用的 Web 编程框架，即可以用于开发各种用 PHP 构建的 Web 应用。因为基于组件的框架结构和设计精巧的缓存支持，它特别适合开发大型应
  • Linux SSH常用总结 eksliang linux sshSSHD
    转载请出自出处：http://eksliang.iteye.com/blog/2186931 一、连接到远程主机   格式： ssh name@remoteserver 例如： ssh [email protected]   二、连接到远程主机指定的端口   格式： ssh name@remoteserver -p 22 例如： ssh i
  • 快速上传头像到服务端工具类FaceUtil gundumw100 android
    快速迭代用 import java.io.DataOutputStream; import java.io.File; import java.io.FileInputStream; import java.io.FileNotFoundException; import java.io.FileOutputStream; import java.io.IOExceptio
  • jQuery入门之怎么使用 ini JavaScripthtmljqueryWebcss
    jQuery的强大我何问起（个人主页：hovertree.com）就不用多说了，那么怎么使用jQuery呢？   首先，下载jquery。下载地址：http://hovertree.com/hvtart/bjae/b8627323101a4994.htm，一个是压缩版本，一个是未压缩版本，如果在开发测试阶段，可以使用未压缩版本，实际应用一般使用压缩版本(min)。然后就在页面上引用。
  • 带filter的hbase查询优化 kane_xie 查询优化hbaseRandomRowFilter
    问题描述 hbase scan数据缓慢，server端出现LeaseException。hbase写入缓慢。   问题原因 直接原因是： hbase client端每次和regionserver交互的时候，都会在服务器端生成一个Lease,Lease的有效期由参数hbase.regionserver.lease.period确定。如果hbase scan需
  • java设计模式-单例模式 men4661273 java单例枚举反射IOC
             单例模式1，饿汉模式 //饿汉式单例类.在类初始化时，已经自行实例化 public class Singleton1 { //私有的默认构造函数 private Singleton1() {} //已经自行实例化 private static final Singleton1 singl
  • mongodb 查询某一天所有信息的3种方法，根据日期查询 qiaolevip 每天进步一点点学习永无止境mongodb纵观千象
    // mongodb的查询真让人难以琢磨，就查询单天信息，都需要花费一番功夫才行。 // 第一种方式： coll.aggregate([ {$project:{sendDate: {$substr: ['$sendTime', 0, 10]}, sendTime: 1, content:1}}, {$match:{sendDate: '2015-
  • 二维数组转换成JSON tangqi609567707 java二维数组json
    原文出处：http://blog.csdn.net/springsen/article/details/7833596 public class Demo {     public static void main(String[] args) {        String[][] blogL
  • erlang supervisor wudixiaotie erlang
    定义supervisor时，如果是监控celuesimple_one_for_one则删除children的时候就用supervisor:terminate_child (SupModuleName, ChildPid)，如果shutdown策略选择的是brutal_kill，那么supervisor会调用exit(ChildPid, kill)，这样的话如果Child的behavior是gen_
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他