Arsip: tanya...finger print digital persona

more 15 years ago
batozai
maaf sebelumnya kalo posting saya terdahulu hancur...
saya posting ulang lagi...
untuk master2 semua, mohon bantuannya. gimana caranya load template finger print yang udah disimpan dalam bentuk file untuk kemudia digunakan verifikasi lagi. saya dah buat kodenya, tapi error melulu.
ini kode saya :
function MemoryStreamToOleVariant(ms: TMemoryStream): Variant;
var Data: PByteArray;
begin
Result := VarArrayCreate ([0, ms.Size - 1], varByte);
Data := VarArrayLock(Result);
try
ms.Position := 0;
ms.ReadBuffer(Data^, ms.Size);
finally
VarArrayUnlock(Result);
end;
End;
procedure TfrmDaftarJari.Button4Click(Sender: TObject);
var ms : TMemoryStream;
data: Variant;
i: Integer;
ov : Variant;
loadedtemplate :DPFPShrXLib_TLB.DPFPTemplate;
vtByteBuf : PByteArray;
rawdatasize : integer;
begin
inherited;
if OpenDialog.Execute then
begin
if OpenDialog.FileName <>'' then
begin
ms := TMemoryStream.Create;
try
ms.LoadFromFile(OpenDialog.FileName);
ov := MemoryStreamToOleVariant(ms);
loadedtemplate.Deserialize(ov); {error here. arror at meory adress 00000}
finally
if ms <> nil then FreeAndNil(ms);
end;
end;
end;
end;
mohon pencerahan para master master semua...
matur suwun banget....

more 15 years ago
batozai
pls help me teman teman...
mungkin udah ada yang pernah ngembangin aplikasi serupa, menggunakan sdk yang sama pula
tolong dishare dunk.....

more 15 years ago
herux
Wah, sayang sekali. udah lama. ntar tak cari kalo ketemu he.h.e.. dulu saya simpan ke db jadiin array of string.

more 15 years ago
batozai
ok mas herux....saya tunggu reply sampaian. saya benar2 butuh...
teman2 lain ada yang bisa bantu saya tidak...?
matur suwun banget sebelumnya

more 15 years ago
batozai
pls master2....aku dah hampir menyerah nie....
dah cari2 kemana2 tapi masih aj error....
pls share pengalamannya bagi yang dah pernah bikin aplikasi dengan sidik jari digital persona....

more 15 years ago
batozai
oh ga ada yang balas....
hiks..hiks...hiks.....
apa tidak ada yang pernah pake sdk one touch for windows ini ya ?
mungkin pake sdk laine kali ya ?
kalo iya bisa bagi2 dunk, kasih tahu alamat dimana donlotnya. coz nek beli aku ga ada budget.
budget dah habiz buat beli finger printnya....so bajakan ya ga papa...
plss..plsss..plsss....some body out there listen me..i'm trapped in this SDK :(
matur nuwun sebelumnnya

more 15 years ago
herux
Kasian banget sih neh !!!..
ga tahu udah lupa saya dulu pake SDK yg mana. pokoknya saya dapat dari CD nya. hi..hi.
Setelah saya cari ada nih yg mungkin mendekati yg u maksud. ini copy paste aja dari unit yg di temukan ..... silakan pelajari mungkin berguna !!.
(Bekas nya absensi sidik jari para PNS . he.he...)
procedure TfAbsensi.CompareData;
var
VerifyOk, Learn : WordBool;
Skore, Treshol : OleVariant;
ModeSec : AISecureModeMask;
val : OleVariant;
ErrOut : AIErrors;
StrHex, VarMPKerja : String;
J, BInt : Integer;
l : Byte;
res : AIErrors;
ms : TMemoryStream;
v : OleVariant;
begin
QJariPegawai.First;
while not QJariPegawai.Eof do
begin
if QJariPegawaiJari.Value <> ''
then begin
ms:=TMemoryStream.Create;
StrHex := Trim(QJariPegawaiJari.Value);
ms.setSize((Length(StrHex) div 2)-1);
for J := 0 to (Length(StrHex) div 2) - 1 do
begin
BInt := HexToInt(Copy(StrHex,(J * 2) + 1,2));
l := BInt;
ms.Write(l,1);
end;
StreamToVariant(ms,v);
ms.Free;
RegTemplate := CoFPTemplate.Create;
RegTemplate.Import(v);
Banding.Compare(RegTemplate,Vertemplate,VerifyOk,Skore,Treshol,Learn,ModeSec);
end;
if VerifyOk = true
then begin
QAbsensi.Close;
QAbsensi.SQL.Clear;
QAbsensi.SQL.Add('SELECT NIP, TglKerja, JamMasuk, JamPulang, JmlJam, '
+'JmlMenit FROM tb_absensi where (NIP='''+QJariPegawaiNip.Value+''') and (TglKerja = CONVERT(DATETIME, '''+FormatDateTime('yyyy-mm-dd',Date)+''', 102)) ');
QAbsensi.Open;
if QAbsensi.RecordCount = 0
then begin
VarMPKerja := 'Masuk Kerja Jam : ';
QAbsensi.Insert;
QAbsensiNIP.Value := QJariPegawaiNip.Value;
QAbsensiTglKerja.Value := DateOf(Now);
QAbsensiJamMasuk.Value := TimeOf(Now);
QAbsensi.Post;
end else begin
if QAbsensiJamPulang.Value = 0 then
begin
QAbsensi.Edit;
QAbsensiJamPulang.Value := TimeOf(Now);
QAbsensiJmlJam.Value := HourOf(QAbsensiJamMasuk.Value) - HourOf(Now);
QAbsensiJmlMenit.Value := MinuteOf(QAbsensiJamMasuk.Value) - MinuteOf(Now);
QAbsensi.Post;
VarMPKerja := 'Pulang Kerja Jam : ';
end else Memo1.Lines.Append('{'+QJariPegawaiNip.Value+'} - '+QJariPegawaiNama.Value+' -> '+'Anda sudah absen tadi');
end;
Memo1.Lines.Append('{'+QJariPegawaiNip.Value+'} - '+QJariPegawaiNama.Value+' -> '+VarMPKerja+FormatDateTime('hh:mm',Now));
ErrOut := Er_OK;
FPGetTemplate1.Cancel(ErrOut);
FPGetTemplate1.Run(val,ErrOut);
Kosongkan;
Exit;
end;
QJariPegawai.Next;
end;
Memo1.Lines.Append('Anda harus Registrasi Jari dulu !!, Silakan Hubungi administrator anda !');
ErrOut := Er_OK;
FPGetTemplate1.Cancel(ErrOut);
FPGetTemplate1.Run(val,ErrOut);
Kosongkan;
end;
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Minimize
by p2bf in Tip n Trik Pemrograman more 17 years ago - DBGrid ada *****
by budi_bunga in Tip n Trik Pemrograman more 18 years ago - chart di excel
by lela in Hal umum tentang Pascal Indonesia more 17 years ago - Print dengan Word
by xerion in Tip n Trik Pemrograman more 18 years ago - Cara buat program password
by tn in Tip n Trik Pemrograman more 16 years ago - Syntax HighLight Generator
by LuriDarmawan in Tip n Trik Pemrograman more 19 years ago - Mengambil nama file dan menggandakan file melalui jaringan
by ashfarsadewa in Network, Files, I/O & System more 16 years ago - indy label
by vandy in Tutorial & Community Project more 17 years ago - Treeview klik Kanan tampil form yg lain
by onsir in Hal umum tentang Pascal Indonesia more 17 years ago - ZStoredProc?
by kupretkutu in MySQL more 18 years ago