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

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

Titolo: Scaricare con il client il programma 4D su cui siamo connessi

Categoria: Codice Ultimo Aggiornamento: 10/01/05


Procedura da lanciare sul server

CREATE RECORD([ARCHIVI])
[ARCHIVI]NomeArchivio:="NOME STRUTTURA DEL PROGRAMMA"

$NuovoArchivio:=[ARCHIVI]NomeArchivio+"2"
vErrore:=0
ok:=1

ON ERR CALL("ErroreSuBlob")
$TipoArchivio:=Document type([ARCHIVI]NomeArchivio)
If (($TipoArchivio#"") & (ok=1))
    COPY DOCUMENT([ARCHIVI]NomeArchivio;$NuovoArchivio;*)
    If (ok=1)
        $Ref:=Open document($NuovoArchivio)
        If (ok=1)
           CLOSE DOCUMENT($Ref)
           [ARCHIVI]TipoArchivio:=Document type(Document)
           If (ok=1)
           DOCUMENT TO BLOB(Document;[ARCHIVI]DataFork)
           If (ok=1)
           COMPRESS BLOB([ARCHIVI]DataFork)
           End if
           If (ok=1)
           DOCUMENT TO BLOB(Document;[ARCHIVI]ResourceFork;*)
           If (ok=1)
           COMPRESS BLOB([ARCHIVI]ResourceFork)
           End if
           End if
           End if
        End if
        
        DELETE DOCUMENT($NuovoArchivio)
    End if
End if
ON ERR CALL("")
[ARCHIVI]DataModifica:=Current date(*)
[ARCHIVI]OraModifica:=Current time(*)
[ARCHIVI]BytesDataFork:=BLOB size([ARCHIVI]DataFork)
[ARCHIVI]BytesResourceFork:=BLOB size([ARCHIVI]ResourceFork)
SAVE RECORD([ARCHIVI])

UNLOAD RECORD([ARCHIVI])

procedura da lanciare sul client (anche in remoto) dopo il tempo necessario al completamento della prima da parte del server

$NuovoArchivio:=[ARCHIVI]NomeArchivio+" copia"
$Ref:=Create document($NuovoArchivio;[ARCHIVI]TipoArchivio)
If (ok=1)
    CLOSE DOCUMENT($Ref)
    EXPAND BLOB([ARCHIVI]DataFork)
    EXPAND BLOB([ARCHIVI]ResourceFork)
    BLOB TO DOCUMENT($NuovoArchivio;[ARCHIVI]DataFork)
    BLOB TO DOCUMENT($NuovoArchivio;[ARCHIVI]ResourceFork;*)
End if

su mac osx la struttura viene memorizzata dentro il pacchetto di 4D


Inviato da: AirMac Visite: 12598

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
303 utenti registrati

Pagina servita il 28/03/24 alle 23:57:39 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