Konu: .jpg oluşturma
Foxpro ile bir barkod fontu yarattırıp
Ör:
900000001
.jpg formaında bir dosya olarak kaydedebilirmiyiz ?
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
Foxpro ile bir barkod fontu yarattırıp
Ör:
900000001
.jpg formaında bir dosya olarak kaydedebilirmiyiz ?
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ı ?
ben artık bunu kullanmaya basladim ozellestirilebilir ozellikleri var (resim-3) ancak kucuk etikete baskı denemesi yapmadim ama sorun cikarmadigini biliyorum
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.
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)
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
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
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...
Kullanıcı bu karkdu .jpg formatında hardiksk e kaydedilmesini istiyor. Daha sonra .jpg dosyasını başka amaçla kullanacak.
ozaman foxbarcode.prg icinde
1)
line:111 *- internal use satirlari altindaki
cTempPath = "" && Windows temp folder + SYS(2015)
satiri
cTempPath = "c:\myapp\mybarcodes"
vs gibi degistirmen gerek ki yaratilan barcode lara ulasabilesin
2)
line:3104 teki PROCEDURE Destroy() altindaki
THIS.EmptyFolder(THIS.cTempPath)
IF DIRECTORY(THIS.cTempPath)
RD (THIS.cTempPath)
ENDIF
satirlari remarklaman gerekki yaratilanlar silinmesin
NOT : test etmedim denemen gerekiyor