Sviluppo4d.it
Sito indipendente di informazioni tecniche per sviluppatori 4th Dimension italiani  

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

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: 11685

Se accedi con utente e password, puoi aggiungere dei commenti.


Accesso

User:
Pass: Accedi

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

4D Discussioni

Faq random


Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
301 utenti registrati

Pagina servita il 19/03/24 alle 10:14:54 Valid HTML 4.01! Valid CSS!

Mutuo Facile, iDigitalScout, iDigitalTags e altre app di Nexid srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per IOS Apple iPhone, iPod, iPad