mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: [d5] progetto e traduzione in inglese

ciao a tutti, avendo un progetto composto da una sessantina di form fatto in 
delphi 5 come vi comportereste se questo dovesse essere presentato in 
versione dimostrativa in inglese??? so che esistono tool che eseguono 
traduzione perň non saprei quale scegliere... se decidessi di lanciare il 
mio exe con un certo parametro (tipo "miaappl.exe ENG") andare a caricare 
dei file .ini che contengono le traduzioni delle varie labels, grid, ecc.???
Simone 

xche complicarsi la vita?
1) apri il tuo progetto
2) compila il tuo progetto
3) file-new-resource dll wizard.
AS

Esattamente come ha detto Alberto con un'unica eccezione, ovvero se hai 
la necessità di cambiare lingua on-fly. In questo caso file .ini o 
tipizzati contenente le traduzioni credo siano indispensabili

 ha scritto nel messaggio
news:1135336217.2...@g49g2000cwa.googlegroups.com...


sicuro di aver letto bene la guida?
AS

ho provato a fare un semplice progetto composto da una form con una label e
un tasto... l'ho salvato e poi ho lanciato il wizard per la lingua... mi ha
creato 3 gruppi di form (con lo stesso nome ma con estensione .ENG .DEU e
.ITA) una per ogni lingua che ho scelto nella finestra di wizard... ho
notato che in queste finestre posso solo cambiare le caption e ovviamente
tutte modifiche del codice lo devo fare sulla form originale, inoltre ho
visto che se cambio nazionalità da dentro pannello di controllo di windows
mi fa in automatico il cambio della lingua nella form, ovvero se metto
Tedesco e lancio l'exe mi esce la form "versione tedesca" o inglese nel caso
di inglese... la cosa che invece vorrei fare è compilare 3 versioni separate
in modo da fare la versione inglese, italiana e tedesca, forzando via codice
l'uso di determinate "risorse  linguistiche"... ho visto che dentro
nell'help parla di:
For example, the following code switches the interface language to French:
const
  FRENCH = (SUBLANG_FRENCH shl 10) or LANG_FRENCH;
if LoadNewResourceModule(FRENCH) <> 0 then
  ReinitializeForms;
però non mi funziona, hai qualche esempio??
Grazie e buone feste
Simo

forse nell'esempio \demos\richedit cč la soluzione...
ho notato che dentro ReInit.pas cč:
LoadNewResourceModule(..)
Simo

sono riuscito a fare il cambio di lingua usando LoadNewResourceModule()...
però ho notato che se aggiungo un qualsiasi componente es: un TMemo o una
label sulla form principale, salvo tutto e ricompilo negli altri form non
trovo quel componente... che devo fare per fare in modo che le modifiche
vengano viste da tutte le form?
Simo
Newsgroup: it.comp.lang.delphi
Titolo: QuickReport e Epson

C'è qualcuno che ha risolto il famoso problema di QR che
non funziona con alcuni stampanti Epson (p.e. la 760) ?
Sia QR che Epson conoscono il problema, ma non so se sia
stato risolto o meno.
Ciao a Tutti e (...OT...) Totti mejo di Del Shadow Piero

 stato risolto o meno.
Di che problema si tratta? Io ho proprio la 760 e funziona
benissimo (il QR intendo :))
Ciao
Giuseppe

 wrote in message
395C3D7B...@numera.it...



Non faccio nulla, funziona e basta, e inoltre uso D4 con QR 3.05 (se non
ricordo male).
Ciao
Giuseppe

Io uso anche la 780 con D4 e Win98 e l'unico problema si verifica quando le
dimensioni della pagina sono diverse da quelle specificate nelle proprietà,
devi settarle anche nelle proprietà della stampante personalizzando il
foglio.
Ciao, Davide

Newsgroup: it.comp.lang.delphi
Titolo: Delphi7 non funziona dopo installazione client access ibm (forse OT)

Da poco ho un nuovo pc con winxpsp2.Ho installato delphi 7 e tutto va
bene.Ho installato il client access (express) per poter lavorare anche su
as/400 e da quel momento non funziona piu' correttamento.Per la precisione
da errore quando in fase di compilazione crea il datamodulo che contiene
gli oggetti ado che uso per gestire i database.Ho provato a disinstallare 
e reinstallare tutto ma niente.Ho provato con gli mdac della microsoft, con
il dataacc,non so cosa fare.
Qualcuno ha suggerimenti o almeno qualche idea che mi possa indirizzare
nella ricerca di una soluzione?
grazie per l'attenzione,
Max

gli oggetti ado che uso per gestire i database.
Che versione di Client Access hai installato? Con l'errore che segnali mi
sono scontrato anch'io e per tua fortuna l'ho risolto, rompendomi la testa
ma l'ho risolto :-). Il problema, che č irreversibile a meno di metter
mano al registro di configurazione o formattare, si presenta con le
versione di Client Access inferiori al 5.1.0 o con le prime release della
5.1.0 mi sembra. Il tutto succede perchč il C.A. installa la versione
inglese di MDAC con percorsi delle dll diversi da quella italiana presente
con XP o 2000, e ADO non funziona piů.
Cerca nel registro questi percorsi:
C:\Programmi\Common files\System\ado
C:\Programmi\Common files\System\msadc
C:\Programmi\Common files\System\Ole DB
e sostituiscili con
C:\Programmi\File comuni\System\ado
C:\Programmi\File comuni\System\msadc
C:\Programmi\File comuni\System\Ole DB
Poi puoi anche cancellare le cartelle presenti in <Common files> o
addirittura tutta la cartella.
Riavvia il computer e dovresti essere a posto. Fammi sapere.
Ciao.
--- posted by geoForum on 
http://www.delphiedintorni.it
Newsgroup: it.comp.lang.delphi
Titolo: componenete tpapro

Salve ragazzi,
vi chiedo un consiglio, sapete dirmi se con questa componente
tpapro_4_06 si possa realizzare lo streaming dei dati?
Stavo leggendo la guida allegata, la cosa che mi turba e che nn so se
usare la componente relativa alla telefonia su ip o ftp!
Qualcuno di voi ha qualche suggerimento?
Grazie
Francesco

 Qualcuno di voi ha qualche suggerimento?
Per il VOIP in Delphi puoi usare 
http://www.astatech.com/products/voip/
-- 
I am what I am, I do what I can
Do. Or do not. There is not try.

Ciao si scusami hai ragione è scritto in maniera pessima. Devo
realizzare una sorta di videoconferenza ma simplex! il viene dovra
essere spedito ad un server che poi li invierà a sua volta a tutti i
terminali connessi a quel server. Qualche mese fa mi avevano
consigliato di usare quella componente che ti ho indicato, tu mi dici
di utilizzare questa?

 di utilizzare questa?
