banjalukaforum.com

Moze li mi netko odgovoriti kako da u Delphiju ocitavam kodove koje ucitaca bar-kod citac?

Citac bar-koda se prikljucuje izmedju tastature i racunara, i sve sto on zapravo
radi jeste da "glumi" tastaturu, tj. posalje racunaru ono sto ocita kao ekvivalent
pritisnutih tastera. Dakle, nema nikakve posebne podrske za citac bar-koda,
nema posebnih drajvera itd...

Trebas uzeti komponentu tj skinuti je sa interneta,domaceg autora koja se zove t-com port za delphi ja mislim da je verzija za delphi 6 koja ce ti resiti sve tvoje probleme.Nju prekompajlirati u vise verzije delphija nece biti problem.Instaliras komponentu i picis dalje sam.Poz.

Nije mi jasno sta ce mu to? Licno nisam vidio nijedan citac bar-koda koji se
prikljucuje na nacin razlicit od onoga koji sam opisao.

dsimic je u pravu bar code citaci izbacuju samo string tj niz znakova, znaci oni se u sustini ponasaju kao tastatura !

Ima posebna komponenta tcom port koja uvelike olaksava posao.

Ako se bar čitač ponaša kao tastatura - sumnjam da bilokakva komponenta može išta da olakša -.-

Šta više, onda stvar i ne zavisi od programa

Super stvar, ja sam mislio da je nešto komplikovanije

Koliko košta jedan bar čitač? 100-200 KM ?

Kobre su oko cca 200 KM a ispod toga ne bi isao !

Evo vam malo iz help file-a tcom port komponente kad ste navalili:


Opening and closing port

Before most of the TComPort methods can be succesfully called, serial port has to be opened. There are two ways to open serial port. Application can call Open method or set Connected property to True. To end a session, call Close method or set Connected
property to False.


Example

begin
ComPort1.Open; // open serial port
// do some stuff here
ComPort1.Close; // end session
end;



Writing to port

Write operations can be performed very easily when using TComPort. There are four methods that deal with writing data.


Method Description

Write Writes non-typed variable to output buffer.
WriteAsync Writes non-typed variable to output buffer in.

asynchronous mode.

WriteStr Writes string type variable to output buffer.
WriteStrAsync Writes string type variable to output buffer in
asnychronous mode.

Application should also properly set write timeouts. See TComTimeouts class for more detailed description.


Example

var
Str: String;

begin
Str := 'Hello';
ComPort1.WriteStr(Str); // string type variable
ComPort1.Write(Str[1], Length(Str)); // no defined type

end;

Reading from port

Reading from input buffer can be performed in two ways. Usually application calls one of the read methods inside OnRxChar event, which triggers when charachter(s) arrive in input buffer. If read method is called inside OnRxChar event, read timeouts should be set to no wait, that is, read method checks input buffer and returns immidiately, since the number of bytes in input buffer is already known. Application can also call read method outside OnRxChar, but it should set read timeouts properly. See TComTimeouts for more details.

Method Description

Read Reads from input buffer to non-typed variable.
ReadAsync Reads from input buffer to non-typed variable in

asynchronous mode.

ReadStr Reads from input buffer to string type variable.
ReadStrAsync Reads from input buffer to string type variable in
asnychronous mode.


Example (inside OnRxChar)

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: LongWord);
var
Str: String;
begin
ComPort1.ReadStr(Str, Count);
// do something with Str variable
end;


Example(outside OnRxChar)

var

Str: String;

begin
// set timeouts here or at design time
ComPort1.ReadStr(Str, NumberOfBytes);
// do something with Str variable
end;

Tu komponentu i taj kod mozes samo iskoristiti ako je u pitanju RS232 barcode citac ... inace vecina sadasnjih barcode citaca pici preko PS/2 pa cak i USB-a, sto znaci direktno ti pici tekst kao preko tastature . Ono sto mene zanima jeste kako neke aplikacije prepoznaju tip Barcode-a da li je to u pitanju Code 39/93, upc, ean i slicno? Trazio sam algoritme ali nista posebno nisam pronasao, any help ;0 ?

Ean

Evo coda za prepoznavanje Ean13 bar koda zlu ne trebalo (kod je pisan u vb.net-u)


Referenca: http://www.barcodeisland.com/ean13.phtml

Pozdrav,
Ne trebaju ti nikakvi drajveri i komponente za prepoznavanje barcod citaca u delphiju. kao sto je vec neko rekao on se kaci na PS2 port i simulira kucanje brojeva sa tastature. Ovo znam licno posto ga ja koristim u mom programu za PCKasu

ako ti moze pomoci mogu da ti posaljem verziju programa

Pzodrav

Da, tacno, kao sto rekoh... Kaci se na PS/2, izmedju tastature i racunara, i
"glumi" tastaturu saljuci PC-ju procitani kod kao ekvivalent pritisnutih tastera
na tastaturi...

Postoje i serijski (RS232) i USB bar-code čitači.