mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Sul codice legacy

Sto impazzendo a debuggare/fixare codice legacy.
Sono su un modulo che ho preso in gestione e che presenta "anomalie".. 
semplicemente ti aspetti un risultato e lui non ne dï¿œ nessuno.
Niente eccezioni, niente log, niente di niente.
Ora, sono due ore che sto smontando pezzi di codice, sto facendo 
refactoring e rewriting per isolare sempre di piï¿œ i dati e il flusso 
della logica.
Ho trovato due modi di scrivere codice che vi presento:
  with Datamodule1 do begin
    [...]
    with qry do begin
      [...]
        with qry2 do begin
          [...]
        end;
    end;
  end;
Il metodo soprariportato ï¿œ lungo 135 righe.. immaginate cosa significa 
trovarsi in debug dentro al terzo innesto e provare a risolvere delle 
espressioni con campi di query.
Provate a immaginare quando trovate questa istruzione:
Open;
in mezzo a decine di righe di codice senza capire il with superiore di 
chi ï¿œ..
Un'altra chicca che vi offro (tutta la DLL ï¿œ cosï¿œ!):
try
 Open;
except
end;
Qui non ho tolto nulla, ï¿œ proprio cosï¿œ... si, avete letto bene: 
nasconde le eccezioni all'utente.
Questo ï¿œ codice legacy.
Questa ï¿œ un esempio di cattiva programmazione.
Voi cosa ne pensate? Siate sinceri per favore...
:-)
PS: vi consiglio un buon libro, se giï¿œ non lo avete nello scaffale:
http://www.informit.com/store/product.aspx?isbn=0131177052
"Working Effectively with Legacy Code", By Michael Feathers
altre risorse in italiano
http://www.google.it/search?&q=Working+Effectively+with+Legacy+Code&meta=lr%3Dlang_it
-- 
Morde

   end;
Ti consiglio di togliere gli innesti. Via gli orribili with. Parti dal
with pi� interno e sostituisci le chiamate ai metodi semplici con quelle
estese comprensive del nome dell'oggetto. Tanto sei sicuro che
nell'innesto pi� interno, quei metodi si riferiscono necessariamente a
qry2. Procedi cos� con l'innesto 'qry' e quindi con 'Datamodule1'.
Sicuramente renderai il codice molto pi� chiaro di prima. A quel punto
puoi partire con un'analisi pezzo per pezzo, avendo ben chiari gli oggetti
a cui quei metodi si riferiscono. 
 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Scusa , quando parli di legacy, sciaquati la bocca con la candeggina, 
per favore.
Nel tuo caso di legacy non c'e' proprio niente, c'e' solo uno che non 
sa programmare. punto. e non ne parliamo piu' !!!!

 programmare. punto. e non ne parliamo piu' !!!!
Cos'ï¿œ, il tuo modo di farmi gli auguri di natale? :-)
Grazie, buone feste anche a te ;)
-- 
Morde

Morde ha usato la sua tastiera per scrivere :

no per quelli e' presto ! :D
Newsgroup: it.comp.lang.delphi
Titolo: Campi calcolati in IB

Io non posso credere che con InterBase non si possano usare i campi
calcolati nelle SELECT...
es:
    SELECT Prezzo, Qunatita, (Prezzo * Quantita) AS Totale FROM Tabella
    errore, errore, errore......
Qualcuno mi dica che non č cosě... ve ne prego...
Grazie

 Grazie
Prego
Giorgio

>     errore, errore, errore......
magari se ci fa sapere la query esatta e l'errore ti possiamo
anche aiutare.....
--
Marco Kregar
marco....@FirebirdSQL.it
www.FirebirdSQL.it
"over the bench the goat sings, under the bench the goat dies"

hai provato a togliere 'AS'?
Bye
A
--
Per rispondere non usare il reply ma scrivere al seguente indirizzo:
zzato(at)supereva;it
Please, don'r reply this message.
Use this address:
zzato(at)supereva;it

     SELECT Prezzo, Qunatita, (Prezzo * Quantita) AS Totale FROM Tabella
Prova cosi:
SELECT Prezzo, Quantita, (Prezzo * Quantita) Totale FROM Tabella
a occhio mi sembra che il 2ndo campo e' sbagliato NON e' Qunatita ma Quantita
poi prova a togliere AS dovrebbe funzionare ugualmente (sul mio si Firebord 1.0.3)

Newsgroup: it.comp.lang.delphi
Titolo: mostrare gli hint dei TToolButton

Non trovo più la mia precedente discussione sul forum, allora ripropongo. 
Devo mostrare gli hint associati ad alcuni TToolButton presenti su una 
TToolBar. Ho settato con varie prove, a volte anche ad esclusione, le 
proprietà ShowHint = true dei vari componenti, anche quella della Main 
Form (come suggerito in questo forum), ma niente. L'unica cosa che posso 
dire è che, settando la proprietà suddetta, l'hint viene visualizzato 
solo ai TToolButton ai quali è associata un'action standard (a quelli ai 
quali ho associato una procedure o metodo, invece niente).
Suggerimenti?
--- posted by geoForum on 
http://www.delphiedintorni.it

 ha scritto nel messaggio
news:35Sre.7842$bc....@tornado.fastwebnet.it...

Uno ed anche molto semplice nella property Hint del TToolButton
scrivi l'hint che deve essere visualizzato ed il gioco e' fatto.
L'associazione di una action ad un pulsante ha come effetto la
sovrascrittura delle property  Caption, Hint, ImageIndex, Shortcut
(sperando di non aver dimenticato qualcosa) del pulsante con quelle
della action. Per quanto riguarda le actions standard la property hint
e' gia' impostata, diversamente se la action non e' standard o se al
pulsante non e' assegnata una action standard o con la property hint
impostata, questa la devi impostare in base al compito che deve svolgere
il pulsante o la action, anche perche' nessuno sa meglio di noi che cosa
deve fare un pulsante in una nostra applicazione. :)
Ciao.
---
Ryo GQI
Newsgroup: it.comp.lang.delphi
Titolo: DBgrid

Salve sono nuovo di delphi, per comiciare sto realizzando una piccola
applicazione db ed ho il seguente problema.
Ho una tabella master con
ChiaveMaster, Campo 1...N
e una tabella secondaria con campi
ChiaveMaster
ChiaveSlave
Io vorrei all'interno di una form delphi creare una DB grid dove poter
inserire i valori di chiave Slave facendo perņ che i valori di Chiave
Mater vengano inseriti in automatico venendo presi dal campo
chiavemaster della tabella principale
Grazie
Enrico

 chiavemaster della tabella principale