Indy per la parte di networking (
http://www.indyproject.org/
)
DSPack per l'acquisizione video e la compressione
(
http://www.progdigy.com/
)
oppure ti compri Flash Communication Server
(
http://www.macromedia.com/software/flashcom/
) ed hai praticamente
tutto gia' fatto.
-- 
I am what I am, I do what I can
Vuoi supportarmi? 
http://url.repository.biz/go/3E


>DSPack per l'acquisizione video e la compressione
E' la soluzione che ho usato per l'acquisizione da webcam di video e
audio.
Ora mi manca la parte forse piu impegnativa, lo streaming. Te mi
suggerisci di usare Indy per instaurare la connessione. Poi nn so come
inviare il file, perchè il tutto dovrebbe essere tempo reale e nn so
se la componente ftp di indy nn attenda il completamento della
creazione del file stesso.

 creazione del file stesso.
Non devi lavorare sui file ma sugli stream. Guardati il demo LiveStream
sul sito della Atozed.


>Non devi lavorare sui file ma sugli stream.
Sai consigliarmi qualche altro esempio da poter scaricare oltre a
quello che mi hai suggerito? LiveStream cmq nn va lo stream di audio e
video :(

 video :(
Se ti aspetti di trovare un demo gia' pronto che fa tutto quello che ti
serve IMHO stai fresco. Il demo suggerito lavora sugli stream,
riadattalo secondo le tue necessita'.


Newsgroup: it.comp.lang.delphi
Titolo: Aiuto Please

Ho bisogno di modificare una stringa all'interno di un text file in maniera
dinamica...cioč  quando clikko un bottone un valore che č settato nel
textfile deve cambiare...questo valore sta sempre nella stessa posizione, ma
non  riesco a trovare un buon metodo per cancellarlo e poi
riscriverlo....aiutatemi please
Daniele

 riscriverlo....aiutatemi please
Usa una TStringList (la prop. Lines fa al caso tuo).
Se tu fornissi + info sulle dimensioni/formato (cos'è stile INI o altro?)
del file potrebbero esserci altre soluzioni...
Ciao
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply
Newsgroup: it.comp.lang.delphi
Titolo: come generare pagine html e vederle in un webbrowser?

salve a tutti!
forse sto per sconvolgere molti di voi con una domanda assurda, ma sono 
arrivato ad un punto di rincoglionimento che non capisco più niente...
allora... ho sostanzialmente un componente che raccoglie al suo interno 
alcuni dati (sono essenzialmente dati interi ed enumerativi, ma non db) e di 
derivarne altri dello stesso tipo e che ha un metodo che genera un report 
dei suddetti dati in un TMemo...
per rendere i dati più leggibili ho sostituito il TMemo con un TRichEdit in 
modo da evidenziare alcune cose in grassetto, corsivo, ecc., ho fatto in 
modo il metodo che genera il report introduca comandi tipo html come 
<B>...</B> ed ho scritto una funzione che fa il parsing dell'uscita del 
metodo report e reintroduce i risultati formattati nel TRichEdit.
siccome è abbastanza un suicidio di risorse (tra l'altro il TRichEdit è in 
sola lettura), ho pensato che si potesse inserire direttamente codice html 
in un componente che ha direttamente la possibilità di visualizzarlo...
se non sbaglio il componente da usare in questo caso è TWebBrowser nella 
Palette Internet, tuttavia non sono riuscito a capire come fargli arrivare 
direttamente delle stringhe con il codice html da visualizzare senza 
salvarle in un file sul disco fisso...
è possibile fare quello che voglio fare? dovrei usare piuttosto un'altro 
componente? quale?
grazie in anticipo per ogni suggerimento che possa togliermi d'impiccio,
      Stefano 

Mi sa che se vuoi usare TWebBrowser devi prima salvare il file e poi 
passarglielo! solo cosi lo visualizzi.
Poi xche usare un altro componente TWebBrowser è comodissimo quando il 
file non ti serve più te lo cancelli!

------------------------
Diego Di Filippo
  R&amp;D Software Developer
 
www.ada-project.com
-----------------------
--- posted by geoForum on 
http://www.delphiedintorni.it

 il file non ti serve più te lo cancelli!
Credo che questo link possa esserti utile:
http://delphi.about.com/cs/adptips2004/a/bltip0104_4.htm
Antonio

Grazie mille per le risposte... ora ci do un occhio...
   Ste 

ciao "guastatore",
ho dato un occhio alla pagina che mi hai linkato!
risolverebbe davvero il mio problema! ho provato a inglobarla nel mio 
progetto, ma al momento della compilazione ottengo l'errore:
[Error] MainForm.pas(55): Undeclared identifier: 'IPersistStreamInit'
ho provato a cercare nell'help per capire dove fosse definito, in modo da 
aggiungere quella unit al progetto e risolvere l'errore, ma senza 
successo... tu mi sai dare una dritta?
grazie in anticipo,
    Ste 

 [Error] MainForm.pas(55): Undeclared identifier: 'IPersistStreamInit'
Aggiungi la unit ActiveX alla uses nella implementation.
Ciao
guastatore
Newsgroup: it.comp.lang.delphi
Titolo: Svutare una cartella temporanea

 Come posso eliminare tutti i file non aperti di una directory tipo 
c:\myprogram\temp?
Non ho ancora scritto il codice penso ke il procedimento sia cosi:
<Per tutti i file>
| try
|  DeleteFile(File);
| on 
|  e:Exception do <non fare niente>;
end;
<fine>
--- posted by geoForum on 
http://www.delphiedintorni.it

 --- posted by geoForum on 
http://www.delphiedintorni.it
-- 
Ciao, Anto', [37, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Di sempre cio' che senti e fai cio' che pensi."
    G.G. Màrquez

tramite Fo.fFlags puoi decidere se spostare nel cestino o meno, 
Non trovo quale flag devo usare


 Non trovo quale flag devo usare
per fare cosa? hai letto l'help?


per spostare nel cestino


 per spostare nel cestino
questo codice
var
  Fo: TSHFileOpStruct;
begin
   Fo.Wnd := Handle;
   Fo.wFunc := FO_DELETE;
   Fo.pFrom := 'c:\temp\*.*';
   Fo.pTo := nil;
   Fo.fFlags := FOF_ALLOWUNDO;
   ShFileOperation(Fo);
end;
dovrebbe spostare nel cestino chiedendoti conferma e mostrando un
progress dialog, modificando la riga Fo.fFlags cosi
   Fo.fFlags := FOF_NOCONFIRMATION;
elimina i file senza spostarli nel cestino e senza alcuna finestra,
cosi invece
   Fo.fFlags := FOF_ALLOWUNDO + FOF_NOCONFIRMATION;
sempre nessuna finestra ma i files li sposta nel cestino.
Il tutto testato su xp pro/home.
Ripeto, leggiti l'help per vedere tutte le varie opzioni/combinazioni del
parametro fFlagss.


Newsgroup: it.comp.lang.delphi
Titolo: Report da database

Salve ho un programma che sfrutta i database e vorrei farne le stampe, come
si usano in questo caso i report? Grazie

 si usano in questo caso i report? Grazie
Ma non dici quale tool di report hai intensione di usare.
Bye
AS
Newsgroup: it.comp.lang.delphi
Titolo: Piccolo problema con upload FTP e indy

Sono ancora qui...
Stò provando a fare un'upload di un file su un sito ftp.
Finchè uso piccoli files (qualche kb) tutto ok, ma se provo con un file di
300kb, si incavola di brutto, dandomi l'errore "Socket error 10053, software
caused connection abort.".
idftp.Put('c:\pippo.txt','pippo.txt'); //qui ok
idftp.Put(getcurrentdir+'\freq.mdb','freq.mdb'); //qui si incavola!!!
Avete idea? Ho già impostato TransferType a ftBinary, ma senza
risultato...unico risultato è che sono bloccato perchè su google non ho
trovato un fico secco :(
Grazie!

 10053, software caused connection abort.".
Prova a impostare la proprietą Passive a True.
E' solo un'idea, non sono affatto sicuro che sia questo.
-- 
Jax
====
Ogni minuto nasce un gonzo. (T.Barnum)

 E' solo un'idea, non sono affatto sicuro che sia questo.
Gią fatto :(

 
http://www.massimobeschi.it/

Newsgroup: it.comp.lang.delphi
Titolo: Il programma SMS non mi funziona

Ho scaricato da internet il suddetto programma ma non mi funziona;
mi dà l'errore Erroe reading Form1.OldCreateOrder: property dos not exist.
class TNMHTTP not found .... cosa devo fare per farlo funzionare ??
Grazie
Andrea
si...@pragmanet.it

 class TNMHTTP not found .... cosa devo fare per farlo funzionare ??
Molto probabilmente hai una versione "vecchia" di Delphi ... io uso Delphi 4
Client/Server...tu?
Il componente tnmhttp so che può essere rimpiazzato da uno forse shareware
(non ricordo bene chi mi aveva detto ciò... scusa!).
L'altra proprietà (OldCreateOrder) non serve per questo programma...
semplicemente nel cambio di versione il tuo Delphi si lamenta perchè non
riesce a trovarla.
Comunque l'eseguibile ti funziona ?
In questi giorni sono ahimè impegnatissimo con lo studio... ma tra un
ritaglio di tempo e una pausa mensa sto facendo un prorammino "serio" di sms
(gestione rubrica con gruppi, auto spezzattamento di sms + lunghi di 120
caratteri...)... quando l'avrò fatto, se nessuno nel frattempo avrà fatto
qualcosa di migliore, posterò l'eseguibile in rete (non so se il sorgente...
e sinceramente non so nemmeno se interessi!!).... scusate questo
dilungamento!!
Ciao! Davide DG
Newsgroup: it.comp.lang.delphi
Titolo: ACQUISTO VECCHIE VERSIONI DI DELPHI

Salve a tutti.
Devo sviluppare un sw per un'azienda che lo vuole in Delphi 4. Io non ho gli
strumenti di sviluppo. Qualcuno ha versioni di Delphi 4 Client / Server o di
Delphi 5 Client / Server (complete di manuali) da vendermi?
Grazie per tutte le risposte.
Enrico Versino

 ha scritto nel messaggio
news:IWqA8.92307$vF6.2...@news2.tin.it...

Perchè vendere?
Se hai la versione 6 di Delphi puoi usare tranquillamente quelle precedenti,
devi solo procurarti una copia.
IMHO.
                                                    danilo

 IMHO.
Non è proprio così, soprattutto in ragione del fatto che la copia sarebbe
appunto "una copia" di un'altra licenza originale. Quindi sarebbe illegale
già in quanto tale ed indipendentemente dalla presenza di una licenza di una
versione successiva di Delphi.
In genere le licenze dei prodotti non si estendono automaticamente ne alle
versioni successive di un prodotto (per le quali in genere si acquistano
delle speciali licenze Upgrade) ne tantomeno a quelle precedenti....
purtroppo.
Ciao.
Gianluca.

 ha scritto nel messaggio
news:ddiB8.7920$CN3.2...@news2.tin.it...

Beh per ma Microsoft funziona così.
Per Oracle non c'è nemmeno bisogno del cd
originale infatti ti fanno scaricare i cd anche da Internet
l'importante è che tu abbia la fattura in cui dimostri di
aver pagato la licenza.
                                    danilo
Newsgroup: it.comp.lang.delphi
Titolo: ApplyUpdate con inner join e' fattibile?

Ho una gerarchia di tabelle relazionate uno-uno ,in cui per 
es. vi e' una master con i campi comuni e nelle detail ci 
sono i campi specifici e speravo che delphi mi permettesse 
di fare un applyupdate con un una query inner join  e invece 
i dice che non trova i campi presenti nella detail :-(
Per esemplificare:
tab2 Uff([pk] cod, desc)
tab1 Uff_int([pk fk] cod, campo1)
ho il solito DBqry,DSP,CDS,DSrc
nella dbquery c'e'
select * from ufficio u inner join uff_int ui on u.cod=ui.cod
al momento dell'applyupdate il bastardo mi dice column not 
found su ui.cod(il valore glielo setto prima 
dell'update!)!!!! GRRRRRR!!!!
Devo specificare qualche properties a me sconosciuti sui 
fields FK o non posso proprio farla questa cosa?

i dice che non trova i campi presenti nella detail :-(
E ha ragione.  Imposta le chiavi e istruisci il datasetprovider per
agire "Where Key Only".

Aragorn wrote:
Alla fine ho visto con sqlmonitor che generava sql solo 
sulla tabella del from...
Ho usato i nested dataset per una relazione 1-1 e' normale 
farlo?
Eppoi voi li usate i nested in tranquillita' anche con un db 
molti dati o hanno un calo di prestazioni(mi sembrano ok 
anche perche' lanciano le query che gli metto io solo che 
poi non so che giri gli fanno fare)?

 agire "Where Key Only".
Server della Telecoz maledetto e buggato!!
Non mi ha scaricato il tuo post e non mi ha permesso di leggere la tua
risposta!!! :-( :-(
Ho tirato 6 miliardi di bestemmie per fare un accrocco su una rel 1-1
con i nested!! :-D
Grazie mille!!

 agire "Where Key Only".
ho provato a fare come dici ma ora mi da un altro errore:
----------------------------------------------------------------
SQLQry: Cannot modify a read-only dataset
----------------------------------------------------------------
ps
uso dbexpress con firebird :-(
Newsgroup: it.comp.lang.delphi
Titolo: TurboAsync e porta com

Ambiente D6 e versione Asyncpro scaricata da souceforge, il problema me lo 
trascino da anni, si anni, inizialmente pagai la licenza per Asyncpro.
Veniamo al dunque l'applicazione usa delle comport e relativi componenti 
tapdpacket, saltuariamente e senza alcun motivo apparente perdo delle 
stringhe in rx.
La velocità è molto bassa 1200 baud, e le stringhe sono di massimo 90-100 
caratteri, e non con un ritmo costante in quando provengono da un centralino 
telefonico e ne viene generata una per ogni telefonata in uscita e comunque 
abbiamo max. 8 linee telefoniche.
La cosa curiosa è che il problema si presenta anche in presenza di una sola 
linea impegnata e con il software che non è sotto sforzo.
La cadenza del problema è ancora di più aleatoria il difetto non si presenta 
anche per settimane e poi tac in un pomeriggio diverse volte ed anche 
riavviare il pc non serve.
Il centralino sicuramente genera la stringa in quanto ho interposto un data 
logger seriale della HP tra il centralino ed il pc, la stringa si perde 
dentro al PC.
Le seriali sono le solite di serie del pc oppure delle Moxa a 8 canali sulla 
cui qualità non discuto.
Domanda: qualcuno si è mai imbattuto in un simile inconveniente ed è 
riuscito a risolverlo?
Dimenticavo il pc con l'applicativo viene usato solo per quello scopo.
Grazie, so di essee stato forse un po' vago ma manco di elementi.
Carlo. 

> Grazie, so di essee stato forse un po' vago ma manco di elementi.
Beh, sei stato molto vago.... iniziamo:
1) qualche evento usi per la notifica della ricezione dati?
2) che tipo di dati ricevi? binari, stringa o cosa?
uso gli async dal anni e non mi hanno mai dato noie del genere!
....e quando c'erano problemi, erano miei.....
Bye,
Raktzo

 ha scritto nel messaggio
news:43e6...@newsgate.x-privat.org...


non ho mai usato quei metodi in produzione, ho sempre avuto noie in
testing....
Prova ad usare l'OnTriggerAvail, viene scatenato appena è disponibile un
buffer. Poi sta a te verificare i caratteri di inizio e fine trama.
prova.
Bye,
Raktzo

 buffer. Poi sta a te verificare i caratteri di inizio e fine trama.
Sottoscrivo, in una mia applicazione faccio uso del triggeravail anzichč
OnStringPacket e non ho mai avuto problemi di sorta.
Prova cosě  e facci sapere.
Ciao
-- 
Morde. 
ICLDweb: 
http://www2.samatel.com/icld/
Newsgroup: it.comp.lang.delphi
Titolo: copia di una Bitmap da array su un componente

Scusate, sapreste indicarmi il modo più semplice e veloce (in termini
di velocità di esecuzione e rapidità di visualizzazione) per copiare
una immagine bitmap da una semplice matrice NxM su una Timage, sullo
sfondo di un componente visuale o direttamente sul form?
grazie

Se ho ben capito :
 Image1.Picture.LoadFromFile ('MiaBmp.bmp') ;
Comunque puoi guardare l'Help_On_Line di Delphi del componente tImage e
della classe contenuta in esso tPicture che tra l'altro ha anche
LoadFromStream.
Ciao.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Esiste una Classe Picture contenuta in tImage che supporta LoadFromFile e
LoadFromStream.
Per cui
...
Image1.Picture.LoadFromFile ('c:\MiaDir\MiaBMP.bmp') ;
...
Nell'HelpOnLine di tImage trovi maggiori dettagli.
Oppure puoi cercare direttamente tPicture nell'HelpOnLine.







Newsgroup: it.comp.lang.delphi
Titolo: XE2 problema con Package

ho preso spunto da un'esempio:
ho creato su ProjectManager il Package ed aggiunto la unit2
 
il package1.bpl
 
Contains : unit2.pas , unit2.dfm
Requires : rtl.dcp , vcl.dcp
 
Compile e Build di Package e Applicazione a buon fine
 
RegisterClass(TForm2) viene eseguito
Dopo la lettura GetClass('TForm2') , AClass e' ancora = nil
 
Non ho pratica con i package, ma da quello che ho letto (RegisterClass 
su Initialization) , sembrerebbe corretto.
 
forse sbagliata AClass := GetClass('TForm2') ; e allora come mi 
riferisco a TForm2 ?
 
^^^
 
procedure TForm1.Button1Click(Sender: TObject);
var
   PackageModule: HModule;
   AClass: TPersistentClass;
begin
   PackageModule := LoadPackage('Package1.bpl');
   if PackageModule <> 0 then
   begin
     AClass := GetClass('TForm2');
 
     -----> AClass e' sempre nil, anche dopo la lettura
 
     if AClass <> nil then
       with TComponentClass(AClass).Create(Application)
         as TCustomForm do
       begin
         ShowModal;
         Free;
       end;
 
     UnloadPackage(PackageModule);
   end;
end;
 
 
unit Unit2;
 
interface
 
uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
 
type
   TForm2 = class(TForm)
   private
     { Private declarations }
   public
     { Public declarations }
   end;
 
var
   Form2: TForm2;
 
implementation
 
{$R *.DFM}
 
initialization
   RegisterClass(TForm2);
 
   --> quando viene richiamato il package RegisterClass vene eseguito
 
finalization
   UnRegisterClass(TForm2);
end.

 Dopo la lettura GetClass('TForm2') , AClass e' ancora = nil
 
Mi risulta sia FindClass() la funzione da richiamare:
http://docwiki.embarcadero.com/Libraries/en/System.Classes.FindClass
 
 
Ciao,
  Marco.
 
-- 
MARCO BREVEGLIERI
#Home: 
http://www.marco.breveglieri.name
 
#Blog: 
http://www.compilaquindiva.net
 

>
 
ho modificato
 
AClass := TPersistentClass(FindClass('TForm2'));
 
risultato : AClass = TForm2
 
 
ho fatto la stessa prova su D2007, accetta entrambe
 
AClass := TPersistentClass(FindClass('TForm2'));
 
AClass := GetClass('TForm2');
 
risultato :
AClass = TPersistentClass($indirizzo)
 
XE2 ritorna il nome della classe , D2007 il suo indirizzo
 
Ti risluta un qualche motivo, per il quale la VCL di XE2 non sia 
retrocompatibile ?
 
ciao.
Newsgroup: it.comp.lang.delphi
Titolo: Elenco ABI

Per una procedura che sto sviluppando mi servirebbe l'elenco completo di
tutti i codici ABI delle banche.
Sapete dove posso recuperarlo ?
Ciao

 wrote in message 8fdug1$q3j$1...@nslave1.tin.it...


 Sapete dove posso recuperarlo ?
Se sei una ditta e lo chiedi alla tua banca dovrebbe dartelo, la
nostra ce lo ha dato. ma non te lo passo :-)
Ciao
--
--------------------------------------------
Mirko Guidolin
COMUNE DI RESANA
Provincia di Treviso
Servizio Elaborazione Dati
--------------------------------------------
levare eventuali underscore per rispondere

 wrote in message 8fgfq7$adn$1...@nslave2.tin.it...


> Come sei gentile
Non č questione di gentilezza ma del fatto che la lista degli ABI-CAB non č
distribuibile liberamente; se lo fosse non ci sarebbe il problema.


Hello CED.
12 May 00 10:33, you wrote to All:
 >> Per una procedura che sto sviluppando mi servirebbe l'elenco
 >> completo di tutti i codici ABI delle banche. Sapete dove posso
 >> recuperarlo ?
 CR> Se sei una ditta e lo chiedi alla tua banca dovrebbe dartelo, la
 CR> nostra ce lo ha dato. ma non te lo passo :-)
perche? sono dati pubblici, non certo segreti !!!
Filippo

 Non è questione di gentilezza ma del fatto che la lista degli ABI-CAB non
è


 Giangi
Non capisco dove stà il problema,
una persona ha chiesto dove si poteva trovare l'elenco dei codici ABI-CAB
ed io gli ho risposto che c'è la possibilità di chiederli alla banca.
Mi sembra una risposta utile e diretta alla domanda fatta. In fondo non è
stato chiesto che venissero spediti per e-mail.
Se ti ha dato fastidio la forma mi scuso, ci avevo messo anche le
faccette per far capire il tono amichevole. La prossima volta vedrò di
spiegarmi meglio ma non sembre ho molto tempo.
A riguardo dello spirito del NG credo di aver cercato di aiutare
almeno le poche volte che ritenevo di esserne in grado (vedi thread su
uso tasti funzione, formattazione campi data, uso di Interbase e poco altro)
Comunque mi sono dilungato troppo specie visto che siamo OT.
Mirko

Newsgroup: it.comp.lang.delphi
Titolo: Access DB

Salve,
quale puo essere l'approccio migliore per usare un database di access?
Mi spiego, uso delphi 6 ent, qui ci sono vari componenti, ADO, BDE,
dbExpress. quali di questi mi conviene usare per accedere in maniere piů
performante sui dati di access? E' possibile da delphi creare un db di
access (creare un file mdb e riempirlo di tabelle copiate da un altro file
mdb)?
Grazie,
    Marco

 (creare un file mdb e riempirlo di tabelle copiate da un altro file
C'e un post di Myomo, se non vado errato, che ha avuto
questo stesso problema.
Risale a pochissimi giorni fa.
Bye
AS
"Se è Microsoft non funziona"
AS
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Citato appaio. Dopo qualche ricerca  ho risolto. Se vuoi ti posto un piccolo
esempio....
Anche io sto convertendo una mia applicazione che usa paradox in access....
Per farlo puoi fare in due modi.
1) Semplice. Importi le tabelle paradox con access e lui pensa alla
conversione.
2) Un po' meno semplice. Crei RunTime un file access e lo riempi da codice
con i dati delle tabelle Paradox....
Una dritta cosi risparmi tempo:
per creare file .mdb (access) runtime hai bisogno del componente ActiveX
TColum che non e' normalmente presente
in delphi 5 ma che puoi importare dalla libreria Microsoft ADO Ext. for DDL
and Security presente nelle librerie
aggiuntive di Delphi 5 (menu Project | Import Type Library)
Spero di esserti stato utile...
             Miyomo

Scusa se mi intrometto...
Ma tu hai Delphi 6 Enterprise (costo 5 milioni circa) e vuoi
lavorarci con Access?
Misteri della scienza e della tecnica!!!
Ciao
Mirko

 ha scritto nel messaggio
news:3C6CEAD8...@libero.it...


 mdb)?
Si', e' possibile, se vuoi ti mando un esempio.


Ciao,
manderesti anche a me l'esempio? Thanks a lot!
Marco


>:"attacca l'asino dove dice il padrone"?
LOL
Ciao, Rocco.
Newsgroup: it.comp.lang.delphi
Titolo: funzione per seriale 'fisico' hdd

Girovagando per internet ho trovato diverse soluzioni per estrarre il 
seriale di un unità dell'hdd ma nessuna funzionante per estrarre il 
seriale univoco dell'hdd. Inoltre ho saputo che esistono differenze 
nella stessa funzione tra hdd IDE, SATA e SCSI e differenze tra i 
diversi sistemi operativi.
Qualcuno ha una funzione "funzionante" a riguardo ?? mi accontenterei 
che girasse correttamente per gli IDE e SATA e su WinXP (home e PRO).
Grazie....

metti su google
SmartIdentifyDirect
ti esce un po di roba
Bye,
Raktzo

raktzo ha scritto:

dalla roba che è uscita ho visto solo cose che possono andare bene per 
il seriale del volume e non per il seriale fisico dell'hdd sia ide che sata.
Avevo trovato anche io queste info.. purtroppo non bastano.
Dan

 seriale di un unità dell'hdd[...]
http://www.magsys.co.uk/delphi/magwmi.asp
Sei OT.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 sata. Avevo trovato anche io queste info.. purtroppo non bastano.
quella funzione va a leggere i paramentri fisici dell'HD non quelli del
volume, confrontati anche con i buffer letti in assember o tramite driver.
E ti assicuro che con gli IDE funziona benissimo!
Bye,
Raktzo

raktzo ha scritto:

Ok, una parte è risolta ma per i SATA ?
Dan

 
Come OT ?

> Ok, una parte è risolta ma per i SATA ?
le funzioni SMART sono nate sugli HD SCSI, approdati poi sugli IDE ed ora
c'è anche sul SATA. l'API che ti ho dato serve per leggere info dal
supporto SMART nel kernel. Dai uno sguardo su MSDN o sul DDK di win.
Non uso più quelle funzioni, in linux mi basta leggere in /proc le
informazioni che cerco
Bye,
Raktzo

 Come OT ?
A te servono informazioni su come recuperare i parametri del disco, cosa
che prescinde assolutamente da Delphi.


 
Ma il linguaggio che uso è Delphi 7, a quanto dici dovrei avere prima 
postato su un gruppo microsoft o chi per esso e poi tornare qui se non 
riesco a tradurre il codice giusto ? (per miei futuri post...)

raktzo ha scritto:

Ok ricevuto ho visto tutto ora dovrei farcela da solo grazie ancora...

Ma il linguaggio che uso è Delphi 7, 
Dan, non è questo il punto.  Tu stai cercando informazioni legate alla
piattaforma hardware, non a Delphi.

 piattaforma hardware, non a Delphi.
Ok starň piů attento in futuro....
Newsgroup: it.comp.lang.delphi
Titolo: Motore SQL server

Sto guardando per la prima volta adesso il motore SQL server 2000, ho
provato a costruire una piccola rete client server e modificare qualche
dato. Ho notato che l'accesso contemporaneo di due utenti sullo stesso dato
provoca l'eccezione "Couldn't perform the edit because another user changed
the record".
Volevo sapere se SQL server ha delle impostazioni per gestire in modo
diverso che con un'eccezione questa contemporaneità scritture di più utenti,
o qualche idea per gestire ciò da delphi.
Saluti
Ivan Fontana

Fontana

l'unica alternativa e' un lock esplicito che si appoggia su
un campo appositamente creato.
(oppure il livello di isolamento cursor stability che pero' non
mi pare si trovi con MS SQL 2000...)

Sul 6.5 / 7 si faceva cosi'
Select * from MiaTabella (nolock)
Ciao!
Newsgroup: it.comp.lang.delphi
Titolo: Applicazione Multilingua

Ciao a tutti
ho la necessita' di rendere disponibile la mia applicazione in diverse
lingue.
Delphi mette a disposizione qualche tool per gestire questo problema?
In pratica vorrei avere un solo sorgente, non differenziato in base alla
lingua, e magari dei moduli contenenti le traduzioni dei testi.
Non mi interessa che si possa cambiare la traduzione a runtime.
Mi basterebbe specificare in fase di compilazione quale lingua usare.
E' possibile in qualche modo automatico,
o bisogna fare tutto a manina? ;-)
Uso Delphi 3, ma sarei disposto a passare al 4 o 5 se fosse necessario.
Ciao e Grazie by Vime!


Andrea


Ancora io

^_^
Prevedeva l'uso di Unicode ?
--
Walkie...@Libero.It (ICQ# 8143647)

 Usando D5 potresti pensare di usare l'Integrated Translation Environment.
A proposito di ITE, compilando in D5 Enterprise la RXlib avevo (parlo di 
parecchi mesi fa, non ho ridato un'occhiata più di recente) notato che 
c'è incompatibilità fra ITE e RXlib - entrambe definiscono una unit 
chiamata AppUtils - e non è possibile caricare entrambi i packages 
nell'IDE né utilizzarli entrambi in un'applicazione.
Oltre che rinominare la unit della RXlib, di cui sono disponibili i 
sorgenti, c'è qualche altra soluzione secondo voi? Il problema è stato 
risolto in una versione recente della RXlib?
-- 
Roberto Lupi

 ^_^
Dove è possibile approfondire la cosa? Un link al tuo articolo?
    Grazie per l'aiuto.
--
   yVega
--

Newsgroup: it.comp.lang.delphi
Titolo: Bloccare per un certo periodo.

Ciao,
ho la necessità di fermare un thread (TTread) per un certo periodo di
tempo e poi farlo proseguire nell'esecuzione.
Potete darmi qualche suggerimento?
Grazie,
   Mirko.

Potete darmi qualche suggerimento?
Thread.suspend seguito da Thread.resume al momento che decidi tu. Leggi la
guida on line di delphi a proposito.
Leggi anche 
http://tinyurl.com/4u72d
, bellissimo tutorial sui thread scritto
dal mai dimenticato Nicola Lugato aka {MSX}.
ciao
-- 
Morde. 
Una radio seria da ascoltare al lavoro?
http://www.radiomontecarlo.net
 e clicca
su RMC Live !

Leggi anche 
http://tinyurl.com/4u72d
, 
Corrige:
http://tinyurl.com/4wy8b
Scusa l'imprecisione.


Newsgroup: it.comp.lang.delphi
Titolo: Ricerche di record con ADO in Delphi!!

Salve, vorrei sapere dove reperire informazioni sui componedi ADO di delphi, 
in particolar modo su come eseguire la ricerca di un record su un database 
access.
Grazie per chi voglia rispondermi!!! 

 access.
http://delphi.about.com/od/database/l/aa100201a.htm
http://delphi.about.com/od/beginners/l/aa021202a.htm
http://www.efg2.com/Lab/Library/Delphi/ADO/
il newsgroup borland.public.delphi.database.ado
per quanto riguarda la ricerca di un record su db access io uso la funzione
locate dell'oggetto ADOTable per posizionarmi sul record cercato o sul piu'
vicino, a seconda dei parametri di ricerca che gli imposti tu nella
chiamata.
La guida in linea (F1 sulla adotable) ti puo' essere davvero di aiuto.
Buono studio,
ciao!
-- 
Morde. 
ICLDweb: 
http://www2.samatel.com/icld/
Newsgroup: it.comp.lang.delphi
Titolo: setlength()

Salve raga, ho bisogno di un piccolo aiuto:
come faccio a modificare le dim di un array del genere..
gare array[0..1,0..1] of Tgare;
setlength(gare, numconcorrenti,numsessioni) <--- qui vengono i dolori poichè 
il comando mi accetta solo la prima dimensione (numconcorrenti).
grazie del vostro aiuto.

gare array[0..1,0..1] of Tgare;
TGareArray = array of array of Tgare;
var
  GA: TGareArray;
begin
  SetLength(GA,2,2);
...
  SetLengthGA,0,0);
end;
jk
--
Jilani KHALDI
http://jkhaldi.oltrelinux.com

Newsgroup: it.comp.lang.delphi
Titolo: File .exe in una cartella condivisa sul server.

Se il file .exe dell'applicativo lo metto in una cartella condivisa sul 
server quanti utenti possono collegarsi simultaneamente senza creare 
problemi? (MSQL 2000, ado, D7) Ovviamente intendo problemi con l'exe non con 
l'accesso al database. Ragionando in questa maniera cioč con l'exe condiviso 
in una cartella le performance diminuiscono? Devo usare accorgimenti 
particolari? Quali altri problemi posso avere? Molte domande molti dubbi :-) 
Thanks
St. 

 particolari? Quali altri problemi posso avere? Molte domande molti dubbi :-) 
Con l'exe nessun problema: viene caricato nella memoria del client e lì 
viene eseguito. Al massimo avrai qualche problema cercando di 
cancellarlo, aggiornarlo, ecc. Prestazioni, solo in fase di caricamento.
I veri problemi possono essere generati dalle eventuali risorse 
condivisie, ma questo diventa OT ed indipendente dalla posizione dell'exe.
Ciao,
Gianluca.

Newsgroup: it.comp.lang.delphi
Titolo: UN AIUTINO PER FAVORE

QUALCUNO POTREBBE AIUTARMI
AD INTRAPRENDERE QUESTA STRADA
SULLA PROGRAMMAZIONE IN DELPHI.
CONSIGLI,SUGGERIMENTI
RINGRAZIO ANTICIPATAMENTE

CONSIGLI,SUGGERIMENTI
ma si che ti aiutiamo....basta che abbassi la voce. ( in parole povere non
scrivere i messaggi tutti in maiscuolo )
Bè, se ci dici a che livello stai ti sappiamo aiutare un po' meglio.
Come saprai, Delphi è molto legato al linguaggio Object Pascal ( sintassi,
parole chiave ecc... ), quindi se sai già qualcosa è un bel passo avanti.
Altrimenti dovresti iniziare da 0 e affrontare i problemi più
semplici.....inutile iniziare ad utilizzare le API di Windows, classi
ecc.... quando non si sa come dichiarare una funzione o un tipo e roba
simile.
In ogni caso se segui questo newsgroup ed altri, imparerai tantissime cose
solo leggendo i messaggi.
Ovviamente all'inizio non potrai capire certe cose, ma pian piano spicchi il
volo !!! :-)))
Ti saluto.....fatti sentire !!
Antonio Tarolla

