求 DELPHI 下二维条码控制

Question

 请问，各位大大，DELPHI 下 打印二维条码 ，最好是PDF417格式，用什么控制能做到啊。

Answer 1

http://www.delphifans.com/SoftView/SoftView_2477.html
不行就找下最新的应该可以

Answer 2

var
  pdf417: TPDF417;
  bmp: TBitmap;
  //  stream: TStream;
  tmpFile: string;
begin
  inherited;
  //  FCheckSum := True;
  self.AutoSize := False;
  FAngle := 0;
  FText := '1PLT-1800-E500E';
  FBC2DType := bct2dPdf417;
  FRows := 999;
  FColumns := 9;
  FScaleFactor := 1;
  FECLevel := 5;  pdf417 := TPDF417.create;
  pdf417.Text := FText;
  pdf417.Rows := FRows;
  pdf417.Columns := FColumns;
  pdf417.ECLevel := FECLevel;
  pdf417.ScaleFactor := FScaleFactor;
  pdf417.Angle := FAngle;  tmpFile := ExtractFilePath(ExtractFileDir(Application.ExeName) + '..') + 'temp';
  if not DirectoryExists(tmpFile) then
    CreateDir(tmpFile);  if pdf417.MakeImage = 0 then
  begin
    bmp := TBitmap.Create;
    bmp.Pixelformat := pf24bit;
    bmp.HandleType := bmDIB;
    bmp := pdf417.GetBitmap;
    bmp.SaveToFile(tmpFile + '\barCode2D.bmp');
    if FImage <> nil then
    begin
      FImage.Free;
      FImage := nil;
    end;
    if Self.FImage = nil then
FImage := TImageEn.Create(nil);
    FImage.IO.LoadFromFile(tmpFile + '\barCode2D.bmp');
    bmp.FreeImage;
  end
  else
    Self.Image := nil;
end;

Answer 3

 PDF417init;
自己去找一个PDF417.dll 和barcod2d.pas
这个不方便给 ，不好意思 ，是上家公司的东西 ，虽然现在离职了，还是不给出来啦，希望能理解啊网上应该有的的，自己找找啊

Answer 4

一直没有实现与报表控件完美结合，生成BMP，然后再在报表中调用BMP了。
郁闷啊。
看来，自己先要普及二维码知识了。

Answer 5

pdf417.dll, barcode2d.pas 一直没有找着啊？ 老大这个不涉及版权什么的，能提供一个吗？
或者给个下载链接啊。