nell'evento OnNewRecord della detail copi i campi della chiave
master nella riga detail (solo se il datasetstate e' in [dsAppend]).
p.s.
mi pare che se le tabelle sono legate in design la cosa viene
fatta in automatico dalle lib di delphi.

Carlo Bosich
| nell'evento OnNewRecord della detail copi i campi della chiave
| master nella riga detail (solo se il datasetstate e' in [dsAppend]).
| p.s.
| mi pare che se le tabelle sono legate in design la cosa viene
| fatta in automatico dalle lib di delphi.
si, se sono legate in master/detail

Newsgroup: it.comp.lang.delphi
Titolo: [niubbo] database

salve a tutti
volevo sapere dove posso trovare un esempio semplice semplice su come usare
i database in delphi
io ho delphi 6 e volevo sapere da voi con quale DB iniziare, una cosa
semplice semplice per iniziare a capire il meccanismo.
esistono guide o tutorial possibilmente i italiano?
altrimenti se possibile qualcuno di voi puņ mandarmi un esempio semplice con
qualche spiegazione?
grazie mille

 i database in delphi
Nella cartella degli esempi ce ne sono un mucchio relativi al database.
Ciao.
Gianluca

Ti consiglio di usare Access...
Se ti serve ti posto qualcosa...
Ciao


> Ti consiglio di usare Access...
Non condivido.
Access è pur sempre un database fileserver.
Meglio interbase o MySql.
Il tutto via dbexpress.
Bye
AS

 una cosa semplice semplice per iniziare a capire il meccanismo.
Access va benissimo per iniziare, come ti e' stato suggerito.
Puoi usare i componenti dbGo di D6.
Non ti consiglio di utilizzare Paradox.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: Come si ridisegna 'sta cacchio di form?

Ho una form con molti oggetti, molti dei quali incapsulati dentro ad altri.
Esiste un modo per far sì che una Fomr ridisegni completamente tutti gli
oggetti visibili (figli, sotto-figli, padri, nipoti, suoceri)?
Ho provato:
Invalidaterect
Invalidaterng
[form].Paint
[form].RePaint
[form].Refresh
[form].Update
C'è qualcosa che non ho provato?
Oppure, avete suggerimenti di come usarli, magari passandogli valori che io
non ho pensato di passare (mi riferisco alle prime due funzioni citate)?
Ciao a tutti.
Matteo

 C'č qualcosa che non ho provato?

Newsgroup: it.comp.lang.delphi
Titolo: FindWindow & GetClassName

   GetClassName(IndexW,ClassName,SizeOf(ClassName));
e ClassName risulta sempre avere lo stesso valore
'Afx:400000:8:10011:0:503bb'. Dove sbaglio?
Grazie in anticipo.

 ha scritto nel messaggio 
news:1127483935.7...@o13g2000cwo.googlegroups.com...


FillChar(ClassName,SizeOf(ClassName),#0);
ho provato anche cosi'.. ma restituisce sempre 0 quando uso la
FindWindow

 ha scritto nel messaggio 
news:1127680400....@o13g2000cwo.googlegroups.com...



funziona. in effetti usando il programma Window Detective 1.0 mi
restituisce un ClassName simile ma diverso da quello che vedevo in
WinSigth.
 
grazie mille :)

acc.... non funziona come dovrebbe :/ ...
la prima volta mi ha restituito una classe
'Afx:400000:8:10011:0:1200a3', mentre se riavvio la macchina e rieseguo
il Windows Detective la classe risulta  'Afx:400000:8:10011:0:2014b'
che è diversa :( .. com'è possibile? come posso fare?


prova EnumWindows

Newsgroup: it.comp.lang.delphi
Titolo: cgi: sospendere la esecuzione

Ciao a tutti.
Ho sviluppato un cgi che, che dovrebbe:
1) creare un file (tale file sarà processato da una app esterna che dovrebbe
produrre un file di risposta)
2) fermarsi per eseguire un polling per la presenza di un file di risposta
2a)se esiste il file, esso viene processato per produrre un qualcosa di
assegnabile a content di webresponse
2b)se non esiste il file, dopo un tempo assegnato, al content va assegnata
una pagina html che segnala un timeout.
Il mio problema è il punto 2.
Ovvero, come faccio a sospendre la esecuzione della cgi?
Per il polling dovrei realizzare una cosa del tipo:
[cut]
while true do
  begin
  haveresponse := existsfile(responsefileName) then
 if have response then
   break
 // WAIT WAIT WAIT WAIT.....
 haveresponse := False;
if ElapsedTime > MaxTimeout then
  break;
end;
if haveresponse then
   Response.Content := MakeContentByResponseFile
else
  response.content := MakeContentForTimeout;
end;
Qualche idea?
Tnx
A
--
Per rispondere non usare il reply ma scrivere al seguente indirizzo:
zzato(at)supereva;it
Please, don'r reply this message.
Use this address:
zzato(at)supereva;it
Il tutto in delphi7.
attendere per un tempo prefissato durante il quale va eseguito un polling
per verificare se il file
dopo aver creato un file che sarà processato da una app esterna

 Ovvero, come faccio a sospendre la esecuzione della cgi?
Sleep?
Alternativamente, FindFirstChangeNotification + una Wait function
Ovviamente se Win32, altrimenti nonzo.
Saluti
Paolo Arosio
--
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"

  e' che non ci vengono a trovare"
"La popolazione terrestre è in aumento ma l'intelligenza è costante."
baiBai
AS

> "La popolazione terrestre è in aumento ma l'intelligenza è costante."
quindi la media di intelligenza per individuo è in calo? LOL
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)
Newsgroup: it.comp.lang.delphi
Titolo: E questa come risolverla ? AIUTO!

Il discorso e' molto semplice:
in un programma che sto scrivendo ....
    Form1.Cursor:=crHourGlass; // Cambia il cursore in clessidra
    Form1.Enabled:=False;           // Disattiva  la finestra
Banale no ?
NO!
Se disattivo la finestra il cursore torna quello standard !!
Provate anche voi, da me accade con Delphi 3.02.
Come diavolo faccio ad avere capra e cavolo ?
Grazie a chi mi sapra' aiutare
Andrea


Prova cosi':
Screen.Cursor:=crHourGlass; // Cambia il cursore in clessidra
Form1.Enabled:=False;           // Disattiva  la finestra
Ciao,
Daigo

...
....



Allora fai cosi': metti un mega TPanel in mezzo al form, con Align =
alClient, e piazzi tutti i controlli su di lui. Per eventuali menu
disabiliti tutti gli Item scorrendo la proprieta' Items dell'oggetto
MainMenu.
In pratica poi scrivi:
Screen.Cursor := crHourGlass;
Panel1.Enabled := False; // Disabiliti tutti i controlli
For I := 0 To Pred(MainMenu1.Items.Count) do  // Disabiliti tutti i menu
begin
    MainMenu1.Items[I].Enabled := False;
end;
Cosi' funziona, spero che corrisponda a quello che ti serve. =)
Ciao
Daigo

Newsgroup: it.comp.lang.delphi
Titolo: set transaction firebird

