Source language: Translate to:

2D barcodes (PDF417)

Questions and information about using VBScript and JavaScript in NeoBook functions

Moderator: Neosoft Support

2D barcodes (PDF417)

Postby Rodrigo » Mon May 26, 2014 9:40 pm

Hello everyone.

Any ideas to generate 2D barcodes (PDF417)?

I would really appreciate any ideas. :D

Thank you!
After the game, the nerd and the ignorant will return to the same box
User avatar
Rodrigo
 
Posts: 29
Joined: Wed May 30, 2012 6:23 am
Location: Chile

Re: 2D barcodes (PDF417)

Postby Neosoft Support » Tue May 27, 2014 9:48 am

NeoSoft Support
Neosoft Support
NeoSoft Team
 
Posts: 5602
Joined: Thu Mar 31, 2005 10:48 pm
Location: Oregon, USA

Re: 2D barcodes (PDF417)

Postby mishem » Tue May 27, 2014 11:01 am

UPC Barcode PlugIn

This plugin takes the information from the site
http://www.searchupc.com/default.aspx

So that you can bypass the most NeoBook.
mishem
 
Posts: 575
Joined: Mon Oct 08, 2012 1:51 pm

Re: 2D barcodes (PDF417)

Postby Rodrigo » Tue May 27, 2014 11:17 am

Thank you very much

I have reviewed the links you sent me. I sure will serve on another occasion.

Now I need to generate from an application made ​​with NeoBook PDF417 code label format (as shown in the link): http://en.wikipedia.org/wiki/PDF417

I have found several applications that do it, but i would have to distribute with my application NeoBook.

Im looking for a plugin or vba / java neobook function (if any).

If I do not find anything, I'll have to make a function to do it by getting the appropriate algorithm.

Please any idea about PDF417 (VBA / JAVA / Delphi function, algorithm, code PDF417 fundamentals) serves me.

Sorry, my english its really sad! :oops:
After the game, the nerd and the ignorant will return to the same box
User avatar
Rodrigo
 
Posts: 29
Joined: Wed May 30, 2012 6:23 am
Location: Chile

Re: 2D barcodes (PDF417)

Postby mishem » Tue May 27, 2014 11:37 am

mishem
 
Posts: 575
Joined: Mon Oct 08, 2012 1:51 pm

Re: 2D barcodes (PDF417)

Postby dec » Tue May 27, 2014 2:52 pm

Hello,

Rodrigo wrote:Please any idea about PDF417 (VBA / JAVA / Delphi function, algorithm, code PDF417 fundamentals) serves me.


For Delphi stuff you can take a look at Torry's.
.
Enhance your NeoBook applications!
.
58 plugins, 1131 actions and 233 samples
.
NeoPlugins website: www.neoplugins.com
.
User avatar
dec
 
Posts: 1663
Joined: Wed Nov 16, 2005 12:48 am
Location: Spain

Re: 2D barcodes (PDF417)

Postby virger » Wed May 28, 2014 12:09 pm

Hi. Maybe this can help you.
I don't know how send a 'zip' file.
Read first the acction-startup.
From COSTA RICA
PURA VIDA
==========

