Arsip: tanya...finger print digital persona

 
user image
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....
user image
more 15 years ago

batozai

oh ya sourcode tsb menggunakan one touch windows SDK dari digital persona
user image
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.....
user image
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.
user image
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
user image
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....
user image
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
user image
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
Share to

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

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com