salve a tutti uso firebird con delphi 5, cercavo il modo di eliminare un 
deadlock in una procedura che aggiorna le giacenze di magazzino, ho trovato 
il seguente statment sql
SET TRANSACTION wait NAME 'Toronto';
che dovrebbe fare al caso mio, ho provato a scriverlo nella stored procedure 
che aggiorna le giacenze in testa dopo il begin, questo il codice:
CREATE PROCEDURE AGGIORNAGIACENZE (
    CODART VARCHAR(12),
    ESERC INTEGER)
AS
DECLARE VARIABLE TOT DOUBLE PRECISION;
DECLARE VARIABLE TOTI DOUBLE PRECISION;
DECLARE VARIABLE QTA DOUBLE PRECISION;
DECLARE VARIABLE PREZZOMEDIO DOUBLE PRECISION;
DECLARE VARIABLE PREZZOACQUISTO DOUBLE PRECISION;
DECLARE VARIABLE PREZZO DOUBLE PRECISION;
DECLARE VARIABLE PRIMO INTEGER;
DECLARE VARIABLE PREZZOLISTINO DOUBLE PRECISION;
DECLARE VARIABLE LISTINO VARCHAR(10);
DECLARE VARIABLE PERC INTEGER;
DECLARE VARIABLE PREZZOCALCOLATO DOUBLE PRECISION;
DECLARE VARIABLE ID INTEGER;
begin
SET TRANSACTION wait NAME 'Toronto';
....
....
purtroppo non compila segnalandomi il seguente errore
Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 19, char 1.
SET.
potetre aiutarmi?
grazie.

Forse non fa al caso tuo. Hai letto la guida sql di firebird?
AS

 AS
si la guida l'ho letta ho provato ad applicare quello che c'è scritto e non 
funziona
avrò a questo punto il diritto di chiedere aiuto su un newsgroup o no?
Newsgroup: it.comp.lang.delphi
Titolo: [applicazione console]Come faccio a mandare il comando CLS ?

Devo, in un applicazione console, mandare il comando cls, per la
cancellazione dello schermo.
Come si fa ?
Grazie 
Andrea

 cancellazione dello schermo.
questo thread dal titolo "Clear screen in Console application" trovato con Google fa per te:
(l'indirizzo č lungo e se il tuo newsreader fa un word-wrap, devi ricostruirlo su un'unica riga)
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&oe=UTF-8&threadm=3b14d43d.11116650%40news.u-net.com&rnum=5&prev=/groups%3Fhl%3Dit%26lr%3D%26ie%3DUTF-8%26oe%3DUTF-8%26q%3Dconsole%2Bapplication%2Bcls
P.S.: prova a far girare il program Greeting e digitare CLS.
-- 
Mauro Falzari ( 
http://digilander.libero.it/mauro.falzari
 )
"Se guardi nell'abisso, anche l'abisso guarda in te." (Friedrich Nietzsche)

(l'indirizzo è lungo e se il tuo newsreader fa un word-wrap, devi ricostruirlo su un'unica riga)
Dai un'occhio a 
http://www.makeashorterlink.com
Ciao

 Dai un'occhio a 
http://www.makeashorterlink.com
ciao, ne avevo già sentito parlare, ma ho dei dubbi nell'usarlo perchè mi 
chiedo fino a quanto saranno utilizzabili i link così creati, cioè se poi 
uno poi troverà il post con Google Groups tra un anno e seguirà il link, 
cosa succederà? (a parte che MakeAShorterLink è una dotcom quindi è 
presumibile che quando molte persone inizieranno a usare il servizio...ci 
infileranno dentro ogni sorta di pubblicità)


 Dai un'occhio a 
http://www.makeashorterlink.com
ciao, ne avevo già sentito parlare, ma ho dei dubbi nell'usarlo perchè mi 
chiedo fino a quanto saranno utilizzabili i link così creati, cioè se poi 
uno poi troverà il post con Google Groups tra un anno e seguirà il link, 
cosa succederà? (a parte che MakeAShorterLink è una dotcom quindi è 
presumibile che quando molte persone inizieranno a usare il servizio...ci 
infileranno dentro ogni sorta di pubblicità)



wrote:

vai a fare un salto su:
http://www.geocities.com/SiliconValley/Lakes/1636/con_apps.htm
ti autera...
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

Come si fa ?
Devi usare le "Console Functions" (
msdn.microsoft.com
).
-- 
Andrea Laforgia
www.geocities.com/andrealaforgia
"640kb of memory should be enough for anyone." -- Bill Gates.

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

Ho scaricato dalla rete una applicazione scritta in Delphi4 che contiene la 
unit MD5 che cripta le stringhe,dato che io uso Delphi7,quando compilo il 
programma mi da' il seguente errore:
Incompatible type  MD5Buffer  and Char
ho provato e riprovato a sostituire Char con altre dichiarazioni,ma non mi 
riesce di compilare.
Qualcuno mi puo' aiutare
Grazie
Luigi 

Ciao.
C'è qlc motivo preciso per il quale non puoi usare questo?
http://sourceforge.net/projects/tplockbox/
Newsgroup: it.comp.lang.delphi
Titolo: Semplici Griglie!

Esistono griglie semplici da gestire in Delphi 6 nella Libreria CLX?
Mi servirebbe qualcosa simile alla JTable di Java o alla multilist.
Il problema che ho riscontrato tra gli oggetti provati è che hanno la
necessità di prendere i dati da un dabase. Io mentre vorrei inserirli a
manina. Mi spiego meglio. Se io avessi un vettore da dover scaricare in una
Griglia devo scrivere un ciclo che mi permatta di caricare le righe una alla
volta. E quindi come faccio se gli oggetti resi disponibili da delphi hanno
bisogno di una fonte dati e non hanno metodi per fare ciò che ho bisogno io?
Grazie!

la stringGrid no? nella palette addiotianal mi pare...
fai un ciclo
for i:=1 to n do
 griglia1.cells[i]:=StrToInt(vettore1[i]);
se il vettore è di numeri...
ricordo ke prima mette le colonne e poi le righe...al contrario degli
array...

Ho provato a utilizzare l'oggetto che mi hai consigliato e mi funziona come
volevo.
Ti ringrazio del consiglio.
Un intoppo però ho trovato! Non è possibile settare singolarmente
l'allineamento, le dimensioni e i nomi delle colonne. Sbaglio o non è
veramente possibile farlo con quell'oggetto? Se è così mi sai consigliare
qualcos'altro?
Grazie ancora!
Newsgroup: it.comp.lang.delphi
Titolo: Consiglio applicazione DB

 Devo realizzare un'applicazione che gastisca un database molto semplice:
deve però essere in grado di gestire gli utenti in modo che alcuni 
possano solo leggere i dati, altri possano modificarli, ecc. Cosa posso 
usare come database (FireBird, ecc.)? Dev'essere opensource...
Cosa mi consigliate??
Ciao
Daniele
--- posted by geoForum on 
http://www.delphiedintorni.it

