Salve!
Rieccomi!
Intanto voglio ringraziare Massimo Valle per le spiegazioni sui File Types e
sulle
estensioni dei file su Mac. Grazie
Problema:
Grazie ai consigli di Gilberto De Faveri son riuscito a salvare e aprire un
file.rtf
con il seguente codice
Dim f as FolderItem
dim s as TextOutputstream
if right(oldpat,4) <> ".rtf" then
oldpat=Untiled.rtf"
end if
f=GetSaveFolderItem("myrtf", oldpat)
If f <> nil then
s =f .CreateTextfile
s.Write Editfield1.StyledText.RTFData
s.close
Il quale anche se funzionante mostra dei limiti inaccettabili
Il tempo impiegato per salvare o aprire un file è legato alla dimesione del
testo
discretamente fino a 2 Kb (qualche secondo)
Accettabile fino a 4/5 kb
Stressante fino 8/10 Kb (oltre 1 minuto)
oltre neanche a parlarne.
con 40 kb dopo 5 minuti non aveava ancora finito
Purtroppo i file che devo salvare sono di oltre 35 kb di puro testo.
se lo stesso file viene salvato senza RTFData
s.Write Editfield1.StyledText.Text
il salvataggio è immediato anche con file oltre 50 Kb
Le ho provate tutte senza riuscirci, purtroppo la mia esperienza è limitata.
dove sbaglio?
Questo è l'ultimo scoglio che devo superare per portare a termine il porting su
Mac
pochi byte visto che il sorgente è di oltre 3,7 Mb.
Ringraziandovi anticipatamente lascio i miei piu cordiali saluti a tutti
Mario Graziani
|