NBW Publication Source File
(C)1993-2011 NeoSoft Corp.
Title=Generate 'BARCODE PDF417"
Author=GdoSan/My-2014
Language=US
NeoBookVer=5,70
ScreenColors=16777216
ScreenWidth=800
ScreenHeight=700
BkndColor=0
ScreenAutoSize=Yes
LinkColor=16711680
WindowStyle=0
WindowOrder=0
WindowPos=0
WindowProps=95
BiDiMode=0
UseUpdateTimer=Yes
ReturnTime=60
StartupAction=.PDF417 Creation:¶.https://raw.github.com/bkuzmic/pdf417-j ... ath-min.js¶.https://raw.github.com/bkuzmic/pdf417-j ... 417-min.js¶¶fileexists "[PubDir]bcmath-min.js" "[sn]"¶if "[sn]" "=" "False"¶ setvar "[tx]" "DOWNLOANDING 'js'==bcmath-min.js"¶ DownloadFile "https://raw.github.com/bkuzmic/pdf417-js/master/bcmath-min.js" "[PubDir]bcmath-min.js" "Async"¶endif¶¶fileexists "[PubDir]pdf417-min.js" "[sn]"¶if "[sn]" "=" "False"¶ setvar "[tx]" "DOWNLOANDING 'js'==pdf417-min.js"¶ DownloadFile "https://raw.github.com/bkuzmic/pdf417-js/master/pdf417-min.js" "[PubDir]pdf417-min.js" "Async"¶endif¶¶.file for NeoBook¶fileexists "[PubDir]barcode_test.html" "[sn]"¶if "[sn]" "=" "False"¶ setvar "[tx]" "CREATE 'NEOBOOK--HTML'"¶ SetVar "[Html]" "<html>[#13][#10]"¶ SetVar "[Html]" "[Html]<head>[#13][#10]"¶ SetVar "[Html]" "[Html]<meta http-equiv =[#34]Content-Type[#34] content = [#34]text/html; charset = utf-8[#34]/>[#13][#10]"¶ SetVar "[Html]" "[Html]<script src=[#34]bcmath-min.js[#34] type=[#34]text/javascript[#34]></script>[#13][#10]"¶ SetVar "[Html]" "[Html]<script src=[#34]pdf417-min.js[#34] type=[#34]text/javascript[#34]></script> [#13][#10]"¶ SetVar "[Html]" "[Html]<script>[#13][#10]"¶ SetVar "[Html]" "[Html]function MakeCode(){[#13][#10]"¶ SetVar "[Html]" "[Html]var code = document.getElementById([#34]eltx[#34]).value;[#13][#10]"¶ SetVar "[Html]" "[Html]PDF417.init(code);[#13][#10]"¶ SetVar "[Html]" "[Html]var barcode = PDF417.getBarcodeArray();[#13][#10]"¶ SetVar "[Html]" "[Html]var tx= barcode[#91]'num_rows'[#93] + [#34]~[#34] + barcode[#91]'num_cols'[#93] + [#34]~[#34];[#13][#10]"¶ SetVar "[Html]" "[Html]for(var r = 0; r < barcode[#91]'num_rows'[#93]; ++r){[#13][#10]"¶ SetVar "[Html]" "[Html]for( var c = 0; c < barcode[#91]'num_cols'[#93]; ++c){[#13][#10]"¶ SetVar "[Html]" "[Html]tx += barcode[#91]'bcode'[#93][#91]r[#93][#91]c[#93];[#13][#10]"¶ SetVar "[Html]" "[Html]}}[#13][#10]"¶ SetVar "[Html]" "[Html]document.getElementById([#34]eltx[#34]).value=tx }[#13][#10]"¶ SetVar "[Html]" "[Html]</script>[#13][#10]"¶ SetVar "[Html]" "[Html]</head>[#13][#10]"¶ SetVar "[Html]" "[Html]<body>[#13][#10]"¶ SetVar "[Html]" "[Html]<input name=[#34]eltx[#34] id=[#34]eltx[#34] type=[#34]text[#34] size=[#34]1[#34]>[#13][#10]"¶ SetVar "[Html]" "[Html]</body>[#13][#10]"¶ SetVar "[Html]" "[Html]</html>[#13][#10]"¶ FileWrite "[PubDir]barcode_test.html" "All" "[Html]"¶endif¶¶.sample for Firefox¶fileexists "[PubDir]BarcodeSample.html" "[sn]"¶if "[sn]" "=" "False"¶ setvar "[tx]" "CREATE 'FIREFOX--HTML-SAMPLE'"¶ setvar "[Html]" "<!DOCTYPE html PUBLIC [#34]-//W3C//DTD XHTML 1.0 Transitional//EN[#34] [#34]http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd[#34]>[#13][#10]"¶ setvar "[Html]" "[Html]<html xmlns=[#34]http://www.w3.org/1999/xhtml[#34]>[#13][#10]"¶ setvar "[Html]" "[Html]<head>[#13][#10]"¶ setvar "[Html]" "[Html]<meta http-equiv=[#34]Content-Type[#34] content=[#34]text/html; charset=utf-8[#34] />[#13][#10]"¶ setvar "[Html]" "[Html]<title>PDF417 - 2D Barcode test</title>[#13][#10]"¶ setvar "[Html]" "[Html]<script src=[#34]bcmath-min.js[#34] type=[#34]text/javascript[#34]></script>[#13][#10]"¶ setvar "[Html]" "[Html]<script src=[#34]pdf417-min.js[#34] type=[#34]text/javascript[#34]></script>[#13][#10]"¶ setvar "[Html]" "[Html]<script>[#13][#10]"¶ setvar "[Html]" "[Html]function MakeCode() {[#13][#10]"¶ setvar "[Html]" "[Html]var sn = document.getElementById([#34]RGS[#34]).checked;[#13][#10]"¶ setvar "[Html]" "[Html]var txt = document.getElementById('EnTxt').value;[#13][#10]"¶ setvar "[Html]" "[Html]PDF417.init(txt);[#13][#10]"¶ setvar "[Html]" "[Html]var barcode = PDF417.getBarcodeArray();[#13][#10]"¶ setvar "[Html]" "[Html]var bw = 2;[#13][#10]"¶ setvar "[Html]" "[Html]var bh = 2;[#13][#10]"¶ setvar "[Html]" "[Html]var canvas = document.createElement('canvas');[#13][#10]"¶ setvar "[Html]" "[Html]canvas.width = 2*bw * barcode[#91]'num_cols'[#93];[#13][#10]"¶ setvar "[Html]" "[Html]canvas.height = 3* bh * barcode[#91]'num_rows'[#93] ;[#13][#10]"¶ setvar "[Html]" "[Html]document.getElementById('barcode').appendChild(canvas);[#13][#10]"¶ setvar "[Html]" "[Html]var ctx = canvas.getContext('2d');[#13][#10]"¶ setvar "[Html]" "[Html]var y = 0;[#13][#10]"¶ setvar "[Html]" "[Html]var nr = 5;[#13][#10]"¶ setvar "[Html]" "[Html]for (var r = 0; r < barcode[#91]'num_rows'[#93]; ++r) {var x = 0;[#13][#10]"¶ setvar "[Html]" "[Html]for (var c = 0; c < barcode[#91]'num_cols'[#93]; ++c) {[#13][#10]"¶ setvar "[Html]" "[Html]if (barcode[#91]'bcode'[#93][#91]r[#93][#91]c[#93] == 1) {ctx.fillRect(x, y, bw, bh); }[#13][#10]"¶ setvar "[Html]" "[Html]if (sn) { x = x+ bw +1; } else { x += bw; }}[#13][#10]"¶ setvar "[Html]" "[Html]if (sn) { y = y+ 2*bh ; } else { y += bh;} } }[#13][#10]"¶ setvar "[Html]" "[Html]</script>[#13][#10]"¶ setvar "[Html]" "[Html]</head>[#13][#10]"¶ setvar "[Html]" "[Html]<body>[#13][#10]"¶ setvar "[Html]" "[Html]<p>PDF417 2D barcode in canvas</p>[#13][#10]"¶ setvar "[Html]" "[Html]<label><input type=[#34]radio[#34] name=[#34]RG[#34] value=[#34]N[#34] id=[#34]RGN[#34] checked=[#34]checked[#34] />Normal</label>[#13][#10]"¶ setvar "[Html]" "[Html]<label><input type=[#34]radio[#34] name=[#34]RG[#34] value=[#34]S[#34] id=[#34]RGS[#34] />Split</label>
[#13][#10]"¶ setvar "[Html]" "[Html]<textarea name=[#34]EnTxt[#34] id=[#34]EnTxt[#34] cols=[#34]40[#34] rows=[#34]5[#34]></textarea>[#13][#10]"¶ setvar "[Html]" "[Html]<input name=[#34]Make[#34] type=[#34]button[#34] onClick=[#34]MakeCode()[#34] value=[#34]Make[#34]/>[#13][#10]"¶ setvar "[Html]" "[Html]<div id=[#34]barcode[#34]></div>[#13][#10]"¶ setvar "[Html]" "[Html]</body></html>[#13][#10]"¶ FileWrite "[PubDir]BarcodeSample.html" "All" "[Html]"¶endif¶setvar "[tx]" "HOLA DESDE COSTA RICA"¶delay "50"¶setvar "[Html]" "[PubDir]barcode_test.html"
ShapeTransColor=536870912
CompileType=0
MediaType=0
FilesIncluded=1
FontsIncluded=2
CopyExternalFiles=No
SetupMedia=3
SetupInstDir=C:\MyProgram
SetupTitle=Setup
SetupColors=16711680|0|65535
VersionMajor=1
VersionMinor=0
VersionRelease=0
VersionBuild=0
ReqExLevel=1
CustomFontName=Arial
CustomFontSize=9
CustomFontStyle=0
CustomCharset=1
CacheSize=30
ExtractOp=132
L_OK=OK
L_CANCEL=Cancel
L_YES=Yes
L_NO=No
L_CLOSE=Close
L_ERRORTITLE=Error
L_FINDTITLE=Find
L_FINDPROMPT=Find &What
L_FINDFIRST=&Find First
L_FINDNEXT=Find &Next
L_FINDERROR=Search text not found.
L_PWORDTITLE=Password required
L_PWORDMSG=Before continuing, you must first|enter the correct password.
L_PWORDPROMPT=&Password:
L_PWORDERROR=That's not the right password!
L_MEDIAERROR=In order to play this type of file you must install|the appropriate multimedia hardware and/or|software.
L_INTERNETERROR=Unable to locate Internet Browser software.
L_ABORTFUNCTION=Do you want to cancel this function?
L_EXTRACTERROR=This file could not be extracted and cannot be played.
L_INSTDIRPROMPT=Please enter the drive and directory where you would like this program to be installed. To accept the default drive and directory, simply press Enter.
L_INSTFOLDERPROMPT=Do you wish to create a program folder?
L_INSTRUNPROMPT=Do you want to run
L_INSTDISKPROMPT=Please insert disk #
L_INSTDISKERROR=That's not the correct disk, try again.
L_INSTGENERROR=The installation has terminated.
L_INSTEXITPROMPT=Do you really want to cancel the installation?
L_INSTWINTITLE=Setup
L_INSTPROGTITLE=Extracting Files...
L_SENDEMAIL=Sending Mail...
L_MAILSERVER=Please enter the name of your outgoing email server:
L_COPY=Copy to Clipboard
L_SELECTALL=Select All
L_DONWLOADFILE=Downloading: %s
L_PLEASEWAIT=Please wait...
MenuBegin
MenuName=MenuHeading1
MenuText=Quit
MenuState=3
MenuKey=0
MenuAction=exit "" ""
MenuEnd
TrayMenuBegin
MenuName=TrayOpen
MenuText=Open
MenuState=3
MenuKey=0
MenuAction=SetVar "[WindowState]" "Normal"
MenuName=TrayExit
MenuText=Exit
MenuState=3
MenuKey=0
MenuAction=Exit "" ""
MenuEnd
MasterPage
NewPage=New Page
PageStyle=0
PageColor=16777215
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0
ObjectType=9
Name=EnTextToSend
X=0
Y=0
W=397
H=90
Anchor=0
VarName=[Tx]
EditMultiLine=Yes
EditLen=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14219480
FillPattern=0
Font=Arial
FontSize=12
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=3
ObjectType=9
Name=EnText
X=0
Y=102
W=800
H=598
Anchor=2
VarName=[Ret]
EditMultiLine=Yes
WordWrap=No
EditLen=0
LineColor=0
LineWidth=2
LineStyle=0
FillColor=16777215
FillPattern=0
Font=Terminal
FontSize=6
FontStyle=1
FontCharset=255
TextColor=0
TabOrder=1
ObjectType=3
Name=BtCode
X=642
Y=45
W=155
H=44
Anchor=0
Text=Make¶Code: [tot]/[n]
Align=1
ImageStyle=0
ObjAction=BrowserSetElement "Web" "eltx" "[Tx]"¶delay "50"¶BrowserExecScript "Web" "MakeCode();" "JScript"¶delay "50"¶BrowserGetElement "Web" "eltx" "[vRet]"¶¶setvar "[ch0]" "[#32]"¶setvar "[ch1]" "[FillCh]"¶¶strparse "[vRet]" "~" "[Dt]" "[x]"¶setvar "[vRet]" ""¶setvar "[n]" "1"¶math "[dt1]*[dt2]" "" "[tot]"¶loop "1" "[dt1]" "[r]"¶ loop "1" "[dt2]" "[c]"¶ substr "[dt3]" "[n]" "1" "[bit]"¶ setvar "[vRet]" "[vRet][ch[bit]]"¶ math "[n]+1" "" "[n]"¶ endloop¶ setvar "[vRet]" "[vRet][#10]"¶endloop¶setvar "[Ret]" "[vRet]"¶setvar "[vRet]" ""
LineColor=0
LineWidth=1
LineStyle=0
FillColor=13882323
FillPattern=0
Font=Arial
FontSize=11
FontStyle=3
FontCharset=1
TextColor=0
TabOrder=4
ObjectType=8
Name=Inf1
X=399
Y=0
W=192
H=37
Anchor=0
Font=Arial
FontSize=11
FontStyle=1
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs22\cf0\b <--(Text To Send) Fill\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs22\cf0\b Char}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=0
LineStyle=0
FillColor=14219480
FillPattern=1
TabOrder=5
ObjectType=8
Name=Inf2
X=429
Y=71
W=174
H=27
Anchor=0
Font=Arial
FontSize=14
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 Code Returned}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=13687032
FillPattern=0
TabOrder=7
ObjectType=8
Name=Inf3
X=402
Y=42
W=228
H=25
Anchor=0
Font=Arial
FontSize=12
FontStyle=3
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\b\i Rows:[dt1]\tab Cols:[dt2]}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14219512
FillPattern=0
TabOrder=6
ObjectType=3
Name=BtFirefox
X=733
Y=5
W=61
H=25
Anchor=0
Text=Firefox
Align=2
ImageStyle=0
ObjAction=Run "C:\Program Files\Mozilla Firefox\firefox.exe" "[PubDir]BarcodeSample.html" "RunOnce" "" ""
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14219488
FillPattern=0
Font=Arial
FontSize=10
FontStyle=1
FontCharset=1
TextColor=0
TabOrder=8
ObjectType=9
Name=EnFillChr
X=580
Y=4
W=25
H=25
Anchor=0
Text=#
VarName=[FillCh]
EditLen=1
ObjAction=if "[tFillCh]" "=" ""¶ setvar "[tFillCh]" "[FillCh]"¶endif
LineColor=0
LineWidth=1
LineStyle=0
FillColor=13168888
FillPattern=0
Font=Arial
FontSize=12
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=10
ObjectType=7
Name=Line1
X1=397
Y1=37
X2=798
Y2=37
EndCaps=0
LineColor=0
LineWidth=2
LineStyle=0
FillColor=13882323
FillPattern=0
TabOrder=11
ObjectType=7
Name=Line2
X1=637
Y1=0
X2=637
Y2=102
EndCaps=0
LineColor=0
LineWidth=2
LineStyle=0
FillColor=14219512
FillPattern=0
TabOrder=12
ObjectType=3
Name=BtChange
X=609
Y=4
W=59
H=25
Anchor=0
Text=Change
Align=2
ImageStyle=0
ObjAction=if "[tFillCh]" "<>" "[FillCh]"¶ StrReplace "[Ret]" "[tFillCh]" "[FillCh]" "[Ret]" ""¶ setvar "[tFillCh]" "[FillCh]"¶endif
LineColor=0
LineWidth=1
LineStyle=0
FillColor=13160696
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=14
ObjectType=7
Name=Line3
X1=528
Y1=0
X2=528
Y2=38
EndCaps=0
LineColor=0
LineWidth=2
LineStyle=0
FillColor=13882323
FillPattern=0
TabOrder=13
ObjectType=9
Name=ShowCh
X=672
Y=4
W=25
H=25
Anchor=0
Text=#
VarName=[tFillCh]
EditLen=1
ObjAction=.if "[tFillCh]" "=" ""¶. setvar "[tFillCh]" "[FillCh]"¶.endif
ObjSetFocusAction=disableobject "[Self]"
ObjLoseFocusAction=enableobject "[Self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=13168888
FillPattern=0
Font=Arial
FontSize=12
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=9
ObjectType=14
Name=Web
X=44
Y=-132
W=69
H=50
Anchor=0
FileName=[Html]
VarName=[WebStatus]
TitleVarName=[WebTitle]
URLVarName=[WebAddr]
ContextMenu=No
EnhSecurity=No
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=2
COSTA RICA
PURA VIDA
User avatar
virger
 
