mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Cannot load an IDAPI service Library!!!!!!!!!

Salve a tutti....
In BDE Amministrator Quando creo un alias, tra le tante opportunità mi esce
quella di creare un alias di tipo MSACCESS.
Una volta creato faccio APPLY e mi esce il seguente messaggio di errore:
Cannot load an IDAPI service Library.
Concludendo chiedo, se ho sbagliato nella procedura oppure questo ho
sbagliato procedura.......
Ps. Uso Delphi 3

Ciao,
E' possibile che tu stia facendo tutto correttamente...infatti il messaggio
"Cannot load an IDAPI service Library." significa che non riesce a trovare
una libreria necessaria per il funzionamento.
Le ipotesi che mi vengono in mente sono 2,
1 - Devi caricare un'utilità che ti permetta di fare certe operazioni (un
po' come i Web Server per le CGI in locale)
2 - Il programma è stato installato in maniera non corretta.
Provale entrambe, mi spiace ma più di così non so dirti.
Ciao
--
- Carlo -
BSSoftware Tips Mailing-List Support


 Devi installare o al limite reinstallare gli oggetti DAO della Microsoft
Ciao Us

Reinstallare i componenti potrebbe essere un ottima idea.
Di solito quel problema a me si verifica quando tento di aprire il db access
da BDE o da un programma.
Se questo e' il tuo caso e' necessario che setti la giusta dll in
Configuration del BDE per il driver nativo Access, infatti ne esiste uno per
Access 95 e un'altro per Access 97 e di default e' impostato quello per
Access 95. Con questo Db ti consiglio poi di utilizzare dal BDE 5.01 in su
(nel caso non lo utilizzi già) per motivazioni di prestazioni.
Ciao.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                                         Massimo Murazzano
                            Dottore in Scienze dell'Informazione
