procedure TForm1.ComPort1ReceiveCallBack(Data: String);
begin
Edit1.Text := Data;
end;

@EkoIndri: Pakai komponen TComport setting propertiesnya : example: Port = 'COM1' Baud = 9600 DataBits = 8 Parity = ptNONE StopBits = sbONE ReceiveMode = rmTERM Terminator = '#13#10' dan akses datanya dari eventnya: example:

procedure TForm1.ComPort1ReceiveCallBack(Data: String);
begin
Edit1.Text := Data;
end;

kalau pengen baca cuma gitu aja. sebelum bisa membaca kode dari scanner barcode, komponen comportnya harus diopen terlebih dahulu moga berhasil deh

@Maul_aku: 1. Kalo sudah beli scanner barcodenya ngga perlu pake procedure lain karena dianggap sebagai input device sama dengan keyboard 2. Untuk postingnnya tinggal posting saja seperti input data di database 3. Harga scanner barcode kurang lebih 1,5 juta terrgantung merk barcodenya sama yang jualanhttp://www.esnips.com/web/Maulaku

@wati: [quote:4415a836ba="Maul_aku"]1. Kalo sudah beli scanner barcodenya ngga perlu pake procedure lain karena dianggap sebagai input device sama dengan keyboard 2. Untuk postingnnya tinggal posting saja seperti input data di database 3. Harga scanner barcode kurang lebih 1,5 juta terrgantung merk barcodenya sama yang jualanhttp://www.esnips.com/web/Maulaku[/quote:4415a836ba] Thanks Suhu2 Eko dan Maul. jadi sebenernya masih perlu pakai component TComport nga sih? apa bisa langsung terima seperti yg di sebutkan suhu maul???.thanks b4.

Kebetulan saya dah pernah pake ga masalah, kurang tahu temen2 yang lain