CONSIGLI,SUGGERIMENTI
Eeeeee!Che cacchio strilli?Qui ci sentiamo bene!
Un consiglio semplice, ma fondamentale!
Se hai un problema con delphi cerca la strada + semplice che ti viene in
mente.Molte volte ho notato che cose che ritenevo estremamente complesse
avevano in realta' soluzioni molto semplici.Chi ha progettato delphi sembra
aver letto nel pensiero devli sviluppatori.
Poi, se dai maggiori dettagli, come un esempio di cio' che vorresti
realizzare, potremo certamente esserti d'aiuto.
Saluti
AS
"Se è Microsoft non funziona"
Newsgroup: it.comp.lang.delphi
Titolo: Problemi con repeat

Ciao a tutti;
E' possibile interrompere immediatamente un ciclo repeat con la semplice
pressione di un tasto?
In TP era molto semplice:
Repeat
   istruzione1;
   istruzione2;
   ..................
until Keypressed;
   a.f.

 ha scritto nel messaggio
news:MqXb5.16399$KD3.1...@news.infostrada.it...

Var esci:boolean;
procedure keypress..... l'evento di quando premi un tasto su un form o un
componente;
begin
 esci:= true;
end;
procedure .....
begin
esci:=false;
repeat
..
..
if esci then break;
end;
semplice no ?
--
Gna...@Wappi.com
ICQ# 76488613
http://gnaffy.tripod.com/

 end;