usare come database (FireBird, ecc.)? Dev'essere opensource...
Se deve essere open source ti consiglio MySql se devi fare qualcosa di 
semplice, infatti MySql  non gestisce StoredProcedure e parte dell'Sql 
Standard (anche se qualcosa è cambiato dalla versione 5).
Se hai bisogno di Stored Procedure o di trigger, oppure vuoi un DB che 
ricoinosce al 100% Sql standard allora ti consiglio Postgres.
FireBird non l'ho mai usato, ma mi hanno detto che è molto valido.
Ciao
Stefano Lorenzi
Stefano Lorenzi


 Stefano Lorenzi
Vi consiglio di leggervi bene la licenza di MySql: se viene utilizzato in
applicazioni "Closed Source" dovrebbe essere acquistata la licenza, per
quanto riguarda Postgres credo possa fare al caso tuo, ma se devi sviluppare
in Delphi Firebird è quello che fa per te vista la sua parentela ancora
abbastanza stretta con Interbase
Ciao, Vittorio

 Cosa mi consigliate??
Ti sei dato la risposta da solo :-)
Uso FB da anni (dalla versione 1.0) se non ti serve l'utilizzo 
concorrente, puoi usare la versione embedded.
INHO FB è anni luce avanti MySQL (che ho usato).
Su postgres non posso dirti nulla.
Ciao Daniele

 Daniele
Se ti interessa OpenSource come sinonimo di free, puoi utilizzare anche 
MSDE.
Per quanto riguarda la protezione, dipende dal livello a cui vuoi 
arrivare: in MSDE puoi tranquillamente definire utenti/gruppi e dare le 
autorizzazioni lettura/scrittura/esecuzione sui singoli oggetti.
Ciao,
Gianluca.

 Cosa mi consigliate??
Ti hanno suggerito tanti db molto validi e posso dire di averli usati quasi
tutti: sia PostgreSQL, che Firebird che MSDE, mentre MySQL lo sto provando
solo ora (meglio tardi che mai).
Se posso dire la mia, quello che uso più volentieri è Firebird, per
efficenza, robustezza, feature implementabili e interoperabilità con
l'ambiente Delphi. Malgrado ciò, spesse volte ho usato (e uso) MSDE con
somma gioia, anche se la nuova versione (denominata SqlServer Express e
derivata da SQLServer 2000) porterà con sé alcune restrizioni, es. mi pare
che abbiano diminuito il numero di utenti contemporanei che possono
accedere al db a fronte di un aumento delle dimensioni massime del file di
dati su disco (per ulteriori ragguagli guardati magari il sito Microsoft).
Saluti
	Marco Bortolani
	info @ 
marcobortolani.it

 Cosa mi consigliate??
SQLite?
http://www.aducom.com/sqlite/
Newsgroup: it.comp.lang.delphi
Titolo: Ma il sito di Marco Cantù è spento?

Come da oggetto.
P.

Come da oggetto.
Problema tecnico sul server in webfarm, quindi anche il server newsgroup č
giů...
Lunedě (dita incrociate) dovremmo aver risolto, sorry per l'inconveniente.
Ciao,
Paolo.
P.S.: Anche in questo caso č stata confermata una ben nota legge
dell'informatica... problema sul server al venerdi ore 17! ;-)

 dell'informatica... problema sul server al venerdi ore 17! ;-)
LEGGE DI JOHNSON E LAIRD
Il mal di denti tende a cominciare di venerdì sera.
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

Come da oggetto.
Mi sembrava giusto informare... i siti e il server newsgroup sono
ripartiti...
Paolo.


tuttavia anche se fuanziona, ci metto delle giornate a scaricare i
messaggi, anche se ho l'ADSL...
mah!... boh!
tiziano

 messaggi, anche se ho l'ADSL...
Dal sito o dal server NNTP?
-- 
Andrea /\/\agni -- D&D Support Team ( 
http://www.delphiedintorni.it
 )
HomePage: 
http://www.emmeit.net/andrea/

Dal sito o dal server NNTP?
dal server NTTP (
news.marcocantu.it
), uso free agent 2.0. 

 dal server NTTP (
news.marcocantu.it
), uso free agent 2.0. 
In questi giorni sembrano esserci dei rallentamenti... non ne conosco la 
causa (il server NNTP non č stato ricompilato di recente quindi 
escluderei problemi software, probabilmente la macchina su cui si trova 
č un po' carica o ci stanno lavorando sopra).
Ho provato in questo momento a sincronizzare un gruppo corposo e ci 
mette circa 1 secondo a messaggio (io ho ADSL Alice, zona Bergamo, ping 
medio 50ms). Sicuramente non č poco, dovrebbe essere una situazione 
passeggera.
Ciao,


Ciao,
mmmh, io mi sono iscritto in gennaio e da allora la situazione non è
cambiata... 
grazie comunque per l'interessamento, questo mi conferma che delphi e
dintorni è un gruppo in cui c'è dell'attività...
tiz

 dintorni è un gruppo in cui c'è dell'attività...
Il newsserver è in gran parte opera mia, non viene ricompilato da 
parecchi mesi. Tieni presente che non è su una macchina dedicata (anzi, 
la macchina su cui gira dovrebbe essere abbastanza carica) e entro fine 
anno conto di fare un paio di modifiche per aumentare le prestazioni 
(che comunque non mi sembrano così male, considerato tutto). 
Sinceramente si è notato un rallentamento (altalenante) negli ultimi 
giorni (cosa strana visto che siamo in agosto) ma non ho feedback sullo 
stato della macchina...
PS: non fare il paragone con i server usenet perchè non sarebbe realistico.


Newsgroup: it.comp.lang.delphi
Titolo: Inverso di New

quale è il comando che mi dealloca un puntatore?
Io uso pointer:=nil, ma non so se dealloco il puntatore oppure se gli
assegno solo valore nil e questo comunque resti allocato

New->Dispose
Andrea
Newsgroup: it.comp.lang.delphi
Titolo: Oggetti delphi in vb

Ciao a tutti,
esiste un modo per utilizzare oggetti delphi in vb senza creare un activex?
Una soluzione alternativa potrebbe essere l'utilizzo dei record lato 
delphi e degli udt in vb?
Cio' che mi serve realmente e' la struttura dati, per i metodi delle 
classi potrei ovviare tramite funzioni di dll a cui passo il record/udt
Imaggino che mappare le proprieta di una classe in un udt non sia 
possibile vero?
Grazie
Massimiliano

 delphi e degli udt in vb?
L'acronimo "udt" sta per "user defined type"?
Teoricamente, potresti costruire una libreria (DLL) in Delphi che 
accetta come parametro o restituisce record utilizzando tipi di campi 
compatibili con VB, ove importi tali funzioni attraverso le opportune 
dichiarazioni che provvederai ad inserire in un modulo a piacimento.
Non è la migliore delle soluzioni possibili e, senza passare da COM, gli 
espedienti più eleganti e sicuri si riducono al mimimo.
Se si trattasse di 
VB.NET
, potresti tranquillamente utilizzare in VS 
qualsiasi classe creata con Delphi senza dover fare nulla. ;-)
Ciao! :-)
-- 
MARCO «Alka» BREVEGLIERI
   (
http://www.marco.breveglieri.name
)
Leggi le FAQ di ICLD: 
http://icld.altervista.org
Newsgroup: it.comp.lang.delphi
Titolo: quick report - usare il database

