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: 12898 |
Se accedi con utente e password, puoi aggiungere dei commenti.
