@onsir: ada kode seperti ini, lalu bagaimana caranya komponen TImage tersebut di ganti dengan komponen DBImage. untuk menampilkan gambarnya. soalnya dengan contoh-contoh yg ada saya masih kesulitan. karena cth2 tsb mengambil data gambar nya dari eksternal file. Ada yg bisa gak, bagi-bagi dong ilmunya

cara ke1..... klo mo diganti am DBImage kan tinggal simpen DBImage trus setting DataSource am DataFiled, Beres kan (notes: *.bmp imagenya klo bukan ada komponen DBImage... u/ semua type Gambar). cara ke2..... ni sample LoadImage dari DB yg bertipe BLOB ke TImage (sample JPEG)

procedure TFormBebas.TampilkeunTinaDBkanaImej;
var
  Strm: TMemoryStream;
  JPEGImage: TJPEGImage;
  Photo: TBlobField;
begin
  ImageCompany_logo.Stretch:=true;
  with DMProject do
    if SQLShort(0,'SELECT Company_logo FROM tcompanyinfo') then  //SQLShort fungsi sendiri, Males ngedit
    begin      
      Strm:=TMemoryStream.Create;
      JPEGImage:=TJPEGImage.Create;
      try
        Photo:= ZQuery.FieldByName('Company_logo') as TBlobField;
        Photo.SaveToStream(Strm);
        Strm.Seek(0, soFromBeginning);
        JPEGImage.LoadFromStream(Strm);
        ImageCompany_logo.Picture.Assign(JPEGImage);
      finally
        Strm.Free;
        JPEGImage.Free;
      end;
    end;
end;

Saya sudah menyimpan gambar barcode dlm bentuk .bmp ke dalam table, lalu akan saya cetak menggunakan QuickReport, dengan printer HP 3940/ canon BJC2100 dengan kertas biasa. lalu bagaimana proses cara pembacaan gambar tersebut/yg sudah tercetak menggunakan barcode scanner ?. Yang saya tahu: 1. Alat barcode scanner di hubungkan dengan port keyboard. 2. lalu scan gambar barcode tsb dengan scanner. Pertanyaannya : 1. Apakah Printer/tinta/kertas yang akan saya gunakan tsb bisa digunakan. 2. Apakah gambar yg kita scanner tersebut berubah menjadi charakter, dan akan tampil di komponen Edit2.text. 3. Apakah proses perubahan ini menggunakan kode lagi atau tidak, dan bagaimana caranya charakter tsb tampil di komponen Edit2.Text

jawabnya... 1. Bisa, pada umumnya bisa 2. ya, secara otomatis fungsi scanner (barcode) mengubah gambar barcode menjadi karakter. Jika akan ditampilkan di Edit2, set aktifkan pada Edit2 tsb. 3. Tidak, secara fungsional scanner barcode menggantikan fungsi keyboard dengan mengubah garis2 pola menjadi karakter2. Untuk bagaimananya coba link ke http://en.wikipedia.org/wiki/Barcode

Jika akan ditampilkan di Edit2, set aktifkan pada Edit2 tsb. untuk set aktifkan pada Edit2, Apanya yang harus di set, apakah propertinya atau eventnya dengan stfocus. Atas bantuannya saya ucapkan terima kasih.

@onsir: Jika akan ditampilkan di Edit2, set aktifkan pada Edit2 tsb. untuk set aktifkan pada Edit2, Apanya yang harus di set, apakah propertinya atau eventnya dengan stfocus. Atas bantuannya saya ucapkan terima kasih.

maksudya: Barcode sama halnya dengan Keyboard dan diakhiri enter, jadi klo misalkan cursor terfocus di Edit2 maka saat Barcode ditembakkan maka pada Edit2 akan tertulis code dari Barcode pada Edit2 sedangkan klo (misal) memo yg terfocus maka Barcode akan menulis pada memo itu. jadi memfocuskan pada control yg seharusnya ditulis.{disini samplenya adalah Edit2}

@onsir: Jika akan ditampilkan di Edit2, set aktifkan pada Edit2 tsb. untuk set aktifkan pada Edit2, Apanya yang harus di set, apakah propertinya atau eventnya dengan stfocus. Atas bantuannya saya ucapkan terima kasih.

Pake Event OnChange aj, biar langsung nongol :D Contoh'na: procedure TForm1.Edit1Change(Sender: TObject); begin if Length(Edit1.Text)<9 then exit; ZMySqlQuery1.Sql.Clear; ZMySqlQuery1.Sql.Add('select * from tb_pegawai where nip='''+edit1.Text+''' order by nip'); ZMySqlQuery1.Open; //bla..bla.. end; Semoga sukses ;)

Maap, kayaknya lebih cocok diproses di Event OnKeyPress ato OnKeyUp, soale barcode itu sifatnya sama dengan input dari keyboard diakhiri penekanan tombol Enter. Apalagi kode barcode di barang2 yang dijual emang beda2 panjangnya, yang pernah aku temui 12 digit dan 13 digit. Misal: procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_RETURN then begin //--proses di sini end; end;

@shidec: Maap, kayaknya lebih cocok diproses di Event OnKeyPress ato OnKeyUp, soale barcode itu sifatnya sama dengan input dari keyboard diakhiri penekanan tombol Enter. Apalagi kode barcode di barang2 yang dijual emang beda2 panjangnya, yang pernah aku temui 12 digit dan 13 digit.

Yah samain aj semua panjang'na,he..he.. :twisted: Thx buat br0 shidec atas masukan'na.Aq jdi tambah ilmu, maklum pemula :)

klo emang susah dg cara itu, kanapa ngga pake cara yg lebih mudah aja, misal pake font barcode dan scanner pasti akan kenal itu.. font barcode byk, cari di om google.. lebih sample karna sbg text jgn dibuat njelimet... klo emang bisa dibuat gampang, nikmati hidup karna hidup cuman sekali...

Saya membuat program untuk barcode menggunakan komponen TAsBarcode1, Saya menggunakan Type CodeEAN8, dan pada saat di scan selalu ada satu digit angka dibelakang kode tsb. misal kode 1201001-->12010011 1201002-->12010028 1201003-->12010035 Saya menggunakan barcode scaner merk gryphon datalogic bagaimana mengatasi masalah tsb. bila saya tambahkan karater * didepan/belakang tampil error "barcode must numeric" barcode scaner yg saya gunakan hanya mengenal type Code128c type ini selalu ada tambahan angka 0 satu digit didepan kode CodeEAN13 type ini selalu ada empat digit angka 0 didepan kode dan satu digit dibelakang kode Apakah setiap barcode scaner hanya dapat mengenal beberapa type barcode saja Atas bantuan dan penejelasannya saya ucapkan terima kasih.