Titolo: Spostamento delle immagini in Picture Library
Categoria: Codice |
|
Ultimo Aggiornamento: 20/12/05 |
Non tutti hanno l'insider per spostare le immagini da un applicativo all'altro, questo metodo consente di copiarle da e verso un Table
ARRAY LONGINT($Riferimento;0)
ARRAY STRING(80;$Nomi;0)
PICTURE LIBRARY LIST($Riferimento;$Nomi)
If (True)
ALL RECORDS([IMMAGINI])
While (Not(End selection([IMMAGINI])))
$i:=Find in array($Riferimento;[IMMAGINI]Riferimento)
If ($i<1)
SET PICTURE TO LIBRARY([IMMAGINI]Immagine;[IMMAGINI]Riferimento;[IMMAGINI]Nome)
End if NEXT RECORD([IMMAGINI])
End while Else C_PICTURE($Picture)
READ WRITE([IMMAGINI])
If (Size of array($Riferimento)>0)
For ($i;1;Size of array($Riferimento))
GET PICTURE FROM LIBRARY($Riferimento{$i};$Picture)
QUERY([IMMAGINI];[IMMAGINI]Riferimento=$Riferimento{$i})
If (Records in selection([IMMAGINI])=0)
CREATE RECORD([IMMAGINI])
[IMMAGINI]Riferimento:=$Riferimento{$i}
[IMMAGINI]Nome:=$Nomi{$i}
[IMMAGINI]Immagine:=$Picture
SAVE RECORD([IMMAGINI])
UNLOAD RECORD([IMMAGINI])
End if End for End if End if
Inviato da: Franco Gallai |
|
Visite: 12014 |
Se accedi con utente e password, puoi aggiungere dei commenti.