1

Konu: .jpg oluşturma

Foxpro ile bir barkod fontu yarattırıp

Ör:
900000001

.jpg formaında bir dosya olarak kaydedebilirmiyiz ?

2

Re: .jpg oluşturma

http://vfpx.codeplex.com/wikipage?title=FoxBarcode

3

Re: .jpg oluşturma

Soykan,
linkte barkodu resim halinde basılabileceğini görüyorum.
Daha önce fontu yükleyip printer-driver ile yazdırıyorduk.

hangisi daha akılcı ?

VFP9 SP2

4

Re: .jpg oluşturma

ben artık bunu kullanmaya basladim ozellestirilebilir ozellikleri var (resim-3) ancak kucuk etikete baskı denemesi yapmadim ama sorun cikarmadigini biliyorum

İleti eklentileri

forum1.jpg
forum1.jpg 72.45 kb, dosya hiç indirilmedi. 

forum2.jpg
forum2.jpg 73.07 kb, dosya hiç indirilmedi. 

forum3.jpg
forum3.jpg 72.62 kb, dosya hiç indirilmedi. 

Bu iletideki eklenti/leri indirmeye yetkiniz yok.

5

Re: .jpg oluşturma

soykan
verdiğin programı harici olarak kullanabiliyoruz.

Bunu kodla program içinden yaptırabilirmiyiz ?

amacım :

programda yapılan bir işin kaydı açıldığında o işin takip numarasını barkod olarak kaydetmek.

6

Re: .jpg oluşturma

yaparsin linkte ornegi var...genede yazayim (benim fatura formumdaki kod resim-1 deki goruntu)

NOT : barkod image tempte gosterim aninda yaratiliyor isi bitince siliniyor yani depolamak yok zaten gerekte yok
gosterim anında zaten yeniden olusturuluyor isi bitince siliniyor (saklamak istersen FoxBarcode.prg kodları ile oynaman gerekiyor...neresi ile deme cunku gereksiz)

Visual Fox Pro
Set Procedure To "prog\FoxBarcode.prg", "prog\gpImage2.prg" Additive

 
*--- Create FoxBarcode Object
Local loFbc
loFbc = Createobject("FoxBarcode")
 
*-- Set the properties
With loFbc
    .cImageType = "PNG"
    .nBarcodeType = 110 &&120:code39 &&110 : code128
    .nFactor = 1
    .nMargin = 3
    .cSet128 = "B"
    .nImageHeight = 60 && in pixels
    .nImageWidth = 218 && in pixels
    .lShowHumanReadableText = .T.
Endwith
 
*-- Generate image
LOCAL cFtBarCode,lcImage
    m.cFtBarCode = Dtos(this.pf.pgdetay.txtTarih.Value) + ;
        this.pf.pgdetay.txtFisKodu.Value  + Padl(Alltrim(Str(this.pf.pgdetay.txtIslemno.Value)),7,'0')
 
m.lcImage = loFbc.BarcodeImage(m.cFtBarCode)
this.pf.pgdetay.imgBarkod.Height = 70
this.pf.pgdetay.imgBarkod.Stretch = 2 && strech
this.pf.pgdetay.imgBarkod.Picture = m.lcImage

7

Re: .jpg oluşturma

onders yazdı:

programda yapılan bir işin kaydı açıldığında o işin takip numarasını barkod olarak kaydetmek.

neden, sadece bakod id yi sakladığında istediğin zaman istediğin yere yazdırırsın

VFP9 SP2

8

Re: .jpg oluşturma

konuka yazdı:
onders yazdı:

programda yapılan bir işin kaydı açıldığında o işin takip numarasını barkod olarak kaydetmek.

neden, sadece bakod id yi sakladığında istediğin zaman istediğin yere yazdırırsın

Evet buda soylemek istedigimin baska bir anlatimi...

9

Re: .jpg oluşturma

Kullanıcı bu karkdu .jpg formatında hardiksk e kaydedilmesini istiyor. Daha sonra .jpg dosyasını başka amaçla kullanacak.

10

Re: .jpg oluşturma

ozaman foxbarcode.prg icinde

1)

line:111 *- internal use satirlari altindaki

Visual Fox Pro
cTempPath = "" && Windows temp folder + SYS(2015)


satiri

Visual Fox Pro
cTempPath = "c:\myapp\mybarcodes"


vs gibi degistirmen gerek ki yaratilan barcode lara ulasabilesin

2)
line:3104 teki PROCEDURE Destroy() altindaki

Visual Fox Pro
THIS.EmptyFolder(THIS.cTempPath)

    IF DIRECTORY(THIS.cTempPath)
      RD (THIS.cTempPath)
ENDIF

satirlari remarklaman gerekki yaratilanlar silinmesin

NOT : test etmedim denemen gerekiyor