secondo me č 'meglio':
repeat
..
until esci;
Ciao
Alan Solo


Ciao, manca una cosina ...
procedure...
esci := false;
repeat
Application.ProcessMessages;
// altrimenti il codice in keypress non verrà eseguito se non alla fine del
ciclo repeat.
until esci;
Ciao! Davide DG

 wrote in message
8kq0j7$5pi$1...@sirmdpsin17.inwind.it...


 until Keypressed;
se il ciclo e' veloce: getasynckeystate

>
E' possibile interrompere immediatamente un ciclo repeat con la semplice
pressione di un tasto?
In TP era molto semplice:
Repeat
   istruzione1;
   istruzione2;
   ..................
until Keypressed;
<<
Oltre a quanto detto più sopra, se le istruzioni del ciclo non
interagiscono con componenti visuali _e_in_generale_ gestite dal thread
principale della vcl si possono mettere nel metodo Execute di un
(discendente di) TThread:
procedure TMyThread.Execute;
var Completed: Boolean;
begin
  Completed := False;
    ...     // Init thread stuff
  while not (Terminated or Completed) do begin
      // blocco di istruzioni
  end;
  if Completed then
    // normal termination
  else
    // terminated by user
    ...    // Finit thread stuff
end;
procedure TForm1.Button1Click;
begin
  MyThread1.Terminate;
