Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
    Dest As Any, _
    Src As Any, _
    ByVal length As Long _
)

dim threshold As integer
dim data1 As Byte
call MoveMemory(threshold, data1, Len(threshold))

// windows.pas
procedure MoveMemory(Destination: Pointer; Source: Pointer; Length: DWORD);
begin
  Move(Source^, Destination^, Length);
end;
var
  threshold: integer;
  data1: Byte;
begin
  MoveMemory(threshold, data1, length(threshold));
end;
//error: incompatible types: 'Integer' and Pointer'

MoveMemory(@threshold, @data1, SizeOf(threshold));

type RSI_DATA_LOG_FORMAT = (
  RSI_DLF_BUFFER_EMPTY = 0,
  RSI_DLF_USER_ENROLLED = 1,
  RSI_DLF_NO_HAND_READ = 2,
  RSI_DLF_IDENTITY_UNKNOWN = 3,
  RSI_DLF_EXIT_GRANTED = 4,
  RSI_DLF_SCORE_IS = 5
);
type RSI_DATA_LOG_ELEMENT = record // offset
  datalog1: RSI_DATA_LOG_FORMAT;
  datalog2: RSI_DATA_LOG_FORMAT;
end;
var
  DataLog: RSI_DATA_LOG_ELEMENT;
  strData: string;
begin
  DataLog.datalog1:=RSI_DATA_LOG_FORMAT(RSI_DLF_EXIT_GRANTED); // vb: DataLog.datalog1 = RSI_DLF_EXIT_GRANTED   ' bisa langsung
  strData:=FormatFloat('00',DataLog.datalog2);
end;

  DataLog.datalog1 = RSI_DLF_EXIT_GRANTED
  strData = format(DataLog.datalog2, "#00")

strData := FormatFloat('00', Ord(DataLog.datalog2));

@DelphiExpert:

strData := FormatFloat('00', Ord(DataLog.datalog2));

@mas_kofa: [quote:6af54d2cfb="DelphiExpert"]

strData := FormatFloat('00', Ord(DataLog.datalog2));

[/quote:6af54d2cfb] kalo aku liat mungkin hasil nya selalu '00' iya kah?

@DelphiExpert: Ya tentu saja akan selalu '00', lha wong sampean tidak membuat perubahan ke DataLog.datalog2. Pada waktu inisialisasi variable, Delphi akan set DataLog.datalog2 = RSI_DLF_BUFFER_EMPTY = 0;

 Function rsiIDToText(var ID: byte; text: String): longint; external 'rsidll32.DLL';
type RSI_RESULT = (
	RSI_SUCCESS,
	RSI_ERROR_DATA,
	RSI_ERROR_COM,
	RSI_NO_CONNECTION
);
type RSI_USER_RECORD = record
	ID: RSI_ID;	
        authorityLevel: RSI_AUTHORITY_LEVEL;
end;

type RSI_ID = record
	b0: byte;
	b1: byte;
	b2: byte;
	b3: byte;
	b4: byte;
end;
type RSI_AUTHORITY_LEVEL = (
	RSI_NONE = 0,
	RSI_SERVICE = 1,
	RSI_SETUP = 2,
	RSI_MANAGEMENT = 3,
	RSI_ENROLLMENT = 4,
	RSI_SECURITY = 5
);
procedure DisplayLastUserRecord(UserRec: RSI_USER_RECORD; Result: Longint);
var
  teks: string[10];
begin
  if (RSI_Result(Result) = RSI_SUCCESS) Then
  begin
    Result:=rsiIDToText(UserRec.ID, teks);          // error UserRec.ID harus nya lebih detail, klo di VB langsung az
    txtAuth.text:=IntToStr(UserRec.authorityLevel); // ini juga error
  end;
end;

Private Sub DisplayLastUserRecord(UserRec As RSI_USER_RECORD, Result As Long)
    Dim teks As String * 10
        
    If (Result = RSI_SUCCESS) Then
        Result = rsiIDToText(UserRec.ID, teks)        
        txtAuth.text = Str(UserRec.authorityLevel)
    End If
End Sub