salve,
dovrei stampare un recordset col quick report ho collegato tutto solo che 
quando faccio il previw vedo solo il primo record nel migliore dei casi 
altrimenti niente non vedo niente
mi potete spiegare come fare per reportare il recordset ? 

 ha scritto nel messaggio 
news:AicJd.758368$35.29...@news4.tin.it...

ma perchè è cos' complicata stampare un recordset ? non capisco ci sto 
provando da ore....

 scorreto come logica)
che significa?
-- 
Alberto Salvati
A NEAPOLITAN Delphi Developer who is studying c# and .net
"Dicette 'o pappece 'nfaccia 'a noce dammi 'o tiempo che pure te spertoso"


Che se non settavo il dataset del form che conteneva il quick report non mi 
scorreva i dati vedevo in pratica solo la prima riga nonostante abbia 
settato dataset e field di tutti i componenti label ecc.

 ha scritto nel messaggio 
news:iOcJd.758591$35.29...@news4.tin.it...



 settato dataset e field di tutti i componenti label ecc.
Non si tratta di un form che contiene il QuickReport, ma del QuickReport 
stesso. Che poi il designer sia simile a quello del form è un'altro 
discorso.
Comunque, la property DataSet serve appunto al QuickReport per identificare 
di quale DataSet effettuare lo scorrimento (in un report potresti, per vari 
motivi, far riferimento anche a più DataSet, ma solo uno sarà quello 
"principale" che dovrà essere scorso dal primo all'ultimo record). 
Personalmente, non riesco ad immaginare modo migliore di indicarlo.
Ciao,
Gianluca.

Newsgroup: it.comp.lang.delphi
Titolo: 2 domande su edit e dbgrid

(Quesito gia' postatato su it.comp.delphi)
Ciao e TANTI AUGURI a tutti
Probabilmente quanto sto' per chiedere e' gia' stato trattato ma.........
1) Come faccio ad allineare a destra il contenuto di un TEdit sapendo a
priori
    che conterra' un numero?(per vedere incolonnati i numeri )
2) Come posso avere il valore contenuto in campo di una dbgrid cliccandoci
     sopra?(o genericamente cliccando su una row).
Grazie a tutti e buona giornata
                                               Gigi Petrucci

      sopra?(o genericamente cliccando su una row).
Dunque, se usi l'OnCellClick puoi sapere che colonna è stata cliccata e
quindi puoi sfruttare column.Field.AsXXXX o risalire al Dataset tramite
l'omonima proprietà di Tfield...
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: Tlist succhia memoria

Salve a tutti
Allora ho:
type
  PPippo = ^Pippo;
  Pippo = record
    QDB : Longword;
    PPNew : Byte;
    OffM : Integer;
end;
......
Var
    myPippoList : TList;
    myPippoPointer : ^Pippo;
.....
//qui leggo dei valori da un file e riempio la tlist myPippoList con i
valori...
  myPippoList := TList.Create;
     for x := 1 to RipPippo do
    begin
       new(myPippoPointer);
        FileBaseRead.Read(myParolePointer.QDB ,2);
        FileBaseRead.Read(myParolePointer.PPNew ,1);
        FileBaseRead.Read(myParolePointer.OffM ,4);
        myParoleList.Add(myParolePointer);
      end;
    myPippoList.Sort(ParoleSortCompare); //ordino
//qui ho myPippoList con gli elementi ordinati e ci faccio quello che
devo....
.......
//ok adesso teoricamente con il pezzo di codice che segue dovrei liberare le
risorse occupate dalla tlist
    for x := 0 to (myPippoList.Count - 1) do
     begin
        myPippoPointer := myPippoList.Items[x];
        Dispose(myPippoPointer);
     end;
    myPippoList.Free;
Quando questo codice va in esecuzione (tra l'altro stando in un ciclo for
viene ripetuto N volte) vedo' la ram pian piano divorata come se appunto non
venisse liberata e vi lascio immaginare che cosa succede dopo un po' anche
se ho quasi 400mb di ram....dove sbaglio?
Grazie...
(delphi 4 o 5)


Il codice mi  sembra formalmente corretto.
TList NON mangia memoria.
Il fatto che a te sembri che la memoria non venga rilasciata (guardi
con task manager?), non significa nulla.
Se, però, in effetti, ti sembra che col passare delle esecuzioni la
memoria libera cali sensibilmente ti consiglio di usare qualche
programma per l'analisi della memoria.
Per Delphi, per esempio, memory sleuth della turbopower è fantastico.
Massimo.
-- 
Ore 18.30: premo invio.

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

Ciao,
ho un problema, dovrei fare un programma che ad un determinato orario mi
disconnetta un unità di rete.
Mi spiego meglio, io mi collego ad un database di un server impostando una
connessione permanente sull'unità F:
io vorrei che ad un determinato orario mi togliesse la connessione sul drive
F:, qualcuno mi sa aiutare ? Quale api serve ?
Grazie.

 disconnetta un unità di rete.
Penso che la WNetCancelConnection2 dovrebbe fare al caso tuo.
Non l'ho provata, ma dovrebbe essere :
  WNetCancelConnection2 ('F:\', 0 o CONNECT_UPDATE_PROFILE , true per
forzare la disconnessione );
Ciao! Davide DG.
Newsgroup: it.comp.lang.delphi
Titolo: Kylix 2 & clx buggata

Leggendo su google a proposito di Kylix 2, pare che le clx diano parecchi
problemi, e che attualmente non si puo' costruire nessun progetto affidabile
per Linux usando Kylix 2. Chi ne sa qualcosa di piu'?
Oggi ho scaricato e installato Kylix 2 su Mandrake 8.2, l'ambiente e'
proprio il familiarissimo Delphi, a parte la palette scarna che piu' scarna
non si puo' e una lentezza generalizzata di tutto l'ambiente. Inoltre
l'eseguibile generato dall'ide non parte dalla shell lamentando la mancanza
di certe librerie; non ho approfondito la cosa, comunque pare che non
vengano generati, almeno per default, applicativi stand alone.
Ciao, Sandro

 Ciao, Sandro
Ciao, Antņ.
Newsgroup: it.comp.lang.delphi
Titolo: IShell Folder: Problema identificazione oggetti