end;
Newsgroup: it.comp.lang.delphi
Titolo: Pulsanti in italiano

Sono passato da D4 a D7 e non riesco a far uscire le descrizioni sui
pulsanti in italiano.
In D4 bastava cambiare i messaggi in Conts.pas (eccetera)  e fare un rebuild
, in D7 non funziona.
Qualche consiglio ?.
Grazie da Giulio Cavedali

, in D7 non funziona.
Non conosco la struttura di D7, Io sto usando D6, e la tecnica di
modificare consts.pas funziona perfettamente.
Tieni presente che io prendo una copia modificata del consts.pas, la
porto nella dir del mio progetto, la aggiungo allo stesso e ricompilo.
In questa maniera non modifico nulla del consts.pas originale che
risiede nella source\vcl di delphi6.
Cioa
Morde


Ti ringrazio , funziona.

Sempre in questo tema
In questi giorni sto anche io traducendomi sta benedetta unit (poi non so
perché non lo si fa una buona volta e la si mette in comune, comunque...)
Come tradurre Cancel e Abort? Secondo me andrebbe bene per entrambi Annulla
ma così nei messaggi tradotti ne perdo la differenza!
Suggerimenti? (non ditemi Abort=Abbortisci che mi svengono le segretarie)
--
_________________________________
Edmondo Di Tucci 
snar...@tin.it
www.powernetsi.it
 