LOGOSOFT Srl Via Molino di Carassone, 1 12084 MONDOVI` (Italy)
ISILINE Srl          Via Palazzo di Città, 42        12037 SALUZZO   (Italy)
Phone  +39 174 552423                      Fax  +39 174 555602
E-mail mailto:
m...@logosoft.it
       Home page: 
http://www.logosoft.it/
 
m...@isiline.it
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Newsgroup: it.comp.lang.delphi
Titolo: [FB] Funzioni Int, Round e Trunc

Ciao a tutti,
ho un problema con Firebird 1.5 dialect 1:
mi serve fare dei calcoli sul tempo e mi interessa estrapolare la parte 
decimale del tipo date, come faccio?
se vorrei fare una cosa del genere:
Considerando ATime:DATE
Select ATime, altre field
From Archive
Where ATime between Tinizio and TFine
Into MyATime, altre field
Grazie
P.

 decimale del tipo date, come faccio?
hai dato un'occhiata alle UDF più comuni?
libreria FREEUDFLIB:
  F_TRUNCATE(VALUE) 
truncates a floating point-value to an integer
libreria IB_UDF:
  FLOOR(VALUE)
returns a floating-point value representing the largest integer that is 
less than or equal to value
libreria FBUDF:
  TRUNCATE(VALUE)
truncates a fixed numeric type to the next lowest integer
libreria FBUDF:
  ROUND(VALUE)
rounds a fixed numeric number up or down to the nearest integer
-- 
Mauro Falzari 
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

> hai dato un'occhiata alle UDF piů comuni?
Grazie per aver risposto, non ho mai usato UDF, do un'occhiata.
Cercando ho visto che me li posso scrivere io stesso le funzioni che mi 
servono,
 (DLL con funzioni esportate stdCall)
Ciao
P.

Newsgroup: it.comp.lang.delphi
Titolo: Drag N Drop

Come realizzarlo?

 ha scritto nel messaggio
news:8ktk7f$1le$1...@nslave2.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Edit!

Ciao a tutti,
Se ho a disposizione un componente TEdit e un TButton in un programma, come
faccio ad esempio in una stessa procedura(ad esempio Tform1.Button1click...)
prima a chiedere di inserire un valore nell' edit,poi subito dopo leggerlo?.
Nelle console application  mi ricordo che si usava il comando read,ma nelle
applicazioni windows come si fa?.
Grazie!

 ha scritto nel messaggio
news:9t8oev$4of$1...@serv1.albacom.net...

Ehm, i casi sono 2
1) non ho capito molto bene
2) hai le idee un po' confuse
Il componente TEdit *serve* a chiedere all'utente di inserire un valore, che
poi puoi leggere nella sua proprietą .Text...
Jax

Newsgroup: it.comp.lang.delphi
Titolo: Problema funzione tp7-delphi5

Ciao a tutti.
Rompo le scatole raramente, perche' in genere trovo tutto su google.
Pero' non riesco a trovare soluzione a questo problema :
Prese le due seguenti funzioni :
-Su TP7-
Function UnitaFloppy ( etichetta : str12 ) : boolean;
var
   tabella   : searchRec;
begin
  findFirst ( 'A:\*.*', $08, tabella );
  if 
tabella.name
 = etichetta
    then unitaFloppy := VERO
    else unitaFloppy := FALSO;
end;
-Su Delphi-
Function UnitaFloppy ( etichetta : string ) : boolean;
var
   tabella   : TSearchRec;
begin
  findFirst ( 'A:\*.*', $00000008, tabella )
  if 
tabella.name
 = etichetta
    then unitaFloppy := true
    else unitaFloppy := false;
  findClose (tabella );
end;
Su TP7 legge l'etichetta sul floppy e riporta il valore di true se
l'etichetta richiesta corrisponde a quella sul disco.
La stessa funzione, adattata su Delphi, non funzia, cioe' mi legge il primo
file del disco e non la label.
Picche'???
Forse sono io che sono tonto, ma non riesco a capire il motivo.
Ciao a tutti e grazie per l'eventuale risposta.

 Picche'???
Credo che la FindFirst sia buggata, oppure non funziona in certi ambienti o con una certa
umidità, oppure non lo so :)
Lo dico perché prima di questo post credevo anch'io che la FindFirst leggesse anche la
Label... ma ho provato un esempio (per Delphi 1.0, in verità), preso direttamente dal sito
Borland e non funzia.
Allora ti posto, in barba ai copyright, lo spezzone di codice che usa il DriveComboBox per
leggere la Label:
function VolumeID(DriveChar: Char): string;
var
 NotUsed, VolFlags: DWORD;
 Buf: array [0..MAX_PATH] of Char;
begin
 try
  Buf[0] := #$00;
  if GetVolumeInformation(PChar(DriveChar + ':\'), Buf, DWORD(sizeof(Buf)),
   nil, NotUsed, VolFlags, nil, 0) then
   SetString(Result, Buf, StrLen(Buf))
  else Result := '';
  if DriveChar < 'a' then
   Result := AnsiUpperCaseFileName(Result)
  else
   Result := AnsiLowerCaseFileName(Result);
  finally
 end;
end;
Bye!
--
Jax

 function VolumeID(DriveChar: Char): string;
cut
Ciao e grazie mille!!!
Maurizio
Newsgroup: it.comp.lang.delphi
Titolo: consiglio

Salve ragazzi,
ho questo problema (e vorrei sottoporlo alla vostra attenzione):
ho creato un piccolo form (TForm) ad esso ho associato uno scrollbox
(TScrollbox). Sullo scrollbox, runtime, creo diversi componenti (per lo
piu' pannelli).
Avrei la necessità di disegnare una griglia che contenga questi
componenti. Utilizzo l'oggetto Canvas, ma esso si riferisce all'oggetto
TForm sottostante. Esiste un modo per rendere trasparenti lo scrollbox e
i pannelli ad esso appartenenti (cosicchè posso vedermi la mia
griglia...)
Grazie dell'attenzione.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:78773a3765afd0a8033...@mygate.mailgate.org...

Newsgroup: it.comp.lang.delphi
Titolo: caricare immagini





Salve amici vorrei sapere come caricare immagini in 
un ciclo for. In pratica posiziono un oggetto image sulla form che avrà un nome 
tipo image1 image2 etc ed io vorrei caricare nell'oggetto imagex 
attraverso


Picture.LoadFromFile un immagine x in un ciclo for 
del tipo 


 


for x  := i 1 to y


image(
x
) -è qui che 
non so come fare- .picture.loadfromfile('
x
.jpg');


grazie anticipatamente


Mimmo



 image(x) -=E8 qui che non so come fare- .picture.loadfromfile('x.jpg');
for i:=1 to Form.ComponentCount do
begin
  if ( Form.Component[i] as TImage ) then
  Timage( FindComponent( 'Image' + IntToStr( i ) ) ).Picture.LoadFromFile
( IntToStr( i ) + '.jpg' );
end;
Non l'ho testato ma dovrebbe andare!
in pratica fai un ciclo su tutti gli oggetti sulla form, quando trovi un 
Timage carichi l'immagine da file!
spero di averti aiutato.
Diego
--- posted by geoForum on 
http://www.delphiedintorni.it

Diego
	Ciao
	MassimoB
 
---------------------------------
http://www.massimobeschi.it/
---------------------------------
Se tu pagare come dici tu ...
Io lavorare come dico io ...
Se tu pagare come dico io ...
Io lavorare come dici tu ...
---------------------------------

 ha scritto nel messaggio
news:Zb3he.150621$%I2.3...@tornado.fastwebnet.it...


giorgio padoan


 ha 
  scritto nel messaggio 
news:aR2he.891765$b5.39...@news3.tin.it
...


 ha scritto nel messaggio 
news:lAkhe.151983$%I2.5...@tornado.fastwebnet.it...

Newsgroup: it.comp.lang.delphi
Titolo: Clonare una ADOQuery in una ADOTable

Salve, devo clonare il contenuto di una ADOQuery in una ADOTable, ma il 
metodo Clone ( (clone(AdoTable1.Clone(AdoQuery1); )
mi restituisce un'eccezione. Come fare?
Preciso che entrami i componenti ADO sono correttamente attivati (e la 
sorgente piena di dati).
Altro quesito: dato che l'obiettivo č appunto copiare i dati di una 
tabella in un altra, quando entrambe sono memorizzate all'interno di un 
mdb, ho provato anche la soluzione 'select into' tramite ADOCommand. 
Nessun errore ma, seppure la tabella di destinazione viene correttamente 
creata, non viene riempita! Se eseguo le stesse righe sql dall'interno 
di access, invece, tutto funziona... Ho provato ad utilizzare una 
ADOQuery al posto dell'ADOCommand ma mi da errore.
Il codice sql č il seguente:
select * into z_erogazione_beneficiari
from r_erogazione_beneficiari
Sbaglio qualcosa?
Grazie mille!
Daniele

 Ho provato ad utilizzare una ADOQuery al posto dell'ADOCommand ma mi da errore.
Solo un utente finale scrive su un ng di sviluppatori che "ha un
errore" senza indicare il tipo di errore.
AS

 Sai, questo è un ng di sviluppatori e non di utonti finali...
Chiedo venia, la fretta...
Dunque, l'eccezione è di tipo EAccessViolation with message 'Access 
violation at address 004etc in module SC06.exe'. Read of address 00000000.
L'errore dato dalla ADOQuery tentando di fare una select into invece 
l'ho capito ora: l'ADOQuery non può fare inserimenti... Se ricordo bene 
era un errore di tipo 'Errore nel parsing dell'SQL' o roba simile (è una 
parte di codice che ho già cestinato). Resta il mistero del perchè 
l'ADOCommand funziona ma non inserisce nulla...

 Resta il mistero del perchè ADOCommand funziona ma non inserisce nulla...
Prova a eseguire due passaggi: prima crei la tabella e poi la popoli.
Giusto x vedere se cosi funziona.
Access fa un po di cose strane...Se lo usi "da dentro" non riesci a
capire cosa viene effettivamente eseguito dal DATABASE e cosa
dall'AMBIENTE.
AS
Newsgroup: it.comp.lang.delphi
Titolo: Confrontare 2 sorgenti...

Ohi Ohi...ho fatto qualcosa di sbagliato ma non so che cosa e vorrei trovare
l'errore.
Mi Spiego: ho modificato i sorgenti di un tool (query tool) adattandolo alle
mie esigenze, la cosa è risultata pesantuccia perchè
a) non li ho scritti io
b) sono nidificati tra di loro da far paura.
A lavoro concluso in fase di test scopro che c'è qualcosa che non funziona
ed è un guaio
perchè non ricordo + le piccole modifichette fatte.
Ecco la domanda: C'è qualche programmino in giro che mi consenta di mettere
a confronto 2 sorgenti per ricavare le differenze che ci sono tra i 2?
Se riuscite a darmi una risposta sarò molto felice!
Grazie comunque
Paola

Paola (
pao...@libero.it
) wrote:
[CUT]
Non conosco tool di questo tipo però se per "sorgenti di un tool" intendi 
un solo file è semplicissimo: usi un editor di testo qualsiasi che faccia 
il confronto tra file (per esempio ultraedit).
Se sono diversi file ripeti l'operazione file per file.
Non è il massimo però se non hai completamente stravolto l'originale 
dovrebbe andare.
-- 
Una volta che avete conosciuto il volo, camminerete sulla Terra guardando 
il cielo, perché là siete stati e là desiderate tornare (Leonardo da Vinci)

fc da finestra command di win2000
Bye
A


Se hai VisualStudio, c'e' un programma che si chiama WinDiff che fa il
tuo caso.
Ciao.
-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"

Grazie a tutti!
comincia il lavoro da certosino!
Ciao
Paola

 Ciao.
Sta anche sul CD di Windows 98 - cartella "Reskit", se non sbaglio :-)
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Davide Guida
davide...@inwind.it
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

 tuo caso.
WinDiff si trova anche liberamente su internet. non c'č per forza bisogno di
VS.
Ciao fabrizio

 tra i 2?
Beyond Compare!
Ciao :-)
--
Andrea /\/\agni
ICQ#: 174108000

Compare It!
http://www.grigsoft.com/wincmp3.htm
Newsgroup: it.comp.lang.delphi
Titolo: Verificare indirizzo

con NMSMTP di fastenet c'era una funzione booleana : verify che acceta come
parametro una stringa e restituisce un booleano, con indy questa funzione
restituisce una stringa, o provato a utilizzarla ma niente.
Mi fate un esempio del suo utilizzo?
Io ci ho provato ma non capisco cosa sbaglio cioč mi connetto e provo la
verifica :
IdSMTP1.Connect;
ShowMessage(IdSMTP1.Verify(indi...@server.xxx));

 niente. 
Il protocollo SMTP prevede un comando chiamato VRFY che permette di
verificare l'esistenza di un indirizzo email sul server a cui si e'
connessi. A parte il fatto che oramai viene diasabilitato in tutti i
server di posta per evitare lo spamming ed il mail grabbing,
l'indirizzo email DEVE "appartenere" a quel server, ossia il campo MX
del dominio dell'email DEVE essere lo stesso a cui ci si connette per
fare la verifica, altrimenti non funziona.
Es.
per una indirizzo email 
pi...@libero.it
 e' necessario connettersi a
mail.libero.it
 altrimenti non funziona.
-- 
I'am what I'am, I do what I can

 fare la verifica, altrimenti non funziona.
In pratica non mi conviene fare una cosa del genere.
Sarebbe stato comodo poter verificare l'esistenza di un indirizzo prima di
inviare il messaggio, ma se le cose stanno cosi allora ci rinuncio.
Grazie.

 rinuncio.  
La verifica degli indirizzi email puo' essere fatta in un altro modo,
ma risulta essere relativamente complessa.


 ha scritto nel messaggio
news:G3_yb.157563$vO5.6...@twister1.libero.it...

Il protocollo SMTP prevedeva il controllo dell'esistenza dell'email sul
server che risponde.
Poi grazie al cielo è una opzione disabilitata perchè altrimenti gli
spammers brinderebbero più di quanto sono lo fanno già... ;)
Ciao
Matteo

Newsgroup: it.comp.lang.delphi
Titolo: Errore????

Ciao, avrei bisogno di un aiuto, quando lancio in esecuzione il mio
programma, mi da questo errore:    "Project rubric.exe raised exception
class EAccesViolation with message..." poi riclicco RUN e un'altro errore
"Access violation at..." poi do OK e il programma parte senza alcun
problema. Come faccio a risolverlo? Vi serve il listato?
Ciao e grazie.
P.S. Potreste indicarmi qualche sito che spieghi come stampare in DELPHI?

 ha scritto nel messaggio
news:_B4U6.1107$634....@news.infostrada.it...


 P.S. Potreste indicarmi qualche sito che spieghi come stampare in DELPHI?
Sul Repository di Cantů trovi una classettina bella e pronta per la stampa
in modo testo fatta da me.
Andrea
Newsgroup: it.comp.lang.delphi
Titolo: traduzione da Delphi a VB

Ciao a tutti,
non mi intendo di delphi, ma vorrei trascrivere un semplicissimo
programma da delphi in vb, non riesco a tradurre una chiamata
ad una sub contenuta in una dll che riporto:
...........
STREAMREADER_API BOOL SetFilter(WORD pid,void* lpFunc,
DWORD CallBackType, DWORD size, DWORD *lpfilter_num);
...........
l'esempiodi utilizzo della stessa è questo:
SetFilter(17,&YourCallBack,2,2,&filter_num);  the "&" is important,
if you don't write it, it'll make you mad!
............
in particolare non capisco l'utilizzo della &
Carlo


    Via De Gasperi, 14 - 42019
    Scandiano (Reggio Emilia)

 ha scritto nel messaggio
news:Z63za.132049$3M4.2...@news1.tin.it...


 ha scritto nel messaggio
news:5n1za.221843$K35.5...@news2.tin.it...

Anche se Delphi non è, credo comunque che la & sia l'operatore "puntatore"
col quale riesci a passare non la tua routine di call-back ma il suo
indirizzo e la stessa cosa per il filtro...  mi sovviene un dubbio: sai
implementare una routine di call-back? Se la risposta e' no devi studiarti
un po' di API di Windows...
Ciao, Vittorio

scusate per l'errore, pensavo fosse delphi,
ovviamente devo passare l'handle e
sono capace di farlo...
...ma non funziona
Grazie mille comunque,
Carlo

insieme a vb6 veniva fornito un tool che permetteva la generazione dei
prototipi delle api di windows adatti a vb.
Cerca un  po nella guida anche BYVAL e BYREF.
Dove vedi l'asterisco, il c intende il passaggio di un puntatore: li metti
BYREF.
Gli altri potrebbero essere BYVAL.
La & del c dovrebbe corrispondere al @ di delphi.
Bye
A

Newsgroup: it.comp.lang.delphi
Titolo: rave esp. in pdf non usa i caratteri giusti

Ciao a tutti,
ho usato il rave 5.0 BEX di Delphi 7 per esportare un report in pdf.
Ho anche installato un carattere true type (KristenITC) che non è 
presente in WinXP Pro Sp2.
Producendo un'antemprima del report e una successiva stampa il carattere 
viene utilizzato, ma se si esporta il report in pdf o dalla preview o da 
codice utilizzando l'apposito componente, il pdf generato include il 
carattere ma usa solo l'arial o l'elvetica.
Qualcuno ha incontrato il problema e la risolto ?
Ho provato diverse impostazioni dei componente RvRenderPdf ma senza 
ottenere nessun risultato. Cioè:
tutti i tipi di codifica
includere escludere i font
senza o con compressione
Daniele

prova a creare un pfd con quel font usando uno dei tanti prodotti 
shareware, giusto x fare un test e vedi se in quel caso il pdf contiene 
il font da te utilizzato.
Se esce, potrebbe essere un limite del componente.
Se non esce forse il font non è "digeribile"..
A.

alberto salvati ha scritto:

Grazie non avevo pensato a questa verifica....
se risolvo faccio sapere...
Newsgroup: it.comp.lang.delphi
Titolo: ADOXCatalog dove sta?

Ciao,
sto cercando di creare un db access vuoto da codice. Ho trovato della
documentazione che fa pero' riferimento al componente activex ADOXCatalog
che io non trovo.
Ho Delphi 5 e nella palette ActiveX , ADOXCatalog  non c'e'. Ho provato
anche con "Import activeX" mo non riesco a trovarlo. Potete aiutarmi?
Ciao

 anche con "Import activeX" mo non riesco a trovarlo. Potete aiutarmi?
Hai cercato nella component list?
Bye
AS
"Se è Microsoft non funziona"
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:1b79dbd2f8af2fa088...@mygate.mailgate.org...


Non lo cercare più.... non lo troveresti.
La libreria ADOX non è presente nella component pallet di Delphi. Devi
importarla tu a mano. La cosa è in realtà piuttosto semplice. Devi
importarla come type library, cerca la ADOX.dll.

Newsgroup: it.comp.lang.delphi
Titolo: Delay di 1 ms

Salve,
siccome devo leggere dei dati da un hardware esterno collegato alla porta
parallela una volta ogni millisecondo mi servirebbe una procedura in grado
di garantirmi (o quasi) un delay di 1 ms.
So che in un ambiente multitasking questo è quasi impossibile senza un
driver apposito... ma ugualmente... vorrei sapere se qualcuno conosce un
modo per ottenere *circa* 1 ms di delay.
Ho provato con GetTickCount... ma ho visto che la massima precisione
ottenibile è di 10 ms.
Qualcuno sa suggerirmi un metodo alternativo? Vanno bene anche procedure
scritte direttamente in assembly.
Grazie,
   Luca

Prova con
Sleep(nMillisecondi);

 Sleep(nMillisecondi);
Sleep() con un valore inferiore di 20 č uguale a scrivere Sleep(20), poichč
il tempo minimo di CPU che lo scheduler assegna ad un processo.
--
- Carlo -
cbertu81(at)libero(dot)it

 scritte direttamente in assembly.
esistono due funzioni create per i contatori ad alta precisione:
QueryPerformanceFrequency() e QueryPerformanceCounter().
In alternativa puoi utilizzare l'istruzione Assembly RDTSC (Read Time Stamp
Counter) che viene incrementata ad ogni ciclo di clock della CPU.
Prima di avviare la tua procedura potresti leggere il TSC con un Delay di 1
secondo in modo da ottenere in maniera precisa il clock della CPU sulla
quale l'applicazione sta girando, successivamente scrivi una procedura che
aspetta che il valore del TSC si sia incrementato di (Clock / 1000 *
millisecondi del delay) unità.
Una nota: QueryPerformanceFrequency() e QueryPerformanceCounter() non fanno
altro che utilizzare internamente RDTSC, ma questa istruzione è presente
solo nelle CPU di classe Pentium o superiore (l'equivalente AMD credo che
sia il K5 o il K6).


 sia il K5 o il K6).
Grazie, sembra proprio quello che mi serve.
Bye,
   Luca
Newsgroup: it.comp.lang.delphi
Titolo: Repost [DBGRID]

Scusate il repost, ma fino ad oggi non sono riuscito a risolvere il problema
che avevo esposto qualche giorno fa di cui riporto il testo integrale:
....start....
Sto cercando possibilmente Freeware un componente DBGrid Multilevel.
Forse e' meglio che chiarisca, avete presente M$ Access ?? Dopo aver
stabilito una relazione nella dbgrid compaiono tutti i record correlati, ed
io cerco una cosa simile
....end....
Grazie
Michele

io cerco una cosa simile
Spegati meglio, non riesco a capire....
Morde

 Michele
Ciao, Antò.

 Morde
Spero di riuscire adesso:
Tabella1 (contiene tutti i clienti)
Tabella2 (contiene gli ordini)
In access se queste due tabelle fossero collegate da una relazione che
comprende anche l'integrita refereziale, aprendo la tabella dei clienti
troveresti per ogni record della tabella clienti tutti i record della
tabella ordini (correlati al cliente del record corrente) collegati in una
Dbgrid "appesa" al record della tabella clienti.
Eventualmente se posso permettermi potrei inviarti uno screenshot via mail
(si dice un'immagine vale 1000 parole).
Grazie
Michele

 il link di una a pagamento
Grazie Anto'
Michele

 Morde
In pratica vuole ottenere lo stesso risultato che si ottiene con la M$ Flex
Grid.
Andrea

Dbgrid "appesa" al record della tabella clienti.
ok, credo che una cosa simile si torvi nei decision cube, decision grid: ho
bighellonato per google e credo di aver capito questo.
Di piu' non saprei che dirti, per qeusto tipo di relazioni ho sempre
disposte le due griglie separatamente sul form.
Ciao
Morde

 
http://www.woll2woll.com/infopower/
Le ho provate e devo dire che sono fantastiche !!!
In pochi clik del mouse ho realizzato la Grid dei miei sogni.
Grazie !!!!
Michele

 bighellonato per google e credo di aver capito questo.
Ho bighellonato anche io per google ma non ho trovato nemmeno il sito delle
Decisione Cube :-(
Se mi passi il link ne sarei felice :-)
Grazie
Michele

Se mi passi il link ne sarei felice :-)
Sono componenti che trovi nelle versioni enterprise di delphi....
Cioa
Morde

 Sono componenti che trovi nelle versioni enterprise di delphi....
Ho la Professional :-(
Grazie comunque

Ho la Professional :-(
Anche io, ma me la cavo anche senza i cubi decisionali...
Chi fa da se'... :-)
Morde

[CUT]
Ma se crei una query ad Hoc ?????
Select * from clienti, ordini where clienti.codice=ordini.id_cliente......
Una cavolata ma io lo faccio cosě e funzia alla grande, ovvio questa č una
riga ma l'idea č questa...
--
Simone
Honda S2000 driver Blu/black 240cv
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.419 / Virus Database: 235 - Release Date: 13/11/2002
Newsgroup: it.comp.lang.delphi
Titolo: problema con background

salve a tutti....
avrei bisogno di una mano per risolvere una questione dove non riesco a
dargliene fuori..
devo fare un programma che mi entri possibilmente come servizio in windows
2000 (cmq non è necessario) e che in background continui a eseguire una
query su un database per vedere se qualche dato è stato modificato.
Per fare ciò avevo pensato di fare un loop ma questo mi ruba tutta la cpu ed
è improponibile visto che deve girare su un server. Avevo pensato di mettere
il loop su OnIdle ma anke questo mi porta la cpu a lavorare sempre al
massimo. Allora ho messo nel loop anke il metodo application.postmessage per
ritardare ma ad intervalli la cpu lavora sempre al cento per cento. Vorrei
sapere se avete un algoritmo migliore e come si fa a risolvere questo
problema in modo che la cpu non vada sotto sforzo (forse i thread??) grazie
a tutti
ciao

 ha scritto nel messaggio
news:8bw89.82962$lu5.2...@twister1.libero.it...


intendevo usare mysql ma per timer cosa intendi una cosa tipo sleep(ecc..) o
qualcosa che mi permetta di usare il programma finchè aspetta di ripetere la
query??
"AleZen" <azen...@PATTUMEinwind.it> ha scritto nel messaggio
news:CBw89.80710$n04.2...@twister2.libero.it...


 query??
Un timer è un componente che puoi integrare nei tuoi progetti e che trovi in
alto dove ci sono pulsanti, caselle di testo, ecc. ecc.
Questo componente permette di eseguire il codice che tu vuoi a intervalli
più o meno regolari di tempo. Cioè settando, ad esempio, a 150 millisecondi
il timer, lui OGNI 150 millisecondi eseguirà il codice da te scritto,
lasciando la CPU libera nei restanti 850 millisecondi.
Sì capàit? :p

 ha scritto nel messaggio
news:FxG89.84188$lu5.2...@twister1.libero.it...


Newsgroup: it.comp.lang.delphi
Titolo: Riordinare Tabsheet

Ciao a tutti io ho una form dove ho messo dei tabsheet, vorrei cambiargli
l'ordine, qualcuno mi sa dire come posso fare?
Grazie 1000
--
Lorenzo Mendini Iz2FOS
ICQ: 26993628 (Ayrton)
http://assradiopolopositivo.interfree.it
 (Home Page)


Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)
Newsgroup: it.comp.lang.delphi
Titolo: Delphi PHP 1.0 - oggetto Image

sto provando a fare qualcosa,
creo un form con Image , Label e Button
a design time settando le proprieta'
ImageSourxe di Image e Caption di Label, vedo le variazioni
bel Button dewl Form , nell'vento OnClick vorrei associare
il caricamento di una nuova immagine.
        //Class definition
        class Unit1 extends Page
        {
               public $Image1 = null;
               public $Button2 = null;
               public $Button1 = null;
               public $Label1 = null;
               public $MainMenu1 = null;
               function Button1Click($sender, $params)
               {
               $Image1.setImageSource = '<.... path ....>'
- noto che non l'Ide e' sensibile al contesto, se immetto
  Image1->  non vedo i metodi.
provo a settare la proprieta' ImageSource
$Image1->ImageSource = "< path immagine >";
$Label2->setCaption = $Image1->getImageSource;
pur eseguendo il codice non visualizza le variazioni, al momento non ho
trovato un metodo simile al Refresh, credo possa essere il motivo del
non aggiornamento della pagina.

 [...]
ho risolto utiliizando il suffisso $this prima del nome oggetto
cosi $this->Image1  espone i metodi di quell'oggetto e
$this->Image1->ImageSource = <path> assegna l'immagine

Newsgroup: it.comp.lang.delphi
Titolo: Come registrare il database.

Ciao a tutti... sto creando un applicazione con un database in locale.
Vorrei implementare una procedura che permetta, alla prima esecuzione
del programma di creare il database (fatto), di creare un server locale
in Interbase e di registrare il mio database? Qualcusa sà come fare?
Grazie anticipatamente.
Giorgio

)
  "File deletion is murder..." (Futurama)

Newsgroup: it.comp.lang.delphi
Titolo: Ancora SMIAU

in rif al mio post precedente...... penso di andarci di lunedě

 in rif al mio post precedente...... penso di andarci di lunedě
Io ci andavo di lunedě... poi ho capito che, dopo ore e ore di
camminare, il giorno dopo ero distrutto, allora era meglio essere
distrutti di sabato che di martedě :)
--
Jax

C'hai raggione (apparte il fatto che io sono un gran camminatore :)) ) perň
venerdě proprio non posso... il sabato e la domenica proprio li escludo a
priori e non mi rimane che il lunedě....... e dai andiamo di lunedě :)))

Rispondo a David Marcucci che ha scritto:

Io ormai ho deciso, e anche la mia ragazza... sorry :(
--
Jax

 e dai andiamo di lunedě :)))
Evvediamoci lunedě! :-)
Solo che dovrei essere la con mezzo mondo ... sicuramente almeno 3 compagni
dell'univ, forse qualche amico esterno e poi altra gente ...  :-)
Mi potrei scomporre, visto che intero sono circa 2 esseri umani! Non dirmi
che sali da Firenze da solo ...
Ciao!
--
- Carlo -

io ero indeciso da venerdi e lunedi.
A questo punto se tutti i "threader" di questo ng si materializzano allo
smau lunedi, vada lunedi anche x me.
Cosi forse vedrete dal vivo la mia brutta faccia.
A.

Newsgroup: it.comp.lang.delphi
Titolo: Timeout socket

Ciao
Qualcuno sa come si imposta il timeout di connessione di un socket client in
Win32?
Non riesco a trovare il modo di cambiare le impostazioni di default.
Grazie
Ciao
GG

...

Newsgroup: it.comp.lang.delphi
Titolo: JBuilder activation file

ho scaricato dal sito della Borland la versione trial di Jbuilder, loro
mi hanno inviato una mail con l'activation File che però risulta
illeggibile. Qualcuno di voi se per caso ne dispone potrebbe mandarmelo?
Grazie mille. Il file si chiama reg425.txt
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie mille. Il file si chiama reg425.txt
Quel file č personale ed č associato al tuo account sul sito borland se non
erro.
Perchč comunque la trial quando la personal č piů che accettabile ed č free?
Antonio
Newsgroup: it.comp.lang.delphi
Titolo: muovere componenti

sapete come si puo' fare per mouvere i controlli, come fa l'IDE e magari 
ridimensionarli (con il mouse).
ciao
-- 
-------------------------------
Per rispondere in privato togliere 1975
Using M2, Opera's revolutionary e-mail client: 
http://www.opera.com/m2/

 ridimensionarli (con il mouse).
Ne avevo discusso a suo tempo con altri ragazzi del gruppo e non si era mai
trovata una soluzione valida. Si poteva giocare con DragKind e DragMode dei
componenti interessati però il risultato era la comparsa di una finestrella
alquanto fastidiosa. L'unica idea che avevo era quella di giocare con i
componenti sugli eventi mouse down, mouse up e mouse move: in pratica
ricalcolare le coordinate quando il mouse era premuto su questi. Funzionante
ma fastidioso riscrivere il codice per ogni componente. Sulla base di questa
idea ho successivamente ridefinito il metodo OnMessage di TApplication: un
piccolo sunto (decisamente migliorabile) del mio lavoro lo ottieni da questo
spezzone di codice. Riassegna TApplication.OnMessage() al metodo
newOnMessage() e a questo punto i componenti dovrebbero essere "spostabili"
con il tasto destro premuto.
procedure TForm1.newOnMessage(var posted_msg: TMsg; var Handled: boolean);
var omouse_pos, nmouse_pos: TPoint;
    _control: TControl;
    _component: TComponent;
    reduce_flickering: Integer;
    i: Integer;
begin
  if (posted_msg.message = WM_MOUSEMOVE) and
     (posted_msg.Hwnd <> form1.Handle) then begin
         GetCursorPos(omouse_pos);
         omouse_pos := Form1.ScreenToClient(omouse_pos);
         _control := Form1.ControlAtPos(omouse_pos, false, true);
         if (_control <> nil) then begin
             _control.BringToFront;
             while (GetAsyncKeyState(VK_RBUTTON)<0) do
             begin
                 Inc(reduce_flickering);
                 if ((reduce_flickering mod 3) = 0) then begin
                      GetCursorPos(nmouse_pos);
                      nmouse_pos := Form1.ScreenToClient(nmouse_pos);
                      _control.Left := omouse_pos.x -
LoWord(posted_msg.lparam) + (nmouse_pos.x - omouse_pos.x);
                      _control.top  := omouse_pos.y -
HiWord(posted_msg.lparam) + (nmouse_pos.y - omouse_pos.y);
                 end;
            end;
         end;
  end
end;
--
- Carlo -

ridimensionarli (con il mouse).
Se n'è parlato tante volte, ci sono diversi metodi (alcuni basati su
SetCapture/ReleaseCapture).  
Ad esempio, una breve ricerca mi ha portato a questo:
http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20240482.html
-- 
Andrea Laforgia
"God is dead." -- Nietzsche
"Nietzsche is dead." -- God


Ringrazio tutte e due, sto optando per la soluzione di Andrea, che ho 
modificato in alcuni punti, poi la pubblichero' su internet appena la 
finisco (tempo prmettendo).

Newsgroup: it.comp.lang.delphi
Titolo: funzioni esterne in dll

ciao ,qualcuno puo tradurmi in delphi questo codice? ho un devo creare una
dll che chiama un funzione in una dll:
// nella dll - registra una funzione da richiamare
__declspec(dllexport) BOOL registraFunzione(void (*ptr)())
{
ptr();
}
// nel programma exe
void miaFunzione()
{
std::cout<<"Ciao mondo" << std::endl;
}
.... nel main
registraFunzione(miaFunzione)
ciao
giuseppe
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 creare una dll che chiama un funzione in una dll:
Veramente quella è l'implementazione C di una callback: passi il "puntatore
ad una funzione(in questo caso miaFunzione)" ad una funzione (in questo caso
la registraFunzione) e poi da qualche altra parte nel codice miaFunzione
verrà chiamata "dall'altro lato" del flusso di esecuzione (leggi: se
miaFunzione è definita nell'eseguibile, verrà chiamata da del codice nella
dll...)
Almeno questo è l'uso comune. Tu devi implementare miaFunzione che verrà
passata ad una dll scritta in C o vuoi riprodurre tutto in pascal?
HTH,
--
Andrea /\/\agni
ICQ#: 174108000

 ICQ#: 174108000
si dovrei scrivere tutto in delphi


 si dovrei scrivere tutto in delphi
Per favore, il quoting...
Nell'eseguibile:
procedure registraFunzione(aCallback: TProcedure); external 'nomeDLL.dll';
procedure Funzione();
begin
  MessageBox(0, 'Sono stato chiamata!', 'Callback', MB_OK);
end;
e chiamerai la registraFunzione cosě:
  registraFunzione(Funzione);
nella DLL:
procedure registraFunzione(aCallback: TProcedure);
begin
  aCallBack();
end;
exports
  registraFunzione;
Se ti viene dato "Undeclared identifier" su TProcedure dovrai aggiungere la
unit SysUtils.


Newsgroup: it.comp.lang.delphi
Titolo: driver o applicazione in delphi?

Ho un apparecchio che collego al pc via usb, il driver datomi dalla casa
madre mi installa l'apparecchio ma
io avrei la necessità di vederlo in risorse del computer come se fosse
un disco dove copiare dati.
Ora per fare ciò devo farmi un driver mio quindi usare c++ oppure
potermi costruire una applicazione in delphi?
Se basta costruire un'applicaizone in delphi come posso fare vedere la
periferica come se fosse un disco?
Grazie a tutti.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 un disco dove copiare dati.
[cut]
Che tipo di apparecchio sarebbe?
-- 
I'am what I'am, I do what I can

 Che tipo di apparecchio sarebbe?
-- 


 è una specie di dcc.
E che cosa sarebbe un "dcc"?


 E che cosa sarebbe un "dcc"?
-- 


 č tipo un floppydisc
Ok, hai qualche riferimento dell'azienda produttrice, esiste un SDK, altrimenti e' una impresa quasi impossibile.

Newsgroup: it.comp.lang.delphi
Titolo: help su ftp

Salve a tutti,
il mio problema forse sarà stato già discusso, ma non ho trovato soluzioni.
Ho usato NMFTP per eseguire trasferimento di file,
tutto ok con il pc connesso in rete,
ma se la rete non è connessa  (modem 56k o adsl)  e la connessione non è
attiva, il programma si blocca.
DOMANDE:
1) come si controlla se la connessione è attiva ?
2) come faccio a far saltar fuori la schermata della connessione ??
Grazie in anticipo per l'aiuto.

 2) come faccio a far saltar fuori la schermata della connessione ??
come sopra.
A

Newsgroup: it.comp.lang.delphi
Titolo: Attendere la fine dell'esecuzione di una applicazione console (di nuovo)

Salve a tutti,
    anch'io mi sono imbattuto nel problema di chiudere una applicazione DOS
dopo che essa è terminata. Premesso che creo l'applicazione tramite la
CreateProcess e che quindi posseggo l'handle al processo, avevo pensato che
la WaitForSingleObject mi notificasse la fine del processo stesso, in realtà
quest'ultima si accorge che il processo è finito solo quando io premo sulla
X di chiusura dell'applicazione console.
    In pratica il mio problema è "sentire" quando l'applicazione finisce...
Qualcuno sa indicarmi come?!?
    Grazie in anticipo!
______________________________________
Gian Luca Dalla Torre
E - Mail: 
gianluca....@casteo.net
______________________________________

 Qualcuno sa indicarmi come?!?
Ciao. Premesso che non ho mai avuto sto tipo di problema e quindi forse sto
per sparare una ...***... :)
Io userei un timer (CreateTimer, KillTimer) nel quale controllo se l'handle
del processo è ancora valido
o altre cose simili. Comunque mi pare che A.Magni avesse suggerito la
MsgWaitForMultipleObjects ... che
peraltro non ho mai usato.
Ciao! Davide DG
Newsgroup: it.comp.lang.delphi
Titolo: Piccolo aiuto per principiante

 procedure AppIdle(Sender: TObject ; var Done: Boolean);
Le variabili sono nella dichiarazioni della procedure invece che dopo 
come nel caso scritto prima?
Grazie a tutti!
Ciao!
Inviato da 
www.mynewsgate.net

 come nel caso scritto prima?
Prima erano *dichiarazioni di variabili* aventi scope locale.
Ricorda che in delphi, a differenza del c, non esiste lo scope a livello 
di "blocco" ma solo a livello di metodo. Ad esempio, una cosa del tipo:
function DoCoffeBreak: integer;
var
   MyVa1: integer;
begin
   if Qualcosa then
   begin
*     MyVal2: integer; *
      ...
non è ammessa.
La seconda indica dei *parametri* passati al metodo.
lo statement "var" indica che il parametro è passato per riferimento e 
non per valore,ovvero, puo essere modificato dal metodo che lo riceve.
usando "const" al posto di var, il parametro è passato per valore e non 
puo essere modificato dal metodo che lo riceve.
-- 
Alberto Salvati
A *Neapolitan* delphi developer who is studing c# & .Net
"Dicette 'o pappece 'nfaccia 'a noce dammi 'o tiempo che pure te spertoso!"

 Il "(Sender: TObject)" cosa significa?
Delphi usa il concetto della delegazione. Questo significa che l'evento
OnClick del pulsante non appartiene ad esso ma alla form che è owner
(ha la responsabilità della sua distruzione) del TButton stesso.
Ovviamente, nel caso in cui tu avessi bisogno di capire da quale
pulsante è stato generato l'evento devi usare il parametro Sender (vedi
il post di Alberto).
Ciao
Antonio

Il "(Sender: TObject)" cosa significa?
La gestione delle finestre avviene per eventi: cio' significa che il parametro
sender sara' sempre presente in tutti gli eventi trattati dal programma.
Il sender ovviamente e' il componente che ha scatenato l'evento in questione,
e ti viene passato come tobject che, essendo il capostipite della catena
ereditaria (ancestor) ti permette con un downcast oppurtuno di interrogare
l'oggetto in questione.
Nel caso del click di un bottone, il Sender e' il bottone stesso che ha
scatenato l'evento. (vedi Salvati's post)
Ma se vuoi sfruttare appieno il delegation model di cui parla il (mitico)
Gaustatore, puoi invocare un qualsiasi evento del form e passargli come sender
un qualsiasi discentende di tobject.
Ad esempio, io ho un tedit con di fianco un tbutton che fa il browse di una
tabella: mi e' stato chiesto di dare al tedit la facolta' di fare anch'esso il
browse se si preme il tasto funzione F10.
Applicando il delegation model io posso invocare l'evento del click del
bottone di browse, ed il sender a questo punto sara'il tedit stesso.
procedure TfrmMain.edArticoloKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_F10) then btBrowseArticoloClick(edArticolo);
end;
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 il post di Alberto).
Grazie mille sia a te che ad Alberto. :)
Inviato da 
www.mynewsgate.net
Newsgroup: it.comp.lang.delphi
Titolo: ShareMem & VisualBasic

Ciao A tutti,
ho avuto un problema, che ora credo di aver risolto, usando una DLL
che conteneva la sharemem nella sezione uses (fra l'altro
inutilmente...).
L'applicazione è scritta in Visual Basic 6.0 e la DLL in delphi 6. Il
problema era che in chiusura dell'applicazione veniva generata una
Exception. Questo anche remmando completamente le funzioni esportate
della DLL lasciandone solo i prototipi per poterle chiamare. Il
problema l'ho risolto ma non ho capito perchè succede, qualcuno sa
qualcosa o comunque sa dove reperire informazioni in merito?
Grazie,
Paolo

 ha scritto nel messaggio
news:4f39271b.0405...@posting.google.com...


Newsgroup: it.comp.lang.delphi
Titolo: Prg in rete

Ho realizzato un programma da utilizzare in rete TCP/IP, utilizza tabelle
Pdox con BDE.
Volevo chiedere due cose:
- come fare per mandare piccoli messaggi di testo fra i terminali?
- come faccio a sapere chi sta utilizzando il mio programma nella rete?
(utile se devo spegnere per manutenzione il "server" sul cui HD sono
memorizzate le tabelle condivise).
Grazie
Franco

 - come faccio a sapere chi sta utilizzando il mio programma nella rete?
Non paradox non so.
Un db client/server ha in genere una tabella di sistema che
puo'essere interrogata x ottnere questa informazione.
Bye
AS
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 - come faccio a sapere chi sta utilizzando il mio programma nella rete?
Da BDE puoi ottenere informazioni su quanti e quali sono gli 
utenti.
http://www.borland.com/devsupport/bde/bdeapiex/dbiopenuserlist.html

Newsgroup: it.comp.lang.delphi
Titolo: Intercettare messaggi

Ciao a tutti.
Ho necessità di intercettare il momento in cui un controllo DB [DBEdit,
BDComboBox, etc..] entra in focus per colorare il suo background in giallo e
segnalare all' utente che il focus è lì.
Potrei usare gli eventi ONENTER ed ONEXIT ma preferirei poter centralizzare
il codice nella form perchè valga per tutti i controlli. Ho idea che bisogna
fare il trapping di WM_NOTIFY... o di WM_COMMAND...
Avete qualche soluzione/suggerimento?
Marco Soravia.

 fare il trapping di WM_NOTIFY... o di WM_COMMAND...
Ho provato questo metodo che pare funzionare, anche se è un pò sporco!
Infatti a quanto pare la proprietà "Color" compare subito dopo il
TWinControl, mentre sul TControl è dichiarata "Protected".
Da quanto detto sopra ho castato il sender degli eventi "OnEnter" e "OnExit"
ad un TEdit e sembra funzionare:
procedure TForm1.Edit1Enter(Sender: TObject);
begin
  TEdit(Sender).Color:= clRed;
end;
procedure TForm1.DBComboBox1Exit(Sender: TObject);
begin
  TEdit(Sender).Color:= clYellow;
end;
Io ho provato a vedere se il codice funzionava per i seguenti componenti e
sembra non dare problemi:
TEdit; TDBEdit; TDBComboBox; TComboBox; TMemo;
Se vuoi riutilizzare puoi collegare gli eventi sopracitati a quei componenti
che devono avere quel comportamento.
Ciao Tiziano Morgia.

 ....
Nooo....:-)
Io ti consiglio di creare degli oggetti discendenti a quelli che ti servono
(TDBEdit, TDBLookUpComboBox,TDBMemo)
Anche perchè se domani vuoi cambiare qualcosa hai una struttura a oggetti
ben fatta.
Io ho fatto così e mi sono trovato bene:
Ho aggiunto la proprietà : EnterColor poi ho intercettato i messaggi di
OnEnter e OnExit sugli oggetti che mi interessavano.
Ciao
Solid Snake

Grazie Solid Snake, ma per ora sono costretto ad attenermi ai controlli
standard [avevo pensato anche io ad una soluzione del genere...]
In ogni caso il problema sta nel fatto che ho progettato una classe
TBaseForm dalla quale derivo sottoclassi specializzate con i controlli del
caso per svolgere un determinato compito [dataentry fondamentalmente].
La superclasse svolge una serie di funzioni comuni, tipo docking automatico,
procedure dataentry, dimensionamento colonne in dbgrid, esecuzione SQL,
binding automatico ...
L' idea era di inserire a questo livello anche un trapper per intercettare
il momento in cui i controlli della form discendente ricevono/lasciano il
focus.
Ora è chiaro che i controlli nella form comunicano con il Parent [che è la
form] NOTIFICANDO il loro status... ma non so esattamente in che modo e
quale messaggio usano [WM_NOTIFY, WM_PARENTNOTIFY] e quali sono gli
eventuali codici di notifica.
In particolare oggi ho provato WM_PARENTNOTIFY, che intercetta il click sul
controllo ma devo sperimentare ancora...
In ogni caso grazie e ciao.
Marco Soravia.
Newsgroup: it.comp.lang.delphi
Titolo: QR e Campi Consistenti

D6(tutte le patch)+Ado+QR3.5
Problema :
Ho un QR con struttura predefinita (PageHeader,Tgroup,DetailBand, ecc), sul
quale a RunTime vado a creare dei TQRDBText e fino qui tutto funziona, i
dati sono stampati correttamente.
Ora vorrei che i miei campi in stampa fossero formattati secondo le mie
esigenze quindi avevo pensato di creare sempre a runtime dei campi
consistenti e sfruttare le proprietà (DisplayFormat, ecc) di questi.
in     { Private declarations } di Form1 che contiene il QR
    DBT_Colonna : Array [01..30] of TQRDBText;
    DBT_Field : Array [01..30] of TIntegerField;
Dichiaro le due Array che mi servono nel codice.
Il codice che ho nella FormCreate della Form1 che contiene il QR è il
seguente (è brutto, ma è solo per fare delle prove)
procedure TForm1.FormCreate(Sender: TObject);
begin
   DM_TMP.ADS_Tabelle_Dettaglio.Close;  // Chiudo l'AdoDataSet perchè mi
segnala errore se tento di creare il TIntegerField su Ds Aperto
   DBT_field[1]:=TIntegerField.Create(DM_TMP.ADS_Tabelle_Dettaglio);
   DBT_field[1].FieldName:='D_Interno';
   DBT_field[1].DisplayFormat:='000.0';
   DBT_field[1].Alignment:=taRightJustify;
   DBT_field[1].DisplayWidth:=10;
   DM_TMP.ADS_Tabelle_Dettaglio.Open;
   DBT_Colonna[1]:=TQRDBText.Create(DetailBand);
   DBT_Colonna[1].Parent:=DetailBand;
   DBT_Colonna[1].DataSet:=QR.DataSet;
   DBT_Colonna[1].DataField:='D_Interno';
   DBT_Colonna[1].top:=0;
   DBT_Colonna[1].Left:=0;
   DBT_Colonna[1].Font.Size:=8;
end;
Non ho segnalazioni di errore, ma non ottengo il risultato voluto, se invece
il TIntegerField lo creo a DesignTime e gli setto la proprietà DisplayFormat
a RunTime tutto OK.
Dove sbaglio ??
Grazie in anticipo.
-- 
-----------------------------------------------------
Gianluigi Genasi
-----------------------------------------------------
Chi non entra con la soluzione è parte del problema

Ciao sono novizio con delphi, però se a DesignTime fai doppio click sul 
componente DataSource in questione 'DM_TMP.ADS_Tabelle_Dettaglio', di 
solito si apre una tabellina dove ci inserisci i campi, e da lì in ogni 
campo metti le formattazioni che vuoi.
Poi, secondo me, è sempre meglio fare un QuickReport.Prepare prima di 
lanciare direttamente il Preview o il Print.
--
La mia mail è aperta a tutti.
Inviato da 
www.mynewsgate.net

 lanciare direttamente il Preview o il Print.
Sicuramente conviene fare il prepare, il codice che avevo postato era
buttato giù alla brutta per fare delle prove.
Ciao Gigi

Ah...avevo letto male.
Però ho notato che nella dichiarazione dell'Array metti [01..30], mentre 
quando utilizzi la procedura metti ...DBT_field[1].
Potrebbe essere che la procedura interpreti 1 diverso da 01; io ho sempre 
visto che negli array si parte da 0 oppure da 1, ma mai da 01.
Fammi sapere, ciao.
Inviato da 
www.mynewsgate.net

 Fammi sapere, ciao.
Newsgroup: it.comp.lang.delphi
Titolo: Proteggere i propri dati da occhi indiscreti

http://pchelp.supereva.it/
SPECIALE SIRCAM : COME RIMUOVERLO APPENA RICEVUTO.
2 COSIGLI SPECIALI : UNO PER MANTENERE I PROPRI FILES LONTANI DA OCCHI
INDISCRETI, L'ALTRO PER VELOCIZZARE UNA OPERAZIONE NOIOSISSIMA COME LA
RIDUZIONE AD ICONA.
Su Pc Help noi offriamo aiuto gratuito a chiunque lo richieda, perciò NON
ESITATE! Questo sito è rivolto a coloro che hanno curiosità informatiche o
problemi di qualsiasi genere con i computer. In questo sito troverete
notizie, consigli e quant'altro su: computer, informatica, notizie, pc,
sicurezza, navigazione, cellulari, internet, programmazione, linguaggi,
hardware, software, guide, manuali, sms, virus, cd pirata, pirata, crack,
consolles, masterizzare, consigli, netscape, musica, napster, outlook,
processori, overclock, lamers, hackers, crackers, fotografia digitale.
Correte a visitare 
http://pchelp.supereva.it/

 SPECIALE SIRCAM : COME RIMUOVERLO APPENA RICEVUTO.
Perché rimuoverlo?
Usa Netscafé ed invece di recitare un PaterAveGloria ogni volta che apri 
la posta scaricati tutti gli allegati e fatti una bella collezione di 
documenti altrui.
Fra gli altri ho rimediato un abbonamento ad un noto provider 
(naturalmente non mio :-)))
-- 
Ciao, Riccardo
------------------------------------------------------------------------
WebMaster: ----> 
http://www.jsdir.com
 <---- (aka 
http://www.jspoint.it
)
              All the JavaScript you need
------------------------------------------------------------------------
               Nessun traguardo è abbastanza lontano.
------------------------------------------------------------------------