Salve a tutti,
Ho un problema con un componente che mi sono scritto, e che implementa
una tree view con il contenuto dei file/folder/special objects a partire dal
Desktop.
Il problema è che non mi vengono riconosciuti i folder.
Richiamando IShellFolder.GetAttributesOf(...)
mi viene ritornata un valore che non riesco a decifrare.
A memoria, ricordo che sotto Win98Se/ME funzionava bene.
Che voi sappiate è cambiato qualcosa nel passaggio a Win 2000/NT/XP
per quanto riguarda il funzionamento di IShellFolder?
Ho mandato un messaggio pertinente lo stesso argomento qualche giorno
fa (21/05/2003). Ho incluso un pezzo del codice che ho scritto.
Sarei molto grato se poteste darmi un indizio.
Saluti,
Carmine

hai provato a vedere su msdn?
Sai che zio billy con le api di winsozz fa il bello&cattivo tempo.
A

 Sai che zio billy con le api di winsozz fa il bello&cattivo tempo.
Purtroppo su msdn c'č scritto che la maschera SFGAO_HASSUBFOLDERS
č da utilizzare quando "le alternative per determinare se esistono subfolder
sono troppo onerose in termini di tempo".
Per conferma, ho eseguito l'applicazione cosě com'č su di una macchina
Win98SE e funziona come previsto!
Adesso sto cercando di fare un accrocchio tramite BindToObject,
perň mi si impalla l'applicazione :(
        while BranchEnumIDList.Next(1,Nodo,quanti)=S_OK do
        begin
            inc(esaminati);
            Application.ProcessMessages;
            tPadre:=Nil;
            if Assigned(Node) then
                tPadre:=Node.Data
            else
            if Assigned(RootPIDL) then
                tPadre:=RootPIDL;
tNodo:=Items.AddChildObject(Node,GetFolderName(ShellFolder,Nodo,SHGDN_NORMAL
),AggiungiPiddle(tPadre,Nodo));
            tNodo.ImageIndex:=GetFolderInfo(tNodo.Data,0,SHGFI_PIDL or
SHGFI_SYSICONINDEX or SHGFI_SMALLICON).iIcon;
            tNodo.SelectedIndex:=GetFolderInfo(tNodo.Data,0,SHGFI_PIDL or
SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_SELECTED).iIcon;
            // Controlliamo se ci sono sub Folder
            temp:=GetFolderAttributes(ShellFolder,tNodo.Data);
            tNodo.Text:=format('%s(%x)',[tNodo.Text,temp]);
// (A) QUI PROVO A VEDERE SE CI SONO SUBFOLDER...
            if tNodo.Data<>Nil then
            begin
fRootFolder.BindToObject(Nodo,nil,IID_IShellFolder,CheckFigli);
                tNodo.HasChildren:=CheckFigli.EnumObjects(Handle,FlagsC
,BranchEnumIDList)=NOERROR;
fRootFolder.BindToObject(Node.Data,nil,IID_IShellFolder,ShellFolder);
                ShellFolder.EnumObjects(Handle,FlagsC,BranchEnumIDList);
                BranchEnumIDList.Skip(esaminati);
            end
            else
                tNodo.HasChildren:=False;
            fShellMalloc.Free(Nodo);
        end;
        Cursor:=crDefault;
    end;
Uffaaaaaaa sto impazzendo appresso a questa str...ata
Saluti

 Sai che zio billy con le api di winsozz fa il bello&cattivo tempo.
Finalmente, ho risolto.
In effetti, pare che sia cambiato il funzionamento di GetAttributesOf(...).
Fino a Win2000 accettava un percorso assoluto, adesso vuole per forza un
percorso relativo ...
Saluti
Newsgroup: it.comp.lang.delphi
Titolo: Problema con creazione tabella tramite SQL