edm...@powernetsi.it

 ma così nei messaggi tradotti ne perdo la differenza!
Cancel = Cancella  (Delete = Elimina ....)
Abort = Annulla
Kill = ammazza ! :)
Giulio

 Kill = ammazza ! :)
IMHO ho sempre odiato a morte chi traduceva Cancel con Cancella, appunto
perché non sai bene se il programmatore intende Cancella o Elimina...
Cancel in Windows è stato tradotto come Annulla, ergo io tengo Annulla.
Abort si potrebbe tradurre con Termina o Interrompi, o sempre con
Annulla, non ci vedo niente di male.
--
Jax

Come tradurre Cancel e Abort? 
Io sto usando questa differenziazione:
Cancel = annulla
Abort = interrompi
anceh se, sinceramente, non mi e' ancora successo di doverli mettere
nello stesso messaggio.
Morde

"Jax" <rispo...@newsgroup.grazie> ha scritto nel messaggio
news:j8Ns9.57341$%M1.14...@twister2.libero.it...

A dire il vero io ho sempre usato Annulla (non uso quasi mai o mai Abort),
ma se li devi usare insieme .....
Non odiarmi a morte, ciao.

 Non odiarmi a morte, ciao.
Era una battuta ;)
--
Jax


tecnicamente le unit non sono binari ma sorgenti
cioč li puoi pure postare qui (se non ti amazzano)
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
Newsgroup: it.comp.lang.delphi
Titolo: FindFirst