Posts: 524
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: 2D barcodes (PDF417)

Postby Rodrigo » Wed May 28, 2014 1:34 pm

I am interested!. Please if you have time send me the pub, the source file and the libraries (if any) to rocason@gmail.com. thank you!
After the game, the nerd and the ignorant will return to the same box
User avatar
Rodrigo
 
Posts: 29
Joined: Wed May 30, 2012 6:23 am
Location: Chile

Example-barcodes (PDF417)-NeoBook

Postby virger » Wed May 28, 2014 6:39 pm

This example complements the initial part, making work "Canvas"
in NeoBook with IE-8. I hope help you.
The first part is 'within' the "PUB" all that is needed. See "acction-start-up" (F6),
this one also including 'HTMLS' to use.


NBW Publication Source File
(C)1993-2011 NeoSoft Corp.
Title=INTERNET EXPLORER -- CANVAS & NEOBOOK
Author=GdoSan/My-2014
Language=US
NeoBookVer=5,70
ScreenColors=16777216
ScreenWidth=800
ScreenHeight=600
BkndColor=0
ScreenAutoSize=Yes
LinkColor=16711680
WindowStyle=0
WindowOrder=0
WindowPos=0
WindowProps=31
BiDiMode=0
UseUpdateTimer=Yes
ReturnTime=60
StartupAction=..-- https://explorercanvas.googlecode.com/f ... vas_r3.zip¶FileExists "[PubDir]excanvas.js" "[sn]"¶if "[Sn]" "=" "False"¶ DownloadFile "https://explorercanvas.googlecode.com/files/excanvas_r3.zip" "[PubDir]excanvas_r3.zip" "Async"¶ alertbox "ATTENTION" "EXTRAIGA 'excanvas.js' EN 'PubDir'"¶endif¶¶.. HTML MODIFICADO¶fileexists "[PubDir]Example.html" "[sn]"¶if "[sn]" "=" "False"¶setvar "[Html]" "<html><head>[#13][#10]"¶setvar "[Html]" "[Html]<title>CANVAS IE & NEOBOOK</title>[#13][#10]"¶setvar "[Html]" "[Html]<!--[#91]if IE[#93]><script type=[#34]text/javascript[#34] src=[#34]excanvas.js[#34]></script><![#91]endif[#93]-->[#13][#10]"¶setvar "[Html]" "[Html]<script src=[#34]bcmath-min.js[#34] type=[#34]text/javascript[#34]></script>[#13][#10]"¶setvar "[Html]" "[Html]<script src=[#34]pdf417-min.js[#34] type=[#34]text/javascript[#34]></script>[#13][#10]"¶setvar "[Html]" "[Html]<script type=[#34]text/javascript[#34]>[#13][#10]"¶setvar "[Html]" "[Html] var canvas, ctx, barcode, sn;[#13][#10]"¶setvar "[Html]" "[Html] var bw = bh = 4;[#13][#10]"¶setvar "[Html]" "[Html]function MakeCode() {[#13][#10]"¶setvar "[Html]" "[Html] sn = document.getElementById([#34]RGS[#34]).checked;[#13][#10]"¶setvar "[Html]" "[Html] var txt = document.getElementById('EnTxt').value;[#13][#10]"¶setvar "[Html]" "[Html] PDF417.init(txt);[#13][#10]"¶setvar "[Html]" "[Html] barcode = PDF417.getBarcodeArray();}[#13][#10]"¶setvar "[Html]" "[Html]function Code() {[#13][#10]"¶setvar "[Html]" "[Html] MakeCode();[#13][#10]"¶setvar "[Html]" "[Html] bw = bh = parseInt(document.getElementById([#34]recsize[#34]).value);[#13][#10]"¶setvar "[Html]" "[Html] if (bw >= 5 ){ bw=5; bh =5 };[#13][#10]"¶setvar "[Html]" "[Html] if (bw <1 ){ bw=1; bh =1 };[#13][#10]"¶setvar "[Html]" "[Html] document.getElementById([#34]recsize[#34]).value = bw;[#13][#10]"¶setvar "[Html]" "[Html] canvas = document.getElementById([#34]canvas[#34]);[#13][#10]"¶setvar "[Html]" "[Html] ctx = canvas.getContext([#34]2d[#34]);[#13][#10]"¶setvar "[Html]" "[Html] ctx.clearRect (0,0,canvas.width, canvas.height );[#13][#10]"¶setvar "[Html]" "[Html] canvas.width = bw * barcode[#91]'num_cols'[#93];[#13][#10]"¶setvar "[Html]" "[Html] canvas.height = bh * barcode[#91]'num_rows'[#93] ;[#13][#10]"¶setvar "[Html]" "[Html] var y = 0;[#13][#10]"¶setvar "[Html]" "[Html] for (var r = 0; r < barcode[#91]'num_rows'[#93]; ++r) {[#13][#10]"¶setvar "[Html]" "[Html] var x = 0;[#13][#10]"¶setvar "[Html]" "[Html] for (var c = 0; c < barcode[#91]'num_cols'[#93]; ++c) {[#13][#10]"¶setvar "[Html]" "[Html] if (barcode[#91]'bcode'[#93][#91]r[#93][#91]c[#93] == 1) {ctx.fillRect(x, y, bw, bh); }[#13][#10]"¶setvar "[Html]" "[Html] if (sn) { x = x+ bw +1; } else { x += bw; }}[#13][#10]"¶setvar "[Html]" "[Html] if (sn) { y = y+ 2*bh ; } else { y += bh; }}}[#13][#10]"¶setvar "[Html]" "[Html]</script>[#13][#10]"¶setvar "[Html]" "[Html]<style>canvas {[#13][#10]"¶setvar "[Html]" "[Html] padding-left: 0;[#13][#10]"¶setvar "[Html]" "[Html] padding-right: 0;[#13][#10]"¶setvar "[Html]" "[Html] margin-left: auto;[#13][#10]"¶setvar "[Html]" "[Html] margin-right: auto;[#13][#10]"¶setvar "[Html]" "[Html] display: block;}</style>[#13][#10]"¶setvar "[Html]" "[Html]</head>[#13][#10]"¶setvar "[Html]" "[Html]<body>[#13][#10]"¶setvar "[Html]" "[Html]<table width=[#34]200[#34] border=[#34]0[#34] align=[#34]center[#34]>[#13][#10]"¶setvar "[Html]" "[Html]<tr><td align=[#34]center[#34]>PDF417 2D barcode in canvas</td></tr>[#13][#10]"¶setvar "[Html]" "[Html]<tr><td align=[#34]center[#34]>[#13][#10]"¶setvar "[Html]" "[Html]<label><input type=[#34]radio[#34] name=[#34]RG[#34] value=[#34]N[#34] id=[#34]RGN[#34] checked=[#34]checked[#34] />Normal</label>    [#13][#10]"¶setvar "[Html]" "[Html]<label><input type=[#34]radio[#34] name=[#34]RG[#34] value=[#34]S[#34] id=[#34]RGS[#34] />Split</label>    [#13][#10]"¶setvar "[Html]" "[Html]<label><input name=[#34]recsize[#34] id=[#34]recsize[#34] type=[#34]text[#34] value=[#34]1[#34] size=[#34]2[#34] maxlength=[#34]4[#34]>RecSize</label>[#13][#10]"¶setvar "[Html]" "[Html]</td></tr>[#13][#10]"¶setvar "[Html]" "[Html]<tr><td><textarea name=[#34]EnTxt[#34] id=[#34]EnTxt[#34] cols=[#34]40[#34] rows=[#34]5[#34]>COSTA RICA PURA VIDA</textarea> </td></tr>[#13][#10]"¶setvar "[Html]" "[Html]<tr><td align=[#34]center[#34]><input name=[#34]Make[#34] type=[#34]button[#34] onClick=[#34]Code()[#34] value=[#34]Make[#34]/></td></tr>[#13][#10]"¶setvar "[Html]" "[Html]</table>[#13][#10]"¶setvar "[Html]" "[Html]<div align=[#34]center[#34]><canvas id=[#34]canvas[#34] ></canvas></div>[#13][#10]"¶setvar "[Html]" "[Html]</body></html>[#13][#10]"¶¶FileWrite "[PubDir]Example.html" "All" "[Html]"¶endif¶¶setvar "[Html]" "[PubDir]Example.html"
ShapeTransColor=536870912
CompileType=0
MediaType=0
FilesIncluded=1
FontsIncluded=2
CopyExternalFiles=No
SetupMedia=3
SetupInstDir=C:\MyProgram
SetupTitle=Setup
SetupColors=16711680|0|65535
VersionMajor=1
VersionMinor=0
VersionRelease=0
VersionBuild=0
ReqExLevel=1
CustomFontName=Arial
CustomFontSize=9
CustomFontStyle=0
CustomCharset=1
CacheSize=30
ExtractOp=132
L_OK=OK
L_CANCEL=Cancel
L_YES=Yes
L_NO=No
L_CLOSE=Close
L_ERRORTITLE=Error
L_FINDTITLE=Find
L_FINDPROMPT=Find &What
L_FINDFIRST=&Find First
L_FINDNEXT=Find &Next
L_FINDERROR=Search text not found.
L_PWORDTITLE=Password required
L_PWORDMSG=Before continuing, you must first|enter the correct password.
L_PWORDPROMPT=&Password:
L_PWORDERROR=That's not the right password!
L_MEDIAERROR=In order to play this type of file you must install|the appropriate multimedia hardware and/or|software.
L_INTERNETERROR=Unable to locate Internet Browser software.
L_ABORTFUNCTION=Do you want to cancel this function?
L_EXTRACTERROR=This file could not be extracted and cannot be played.
L_INSTDIRPROMPT=Please enter the drive and directory where you would like this program to be installed. To accept the default drive and directory, simply press Enter.
L_INSTFOLDERPROMPT=Do you wish to create a program folder?
L_INSTRUNPROMPT=Do you want to run
L_INSTDISKPROMPT=Please insert disk #
L_INSTDISKERROR=That's not the correct disk, try again.
L_INSTGENERROR=The installation has terminated.
L_INSTEXITPROMPT=Do you really want to cancel the installation?
L_INSTWINTITLE=Setup
L_INSTPROGTITLE=Extracting Files...
L_SENDEMAIL=Sending Mail...
L_MAILSERVER=Please enter the name of your outgoing email server:
L_COPY=Copy to Clipboard
L_SELECTALL=Select All
L_DONWLOADFILE=Downloading: %s
L_PLEASEWAIT=Please wait...
TrayMenuBegin
MenuName=TrayOpen
MenuText=Open
MenuState=3
MenuKey=0
MenuAction=SetVar "[WindowState]" "Normal"
MenuName=TrayExit
MenuText=Exit
MenuState=3
MenuKey=0
MenuAction=Exit "" ""
MenuEnd
MasterPage
NewPage=New Page
PageStyle=0
PageColor=16777215
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0
ObjectType=14
Name=Web
X=0
Y=0
W=800
H=600
Anchor=1
FileName=[html]
VarName=[WebStatus]
TitleVarName=[WebTitle]
URLVarName=[WebAddr]
ContextMenu=No
LineColor=0
LineWidth=0
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=1


