mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: [d6] problema dopo aggiornamento

salve, ho aggiornato delhpi6 ent con tutte le patch e service pack
disponibili sul sito borland... nessun problema in fase di update... ma
quando cerco di compilare anche un nuovo progetto mi esce il seguente
errore:
unit Forms was compiled with a different version of
SysUtils.CheckWin32Version
cosa posso fare?

problema di dcu.
Bye
A

soluzione possibile??

 soluzione possibile??
prova con Project | Build All Projects
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

non va :(

la cosa strana è che non vedo nemmeno i componenti xml sulla tab Internet
io ho delphi installato su c:\programmi\borland\delphi6

cancellare.
Bye
A

 ho provato a cancellare il form .dcu però mi dice che non trova il file
probabilmente Alberto intendeva dire che dovresti cancellare SysUtils.dcu 
(sempre se HAI SysUtils.pas, naturalmente!!!)


 ha scritto nel messaggio
news:Xns942179327A...@130.133.1.4...


 come posso ricompilare solo forms e sysutils?
a parte la Build All Projects che forza la ricompilazione di tutte le unit 
usate, conosco solo il sistema di apportare una modifica finta alle unit 
(aggiungere uno spazio e poi toglierlo) oppure eliminare i file *.dcu 
corrispondenti (sempre se hai i *.pas)


 ha scritto nel messaggio
news:Xns94217AB96A...@130.133.1.4...


ho tolto forms.dcu e ora compilando tutto mi dice file not found forms.dcu

 ho tolto forms.dcu e ora compilando tutto mi dice file not found forms.dcu
mi scuserai se stavolta ti rispondo con la guida :-)
Browsing path: Specifies directories where the Project Browser looks for unit 
files when it cannot find an identifier on the project search path or source 
path.


ho cancellato sia i .pas che i dcu di sysutils e di forms... ho rilanciato
updatepack2 e anche se mi ha copiato .pas e dcu mi da lo stesso errore

 updatepack2 e anche se mi ha copiato .pas e dcu mi da lo stesso errore
non saprei come aiutarti, però con D6 mi è capitato spesso quel tipo di 
errore che segnali tu (avendo installato un sacco di componenti scaricati da 
Torry e simili). Però chiudendo il progetto corrente e riaprendolo l'errore 
spariva.
In ogni caso, sono alla mia ennesima reinstallazione di D6 (dopo che l'ultimo 
expert che avevo scaricato mi sollevava continue eccezioni in coreide.bpl & 
C.) e stavolta sembra funzionare tutto bene.
Molto probabilmente una reinstallazione completa risolverebbe il tuo 
problema, ma forse è come uccidere una mosca con un bazooka...


ok grazie... il mio problema sono tutti i componenti configurati!!!
Simo



Newsgroup: it.comp.lang.delphi
Titolo: (OT) Innosetup

Ciao, ho visto che molti di voi utilizzano questo strumento per creare
pacchetti di installazione, c'è qualcuno che potrebbe darmi un aiuto?
Vorrei utilizzarlo per creare pacchetti di programmi creati creati con
.net, quindi avrei bisogno di rilevare l'esistenza del framework
tramite chiave di registro, se non esiste, installarlo dall'l'eventuale
file di installazione ....se non esiste nemmeno questo scaricarlo da
internet.
Ho trovato questo
http://www.codeproject.com/dotnet/dotnetinstallerforinno.asp
 ma non mi
funziona, sicuramente ci sarà qualche piccola modifica da apportare.
Grazie anticipatamente

Alcibiade ha scritto:

Dovresti almeno indicare il tipo di errore o il malfunzionamento 
riscontrato. :-|
Indicativamente, penso sia sufficiente scaricare il ".NET Framework 
Redistributable Package" e includere il file di installazione 
(dotnetfx.exe) nel progetto di Inno Setup, lanciandolo al termine 
dell'installazione.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
     Non hai la possibilità di scaricare Turbo Delphi Explorer?
     Te lo spedisco io!! [
http://blog.marco.breveglieri.name/?p=48
]