Salve di nuovo. Sono appena tornato dalle ferie e questo e' gia' il terzo
post. I problemi fioccano! =)
Adesso mi sono incasinato con uno statement SQL. In pratica ho bisogno di
uno statement SQL standard che mi permetta di creare una tabella su
qualsiasi database.
Ho provato questo
CREATE TABLE PROVA
(
CODICE varchar (5) NOT NULL,
ARTICOLO varchar (30) NOT NULL,
CONSTRAINT PrimaryKey PRIMARY KEY (CODICE, ARTICOLO)
)
Funziona su quasi tutti, ma non che su Paradox e dBase (non ho provati altri
database locali), eppure e' standard... Mi restituisce errore dicendo
"Invalid token: NOT" e cose similari. Ho guardato nell'help del Local SQL e
infatti non ci sono esempi di CREATE TABLE che specificano se un campo puo'
essere NULL o meno, pero' io non posso cercare tutte le volte di capire che
tipo database si sta usando (la funzione deve trasferire delle tabelle da un
alias a un altro, gia' esistenti nel BDE).
Come si puo' fare a ovviare al problema? Eppure il DB Desktop permette di
specificare se un campo e' "required", io come posso farlo?
Ciao e grazie ancora
Daigo
--
And the beast shall come forth surrounded by a roiling
cloud of vengeance. The house of the unbelievers shall
be razed and they shall be scorched to the earth. Their
tags shall blink until the end of days.
From The Book of Mozilla, 12:10





Invecere di usare SQL perchè non usi le funzioni 
del BDE


proprie per la creazione di tabelle Paradox e 
DBase?

Newsgroup: it.comp.lang.delphi
Titolo: skin applicazione

Ciao a tutti,
scenario: applicazione fatta con Delphi 7, per la maggior parte utilizzando componenti standard, look dell'applicazione grigio preistorico.
 
Vorrei migliorarne il look e cercando su google si trovano molte soluzioni, forse troppe,
 
prima di intasarmi l'ide di versioni demo, qualcuno puo' suggerirmi qualche soluzione/prodotto/componente provato che mi permetta di cambiare il look dell'applicazione facendo meno modifiche possibile al codice ?
 
grazie

DevExpress ...belli ma cari
 
 
ha scritto nel messaggio 
news:3b6672a8-8009-4e00...@googlegroups.com...


> DevExpress ...belli ma cari
 
si belli, ma DevExpress, se non ho capito male, applica il look solo ai loro componenti, e non a quelli standard di delphi,
ho provato vclskin: e' sufficiente mettere degli oggetti sul main form ed a run-time applica la skin a tutta l'applicazione,
e' quello che mi servirebbe se non fosse per alcuni access violation random e maledetti ...

 alcuni access violation random e maledetti ...
 
E` Delphi, cosa ti aspetti?
 

Ciao,
  hai provato a fare una ricerca su torry ??
 
Li puoi trovare qualcosa.
 
ciao
 
Daniele
Newsgroup: it.comp.lang.delphi
Titolo: Installazione ODBC per SQL 7

Salve,
ho la necessità di installare un pacchetto in Delphi 5 compresi i
collegamenti
ODBC verso un DB SQl 7.
Il pacchetto è lo installo con InstallShield Express (compreso il BDE)
ma non riesco
ad installare i collegamenti ODBC verso un DB SQL 7.
Inoltre dovrei installare sul server il Runtime di SQL Server 7.
Riuscite ad aiutarmi?
Grazie in anticipo
Maurizio-Paolo


Mah !
Io ho avuto il tuo stesso problema.
1) Ho creato un'installazione del mio software (programma delphi + BDE)
2) Ho installato il client per Sql Server (esclusi i programmi di gestione
dell'SQL)
3) Ho configurato ODBC
4) Ho installato il mio programma
5) Ho configurato il BDE per l'ODBC
Se il tuo obbiettivo è installare con InstallShied anche ODBC e i driver per
Sql Server penso proprio che non ci riuscirai
ciao
Solid Snake




Newsgroup: it.comp.lang.delphi
Titolo: Form Wizard con D3

Ciao, qualcuno sa dirmi se è possibile e come posso fare a creare un Form
Wizard con Delphi 3 ?
La mia esigenza è quella di creare una Form standard da mettere nell'Object
Repository. Siccome la Form è collegata ad un Data Module, mi servirebbe un
modo per aggiungere una proprietà alla Form per specificare il Data Module
collegato; a quanto ho capito questo non è possibile, per cui pensavo di
utilizzare un Wizard per inserire il riferimento dove serve. Se qualcuno ha
delle idee migliori, ben venga!
Grazie
Ivano
iva...@infinito.it

 wrote in message
8giogi$oqn$1...@nslave1.tin.it...


 salto su 
http://www.drbob42.com
 il sito di Bob Swart
Grande link!!! Grazie di cuore (per fortuna leggo l'inglese mooolto meglio
di come lo parlo...)
Ciao
Ivano
iva...@infinito.it
Newsgroup: it.comp.lang.delphi
Titolo: DDevExtension e popup

Ciao a tutti,
Tempo fà ho installato DDevExtension e DelphiSpeedUP, aprendo poi un
mio progetto ho notato che ogni volta che inserivo un nuovo componente
o facevo copia/incolla prima di inserire il componente nella form, mi
compariva una finestra in cui mi si chiedeva di dare un nome al
componente.
Successivamente devo aver fatto qualcosa per cui tale finestra non
compare più mi sapete aiutare ?
Grazie
Max

 wrote:
Trovato !

 Trovato !
Che fine aveva fatto ? 
-- 
Morde

Newsgroup: it.comp.lang.delphi
Titolo: Windows SDK

Ciao a tutto il NG...ho fatto una ricerca per vedere se era gia stata posta
questa domanda e sicuramente l'avete già letta...esiste da qualche parte
qualche cosa simile all'help  delle api win32 in Italiano?...grazie 1000


A parte che sei OT su questo NG...
Cmq esistono dei libri in italiano che ti introducono al mondo delle
Api Win32 in modo superbo:
Es il libro di C. Petzold
--
Rhymes
rhy...@myself.com
http://www.foxhound-games.it

 Es il libro di C. Petzold
Cmq grazie.


chiamano cosě le funzioni delle api?...
Non č che si usano anche. Esistono un sacco di funzioni in Delphi che
sono "wrappate" intorno a delle funzioni API Win32. Quindi ti
consiglio di usare quelle del Delphi e non quelle Win32 a meno che tu
non ne abbia bisogno in qualche specifico momento (raramente, almeno
all'inizio della tua vita da programmatore Delphi).
Nel caso dovessi farne uso, l'utilizzo di queste funzioni (ie.
dichiarazione, parametri, ecc) esula dal Delphi in sč e da questo NG
ergo sei OT ^_^


Newsgroup: it.comp.lang.delphi
Titolo: [DELPHI] Compilazione Turbo explorer / delphi07

Avevo mandato questo post per il seguente problema:
Dopo aver caricato i dati in una tdbgrid, se si muove la rotella 
superiore del mouse il cursore si muove solo nell'area visibile.
C'è la possibilità si scrollare tutta la lista con il mouse?
poi.....
ho fatto una prova ricompilando il progetto con la versione:
TURBO EXPLORER e il problema non c'è.
allora mi chiedo ho un bug io nell programma delphi07 o risulta  anche a 
voi accade la stessa cosa ????
--- posted by geoForum on 
http://www.delphiedintorni.it

 voi accade la stessa cosa ????
Supponendo che delphi07 sia Delphi Versione 7 (e non la 2007)
direi che non si tratta di una bug ma che semplicemente è stata
implementato lo scroll della "rotellina" sulla dbgrid standard.
Quindi è un miglioramento apportato nella VCL.
Comunque, è abbastanza semplice implementare la gestione
della rotellina anche in D7, intercettando i dovuti messaggi.
Vedi questi due esempi:
http://exampledelphi.com/delphi.php/tips-and-tricks/mouse-scroll-within-dbgrid/
http://www.programmersheaven.com/mb/delphikylix/273178/273178/scrolling-dbgrid/?S=B20000
Ciao
ACSH
PS: non serve mettere il TAG [Delphi] in un NG di Delphi; sarebbe magari più
utile mettere il TAG [D7] oppure [Turbo] ecc...
-- 
If you don't think carefully, you might think that programming is
just typing statements in a programming language.
(Ward Cunningham)
Newsgroup: it.comp.lang.delphi
Titolo: !!MEMO!!

Ciao ragazzi...stavolta mi sono imbattuto in un problema che mi sembrava
idiota ma che non ho saputo risolvere lo stesso (sarň allo stesso livello
del problema? eh eh! :-) ).
Cmq...si tratta di questo....io c'ho una Memo in cui devo inibire la
pressione di certi tasti...mi spiego:
quando ad esempio in fase di runtime nella memo viene premuto il tasto di
BackSpace il cursore deve rimanere fermo lě e no cancellare niente...insomma
deve far finta che no sia stato premuto nulla....lo stesso dovrei fare con i
tasti direzionali (arrow keys, pagup, pagdwn, home, end)....mi sapete dare
una mano...(magari cosě mi derivo il componente dalla memo e me ne creo uno
"immune" alla pressione dei suddetti tasti...per il momento mi interessa
sapere come inibire la lo pressione)
Grazie ancora una volta e spero che mi possiate aiutare.
de...@inwind.it

fai un insieme di caratteri (o forse di word...) 
CaratteriDisabilitati [vk_delete,vk_down,....]
e quando viene premuto un tasto sul memo:
Memo.Onkeydown(...)
begin
 if key in CaratteriDisabilitati then Abort;
end;
dovrebbe funzionare...
Ciao
Alan
---
Questo servizio e' realizzato con Wappi della Virtex
Connetti ad internet il tuo telefonino: 
http://www.wappi.com/
--
Posted from [194.243.91.36] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Già ... forse la mia soluz. è un po' troppo intricata... 8)
Davide DG

 BackSpace il cursore deve rimanere fermo lě e no cancellare
niente...insomma
Ciao, penso tu possa farlo in diversi modi, te ne presento 2 :
1) Nell'evento onkeydown del memo puoi scrivere :
  if key=vk_back then TMemo(sender).Perform ( wm_char, $20,0)
 Questo significa che quando viene premuto il tasto backspace, tu gli
rimandi (al memo)
un carattere bianco ($20)
2) Intercettare i messaggi WM_CHAR e WM_KEYDOWN (subclassing di TMemo) :
In OnCreate rimpiazzi la windowproc del componente :
   Var {globale}
       MemoChain : TWndMethod;
Procedure OnCreate ... ;
begin
 memochain := memo1.WindowProc;
 memo1.WindowProc := memoproc; // definita piů sotto :
end;
procedure TForm1.MemoProc(var msg: tmessage);
begin
 If ((Msg.Msg = wm_keydown)or(Msg.Msg = wm_char)) then
    case msg.wparam of
         VK_BACK  : ;
         VK_PRIOR : ;
         VK_NEXT  : ;
         VK_END   : ;
         VK_HOME  : ;
         VK_LEFT  : ;
         VK_UP    : ;
         VK_RIGHT : ;
         VK_DOWN  : ;
     else memochain(msg);
    end
 else memochain(msg);
End;
Ok ? Ho provato e funziona. Se non capisci *cosa* fa questa procedura,
riscrivi pure... ora non ho moltissimo tempo !!
Ciao!!!    Davide DG
Newsgroup: it.comp.lang.delphi
Titolo: [Quasi OT] Domanda sulle licenze Delphi

Salve a tutti,
premetto che ho cercato in giro ma non ci ho capito molto...
Dunque, una piccola azienda con 2 programmatori vorrebbe acquistare 
Borland Delphi 2006 versione Enterptise. Ora dato che i programmatori 
sono due deve acquistare due copie di Delphi, una licenza supplementare 
(in questo caso dove) oppure basta una versione di Delphi e basta?
Grazie a tutti,
David

 basta una versione di Delphi e basta?
Si, basta una versione si Delphi.
Io ho D6 pro e non c'e' traccia di limitazioni in tal senso alla licenza di
utilizzo.
-- 
Morde. 
ICLDweb: 
http://www2.samatel.com/icld/

utilizzo.
Non ci giurerei ^^
Una volta, ai tempi di Turbo Pascal il concetto di licenza era
spiegato da Borlan tramite una metafora.
In pratica scrivevano: "Turbo pascal č come un libro, lo puoi leggere
tutte le volte che vuoi, lo puoi prestare, lo puoi regalare, ma un
libro resta: una sola persona alla volta lo puņ leggere".
Sono passati tanti anni, ma non credo che il concetto sia cambiato. 
Spero di sbagliarmi :)
-- 
Ore 18.30: premo invio.

 Spero di sbagliarmi :)
Devo ammettere che hai ragione :)
Cito dal file license.rtf, situato nella radice dell'inistallazione di
delphi:
"If you are an entity, Borland grants you the right to designate one
individual within your organization ("Named User") to have the right to use
the Software in the manner provided herein."
Quindi si parla di un singolo utente all'interno dell'azienda che ha
acquistato il prodotto.
E poi qui si arriva al punto citato dall'OP.:
"If you have purchased additional licenses from Borland or a Borland
authorized reseller, you may install and use the number of copies of the
Software up to the number of users,  CPU's, servers and/or at the sites
granted to you in writing by Borland ("Licensed Copies").
Se ne deduce che la risposta piu' appropriata per microges č che l'azienda
da due programmatori deve acquistare una copia di delphi e una licenza
d'uso supplementare.
Ciao!!!


 Si, basta una versione si Delphi.
Ho seri dubbi. ;-)
Occorre una licenza per singolo sviluppatore, as far as I know. :-|
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: Curiosita' mia su tfilestream...

Salve
Ma il TFileStream bufferizza automaticamente?
Mi spiego se nel codice ho qualcosa tipo:
mistream.write(miavar,4);
mistream.write(miavar1,4);
mistream.write(miavar2,4);
mistream.write(miavar3,4);
mistream.write(miavar4,4);
ecc.. dove le varie miavar sono dei longint...la scrittura su disco come
avviene?
Esattamente cosi' in sequenza oppure fa tutto assieme tipo un qualcosa come
miavar+miavar1+miavar2+miavar3+miavar4, 20
Si potrebbe ottimizzare?
grazie

 wrote:



dovrebbe far in sequenza, partendo dal puntatore alla posizione attuale nel
file. Nel caso di apertura di un file, il puntatore sta settato al primo
byte. Quindi lui scrive in sequenza i 4 byte di ogni variabile. Se dai
un'occhiata al codice della VCL, forse capisci cosa succede dietro anche se
poi mi pare che non fa nulla di particolare tranne l'uso delle api di
windows per scrivere su file.
Per ottimizzarla potresti rappresentare tutte le tue variabili da scrivere
su file tramite un record.
Quindi ci sarà una variabile globale che rappresenta il record. A questo
punto per scrivere su file tutto il record, basta richiamare il metodo write
una sola volta nel seguente modo:
mistream.write(variabile_record, SizeOf(Variabile_record));
e lui ti scrive tutto.
Stessa cosa per la lettura. Richiami il metodo read e fai la stessa
operazione.
L'importante è che ci azzecchi con il byte. Se il tuo file è formato da più
record, per leggerli correttamente la lettura deve iniziare dallo stesso
punto ( offset ) dove sono stati scritti. Se ti sfasi di un solo byte scrivi
una cosa e ne leggi un'altra.
Questo ovviamente accade anche con le normali variabili.
Poi fai uso della funzione SizeOf per conoscere la memoria occupata dalla
variabile da scrivere su file ( o da leggere ).
Ti saluto.....ciao !!
Antonio Tarolla

 wrote:

Stavo pensando questo:
se uno invece scrive su un tmemorystream e poi salva questo?
se il file e' di dimensioni piccole ci si guadagna in prestazioni no?
Che ne pensate?
Ciao
--------------------------------------------------
Brayan Fix Kirys Solfory
E-Mail: 
Ki...@technologist.com
 
For Free Software go to: 
http://Kiryssoft.cjb.net

 Che ne pensate?
si, anche se e' comunque preferibile la soluzione di Antonio:
eviti l'oerhead delle chiamate alle librerie e hai un codice
piu' pulito.
;-)

Newsgroup: it.comp.lang.delphi
Titolo: Intelligenza Artificiale

Qualcuno sa consigliarmi siti che trattano la teoria della I.A. (reti
neurali, fuzzy logic, ecc..)
Grazie.

neurali, fuzzy logic, ecc..)
su it.comp.ia hanno una faq con una buona bibliografia.
Ciao !