DESDE COSTA RICA
PURA VIDA
COSTA RICA
PURA VIDA
User avatar
virger
 
Posts: 524
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: Example-barcodes (PDF417)-NeoBook

Postby Rodrigo » Wed May 28, 2014 7:34 pm

virger wrote:This example complements the initial part, making work "Canvas"
in NeoBook with IE-8. I hope help you.
The first part is 'within' the "PUB" all that is needed. See "acction-start-up" (F6),
this one also including 'HTMLS' to use.


Thanks again

But please send me the file by email (rocason@gmail.com) because some special characters appear when I copy and paste the code. And the result pub not working properly. I'm now working on another solution, but I am very interested in your work. :D
After the game, the nerd and the ignorant will return to the same box
User avatar
Rodrigo
 
Posts: 29
Joined: Wed May 30, 2012 6:23 am
Location: Chile

Re: 2D barcodes (PDF417)

Postby Rodrigo » Wed May 28, 2014 7:39 pm

dec wrote:Hello,

Rodrigo wrote:Please any idea about PDF417 (VBA / JAVA / Delphi function, algorithm, code PDF417 fundamentals) serves me.


For Delphi stuff you can take a look at Torry's.


Gracias David, le he dado algunas vueltas y he conseguido rescatar algunos datos interesantes que ahora me estan sirviendo.
A ver algún día te animas a desarrollar un plugin que genere este tipo específico de código. :roll:
¡Suerte!
After the game, the nerd and the ignorant will return to the same box
User avatar
Rodrigo
 
Posts: 29
Joined: Wed May 30, 2012 6:23 am
Location: Chile

Re: 2D barcodes (PDF417)

Postby dec » Fri May 30, 2014 1:24 pm

Hello,

Rodrigo wrote:Gracias David, le he dado algunas vueltas y he conseguido rescatar algunos datos interesantes que ahora me estan sirviendo.
A ver algún día te animas a desarrollar un plugin que genere este tipo específico de código. :roll:
¡Suerte!


I am working hard days ago. You can view here. ;)
.
Enhance your NeoBook applications!
.
58 plugins, 1131 actions and 233 samples
.
NeoPlugins website: www.neoplugins.com
.
User avatar
dec
 
Posts: 1663
Joined: Wed Nov 16, 2005 12:48 am
Location: Spain


Return to NeoBook Functions - VBScript & JavaScript

Who is online

Users browsing this forum: No registered users and 2 guests

cron