Ciao, il setup tenta sempre di installare il framework...scopiazzando
un pò fra i vari script ho scritto le seguenti righe:
[Run]
Filename: {tmp}\dotnetfx.exe; Parameters: "/Q /T:{tmp}\dotnetfx
/C:""install /q"""; Check: GetISToolPath; Description: installazione
framework
function GetISToolPath():boolean;
var
nret:Integer;
begin
    if ( not RegKeyExists(HKLM,
'Software\Microsoft\.NETFramework\Policy\v2.0')) then begin
            dotnet20RedistPath := ExpandConstant('{tmp}\dotnetfx.exe');
            if not FileExists(dotnet20RedistPath) then begin
                isxdl_AddFile(dotnet20RedistURL, dotnet20RedistPath);
                downloadNeeded := true;
            end;
            if not( Exec(dotnet20RedistPath, '', '', SW_SHOW,
ewWaitUntilTerminated, nRet)) then begin
            isxdl_AddFile(dotnet20RedistURL, dotnet20RedistPath);
            Exec(dotnet20RedistPath, '', '', SW_SHOW,
ewWaitUntilTerminated, nRet);
            end;
     end;
   Result := True;
end;
Se includo il framework nel pacchetto cerca di installarlo anche se la
chiave di registro è già presente...se non includo il file mi
restituisce errore: impossibile trovare il file...
Grazie ancora
Newsgroup: it.comp.lang.delphi
Titolo: [Semi OT] Migrare su sistemi nuovi

...ma sempre Microsoft
 
Voi come vi comportate? Nel senso... ho un programma scritto in Delphi 7 
(per esempio) che gira decentemente su XP, ora c'e' Windows Vista, Poi 
Seven, Ora 8 e tra poco Blue (voci dicono a metï¿œ 2013). Che fate? 
Eseguite il porting una volta ogni 1-2 anni, lo buttate o altro?
Il problema ï¿œ questo:
In ditta costruiamo macchine che rimangono sul mercato circa 8-10 anni. 
Sono agganciate ad un pc (commerciale purtroppo - quindi con il sistema 
operativo M$ del momento). Ovviamente ora sviluppiamo con l'ultimo 
ambiente.. ma tra 2-3 anni che ci inventiamo? Riacquistare il sistema di 
sviluppo ï¿œ l'ultima cosa, il problema ï¿œ eseguire il porting del 
programma e dei componenti di terze parti agganciati.
Voci dicono che la M$ vuole cambiare/modificare il sistema operativo 
circa una volta l'anno. Questo comporta che dare una versione software 
ad un cliente ï¿œ un casino in quanto 1) devo sapere che sistema operativo 
monta il computer che ha acquistato 2) se devo eseguire una modifica su 
una versione sarebbe un casino riportarla su tutti i sistemi operativi e 
3) ho le idee molto confuse su come comportarmi da questo momento in poi.
 
Vabbï¿œ mi sono sfogato abbastanza.... voi cosa ne pensate?


Dal momento che Win.XP ha tenuto banchetto per una bella fetta di storia 
tra i sistemi MS, hanno avuto il buon senso di creare "Windows XP Mode" 
all'interno di Win. 7 ed immagino anche sull'8.
E' una virtualizzazione di XP molto leggera e devo dire del tutto 
funzionale, mi ha permesso di recuperare tutto cio' che nel seven veniva 
bruciato, G

 Vabbè mi sono sfogato abbastanza.... voi cosa ne pensate?
 
Che secondo me ti fai troppi problemi. :)
Io ho applicazioni Delphi compilate che girano tanto su Windows 2000 quanto su Windows 8.
 
-- 
MARCO BREVEGLIERI
#Home: 
http://www.marco.breveglieri.name
 
#Blog: 
http://www.compilaquindiva.net
 


 
Se vuoi nuove funzionalita' e tecnologie un porting ad un certo punto 
devi farlo. Passando da D3 a D9 ho avuto parecchie difficolta' nei due + 
grossi soft. che ho, Giorgio

 grossi soft. che ho, Giorgio
 
Se vuoi nuove funzionalità e tecnologie, devi fare un porting, ma non è un obbligo.
 
Poi, bisogna definire di quali funzionalità e tecnologie si parla nello specifico: non si può fare un discorso così astratto e generico.
 
Infine, tu parli di passaggio a diverse versioni di un sistema operativo, oppure di Delphi?
 
Ciao,
  Marco.


 ambiente.. ma tra 2-3 anni che ci inventiamo?
 
Non vi inventate niente di nuovo:ancora oggi si lavora in 32bit
unmanaged code e continueremo così per altri 20 anni ;-)
 
Provate a riflettere un secondo: qualche anno fa sembrava che se non si
fosse migrati a .net si avrebbero avuto gravissimi problemi.
Oggi di .net non ne parla più nessuno e si continua a rilasciare exe in
32 bit senza problemi di compatibilità.
 
-- 
morde
Android
QT 4.7
Delphi (5,6,7.. expired)
Firebird Database
Newsgroup: it.comp.lang.delphi
Titolo: Instaziazione oggetti: problema

salve, sto usando Delphi 6. facendo ad esempio una variabile tipo:
var
  prova: TButton;
  pos: TRec;
...
  prova.Create (pos, ...);
  prova.Caption := 'ciao';
dopo averlo compilato mi viene un errore di protezione e il debug mi punta
alla linea dove c'è il Caption. Ho provato anche con prova.NewInstance; ma
niente :(
dove ho sbagliato?
grazie!
--------------------------------
Inviato via 
http://usenet.libero.it

prova := TButton.Create(self);
prova.caption := 'bye'
Bye
A.

   prova.Caption := 'ciao';
ci sono un po' di errori.
Innanzitutto quel tipo TRec č un tipo da te definito o che altro?
prova deve diventare il "puntatore" al tuo oggetto fisico in memoria,
quindi:
prova := TButton.Create(Form1)
prova.parent := Form1;
prova.caption := 'ciao'
prova.proprietą := valore ...
Ciao
--
- Carlo -
cbertu81(at)libero(dot)it

Newsgroup: it.comp.lang.delphi
Titolo: [help] guide on-line e cartacee

salve a tutti...sono un nuovo arrivato, e sono piombato qui più per dovere
che per piacere...il programma scolastico di quest'anno include la
programmazione in delphi, ed io,siccome non so nulla di delphi, vi chiedo un
aiutino piccolo piccolo: dove posso trovare guide on-line e quali sono i
manuali cartacei disponibli, (premettendo che nel libro di informatica di
quest'anno non c'è nulla di delphi ma solo sul c++) ?
Vi sarei molto grato se potrete aiutarmi.
saluti!
------------------
--ThE.ShAdE--

che scuola fai?

 quest'anno non c'è nulla di delphi ma solo sul c++) ?
Io ti consiglio di comprare i libri di Marco Cantù, mi ci sono sempre
trovato bene, mi raccomado compra quello relativo alla versione di delphi
che usi te per sviluppare.
Inoltre ti consigli di leggere le FAQ di questo gruppo (cercale su google) e
in generale se hai un problema vai nei gruppi di Google e quasi sempre trovi
quello che cerchi, altrimenti posta qui, che trovi sempre qualcuno disposto
a darti una mano.
Questi sono i miglori siti su delphi che conosco, dove cisono trucchi, guide
ed esempi di codice:
SITI IN INGLESE:
sunsite.icm.edu.pl/delphi
www.torry.net
delphi.pagina.nl
www.programmersheaven.com/zone2/index.htm
www.delphicity.net
www.vpsource.com
www.maxcode.com
www.delphitips.com/tips.cgi
www.jounlai.com/3kdt/index.cgi?viewall=1&bgcolor=%23EED24F
www.xa.gov.cn/delphifan/Delphifan/faq1_borland
www.kaposnet.hu/books/tysdelphi4/
 (libro on-line)
SITI IN ITALIANO:
www.geocities.com/SiliconValley/Lab/6806/corso.htm
web.infinito.it/utenti/g/giustign/tips&tricks/listatips.htm
programmazione.html.it/delphi/index.html
www.programmazione.it/delphi
www.marcocantu.it
delphiknight.cjb.net
utenti.lycos.it/negrita78/angolodelphi.html
members.fortunecity.it/cbertu
web.infinito.it/utenti/c/catand/Tips.htm
E dopo averti dato l'ultimo consiglio di guardare spesso l'help di Delphi,
che è ricco di informazioni, ti saluto agurandoti buono studio!
Bye.
Daniel.
--------------------------------
Inviato via 
http://usenet.libero.it

sempre cantu, solo cantu nient'altro che cantu.. ;-))
Vedi delphi developer guida di texeira&pacheco.
Bye
A.

grazie a tutti per la gentile cortesia.
Newsgroup: it.comp.lang.delphi
Titolo: [OT] inquadramento fiscale e ricevuta d'acconto

Saluti al gruppo,
attualmente e fino a che non cambia il vento dovrò fare a meno della 
partita iva per via dei costi fissi che devi pagare. Vorrei lavorare in 
ritenuta d'acconto. Tutto quello che sò e tutto quello di cui non sono 
sicuro è:
1. limite imponibile ricevuta d'acconto
     Io sò: fino a 5000 euro oltre il quale nella ricevuta bisogna 
calcolare l'irpef sull'ammontare oltre la soglia cioè
     6000 irpef uguale 6000-5000 = 1000 su questi calcoli l'irpef in 
base all'aliquota delle tabelle ufficiali.
2. limite ricevute allo stesso cliente di qualsiasi importo nello stesso 
anno.
     Io sò: al massimo 3 di qualsiasi importo.
2a. limite ricevute nell'anno per clienti diversi
     Io sò: per clienti diversi non sò di nessun limite.
3. esatta dicitura nella descrizione per vendita licenza d'uso software 
(altrimenti comprano anche i sorgenti) e per sfruttare il 75% se esiste 
veramente
4. soglia dichiarazione dei redditi e gestione separata inps da 
calcolare sull'imponibile o sul netto ?
     Io sò: pensavo 7500 € lordo oltre il quale interviene la 
dichiarazione dei redditi e la gestione separata INPS
5. eventuali sistemi di scarico spese generiche e/o legate alla 
prestazione d'opera.
     Io sò: se le spese sono documentate fiscalmente e descritte come 
parte integrante dell'opera (cioè materiali che possono andare da 
hardware o barattoli di pittura nel caso di un'imbianchino.....) possono 
essere detratte. Ma non sò come bisogna calcolare la detrazione e se 
deve essere fatta nella ricevuta stessa o in fase di dichiarazione o se 
non si supera la soglia di reddito come fare per detrarle.
6. versamento ritenuta d'acconto entro il 16 del mese successivo della 
data della ricevuta
7. calcolo corretto ritenuta d'acconto per esempio su 1000 euro 75% di 
imponibile (trattandosi di software) 750 ritenuta 750 x 20% = 150 euro è 
corretto ??
8. pagamento ritenuta d'acconto e moduli correttamente compilati ?
Qualcuno ha informazioni precise in merito a questo inquadramento fiscale ?
Daniele

> Qualcuno ha informazioni precise in merito a questo inquadramento fiscale ?
A parte che 6 ot che + ot non si puo, chiedere ad un commercialista no?
A:

 
Infatti ho indicato l' OT e a riguardo del commercialista mi credi 
quando ti dico che nella mia zona non sapevano manco cosera la ritenuta 
d'acconto ? la maggior parte delle informazioni ho dovuto reperirle qui 
è la sommariamente tanto che è quasi peggio di fare un programma da zero 
dovendo pure imparare un nuovo linguaggio.... insomma un casino.
Ecco perchè speravo che qualcuno che avesse lo stesso problema potesse 
darmi o condividere le informazioni.
Ho anche visitato newsgroup più specialistici ma essendo frequentati 
solo da dottori commercialisti 'ovviamente' sono molto tirati col dare 
informazioni.
Dan

 d'acconto ? 
di dove 6?
A.

Alberto Salvati ha scritto:

Vallecrosia provincia di Imperia....
Dan
Newsgroup: it.comp.lang.delphi
Titolo: Qualcuno di Rimini ?

ormai arrivata alla versione 8 nemmeno fungerebbe sul mio vecchio pc.
Mi spiace che tu sia senza lavoro... riguardo delphi a scopo didattico,
c'erano in giro la 6 e la 7, e attualmente scaricabile dal sito la 8.
Se qualcuno del ng della tua zona ce li ha, potrebbe farti il favore di
masterizzarteli, cosi' te li provi e ti studi e ti prepari per un spero
prossimo futuro lavorativo.
Se non trovi nessuno che ti aiuta,mandami in privato il tuo indirizzo che ti
spedisco la 8 demo scaricata con l'adsl.
Ciao in bocca al lupo!
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Newsgroup: it.comp.lang.delphi
Titolo: Problema con istruzione sql

Buongiorno, sto cercando alimentare una dbgrid tramite istruzioni sql con
oggetti di tipo TAdoQuery.
'SELECT A,B,CX FROM TABELLA1 UNION SELECT A,B,'''' AS CX FROM TABELLA2'
il problema (almeno credo) deriva dal fatto che CX e' un campo
calcolato.l'errore che mi viene segnalato e' "parametri
insufficienti.previsto 1"
Qualcuno sa darmi una spiegazione?
Grazie,Max

L'hai provata con la console del db? li funziona?
A.

No,non sapevo neppure che esiste...

 No,non sapevo neppure che esiste...
Che DB usi ?
Se spezzi le query o togli cx che succede ?

Newsgroup: it.comp.lang.delphi
Titolo: ADTG & MDB

Ciao a tutti,
sto provando ad utilizzare ADO in deplhi e ho visto che con
TadoDataSet.Savetofile posso scrivere in un formato ADTG è pero'
possibile convertire questo formato in un normale MDB per access? In
questo modo potrei garantirmi la compatibilità in futuro anche con
access. Spesso puo' essere utile...
Grazie,
Mecch

possibile convertire questo formato in un normale MDB per access? 
Non credo sia possibile, al limite potresti salvarti l'mdb con i dati gia'
memorizzati, ma convertire da un formato all'altro e' dura.....
Ciao
--
Morde. 
morde[at]programmer[.]net

Allora pero' non ho capito una cosa:
se uso ADO per interfacciarmi ad un DB, possibile che non ci sia un
modo per creare un file o modificarne la struttura se non con Access?
Grazie,
Mecch



C'è la possibilità, ma non è legata alla libreria ado, ma alla adox.
Devi quindi prima importare la typelib di adox
Poi puoi creare database, compattare, ecc.ecc
Per ulteriori informazioni prova  a cercare su
http://delphi.about.com
Saluti
Andrea
Newsgroup: it.comp.lang.delphi
Titolo: lanciare notepad

ciao a tutto il ng.
devo lanciare un file txt attarverso notepad.
ho provato con il comando WINEXEC('notepad.exe',sw_normal) e funziona,
chiaramente...
il mio problema è che conosco già il nome del file txt ma non riesco a
trovare il comando x caricarlo.
LoadModule?
LoadParams32?
è una stupidata lo so...
ma se qualcuno puà aiutarmi...
grazie infinite
Nicoletta
--------------------------------
Inviato via 
http://usenet.libero.it

glie lo passi come primo parametro sulla riga di comando
WINEXEC('notepad.exe pippo.txt',sw_normal)
solo che userei shellexecute e non WinExec... (guarda le FAQ)
CIAOUX

Winexec è deprecated.
Come già detto in altri 10.000 post dello stesso tipo recuperabili tramite
la ricerca sui gruppi fornita da google, (che ben pochi usano prima di
postare su un qualsiasi ng....), per queste cose si usa ShellExecute
passandogli il nome del file che desideri aprire.
Bye
A.

 Nicoletta
Ciao, Anto'.


anto...luzombi... ma x caso sei una motociclista?!?!


 ha scritto:

GRAZIE a tutti!!!
ps: anto... ma x caso sei una motociclista?!?!?


 ps: anto... ma x caso sei una motociclista?!?!?
nicky, cosa ti fa pensare che io possa essere un motociclista?
Ciao, Anto'.


è che hai lo stesso nickname di una persona che è una motociclista... tutto
qui...
sarà solo un caso...
ciao e ancora grazie..
il mio problema è stato brillantemente risolto...
Nicoletta

Newsgroup: it.comp.lang.delphi
Titolo: [D5] pilotare msg di conferma

Ciao a tutti
Uso un DbNavigator, una DbGrid ed un TTable collegati insieme.
Se sul DbNavigator clicco sul pulsante ' - ' (elimina) compare una richiesta
di conferma automatica, in inglese. E' possibile intervenire e far comparire
un MessageDlg di mia scelta, o semplicemente cambiarne il testo?
Grazie
  Fodox

Fodox scriveva fra l'altro:

ConfirmDelete := False;
e gestisci l'evento BeforeAction:
 case Button of
   nbDelete: if MessageDlg('Vuoi cancellare?', mtConfirmation,
    mbYesNoCancel, 0) <> mrYes then
     Abort;
   ...
 end;
Per avere Yes, no, cancel in italiano occorre in genere copiare
consts.pas nella cartella di progetto e modificare le costanti di testo
(oppure usare Windows.MessageBox)
Saluti
Paolo Arosio
--
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"

"Fodox" <a@b.c> ha scritto nel messaggio
news:A49fb.158268$hE5.5...@news1.tin.it...

Puoi agire modificando direttamente il file DbConsts.pas (se ce
l'hai), e magari - se desideri mantenerlo in inglese - una qualche
direttiva per gestirne la compilazione in varie lingue
Ciao,
Gianluca.

Newsgroup: it.comp.lang.delphi
Titolo: user message in D2005

Inserita la seguente procedura per avere un "user message"
Const CM_LISTPCCHANGE = WM_USER+30;
...
protected
    procedure CMListPCChange(var Mess: TMessage): message CM_LISTPCCHANGE;
ottengo un:
"Undeclare identifier: message" ???
In D3 ho fatto piu' volte una cosa simile senza alcun problema. Qualche 
idea?
premetto che nella User c'e' gia' "Messages".
Grazie, Giorgio 

>    procedure CMListPCChange(var Mess: TMessage): message 
I due punti dopo la parentesi sono un errore di digitazione del post o 
li hai proprio cosě nella tua dichiarazione?
--- posted by geoForum on 
http://www.delphiedintorni.it

 li hai proprio cosě nella tua dichiarazione?
Li ho nella dichiarazione, ma ho anche provato a toglierli, Giorgio 

>Li ho nella dichiarazione, ma ho anche provato a toglierli
Se hai i due punti la dichiarazione è sbagliata. E se li togli senza 
aggiungere nulla anche. Prova con a metterci un punto e virgola 
(aka "come perdersi in un bicchiere d'acqua") <g>
Come dice un mio collega "La lettura della Language Guide dovrebbe 
essere resa obbligatoria: all'avvio Delphi dovrebbe farti cinque 
domande, e non se non rispondi correttamente chiudersi".


 domande, e non se non rispondi correttamente chiudersi".
Cosa vuoi ... l'eta'... Giorgio
Newsgroup: it.comp.lang.delphi
Titolo: BDE e INSTALLSHIELD

Ciao a tutti,
ho un problema con l'InstallShield 6.2 e l'installazione del BDE.
Il problema è semplice ma non so come risolverlo:
inserendo l'oggetto BDE mi parte l'installazione dei suoi componenti. Io
posso settare l'alias, che viene correttamente riportato
nell'installazione, ma non riesco in nessun modo a settare il path del
DataBase a cui collegarsi...
Qualcuno mi sa aiutare?
Grazie
Ciao
Mary
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Mary
Io in genere piuttosto che utilizzare gli Alias già preconfigurati
che poi permettono all'Utente di fare casini se apre il BDE 
administrator, preferisco crearmi l'alias "on the fly" quando lancio
il programma, prima di aprire il database.
Prova a guardare la documentazione dell'oggetto Session, ed in 
particolare la AddStandardAlias o AddAlias.
Rimuovi l'alias che hai creato con DeleteAlias.
Ciao.
< Gia >


 DataBase a cui collegarsi...
Ho riscontrato anch'io il tuo stesso problema e convengo con la
soluzione
 suggerita da Gianluca
Ciao.


 wrote in message
news:5bbd9b9720ac0f9f896...@mygate.mailgate.org...

Newsgroup: it.comp.lang.delphi
Titolo: Delphi 7 e Web

Ciao a tutti,
sono anni che utilizzo D5 per creare applicazioni sotto Win32 con 
svariati collegamenti DB.
Ora devo creare un piccolo programma che dovrà girare tramite Browser.
Il server Web sarà Linux+Apache 1.3.x (Se ci sono problemi lo aggiorno 
alla 2)
Conosco bene la programmazione classica, ma di web veramente poco.
Ho provato a creare una piccola applicazione con le IntraWeb, sembra 
funzionare con il server virtuale di windows ma non ho idea se è 
possibile integrarlo con Apache.
E' la strada giusta o ci sono altri metodi + semplici?
Se avete qualche consiglio.
Ciao Grazie

 alla 2)
Io penso che tu debba usare Kylix (molto simile a delphi)sente --
- Delphi per Windows
- Kylix per Linux
se vuoi usare il provider descritto devi usare Kylix
Stai attento. Io ho sentito dire che la versione 2 non funziona.
Tra l'altro esiste la versione Apache per Windows.
Ciao prego.
--------------------------------
Inviato via 
http://usenet.libero.it

 possibile integrarlo con Apache.
Io penso che debba cambiare sistema o linguaggio.
Delphi č la versione OOP del Pascal per WindowsXXX (TurboPascal una volta).
Mentre se il sistema č Linux tu devi usare KYLIX (ma non la versione 2.1 che
non funziona). Per quanto riguarda Apache c'e' la versione sia per Win che
per Linux.
Ciao


Il linguaggio da sceglire dipende dal sistema in uso.
Se usi Delphi prodotto da Borland stai costruendo un server Web per Windows
NT o successivi.
Se usi Kilix (non la versione 2.1 che non va) costruisci un server Web per
Linux.
Apache gira sia su Linux che su Windows.
 
Ciao.
P.S. Se possiedi la licenza di Delphi ti conviene cambiare provider.


 alla 2)
se ti prendi un hosting Win anziche' Linux puoi farci girare su direttamente
l'exe creato con Intraweb, collegato col database che ti pare, e senza tanti
casini. Aruba noleggia server Windows o Linux, ed e' il piu' economico in
italia; puoi fare il contratto anche online e in pochi giorni sei su.
Ciao, Sandro

Ok, ho installato Kylix 3, ho aperto un esempio gią fatto. Quando lo 
compilo mi chiede il modulo libhttpd.so.
Ho guardato un po' su internet, da quello che ho capito mi sembra che 
Apache deve essere compilato con "share module".
configurazione attuale:
Redhat 9
Apache 1.3.27
Kylix 3
Kernel 2.4.21
Qualche idea?
Grazie
Mario Piva ha scritto:

Newsgroup: it.comp.lang.delphi
Titolo: Filter e Lookup

Uso delphi 6 e BDE, tabella Paradox con 2 TTABLE
1. Articoli
2. Fornitori
Nella tabella articoli ho un campo idFornitore in cui c'è il puntatore al
recor Fornitori
Il mio problema è che vorrei filtrare la tabella Articoli usando come campo
la ragione sociale del Fornitore.
è possibile ?
Ho aggiunto un campo lookup chiamato RagSoc alla tabella Articoli, ma se
faccio un filter
sul campo RagSoc mi da errore dicendo che non posso farlo su quel campo.
Come posso far vedere solo gli articoli che mi fornisce il fornitore PROVA*
?
E' possibile o devo usare le query ?
Altra cosa per filtrarlo, invece che usare un TEDIT, posso creare un campo
Lookup non di tipo DB con la lista dei miei fornitori ?
saluti
Stefano
__________________________________________________________________ Stefano
ICQ#: 51832013 Current ICQ status: + More ways to contact me i See more
about me: __________________________________________________________________

è possibile ?
Imposta una relazione m/d Fornitori/Articoli, poi filtra
sulla tabella Master.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]

 ha scritto nel messaggio
news:3cb1f99d...@news.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: Newbie: Ricerca contenuto su indice

Chiedo scusa per la banalità, ma avrei bisogno di effettuare delle
ricerche su un db paradox su un campo (testo) indicizzato. C'e' un modo
per ricercare una stringa contenuta all'interno del campo? (qualcosa
tipo "$", per intenderci)
grazie a chi vorrà rispondermi

 ricerche su un db paradox su un campo (testo) indicizzato.
Ridefinisci l'evento onfilter assegnandogli una tua procedura che al suo interno filtra i records che contengono la stringa ricercata.
Ti stralcio un mio codice, e' una finestra che visualizza una dataset e contiente un edit dove scrvendoci dentro 
puoi filtrare i record contenenti il testo degitato, cambia tu il codice con i tuoi oggetti.
dichiarazione:
procedure MyFilterRecord(DataSet: TDataSet;  var Accept: Boolean);
implementazione:
procedure TfrmBrowseBDETable2.MyFilterRecord(DataSet: TDataSet;  var Accept: Boolean);
begin
  if (edRicF6.Text <> '') then Accept := (Boolean(Pos(UpperCase(edRicF6.Text),
          UpperCase(DBGrid1.DataSource.DataSet.FieldByName(ComboF6.Items[ComboF6.ItemIndex]).AsString))));
end;
Non dimenticare di assegnare il nuovo evento di filtro alla ttable:
TTable(DBGrid1.DataSource.DataSet).OnFilterRecord := MyFilterRecord;
Questo e' il codice che permette di innescare la ricerca sul testo filtrando la tabella:
procedure TfrmBrowseBDETable2.edRicF6Change(Sender: TObject);
begin
   if DBGrid1.DataSource.DataSet is TTable then begin
      TTable(DBGrid1.DataSource.DataSet).OnFilterRecord := MyFilterRecord;
      TTable(DBGrid1.DataSource.DataSet).Filtered := True;
   end;
end;
Ciao
-- 
Morde. 
ICLDweb: 
http://www2.samatel.com/icld/
Newsgroup: it.comp.lang.delphi
Titolo: associazione file-programma

Ciao, 
qualcuno sa dirmi come faccio ad associare un tipo di file al relativo
programma che lo elabora (cliccando sul file deve partire il programma)?
grazie 
Francesco  
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

programma che lo elabora (cliccando sul file deve partire il programma)?
procedure CreaNuovaAssociazione( Ext,
                                 ProgID,
                                 ProgDescr,
                                 ProgPath : string ) ;
var RegistroWin : TRegistry ;
begin
  RegistroWin := TRegistry.Create ;
  try
    RegistroWin.RootKey := HKEY_CLASSES_ROOT ;
    RegistroWin.OpenKey( '.' + Ext, true ) ;
    RegistroWin.WriteString( '', ProgID ) ;
    RegistroWin.CloseKey ;
    RegistroWin.OpenKey( ProgID, true ) ;
    RegistroWin.WriteString( '', ProgDescr ) ;
    RegistroWin.OpenKey( 'shell\open\command', true ) ;
    RegistroWin.WriteString( '', '"'+ProgPath+'" "%1"' ) ;
    RegistroWin.CloseKey ;
    RegistroWin.CloseKey ;
  finally
    RegistroWin.CloseKey ;
    RegistroWin.Free ;
  end ;
end ;
procedure TForm1.Button1Click(Sender: TObject);
begin
  CreaNuovaAssociazione( 'alf',
                         '.ALF files program processor',
                         'Applicazione di prova per file .ALF',
                         'C:\WinNT\System32\Notepad.exe' ) ;
end;
-- 
Andrea Laforgia
#exclude <windows.h>

se cerchi con google nei vecchi post trovi molte risposte a questo quesito.
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&group=it.comp.lang.delphi
Bye
A.

Newsgroup: it.comp.lang.delphi
Titolo: componente per masterizzare

Salve a tutti.
Esiste un componente che mi dia la possibilità di masterizzare dei file o 
cartelle? 



Si, l'ho trovato facendo una ricerca su Google con 'Masterizzare delphi' ,
prova, poi vediamo se è lo stesso ;)
Mario
Newsgroup: it.comp.lang.delphi
Titolo: Controllo DSR per la COM

Salve di nuovo...
Sono finalmente riuscito a capire come posso controllare lo stato della 
stampante. Era ora!!!
Ho fatto le prove con Mirror e con le AsyncProfessional: se vado a 
leggere lo stato del DSR riesco a capire se la stampante è accesa, se mi 
manca la carta e tutte le altre casistiche che mi possono bloccare...
Ora naturalmente chiedo una cosa: qualcuno di voi mi può dire qual'è 
l'API di windows che mi controlla lo stato del DSR in una comunicazione 
seriale?
Grazie
--- posted by geoForum on 
http://www.delphiedintorni.it

manca la carta e tutte le altre casistiche che mi possono bloccare...
Per curiosita': come hai fatto con le AsyncPro ?
ciao!
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/


Ieri sono riuscito a capire (con Mirror) che la stampante non mi alza il 
bit del DSR quando è aperta o quando manca la carta (premetto che uso un 
sistema di stampa pos - epson TM-T88III).
Ho fatto un programmino delphi utilizzando l'oggetto TAdpComPort; il 
programma apriva la porta e poi andava a testare la proprietà DSR 
dell'oggetto TAdpComPort. Se la stampante ha qualche problema il DSR è a 
false, se è tutto ok il DSR è True.
Ora però vorrei sapere come controllare il DSR per tutte le stampanti, 
con le API di windows.
Sai qualcosa in merito?
Saluti


prova a vedere qui
http://www.edavies.nildram.co.uk/win32-serial-bug/
 o qui
http://hyper.sunjapan.com.cn/~hz/win32/serial.htm
Giulio

Con questa procedura riesco ad ottenere lo stato del DSR come desideravo.
Se serve anche a voi è semplice e funziona.
Ora però devo ottenere lo stesso controllo su stampanti Ethernet o 
parallele.
Come fare?
procedure TForm1.Button1Click(Sender: TObject);
var
  CommPort : string;
  hCommFile : THandle;
  ModemStat : DWord;
begin
    CommPort := 'COM1';
    {Open the comm port}
    hCommFile := CreateFile(PChar(CommPort),
                          GENERIC_READ,
                          0,
                          nil,
                          OPEN_EXISTING,
                          FILE_ATTRIBUTE_NORMAL,
                          0);
    if hCommFile = INVALID_HANDLE_VALUE then
    begin
        ShowMessage('Unable to open '+ CommPort);
        exit;
    end;
    {Get the Modem Status}
    if GetCommModemStatus(hCommFile, ModemStat) <> false then
    begin
        //if ModemStat and MS_CTS_ON <> 0 then
        //  ShowMessage('The CTS (clear-to-send) is on.');
        if ModemStat and MS_DSR_ON <> 0 then
          ShowMessage('The DSR (data-set-ready) is on.')
        else
          ShowMessage('The DSR (data-set-ready) is off.');
        //if ModemStat and MS_RING_ON <> 0then
        //  ShowMessage('The ring indicator is on.');
        //if ModemStat and MS_RLSD_ON <> 0 then
        //  ShowMessage('The RLSD (receive-line-signal-detect) is on.');
    end;
    {Close the comm port}
    CloseHandle(hCommFile);
end;

Newsgroup: it.comp.lang.delphi
Titolo: Ocx o codice sorgente per parallela

Ciao a tutti, sto disperatamente cercando un ocx freeware o del codice
sorgente che mi permetta di controllare (tramite porta parallela) una
serie di rele'.
Praticamente l'ocx mi servirebbe per scrivere sulla porta parallela.
Grazie mille a tutti per qualsiasi suggerimento.
Ciao, Fabio

 Ciao a tutti, sto disperatamente cercando un ocx freeware o del codice
Puoi provare ad usare TDlPortIo lo trovi qui:
http://diskdude.venezia.cx/#completed
Installa un piccolo driver che ti permette di leggere porte I/O della
macchina,
quindi anche sulla tua parallela o sulla tua seriale
Ciao ZioPino

 
Maledizione alla fretta ... si può anche scrivere naturalmente
Ciao ZioPino

Newsgroup: it.comp.lang.delphi
Titolo: Firebird e dbexpress: si puo?

 Esiste un driver dbx per firebird?
Ne esiste uno commerciale, ma non uno open-source.
Stavamo discutendo sui ng di Cantu' se val la pena implementarne uno.
In realta', si e' convenuto che sarebbe meglio avere dei componenti diretti,
costruiti intorno alle API.
--------------------------------
Inviato via 
http://usenet.libero.it

Al momento uso ib6 ma mi incuriosice firebird.
Esiste un driver dbx per firebird?
Tnx
A.

costruiti intorno alle API.
Mi piace.
A.
Newsgroup: it.comp.lang.delphi
Titolo: String <----> PChar

Ho bisogno di converitire una Stringa in un PChar e viceversa
ma ho un solo problema.... non conosco l'algoritmo di conversione.
Qualcuno mi può dare una mano??
Lawrence Oluyede
rhy...@tiscalinet.it
"Per cambiare, 
per diventare un' altra cosa
dobbiamo prima sapere cosa siamo"
Bruce Lee

basta usare la funzione Pchar(Stringa) che ti ritorna la versione
string finita del puntatore a caratteri iniziale
ciao


 
 ---==[ BlacK Bird ]==---
     ICQ#: 14491159
 
 
b...@blackbird.cjb.net
 
 
     Web Site
 
http://www.blackbird.cjb.net

 Qualcuno mi può dare una mano??
Non è sufficiente un semplice cast?
var
    st : String;
    pc : PChar;
begin
    pc := PChar( st );
    st := String( pc );
end;
--
(*****      MBSoftware       *****)
http://web.tiscalinet.it/mbsoftware

Non è sufficiente un semplice cast?
Si'.
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
--------------------------------------------------------------
"Partire e' un po' morire e morire e' partire un po' troppo !"
--------------------------------------------------------------


usa il cast:
var
  a: String;
  b: Pchar;
begin
   b:= Pchar(a);
end;
semplice no ?
ciao ciao
--
Gna...@Wappi.com
ICQ# 76488613

end;
Il Pacheco indica di allocare lo spazio prima di convertire una
stringa in PChar:
var
  s : string;
begin
  setlenght(s, 256);
  GetWindowsDirectory(PChar(s), 256);
end;
Se s e' gia' allocata, non c'e' bisogno ovviamente...
Ciao
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.it
bop...@tin.it
bpie...@hotmail.com
______________________________________________
"Madame, lei ha tra le gambe uno strumento
che puo' offrire piacere a migliaia di persone,
e tutto quello che sa fare e' grattarlo"
- Sir Thomas Beechan a una violoncellista

>    b:= Pchar(a);
^^^^^^^^^^^^
sarebbe una conversione cast, giusto?
funziona con tutti le variabili?

 funziona con tutti le variabili?
No. "Funziona" è un termine difficile da applicare in questo caso: diciamo
che in certi casi ha senso e in altri no.
Per esempio può esserti utile fare dei cast fra oggetti quando scrivi codice
polimorfico (passi ad una procedura un var Oggetto: TObject e _sai_ [o
controlli che sia, caso molto + frequente] che è un Tbutton...).
Insomma se fai un cast così:
mioIntero := 125;
miaStringa := String(mioIntero);
direi che non ha molto senso... [su 2 piedi non ricordo con precisione ma in
teoria dovrebbe darti invalid typecast anche il compilatore...]
Fai conto che un cast significa prendere una certa porzione di memoria e
trattarla come se "lì sotto" ci fosse qualcosa del tipo a cui stai
"castando"...
Puoi fare un cast a PChar da String perchè i due tipi sono ***compatibili***
sotto un certo punto di vista:
- entrambi puntano al primo carattere della stringa
- entrambi sono null-terminated...
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: WaitForSingleObject e` sincrona in un TThread?

Ciao Raga,
Vi risulta che la WaitForSingleObject e` sincrona?
Devo metterla in un thread( in modo che non mi blocca l'applicazione
principale ), per
poter chiudere un handle che apro durante il funzionamento del programma.
Allora ho scritto un codice simile a questo:
procedure TWaitThread.Execute;
var WaitRes : Integer;
begin
  { Place thread code here }
  if Not Terminated then
  begin
    WaitRes := WaitForSingleObject( MioHandle,INFINITE );
    if WaitRes = WAIT_FAILED then
      RaiseLastWin32Error
    else begin
           Terminate;
         end;
  end;
end;
Questo codice assume, appunto, che la WFSO sia sincrona, ma non sono
sicuro... che mi
dite?
Grazie prima :-P
Andrea


wrote:

Ti dico che così rischi di non uscire dal thread, o di ignorare delle
uscite anomale;
meglio, secondo me, così
WaitRes := WaiForSingleObject(MioHandle, INFINITE);
if WaitRes <> WAIT_OBJECT_0 then 
  RaiseLastWin32Error
else 
  Terminate
ciao.
-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"

Vi risulta che la WaitForSingleObject e` sincrona?
Leggere la documentazione, no eh ? Il "Wait" in "WaitForSingleObject"
non ti dice niente ? Certo che è sincrona, serve appunto ad attendere
che un oggetto kernel entri in stato segnalato.

 sicuro... che mi dite?
Qual e' il punto della documentazione che ti perplime a tal punto?
Saluti
Paolo Arosio
-- 
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"
Newsgroup: it.comp.lang.delphi
Titolo: Makefile

premessa: se qualcuno mi risponde "cercalo con un motore di ricerca" lo 
tronco, promesso. Non so se avete visto che ore sono (no, non sono *già* 
sveglio, sono *ancora* sveglio)
per varie e variegate ragioni (usare due configurazioni diverse per lo 
stesso progetto, compilare script risorse non riconosciuti dal 
compilatore standard di Delphi, necessità di una distribuzione di codice 
sorgente fatta come dio comanda, tra cui anche la distribuzione di 
codice sorgente C da ricompilare e assemblare "sul posto") ho bisogno di 
qualsiasi informazione mi possiate dare sulla sintassi dei makefile di 
Borland... se non sono quelli Borland mi vanno bene anche quelli di GNU-
Make, o di NMAKE, qualsiasi cosa purchè mi sappiate dire...



sull'help? "MAKE"
oppure "cercalo con un motore di ricerca" :-PPP
Ciao,
Alan Solo

oppure "cercalo con un motore di ricerca" :-PPP
ok, vieni qui che t'ammazzo :P

Newsgroup: it.comp.lang.delphi
Titolo: Domanda banale compilatore D7

Ciao a tutti,
esistono dei parametri da settare nel compilatore delphi 7 per accelerare
l'esecuzione dell'applicativo?
Ho notato che un'altro applicativo se viene compilato con D5 č pių veloce
che compilato con D7.....č possibile??
Ciao!
Alberto Cigliutti

 veloce che compilato con D7.....è possibile??
Il fenomeno che hai notato dipende probabilmente dal fatto che il
framework VCL in Delphi 7 è più pesante rispetto a quello di Delphi5.
Antonio

Newsgroup: it.comp.lang.delphi
Titolo: Scrivere in Word da delphi

Salve a tutti,
dunque, sto facendo un programma client-server che mi servirà come
prototipo per un progetto particolare di e-commerce legato ad un
gstionale, a proposito, a qualcuno interessa provarlo?
Ora dovrei sviluppare un documento world (perchè deve essere
modificabile dall'utente anche dopo la creazione dal programma).
Qualche tempo fa avevo trovato dei componenti free che mi permettevano
di creare un documento worl scrivendo anche a coordinate nelle pagine,
purtroppo però non riesco più a trovarlo e quindi chiedo:
Qualcuno usa creare documenti in word da delphi ? mi postate qualche
esempio?
Grazie 1000
Gianluca

Gia visto nei vecchi post?
A

Io personalmente uso EKrtf che partendo da un template in rtf crea un .doc .
Opera delle sostiruzioni di tag prefissati nel template, fa lo scan di
tabelle e l'ultima versione ha anche introdotto numerosi operatori
matematici e logici.
Poi Word lo piloto con OLE.
Ciao ciao

 ha scritto nel messaggio
news:da443c53.04012...@posting.google.com...

Newsgroup: it.comp.lang.delphi
Titolo: Ringrazio server

 Un uomo puň essere felice con qualsiasi donna finché lui non l'ama.
 
 If L'uomo puň essere felice se conoche una donna Then
 Lui Conoche la donna
 else
 Non puo essere felice.
Antonio
--- posted by geoForum on 
http://www.delphiedintorni.it

 Non puo essere felice.
Mi passi il numero del tuo pusher?
-- 
Ore 18.30: premo invio.

  Non puo essere felice.
Tu sei completamente pazzo :)
-- 
Jax
====
I delitti dell'estrema civiltà sono certamente più atroci di quelli
dell'estrema barbarie. (Barbey D'Aurevilly)


sessere Ho non essere
se la pazzia é solo questo non é tropo grave
la pazzia é di togliere dal universo tutte le pianete
allora li si che sono pazzo 
perche non é piu l'universo é solo un vuoto


Newsgroup: it.comp.lang.delphi
Titolo: Codice ascii

 questi caratteri? Grazie mille.
Nello standard ascii non esiste la radice quadrata, che io sappia.
Un modo potrebbe essere di usare il font WingDings, che, bene o male, tutti
hanno installato sul sistema: il carattere di "spunta" è
ü (ossia $FC)
--
Jax
Journeying Artificial Xenomorph

 dell'item, mi si ripercuote si tutto e quindi non va bene.
Se sei su NT puoi usare unicode, la radice quadrata è li insieme a molti
altri simboli matematici. PERO' la VCL non supporta Unicode, e allora o usi
le funzioni dell'SDK, o ti fai un form modale al posto della messagebox con
una label o un immagine appropriata..
--
If you are arguing with a fool,
chances are he's doing the same thing.

Nello standard ascii non esiste la radice quadrata, che io sappia.
Esiste, esiste.  Non ricordo il codice, ma esiste.

 Esiste, esiste.  Non ricordo il codice, ma esiste.
Dici bene:
Dec.: 251
Hex: $FB
--
Acqua

 ha scritto nel messaggio
news:fE9kb.45464$vO5.1...@twister1.libero.it...

L'unica cosa è che per farla apparire bisogna...
program radice(input,output) ;
begin
writeln(chr(251));
end.
(* compilare con delphi, o turbo pasquale *)
da prompt di dos (a tutto schermo) dare
mode con cp select=437
e poi lanciare il programma.
Altrimenti appare l'apice 1. Windows usa latin-1 o da NT Unicode, il dos
usava il set di caratteri IBM con le codepage. 'ASCII' strettamente parlando
va da 0x00 a 0x7F attenzione..
Ehh, latri tempi..

'ASCII' strettamente parlando va da 0x00 a 0x7F attenzione..
ASCII va da 0x00 a 0x7F come standard e prevede anche il set esteso
sino a 0xFF, attenzione.

Newsgroup: it.comp.lang.delphi
Titolo: Grassetto Richedit

Ciao a tutti, nella proprietà "Lines" del mio Trichedit ho inserito il testo
che voglio visualizzare... Ovviamente questo test è privo di ogni
formattazione.
Poi Usandolo mi sono reso conto che per migliorare la lettura dovrei mettere
in grasseto e centrato delle particolari righe del mio testo. come posso
fare?
Grazie 1000
-- 
Lorenzo Mendini Iz2FOS
ICQ: 26993628 (Ayrton)
http://www.polopositivo.org
 (Home Page)

Ho risolto grazie
Newsgroup: it.comp.lang.delphi
Titolo: Compressione zip

ciao
ho visto su torry per un componentino per lo "Zippaggio" dei file.
ne ho trovati anlcuni molto, molto semplici
ed altri troppo complicati per quello che devo fare
qualcuno ha qualche consiglio da darmi ...
grazie a tutti
ciao
Mak


Magari non rispondono perfettamente alle tue richieste, pero' io te li
consiglio lo stesso perche' vale davvero la pena di darci una guardata.
Sono stati rilasciati open source (MPL) ed hanno una gloriosa storia alle
spalle.
TurboPower Abbrevia
Abbrevia is a compression toolkit for Borland Delphi, C++Builder, & Kylix. It
supports PKZIP 4, Microsoft CAB, TAR, & gzip formats & the creation of
self-extracting archives. It includes visual components that simplify the
manipulation of ZIP files.
http://sourceforge.net/projects/tpabbrevia/
ciao

 
http://sourceforge.net/projects/tpabbrevia/
Grazie del consiglio
era uno dei componenti che avevo scaricato da torry
lo ritenevo "abbondante" (diciamo cosě) per le mie esigenze (gestisce
Microsoft CAB, TAR, & gzip formats & the creation of self-extracting
archives ...)
perň dopo il tuo consiglio,
dopo aver visto che č anche CLX
... che posso fare ... lo DEVO usare ;)
poi "meglio abbondare"
grazie mille
ciao
Mak
Newsgroup: it.comp.lang.delphi
Titolo: Dubbio su casting di un puntatore a TObject

Dovrei associare una data a ogni elemento di un combo box.
Definisco un:
type
  PDateRecord = ^TDateRecord;
  TDateRecord = record
    date: TDateTime
  end;
Poi per ogni elemento di Items del combo box ci associo una data:
var
  P: PDateRecord;
  i: Integer;
begin
  i:= //è l'index di un elemento del combo box
  New(P);
  P.date:= //assegno una data
  Items.Objects[i]:= TObject(P);
end;
Al momento della distruzione della combo box devo liberare la memoria 
occupata dagli Objects, e faccio così:
var
  i: Integer;
begin
  for i:= 0 to Pred(Items.Count) do
  begin
    Dispose(PDateRecord(Items.Objects[0]));
    Items.Delete(0);
  end;
end;
Al di là del fatto che dovrei intervenire pouttosto con l'override di metodi 
protected (ma è una cosa quick&dirty, non mi serve di scrivere un 
componente), e al di là che funziona e non solleva eccezioni sono dubbioso se 
sto facendo la cosa giusta (cioè se effettivamente poi la memoria viene 
liberata).
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

 ha scritto nel messaggio
news:Xns958480CA6C43945...@130.133.1.4...


Perché usare un record?
Basta PDateTime = ^TDateTime, se Delphi già non lo dichiara.
Il resto va bene, se allochi e disallochi lo stesso tipo di puntatore è 
tutto Ok, una variabile di tipo TObject è comunque un puntatore, e quindi 
un dato a 32 bit, compatibile a livello di memoria con un altro 
puntatore, o addirittura un integer.
Luigi D. Sandon - D&amp;D Support Team
--- posted by geoForum on 
http://www.delphiedintorni.it

 liberata).
Ho adottato più volte una soluzione simile e posso garantire che la 
memoria venga allocata.
Nonostante venga forzato un cast ad un tipo che non è effettivamente 
quello trattato, da *record* a *TObject*, alla fine viene comunque 
chiamata la Dispose passando l'indirizzo dell'oggetto da rimuovere, 
quindi tutto va per il verso giusto.
Ad ogni modo, in questi frangenti io faccio sempre uso di classi e 
istanze perchè, a prima vista, trovo più intuitivo usare Create e Free 
piuttosto che le istruzioni New e Dispose; poi, non si sa mai che mi 
venga in mente qualche operazione da fare su questi oggetti indicizzati 
dagli elementi della ComboBox... basta aggiungere il metodo o la 
proprietà desiderata...et voilà. :-)
Certo, se crei qualcosa come 10000 elementi, l'overhead dovuto alla 
gestione di oggetti riduce le prestazioni rispetto alla medesima 
soluzione con i record. Vedi un po' tu... :-)
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

grazie mille a tutti, ho anche provveduto a semplificare il mio codice con 
PDateTime.
