Příklad 22 - Práce s obrázky skladové karty
Následující příklady popisují práci s třídou Picture. Použitá syntaxe odpovídá prostředí Windows Script.
Příklad přidá obrázek načtený ze souboru na skladovou kartu.
Dim G3
Dim StoreCardObject
Dim StoreCardData
Dim StoreCardPicturesCol
Dim StoreCardPictureData
Dim StoreCardPictureObject
Dim PictureData
const StoreCard_ID = "2100000101"
' Přihlášení
Set G3 = CreateObject("AbraOLE.Application")
G3.Login "Supervisor", ""
' Načtení skladové karty
Set StoreCardObject = G3.CreateObject("@StoreCard")
Set StoreCardData = StoreCardObject.GetValues(StoreCard_ID)
Wscript.Echo "Skladová karta Kód: " & StoreCardData.ValueByName("Code")
' Získání kolekce obrázků
Set StoreCardPicturesCol = StoreCardData.ValueByName("Pictures")
' Naplnění řádku kolekce obrázků skladové karty
Set StoreCardPictureObject = G3.CreateObject("@StoreCardPicture")
Set StoreCardPictureData = G3.CreateValues("@StoreCardPicture")
StoreCardPictureObject.PrefillValues StoreCardPictureData
' Načtení obrázku ze souboru
Set PictureData = StoreCardPictureData.ValueByName("Picture_ID")
Set PictureObject = G3.CreateObject("@Picture")
PictureObject.LoadFromFile PictureData, "c:\\AbraGen\\html\\books.jpg"
' Přidání řádku s obrázkem do kolekce
StoreCardPicturesCol.Add StoreCardPictureData
' Uložení skladové karty
StoreCardObject.UpdateValues StoreCard_ID, StoreCardData
Příklad načte a uloží obrázky ze skladové karty do souborů.
Dim G3
Dim StoreCardObject
Dim StoreCardData
Dim StoreCardPicturesCol
Dim StoreCardPictureData
Dim StoreCardPictureObject
Dim PictureData
Dim ImageExt
Dim ImageName
const StoreCard_ID = "2100000101"
' Přihlášení
Set G3 = CreateObject("AbraOLE.Application")
G3.Login "Supervisor", ""
' Načtení skladové karty
Set StoreCardObject = G3.CreateObject("@StoreCard")
Set StoreCardData = StoreCardObject.GetValues(StoreCard_ID)
Wscript.Echo "Skladová karta Kód: " & StoreCardData.ValueByName("Code")
' Získání kolekce obrázků
Set StoreCardPicturesCol = StoreCardData.ValueByName("Pictures")
For i = 0 To (StoreCardPicturesCol.Count - 1)
Wscript.Echo "Ukládám obrázek " & i
Set StoreCardPictureData = StoreCardPicturesCol.Item(i)
Set PictureData = StoreCardPictureData.ValueByName("Picture_ID")
Set PictureObject = G3.CreateObject("@Picture")
ImageExt = PictureObject.GetImageExt(PictureData)
ImageName = StoreCard_ID & "(" & i & ")"
' Uložení obrázku do souboru
PictureObject.SaveToFile PictureData, "C:\\" & ImageName & ImageExt
Next
Příklad přidá externí obrázek na skladovou kartu.
Dim G3
Dim StoreCardObject
Dim StoreCardData
Dim StoreCardPicturesCol
Dim StoreCardPictureData
Dim StoreCardPictureObject
Dim PictureData
const StoreCard_ID = "2100000101"
' Přihlášení
Set G3 = CreateObject("AbraOLE.Application")
G3.Login "Supervisor", ""
' Načtení skladové karty
Set StoreCardObject = G3.CreateObject("@StoreCard")
Set StoreCardData = StoreCardObject.GetValues(StoreCard_ID)
Wscript.Echo "Skladová karta Kód: " & StoreCardData.ValueByName("Code")
' Získání kolekce obrázků
Set StoreCardPicturesCol = StoreCardData.ValueByName("Pictures")
' Naplnění řádku kolekce obrázku skladové karty
Set StoreCardPictureObject = G3.CreateObject("@StoreCardPicture")
Set StoreCardPictureData = G3.CreateValues("@StoreCardPicture")
StoreCardPictureObject.PrefillValues StoreCardPictureData
' Vyplnění parametrů externího obrázku
Set PictureData = StoreCardPictureData.ValueByName("Picture_ID")
Set PictureObject = G3.CreateObject("@Picture")
PictureObject.PrefillValues PictureData
PictureData.ValueByName("ExternalFile") = True
PictureData.ValueByName("PictureTitle") = "Obrázek"
PictureData.ValueByName("PathAndFileName") = "c:\\AbraGen\\html\\books.jpg"
' Přidání řádku s obrázkem do kolekce
StoreCardPicturesCol.Add StoreCardPictureData
' Uložení skladové karty
StoreCardObject.UpdateValues StoreCard_ID, StoreCardData