Titolo: Un esempio di uso di 4D Open
Categoria: Plugin |
|
Ultimo Aggiornamento: 16/02/05 |
Per vedere in azione alcuni comandi di 4D Open, il plug-in che permette a due programmi 4D (di cui almeno uno 4D Server) di comunicare, facciamo il seguente esempio.
Supponiamo di conoscere il nome della tabella in cui cercare un certo campo ma di non conoscere il nome del campo stesso. L'unica cosa che sappiamo di questo campo è che è l'unico campo boolean della tabella. Vediamo di ottenere la posizione di questo campo nella tabella.
Supponimo che la tabella sia la numero 1. Avremo:
C_LONGINT($File;$ErrCode;$Field)
ARRAY LONGINT(aTypes;0) `tipi
ARRAY LONGINT(aLength;0) `… lunghezza (degli alfanumerici)
ARRAY LONGINT(aIndexes;0) `indicizzato?
ARRAY LONGINT(aInvisible;0) `invisibile?
ARRAY STRING(15;aNames;0) `nomi
$File:=1 `tabella numero 1
$ErrCode:=OP Get field properties (vl_ConnectID;$File;$Invisible;aNames;aTypes;aLength;aIndexes;aInvisible)
For ($i;1;Size of Array(aTypes))
If (aTypes{$i}=
Is Boolean)
$Field:=$i 'questo è il numero
End ifEnd forSi noti che l'array aTypes è stato dichiarato longint, ma poteva essere string text real o integer. Il comando ritorna il valore corretto in base al tipo di array inserito.
| Inviato da: PierPaolo Sichera |
|
Visite: 12794 |
Se accedi con utente e password, puoi aggiungere dei commenti.