Ciao a tutti.
Sto cercando di utilizzare la funzione FindFirst per inserire SOLO le
Directory di uno specifico path come item di un ComboBox.
Ho scritto il seguente codice sull'OnCreate della mia Form... ma a quanto
pare, pur avendo impostato come parametro faDirectory, vengono inseriti
come sia i file che le cartelle del path indicato...
Non riesco a capire cosa sia sbagliato...? qualcuno mi puň aiutare?
Grazie mille
---
Sparta
ecco il codice:
procedure TForm1.FormCreate(Sender: TObject);
var sr: TSearchRec;
    I: integer;
begin
  if FindFirst('c:\*.*',faDirectory, sr) = 0 then 
  begin
  repeat
  CBModelli.Items.Add(sr.Name);
  until
  FindNext(sr) <> 0
  end;
FindClose(sr);
end;
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Prova ad aggiungere la linea qui sopra...
A.

 Directory di uno specifico path come item di un ComboBox.
Riporto dalla guida:
"The Attr parameter specifies the special files to include in addition
to all normal files. ...
to search for read-only and hidden files in addition to normal files,
pass (faReadOnly + faHidden) as the Attr parameter"
Il punto e' _in addition to all_, quindi la verifica che sr si riferisca
ad una directory va fatta, come dicono Annibale e l'esempio sull'help.
(
a dire il vero, ma e' questione irrilevante visto che il risultato e' il
medesimo, io metterei
  if (sr.Attr and FileAttr) = FileAttr then
    // Trovato
)
Saluti
Paolo Arosio

