Salve, ho un piccolo problema che non riesco a risolvere, dovrei salvare un paio di colori, scelti dall’utente durante la configurazione del software, in un file binarystream, con la compilazione a 32 bit non ho avuto mai problemi utilizzando questo piccolo codice
dim x as Integer
x=integer(Rectangle1.FillColor)
lo salvavo
.WriteInt32 x
lo leggevo e lo assegnavo
dim colormio as color
x=.ReadInt32
colormio=color(x)
Ho provato a compilare a 64 bit ( la prima volta che ci provo) ed il codice non funziona pi, come posso risolvere il problema.
Utilizzo la versione Xojo Win 2017r3
Mario Graziani
int32 = Integer ?
Io uso un Variant per registrare e leggere (in un TextOutputStream / TextInputStream).
Ho risolto con una variabile in più senza stravolgere il tutto, visto che col binarystream vengono salvati molti altri parametri, grazie comunque Emile
Dim c As Color =Rectangle1.FillColor
Dim x As Int32 = Val(str©)
salvo
.WriteInt32 x
lo leggo e assegno
dim colormio as color
x=.ReadInt32
colormio=color(x)
Va bene sia per 32 bit che per 64 bit.
Mario Graziani
Like
Pensandoci bene possibile farlo con una sola variabile
Dim x As Int32 = Val(str(Rectangle1.FillColor))
Mario Graziani
Perch non direttamente dim x as int32=int32(colore)
Compilando a 32 bit integer=int32, compilando a 64bit integer=int64. Per cui devi esplicitare che vuoi un int32
Buongiorno, proprio vero che bisogna lavorare di mattina, possibilmente presto, e non di notte e oltre tutto domenica, bastava dichiarare la x come int32 e tutto torna, a pensare che Emile Schwarz me lo aveva fatto notare, sich!
Mario
Con il caldo la mattina presto decisamente meglio