halo abang2 dan kakak senior delphi.. saya lagi bingung neh untuk mendwonload data dari fingerprint menggunakan socketclient.. sintaxnya: Socket.ReceiveLength; S:=Socket.ReceiveText; memo1.Text:=memo1.Text+s; nah saya bingung untuk mendownload fingerprint ke database menggunakan adoconnection dengan ODBC mysql. ada yang mengerti ga untuk mengganti download masuk ke memo ke database mysql. kebetulan saya menggunakan desain database mysql navicat, soalnya saya baru menggunakan adoconnection dengan ODBC mysql please... terima kasih.

Anda sdh berhasil nge-download data dari luar ( fingerprint device ) ke dlm memo. Kesulitan anda adalah untuk ngisi data tsb ke database. Ada dua hal yg harus anda ketahui: 1. Mem-parse data tsb sehingga menjadi entity yg seharusnya ( menjadi data :waktu , no id, nama dll) 2. Nge-feed data tsb ke database. Kalau anda ngga punya pengalaman untuk hal no 2 , maka yg sebaiknya anda lakukan adalah pergi ke toko buku terdekat dan beli buku Delphi yg memuat tutorial/petunjuk pemakaian database di Delphi. Kalo harus di-contohkan lewat forum ini.......... akan sangat panjang dan melelahkan. Alternatif lain adalah dengan mencari tutorial di internet ( kebanyakan dalam bahasa asing/inggris ) -

terima kasih atas sarannya mas.. yang saya masih bingung bagaimana memisahkan kode integer dari output fingerprint.. contoh input fingerprint (ID,ygdata) (cmd,ygdata,ok,00001) (ygdata,000045,,00001,000000,00) (cmd,ygdataend,ok) 00045 (ID),00001 ( password) dan seterusnya.. (cmd,kqdata,ok,00010) (kqdata,000012,080306,234542,00,00) (kqdata,000012,080306,234544,01,00) (kqdata,000013,080306,234548,00,00) (kqdata,000013,080306,234551,01,00) (kqdata,000014,080306,234553,00,00) (kqdata,000014,080306,234556,01,00) (kqdata,000015,080306,234600,00,00) (kqdata,000015,080306,234601,01,00) (kqdata,000016,080306,234604,00,00) (kqdata,000016,080306,234608,01,00) (cmd,kqdataend,ok) 00012 (id), 080306 ( tanggal sensor), 234542 (jam sensor).00 (status) untuk membagi id, tanggal, jam dan status saya masih bingung mas..

Buat mas Wary, saya salud dengan usaha keras anda untuk membuat aplikasi dengan finger print,mas wary udah berhasil mendownload data, tapi sekarang masih bingung memisahkkan data tersebut? Mungkin procedure ini bisa membantu mas Wary :

procedure ReadTabFile(FN: TFileName; FieldSeparator: Char; SG: TStringGrid);
var
  i: Integer;
  S: string;
  T: string;
  Colonne, ligne: Integer;
  Les_Strings: TStringList;
  CountCols: Integer;
  CountLines: Integer;
  TabPos: Integer;
  StartPos: Integer;
  InitialCol: Integer;
begin
  Les_Strings := TStringList.Create;
  try
    // Load the file
    Les_Strings.LoadFromFile(FN);
    // Get the number of rows
    CountLines := Les_Strings.Count + SG.FixedRows;
    // Get the number of columns
    T := Les_Strings[0];
    for i := 0 to Length(T) - 1 do Inc(CountCols, Ord(IsDelimiter(FieldSeparator, T, i)));
    Inc(CountCols, 1 + SG.FixedCols);
    // Adjust Grid dimensions
    if CountLines > SG.RowCount then SG.RowCount := CountLines;
    if CountCols > SG.ColCount then SG.ColCount := CountCols;
    // Initial
    InitialCol := SG.FixedCols - 1;
    Ligne := SG.FixedRows - 1;
    // Iterate through all rows of the table
    for i := 0 to Les_Strings.Count - 1 do
    begin
      Colonne := InitialCol;
      Inc(Ligne);
      StartPos := 1;
      S := Les_Strings[i];
      TabPos := Pos(FieldSeparator, S);
      repeat
        Inc(Colonne);
        SG.Cells[Colonne, Ligne] := Copy(S, StartPos, TabPos - 1);
        S := Copy(S, TabPos + 1, 999);
        TabPos := Pos(FieldSeparator, S);
      until TabPos = 0;
    end;
  finally
    Les_Strings.Free;
  end;
end;

Cara penggunaanya :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  // Open tab-delimited files
  ReadTabFile('C:\DATA.DAT', ',', StringGrid1);
  Screen.Cursor := crDefault;
end;

perhatikan pada ReadTabFile('C:\(Nama file)', ','=(ini adalah delimeter yang dipakai untuk memisahkan data) , StringGrid1); Semoga berhasil