Newsgroup: it.comp.lang.delphi
Titolo: TDBCtrlGrig e ScrollBar

Salve,
come faccio ad inserire un ScrollBar orizzontale in un TDBCtrlGrid. In 
pratica vorrei evitare che i campi vengono nasconti nel ridimensionamento 
della form!
Grazie 

non eredita da TScrollingWinControl......
AS

Newsgroup: it.comp.lang.delphi
Titolo: Region

In una applicazione genero una region combinandone diverse a partite da un
immagine
Poichè quest'ultima immagine è sempre la stessa avrei pensato di salvare in
qualche modo la region cosicchè l'applicazione non debba generarsela ogni
volta, ma la possa leggere da disco. Quale tecnica mi consigliate di usare
per un problema di questo tipo?

 volta, ma la possa leggere da disco.
Ciao, guarda le api GetRegionData (per salvare) e ExtCreateRegion (per
caricare)
Ciao, Davide DG
Newsgroup: it.comp.lang.delphi
Titolo: DBGrid: salvare stato colonne nel registro

Devo poter salvare le impostazioni di una dbgrid che il cliente vuole
customizzarsi spostando le colonne e modificandone la larghezza.
Siccome il programma verra' usato in rete da piu' postazioni ogni utente
dovra' poter ritrovarsi la griglia come l'aveva lasciata, ecco perche' vorrei
salvare ogni impostazione nel registro del rispettivo SO.
Conoscete qualche routine gia' pronta che faccia questo? Oppure un derivato
della DBGrid con questa feature? (anche se diffido dai derivati perche'
solitamente fanno molti override di eventi e scombussolano non poco il
comportamente del programma)
Ciao!
-- 
Morde. (
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/
Firefox, il miglior browser: 
http://www.gxware.org/mozilla/

Firefox, il miglior browser: 
http://www.gxware.org/mozilla/
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it

 Ciao!
-- 
Ciao, Anto', [37, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Di sempre cio' che senti e fai cio' che pensi."
    G.G. Màrquez

Grazie a tutti per i consigli, ecco come ho implementato, considerando che il
nome utente puo' essere duplicato ("administrator") ho preferito utilizzare il
nome del computer, salvando le impostazioni sul server  in un file ini.
-----------------
interface  
    procedure CaricaSetupGridFromFile;
    procedure SalvaSetupGridSuFile;
    function GetComputerNetName: string;
 
implementation    
procedure TfrmMain.CaricaSetupGridFromFile;
begin
   if FileExists(GetComputerNetName+'.ini') then
DBGrid1.Columns.LoadFromFile(GetComputerNetName+'.ini');
end;
procedure TfrmMain.SalvaSetupGridSuFile;
begin
   DBGrid1.Columns.SaveToFile(GetComputerNetName+'.ini');
end;
function TfrmMain.GetComputerNetName: string;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;

Newsgroup: it.comp.lang.delphi
Titolo: Modificare la proprietà di un oggetto in una TObjectlist

Sono in difficoltà. Due giorni fa mi sono accorto che il debugger
saltava righe di codice ed ignorava dei comandi di assegnazione tipo
x:= 0;
Ho capito che questo strano comportamento era dovuto ad un utilizzo
errato di un array. Stavo cercando di arricchire il mio codice con una
funzione "explode" identica a quella che c'è in PHP, ma facevo
qualcosa di sbagliato con un tipo TSArray definito come array of
string ... In attesa di colmare le mie lacune (frequenterò un corso su
Delphi tra 2 settimane) ho incorporato la funzione nel codice, con la
speranza di poter far funzionare il programmino ormai quasi
funzionante.
Oggi, ormai alle battute finali, mi accorgo dello stesso
"comportamento" bislacco: mancata esecuzione di assegnazione e/o
strani valori assunti dalle variabili. Penso che il problema sia
dovuto al fatto che vado ad assegnare un nuovo valore ad una proprietà
di un oggetto contenuto in una TOBjectlist. Nello specifico,
immaginate di avere un oggetto costituito da una coppia di coordinate
(TForo) e una TOBjectList che ho chiamato Programma_file, alla quale
vengono aggiunti oggetti TForo con una riga del tipo (nel riportare il
codice cerco di ridurlo all'essenziale):
...
Programma_File.Add(TForo.create(posx, posy, utensile_foro, id_foro));
...
sempre all'interno dello stesso metodo (create) ho la necessità di
correggere i valori posx e posy di un TForo contenuto nella mia
TObjectList programma_file, quindi scrivo:
...
TForo(Programma_File[k]).posx := TForo(Programma_File[k]).posx +
offset_x;
TForo(Programma_File[k]).posy := TForo(Programma_File[k]).posy +
offset_y;
...
C'è qualcosa di sbagliato in questo concetto o devo ricercare altrove
la causa del mio problema?
Grazie
Francesco
P.S.
Per completezza, la definizione di TForo è questa:
type
  //definiamo una classe foro
  TForo = class
  private
    //Un FORO è una classe che possiede le 3 seguenti proprietà:
  protected
    //La sua posizione tra gli altri fori dello stesso utensile
    id_foro : Integer;
    //La posizione sul piano: una coppia di coordinate X e Y
    posx_foro, posy_foro : Double;
    //L'utensile al quale appartiene
    utensile_foro : Integer;
  public
    property posx : Double Read posx_foro Write posx_foro;
    property posy : Double Read posy_foro Write posy_foro;
    property ut : Integer Read utensile_foro Write utensile_foro;
    constructor create(x, y : Double; ut, id: Integer);
  end;

Scusate ... penso (sto ricontrollando) di aver mal interpretato i
risultati, considerando come errato un risultato corretto.
L'esperienza dei giorni passati mi hanno fatto giungere a conclusioni
sbagliate.
Quindi non ci dovrebbe essere nulla di sbagliato nel codice che ho
scritto qui sopra. Mi piacerebbe avere un vostro parere comunque.
Grazie
Francesco