Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
' Written by Sylvain Kusters
' Free to use to everyone
' If you come with better solution (quicker) please let me also profit from your code.
' sk@startnet.be
' Visit also www.filmclub.info
Dim lHandle As Integer
'BEID_ Kaart Info
Dim strCardNumber As String
Dim strBegValDag, strBegVal, strBegValMaand As Object
Dim strBegValJaar As String
Dim strEndValDag, strEndVal, strEndValMaand As Object
Dim strEndValJaar As String
Dim strIssuingMunicipality As String
'BEID Persoons Info
Dim strName As String
Dim strFirstName1 As String
Dim strBirthPlace As String
Dim strBirthDate As String
Dim strGender As String
Dim strNationality As String
Dim strNationalNumber As String
'BEID Adres Info
Dim strStreet As String
Dim strZIPCode As String
Dim strMunicipality As String
'BEID PICTURE
Dim PictureFileName As String
Dim FirstPath As String
Dim EndPath As String
Dim Path As String
Dim RetStatus As EIDLIBCTRLLib.RetStatus
Dim MapColPicture As New EIDLIBCTRLLib.MapCollection
Dim MapColID As New EIDLIBCTRLLib.MapCollection
Dim MapColAddress As New EIDLIBCTRLLib.MapCollection
Dim CertifCheck As New EIDLIBCTRLLib.CertifCheck
RetStatus = EIDlib1.Init("", 0, 0, lHandle)
If (RetStatus.GetGeneral = 0) Then
RetStatus = EIDlib1.GetID(MapColID, CertifCheck)
strChipNumber = MapColID.GetValue("ChipNumber")
strCardNumber = MapColID.GetValue("CardNumber")
strBegVal = MapColID.GetValue("BeginValidityDate")
strEndVal = MapColID.GetValue("EndValidityDate")
strIssuingMunicipality = MapColID.GetValue("IssuingMunicipality")
strName = MapColID.GetValue("Name")
strFirstName1 = MapColID.GetValue("FirstName1")
strBirthDate = MapColID.GetValue("BirthDate")
strBirthPlace = MapColID.GetValue("BirthPlace")
strGender = MapColID.GetValue("Gender")
strNationality = MapColID.GetValue("Nationality")
strNationalNumber = MapColID.GetValue("NationalNumber")
'Opsplitsen begindatum
strBegValDag = VB.Right(strBegVal, 2)
strBegValMaand = Mid(strBegVal, 5, 2)
strBegValJaar = VB.Left(strBegVal, 4)
'Opsplitsen einddatum
strEndValDag = VB.Right(strEndVal, 2)
strEndValMaand = Mid(strEndVal, 5, 2)
strEndValJaar = VB.Left(strEndVal, 4)
txtbxCardNumber.Text = strCardNumber
txtbxBeginValidityDate.Text = strBegValDag & "/" & strBegValMaand & "/" & strBegValJaar
txtbxEndValidityDate.Text = strEndValDag & "/" & strEndValMaand & "/" & strEndValJaar
txtbxIssuingMunicipality.Text = strIssuingMunicipality
txtbxName.Text = strName
txtbxFirstName1.Text = strFirstName1
txtbxBirthDate.Text = strBirthDate
txtbxBirthPlace.Text = strBirthPlace
txtbxGender.Text = strGender
txtbxNationality.Text = strNationality
txtbxNationalNumber.Text = strNationalNumber
End If
RetStatus = EIDlib1.GetAddress(MapColAddress, CertifCheck)
strStreet = MapColAddress.GetValue("Street")
strZIPCode = MapColAddress.GetValue("ZIPCode")
strMunicipality = MapColAddress.GetValue("Municipality")
txtbxStreet.Text = strStreet
txtbxZIPCode.Text = strZIPCode
txtbxMunicipality.Text = strMunicipality
' Picture inladen
FirstPath = "(unknown)_BELPIC_"
EndPath = "_4035"
Path = "c:\Documents and settings\gebruiker\eid-cache"
PictureFileName = FirstPath & strChipNumber & EndPath
RetStatus = EIDlib1.GetPicture(MapColPicture, CertifCheck)
Picture1.Image = System.Drawing.Image.FromFile(Path & "\" & PictureFileName)
RetStatus = EIDlib1.Exit()
End Sub
unit FileWatch;
interface
uses
Windows, SysUtils, Classes;
type
TFileWatch = class(TThread)
private
FFileName : string;
FOnFileChanged: TNotifyEvent;
FHandle : THandle;
FLastTime : TFileTime;
FActive : boolean;
procedure ReleaseHandle;
procedure AllocateHandle;
procedure SetFileName(const Value: String);
protected
procedure Execute; override;
procedure Notify;
public
constructor Create;
destructor Destroy; override;
procedure Suspend;
procedure Resume;
procedure Reset;
published
property OnNotify: TNotifyEvent read FOnFileChanged write FOnFileChanged;
property FileName: String read FFileName write SetFileName;
property LastTime: TFileTime read FLastTime write FLastTime;
property Active: boolean read FActive write FActive;
end;
implementation
resourcestring
SErrAllocHandle = 'Could not allocate notification object.' + #13#10 + '%d: %s';
function GetFileLastWrite(const FileName: string): TFileTime;
var
r: TSearchRec;
begin
if FindFirst(FileName, faAnyFile, r) = 0 then begin
SysUtils.FindClose(r);
Result := r.FindData.ftLastWriteTime;
end else begin
Result.dwLowDateTime := 0;
Result.dwHighDateTime := 0;
end;
end;
function SameFileTime(t1, t2: TFileTime): boolean;
begin
Result := (t1.dwHighDateTime = t2.dwHighDateTime) and
(t1.dwLowDateTime = t2.dwLowDateTime);
end;
{ TFileWatch }
constructor TFileWatch.Create;
begin
inherited Create(false);
FreeOnTerminate := false;
FActive := true;
Priority := tpLowest;
end;
destructor TFileWatch.Destroy;
begin
ReleaseHandle;
inherited Destroy;
end;
procedure TFileWatch.Suspend;
begin
ReleaseHandle;
FActive := false;
inherited Suspend;
end;
procedure TFileWatch.Resume;
begin
AllocateHandle;
FActive := true;
FLastTime := GetFileLastWrite(FFileName); // Get the latest filetime
inherited Resume;
end;
procedure TFileWatch.Notify;
begin
if not SameFileTime(FLastTime, GetFileLastWrite(FFileName)) then begin
if FActive then begin
ReleaseHandle;
if Assigned(FOnFileChanged) then FOnFileChanged(Self);
end;
FLastTime := GetFileLastWrite(FFileName); // Get the latest filetime
if FActive then AllocateHandle;
end;
end;
procedure TFileWatch.SetFileName(const Value :String);
begin
if not SameText(Value, FFileName) then begin
FFileName := Value;
FLastTime := GetFileLastWrite(Value);
Reset;
end;
end;
procedure TFileWatch.Execute;
begin
while not Terminated do begin
if FHandle <> 0 then begin
if WaitForSingleObject(FHandle, 500) = WAIT_OBJECT_0 then
begin
Synchronize(Notify);
FindNextChangeNotification(FHandle);
end;
end else
Sleep(10);
end;
end;
procedure TFileWatch.ReleaseHandle;
begin
FindCloseChangeNotification(FHandle);
FHandle := 0;
end;
procedure TFileWatch.AllocateHandle;
function DoAllocate: THandle;
var
ie: integer;
se: string;
Folder : string;
begin
Folder := ExcludeTrailingPathDelimiter(ExtractFilePath(FFileName));
if Folder = '' then
Folder := GetCurrentDir;
Result := FindFirstChangeNotification(PChar(Folder), Bool(0),
FILE_NOTIFY_CHANGE_LAST_WRITE);
if Result = INVALID_HANDLE_VALUE then
begin
ie := GetLastError;
se := Format(SErrAllocHandle, [ie, SysErrorMessage(ie)]);
raise Exception.Create(se);
end;
end;
begin
try
if FileExists(FFileName) then
FHandle := DoAllocate
else
FHandle := 0; // File doesn't exist anymore
except
ReleaseHandle;
raise;
end;
end;
procedure TFileWatch.Reset;
begin
ReleaseHandle;
if FileExists(FFileName) then begin
FLastTime := GetFileLastWrite(FFileName); // Get the latest filetime
AllocateHandle;
end;
end;
end.
using System;
using System.Text;
using System.Drawing;
using System.Drawing.Drawing2D;
using System.Drawing.Imaging;
using Karna.Barcode.Properties;
using System.Globalization;
namespace Karna.Barcode
{
public class Ean13
{
private string barcodeId;
private Image image;
public Ean13(Image image)
{
this.image = image;
}
public string BarcodeId
{
get { return barcodeId; }
set
{
if (value == null)
return;
if (value.Length != 13)
{
throw new ArgumentException("Wrong data length");
}
barcodeId = value;
string s = null;
string[,] encTable = new string[3, 10];
int[,] parityToEnc = new int[10, 8];
parityToEnc[1, 2] = 0;
parityToEnc[1, 3] = 0;
parityToEnc[1, 4] = 1;
parityToEnc[1, 5] = 0;
parityToEnc[1, 6] = 1;
parityToEnc[1, 7] = 1;
parityToEnc[2, 2] = 0;
parityToEnc[2, 3] = 0;
parityToEnc[2, 4] = 1;
parityToEnc[2, 5] = 1;
parityToEnc[2, 6] = 0;
parityToEnc[2, 7] = 1;
parityToEnc[3, 2] = 0;
parityToEnc[3, 3] = 0;
parityToEnc[3, 4] = 1;
parityToEnc[3, 5] = 1;
parityToEnc[3, 6] = 1;
parityToEnc[3, 7] = 0;
parityToEnc[4, 2] = 0;
parityToEnc[4, 3] = 1;
parityToEnc[4, 4] = 0;
parityToEnc[4, 5] = 0;
parityToEnc[4, 6] = 1;
parityToEnc[4, 7] = 1;
parityToEnc[5, 2] = 0;
parityToEnc[5, 3] = 1;
parityToEnc[5, 4] = 1;
parityToEnc[5, 5] = 0;
parityToEnc[5, 6] = 0;
parityToEnc[5, 7] = 1;
parityToEnc[6, 2] = 0;
parityToEnc[6, 3] = 1;
parityToEnc[6, 4] = 1;
parityToEnc[6, 5] = 1;
parityToEnc[6, 6] = 0;
parityToEnc[6, 7] = 0;
parityToEnc[7, 2] = 0;
parityToEnc[7, 3] = 1;
parityToEnc[7, 4] = 0;
parityToEnc[7, 5] = 1;
parityToEnc[7, 6] = 0;
parityToEnc[7, 7] = 1;
parityToEnc[8, 2] = 0;
parityToEnc[8, 3] = 1;
parityToEnc[8, 4] = 0;
parityToEnc[8, 5] = 1;
parityToEnc[8, 6] = 1;
parityToEnc[8, 7] = 0;
parityToEnc[9, 2] = 0;
parityToEnc[9, 3] = 1;
parityToEnc[9, 4] = 1;
parityToEnc[9, 5] = 0;
parityToEnc[9, 6] = 1;
parityToEnc[9, 7] = 0;
encTable[0, 0] = "0001101";
encTable[0, 1] = "0011001";
encTable[0, 2] = "0010011";
encTable[0, 3] = "0111101";
encTable[0, 4] = "0100011";
encTable[0, 5] = "0110001";
encTable[0, 6] = "0101111";
encTable[0, 7] = "0111011";
encTable[0, 8] = "0110111";
encTable[0, 9] = "0001011";
encTable[1, 0] = "0100111";
encTable[1, 1] = "0110011";
encTable[1, 2] = "0011011";
encTable[1, 3] = "0100001";
encTable[1, 4] = "0011101";
encTable[1, 5] = "0111001";
encTable[1, 6] = "0000101";
encTable[1, 7] = "0010001";
encTable[1, 8] = "0001001";
encTable[1, 9] = "0010111";
encTable[2, 0] = "1110010";
encTable[2, 1] = "1100110";
encTable[2, 2] = "1101100";
encTable[2, 3] = "1000010";
encTable[2, 4] = "1011100";
encTable[2, 5] = "1001110";
encTable[2, 6] = "1010000";
encTable[2, 7] = "1000100";
encTable[2, 8] = "1001000";
encTable[2, 9] = "1110100";
string lastString = "";
lastString += "101";
StringBuilder sb = new StringBuilder();
for (int i = 2; i <= 7; ++i)
{
string firstDigit_s = value[0].ToString();
int firstDigit_i = int.Parse(firstDigit_s, CultureInfo.InvariantCulture);
string curDigit_s = value[i-1].ToString();
int curDigit_i = int.Parse(curDigit_s, CultureInfo.InvariantCulture);
sb.Append(encTable[parityToEnc[firstDigit_i, i], curDigit_i]);
}
lastString += sb.ToString();
lastString += "01010";
StringBuilder sb2 = new StringBuilder();
for (int i = 8; i <= 13; ++i)
{
string curDigit_s = value[i-1].ToString();
int curDigit_i = int.Parse(curDigit_s, CultureInfo.InvariantCulture);
sb2.Append(encTable[2, curDigit_i]);
}
lastString += sb2.ToString();
lastString += "101";
Bitmap bitmap = new Bitmap(210, 146, PixelFormat.Format32bppArgb);
Graphics canvas = Graphics.FromImage(bitmap);
canvas.Clear(Color.White);
for (int i = 1; i <= 190; i = i + 2)
{
if (lastString[i / 2] == '1')
{
if (i <= 6 || (i >= 90 && i <= 100) || i >= 184)
{
canvas.DrawLine(Pens.Black, new Point(i + 14, 10), new Point(i + 14, 136));
canvas.DrawLine(Pens.Black, new Point(i + 15, 10), new Point(i + 15, 136));
}
else
{
canvas.DrawLine(Pens.Black, new Point(i + 14, 10), new Point(i + 14, 123));
canvas.DrawLine(Pens.Black, new Point(i + 15, 10), new Point(i + 15, 123));
}
}
}
canvas.SmoothingMode = SmoothingMode.HighQuality;
canvas.InterpolationMode = InterpolationMode.HighQualityBicubic;
canvas.PixelOffsetMode = PixelOffsetMode.HighQuality;
canvas.CompositingQuality = CompositingQuality.HighQuality;
Font font = new Font("Arial", 11);
canvas.DrawString(value[0].ToString(), font, Brushes.Black, 4, 116);
s = value[1] + " " + value[2] + " " + value[3] + " " + value[4] +
" " + value[5] + " " + value[6];
canvas.DrawString(s, font, Brushes.Black, 30, 123);
s = value[7] + " " + value[8] + " " + value[9] + " " + value[10] +
" " + value[11] + " " + value[12];
canvas.DrawString(s, font, Brushes.Black, 121, 123);
font.Dispose();
canvas.Dispose();
if (image != null)
{
Graphics g = Graphics.FromImage(image);
g.InterpolationMode = InterpolationMode.HighQualityBicubic;
g.SmoothingMode = SmoothingMode.HighQuality;
g.DrawImage(bitmap, 0, 0, image.Width, image.Height);
g.Dispose();
}
bitmap.Dispose();
}
}
}
}
