Witam
Od niedawna bawię się w programowanie w Delphi. Stanąłem obecnie przed wyzwaniem wygenerowania kody kreskowego i osadzenei go na PDF. Do tej pory w swoich programach PDF generowałem za pomocą synPDF. I teraz pytanie do mądrzejszych głów znacie jakąś darmową prostą bibliotekę która by umożliwiła wygenerowanie prostego kodu kreskowego ze stringa i dała by się łatwo osadzić w pdf ? Z góry dzięki za pomoc
Google podpowiada cos takiego https://sourceforge.net/projects/zint/ musisz wiedzieć w jakim kodowaniu maja być te paski. Generujesz np PNG i wrzucasz n pdfa
są czcionki w których pisze się kodem kreskowym np. https://pl.fonts2u.com/code-128.czcionka
jeśli możesz takową osadzić w swoim pdf-e to już sprawa rozwiązana, jeśli nie, to wygeneruj taki tekst - kod na formie, i skopiuj wynik jako grafikę. Ją już chyba osadzisz na dokumencie.
robertz68 napisał(a):
są czcionki w których pisze się kodem kreskowym np. https://pl.fonts2u.com/code-128.czcionka
jeśli możesz takową osadzić w swoim pdf-e to już sprawa rozwiązana, jeśli nie, to wygeneruj taki tekst - kod na formie, i skopiuj wynik jako grafikę. Ją już chyba osadzisz na dokumencie.
Sama czcionka nie rozwiąże problemu bo trzeba dodać znak startu i sumę kontrolna.
@UglyMan: To widziałem ale zależy mi na jakiejś bibliotece którą będę mógł użyć bezpośrednio w Delphi jako plik .pas Bo niestety moja wiedza jest dość podstawowa ;)
Ja pisałem w pracy generator grafik kodów Ean39 i innych w Basicu. Generalnie korzystałem z Wiki i funkcji do tworzenia i rysowania na mapach bitowych. Musisz zakodować każda liczbę (cyfrę) jako odpowiednia kombinacja pasków + zakodować start i stop (nie pamiętam szczegółów) i narysować ten kod na mapie bitowej. Wiki
Następnie spakować to do funkcji która zwraca taką mapę i wywołać ją w miejscu gdzie chcesz wkleić mapę ;)
Poniżej pseudokod
Delphi function ean39 (string code)
begin
znaki[] = generujSekwencje();
(* załadowanie tablicy
z kolejnościami pasków *)
mapaBitowa = nowaBialaMapa(code, znaki);
(* Tworzymy mapę która ma
odpowiedni rozmiar, kalkulowany
na podstawie kodu i zakodowanych
znaków *)
for (i = 1; i <= code.length; i += 1)
begin
aktualnaPozycjaX = zwricWspolrzedna(znaki, code, i);
rysujZnak(mapaBitowa, aktualnaPozycjaX, znaki, code [i]);
end
(* Miejsce na nieuwzględnione
operacje *)
return mapaBitowa;
end
fast report ma eksport do pdf-a, ale nie wiem czy jest to w wersji dodawanej do Delphi?
@UglyMan w przypadku kodu Code128 (do którego wysłałem linka) wystarczy pisać czcionką "kreskową" plus na koniec wyliczyć z tego co się napisało cyfrę kontrolną. Jedyna wada tego kodowania że czasami trzeba włączyć w czytnikach kodów kreskowych aby czytał to kodowanie.
W FortesReport - komponencie do tworzenia raportów jest komponent do kodów kreskowych oraz eksport raportu do pdf
@Tomasz Wilk:
Standardów kodów kreskowych jest wiele. Które z nich Cię interesują ?
Mam zrobione rysowanie na dowolnym canvasie kodów Ean13 oraz code128B
@grzegorz_so: Nie ma to aż takiego znaczenia bo czytnik kodów którego będę używał obsługuje wiele z nich, ale Ean13 był by OK :)
@Tomasz Wilk:
Mam kod rysujący ean13n na dowolnym canvasie, i nie do końca rozwiązanym problemem jest skalowanie wydruku , milimetry albo DOTS ..
I fajnie było by zrobić z tego mojego kodu niezależny unit. Pomyślę o tym, dwa, trzy dni i poradzę sobie z tym
@grzegorz_so: Trzymam kciuki, ja obecnie realizuje bardziej potrzebne rzeczy w programie, to miał być miły dodatek i wiadomo jak to jest, człowiek zabiera się za ten dodatek myśląc że to będzie banał a na razie to największy problem się okazuje :D