mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: [D6] PageControl senza Tab

Ad ogni voce di un ComboBox devo far apparire in un pannello diverse
informazioni e controlli.
Senza immettere un pannello per ogni voce del combobox, pensavo sarebbe
buona cosa poter utilizzare un PageControl, visualizzando di volta in volta
la pagina che mi interessa. Vorrei però a questo punto poter nascondere
tutte le Tab per impedire all'Utente di cambiare pagina selezionando una di
queste.
Ho provato agendo sulle varie proprietà, ma l'unica cosa che sono riuscito
ad ottenere è rendere invisibile l'intera pagina.
Qualcuno ha una soluzione diversa?
Ciao a tutti.
Gianluca.

 Ciao a tutti.
Ciao Gianluca,
ci sono diventato matto anch'io in passato
prova con    TS02.TabVisible   :=False;
dove  TS02=name della pagina che vuoi nascondere
Ciao
--
MaoSw
Reporter Professional srl
support...@reporterprofessional.it

io faccio così:
{Page:TpageControl}
//(1)
for x:= 0 to pred (Page.pagecount) do
  Page.pages[i].tabvisible:=false;
// attiva quello di default, magari quello con l'indice 0
Page.activepage:=page.pages[0];
// quindi nell'evento on select del combo, magari mettendo l'itemindex=index
di ciascun tab
Page.activepage:=page.pages[TComboBox.selecteditem.index];
// e ancora, nella prima procedura potresti aggiungere anche la
movimentazione degli items del combobox prendendoli dalle caption di ciascun
tabcontrol
Saluti
Andrea

"Gianluca Plevani" ha scritto nel messaggio
[...]
Risolto!
Bastava ragionarci un pņ di piu.
In sostanza
nell'object Inspector:
- PageControl.Style := tsFlatButtons;
- per ogni pagina imposto TabVisible := False;
e poi assegno a codice PageControl.ActivePage nell'evento change del mio
ComboBox.
Ottengo lo stesso effetto di avere piu pannelli piatti che vengono resi
visibili/invisibili in relazione all'opzione selezionata.
Gianluca.

La tua soluzione è corretta, ma mi sembra poco efficiente, soprattutto a
design time....
Ciao
Andrea

 design time....
Essendo un certo numero di TabSheet in uno spazio relativamente piccolo, se
mantenessi visibili le tab a design, avrei qualche difficolta nella
progettazione dell'interfaccia utente. Invece, potendole nascondere gią
mentre progetto mi agevola notevolmente. Per rendere visibile quella che mi
interessa, la seleziono dall'Object Inspector.
Ciao.
Gianluca.

ComboBox.
E` una soluzione.  A me sinceramente non piace molto nascondere degli
elementi sulle maschere, specialmente se questo comporta non vederli a
disegno.  Non so di che cosa si tratti nel tuo caso specifico, ma
secondo me converrebbe considerare l'idea dei frame.  A run-time li
gestisci esattamente come dei componenti visuali (creandoli al momento
e piazzandoli sul form in una determinata posizione), ma a disegno hai
il vantaggio di averli "esplosi" e vedere cosa c'è in ogni frame.  I
frame hanno anche il vantaggio di localizzare il codice in una unit a
parte (che per applicazioni grosse, con maschere copiose di
componenti, o destinate a ingrossarsi, può essere un vantaggio).


    Via De Gasperi, 14 - 42019
    Scandiano (Reggio Emilia)
Newsgroup: it.comp.lang.delphi
Titolo: Ricuperare i links da una pagina web...

Ciao a tutti.
Dunque vorrei recuperare tutti i link esistenti da una pagina web ricuperata
con twebbrowser.
Usando IHTMLCollection eIHTMLInputElement con questo codice riesco a
ricuperare gli input per effettuare il login e ad inviarli, aprendo cosi' la
pagina contenente i link che mi interessa ricuperare e mettere in un'alta
memo:
procedure TForm1.Button1Click(Sender: TObject);
var
   Doc: IHTMLDocument2;
  Form:IHTMLFormElement;
  Elements: IHTMLElementCollection;
  InputElem: IHTMLInputElement;
  i : Integer;
begin
 //va al seguente indirizzo
  webbrowser1.Navigate('
http://url.che.volete.voi
');
  Wait;//attende il caricamento della pagina
   Doc := webbrowser1.Document as IHTMLDocument2;
   Elements:= Doc.forms as IHTMLElementCollection;
   Form:= Elements.Item(0,varEmpty) as IHTMLFormElement;
   Elements:=
for i := 0 to Elements.length -1 do
   begin
   InputElem:= Elements.item (i,varEmpty) as IHTMLInputElement;
   memo1.Lines.Add(
inputelem.name
);//qui scrive il nome dell'input
    memo2.Lines.add( inputelem.value);//qui scrive il valore dell'input
   if trim(
inputelem.name
)  ='email' then inputelem.value:='miousername';
   if trim(
inputelem.name
) ='passwd' then inputelem.value :='miapassword';
    end;
   //invia i dati
   Form.submit;
   Wait;
  end;
Fin qui tutto OK ma quando scrivo pressoche' la stessa procedura usando
IHTMLlinkElement non riesco a prendere manco un link (e ovviamente ci
sono...!) invariabilmente gli elements.item sono a zero.
Credo di sbagliare usando href qui (Doc.all as IHTMLElementCollection).tags
('href')as
   IHTMLElementCollection; ma non so (ignoro abbastanza l'html) quale tag
identifica i link..
Qualcuno mi puo' aiutare e scusate la prolissita'....Ciaooo

identifica i link..
un link in html è scritto in questa maniera
<a href="INDIRIZZO">Nome dell'indirizzo</a>
spero ti sia di aiuto.
	Ciao
	MassimoB
 

Grazie per la risposta...
un passo avanti, il tag riconosciuto è semplicemente  'a' non href, ora mi
trova e conta i links esattamente ma ho errore in questa procedura:
var
link:= IHTMLLinkElement;
el := (Doc.all as IHTMLElementCollection).tags ('a') as
IHTMLElementCollection;
 //qui prende i link della pagina
    for i := 0 to El.length -1 do
    begin
    link:= el.item (i,varEmpty) as IHTMLLinkElement;--------< QUI ERRORE
    memo1.Lines.Add(link.href);
    end;
l'errore e' :       Exception class Eintfcast Error with message "Interface
not supported"
Quindi ora come ricavare un testo con i link dopo che sono (o dovrebbero
essere) in IHTMLelementCollection??
Grazie ancora.

Newsgroup: it.comp.lang.delphi
Titolo: Un problemino estetico

Quando l'utente clicca su una riga del DBGrid, questa riga si colora (ogni 
riga rappresenta una scadenza, una data). Per farlo ho ovviamente usa t 
l'OnDrawColumnCell. Sopra il DBGrid c'è un calendar. Vorrei che quando una 
data del calendar c'è nel DBGrid, avvenisse lo stesso, si colorasse la riga 
relativa. Provocare l'esecuzione dell'evento di cui sopra non posso, perchè 
devo fornirgli dati che non conosco:
 (Sender: TObject; const Rect: TRect;  DataCol: Integer; Column: TColumn; 
State: TGridDrawState)
Non mi viene in mente come fare. E' possibile farlo secondo voi ? 


Con DBGrid.Refresh si riscatena senz'altro quell'evento dato che deve 
ridisegnare le celle. Per trovare quella riga in particolare basta fare 
un ciclo di ricerca sul campo che contiene la data.

 ha scritto nel messaggio 
news:4c22ee42$0$40280$4faf...@reader2.news.tin.it...

Bravo! In effetti si scatena l'evento, ma mi dipinge la riga sbagliata. Come 
faccio a spostare il focus sulla riga giusta del DBGrid ?
Se fosse una TTable, al clic sulla data del calendar farei un setkey su 
quella data (che è chiave). Ma il DBGrid visualizza il risultato di una 
Query. C'è un modo in questo caso di puntare al record giusto ? 

 Query. C'è un modo in questo caso di puntare al record giusto ?
provato con Locate ?
-- 
Ibis et redibis non morieris in bello
http://goblinland.myminicity.com/

"^_Goblin_^" <^__^Nic^__^_^__^sab^__^@^__^Libero^__^.^__^it^__^> ha scritto 
nel messaggio news:2MIUn.200950$813....@tornado.fastwebnet.it...


provato con Locate ?

Ora si! Provato e funzionante. Conoscevo il locate, ma pensavo fosse 
specifico della TTable ...

Newsgroup: it.comp.lang.delphi
Titolo: Problema di compilazione

Da qualche etmpo ho il seguenet problema:
Compilando un mio progetto che produce un eseguibile di circa 14 Mb
succede che la compilazione č normale, mentre per creare l'eseguibile ci
mette circa 6 minuti!
prima era molto veloce.
Cosa puņ essere???
Gianluca

 ha scritto nel messaggio
news:3AC180D6...@jt2000.it...

Una domanda: Che componenti Delphi usi?
--
Andrea Raimondi
----------------------------------------
Redattore corso di Delphi
di  Software Planet
www.softwareplanet.net

Uso componenti misti e di terze parti
Gianluca

 Compilando un mio progetto che produce un eseguibile di circa 14 Mb
ehhhh??? *quattordici* mega??
ma cosa ci hai messo dentro? 888)
Ciao,
Alan Solo
Newsgroup: it.comp.lang.delphi
Titolo: Perdita dei source premendo salva!

Ecco il grave problema ke mi si è verificato: stavo facendo il debug
della mia applicazione, ke tentava di scaricare un file da un server in
internet, improvvisamente vedo ke il programma si impalla e non
refresha più la finestra(da precisare ke ha sempre funzionato almeno
da 1 mese), decido di terminare l'applicazione, dopo di che ho fatto
una modifica al source, per vedere di mettere un try except alla
funzione che faceva il download, finita di scriverla o premuto salva e
delphi mi ha dato il seguente errore stream error e non mi permetteva
più di salvare il mio source...
Ho pensato di chiudere delphi e di riavviarlo, ma alla riapertura ho
avuto la brutta sorpresa... mi aveva cancelato tutto il surce della
unit su cui operavo!!!!
..Ho riavviato il pc e poi ho riaperto delphi, dopo aver ripristinato
un backup dei miei source, ma dopo poco premendo salva mi dava il
solito problema di stream erro, ma per fortuna non mi cancellava il
source...
ho pensato ke fosse un problema di hard disk, allora ho spostato la
cartella dei source in un'altra partizione, ma appena ho riaperto il
progetto e ho premuto salva mi ha dato stream error e mi ha cancellato
un'altra unit!!!
Ormai disperato ho riavviato delphi per l'ennesima volta e al riavvio
successivo mi sono accorto ke il salva tutto il progetto funzionava
regolarmente, mentre il salva singola unit mi da stream error, ma
adesso senza cancellarmi il source.....
Comunque non è una bella situazione.. non so mai se quando premo salva
mi cancellerà tutto... inquietante!!!
A qualcuno è mai successo o sa da cosa potrebbe dipendere?
Sicuramente proverò a reinstallare delphi....

 
Ormai sono 8 mesi che lavoro con la stessa macchina e stessa 
configurazione sono su internet tutto il tempo e ci lavoro 8-10 ore al 
giorno e la tua situazione nn mi è mai capitata. E' successo altro ma 
non che mi cancellasse le unit. Che versione usi ? io la 7.
Penso più a qualche problema hardware (non neccessariamente l'hdd).
Omega

 Omega
io uso la versione 6 ke non mi aveva mai dato problemi, tranne qualke
riavvio forzato per dei puntatori ad oggetti persi in memoria, qualke
rara volta.
il mio pc a volte sta acceso anke piu di un giorno consecutivamente e
questo da almeno 6 mesi... non vorrrei ke mi si sia sciupata la
ram..... ank'io penso ke l'hd a questo punto non c'entri.

 
Fai un controllo sull'hdd per vedere se ci sono cluster danneggiati a 
quel punto puoi decidere come proseguire (ram cpu mobo, reistallare 
delphi etc)
Omega
Newsgroup: it.comp.lang.delphi
Titolo: integer o no?

ciao
come posso sapere se una stringa é integer?
bye
erik



Tenta di convertirlo in stringa con "IntToStr", se ti da eccezzione
significa che non e' integer.
-- 
Slaine Mc Roth
Linux User# 312607
Linux Machine# 198324

 significa che non e' integer.
Pure io ho fatto come dici tu  ma speravo in qualcosa di meglio
ciao
erik

 Pure io ho fatto come dici tu  ma speravo in qualcosa di meglio
function IsNumeric(AString: string): boolean;
var cnt: integer;
  IntSet: set of char;
begin
  Result := True;
  IntSet := ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];
  for cnt := 1 to Length(AString) do
    if not (AString[cnt] in IntSet) then
      Result := False;
end;
-- 
I'am what I'am, I do what I can

erik scriveva fra l'altro:

Dai un'occhiata a _ValLong in System.pas
Saluti
Paolo Arosio
-- 
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"

Newsgroup: it.comp.lang.delphi
Titolo: viste e indici

Salve!
Torno a voi con un problemino, stavolta di natura database :
ho degli oggetti TTable associati a delle viste Oracle.
In alcuni casi mi serve poterci fare un refresh e/o un
locate, ma ottengo un errore relativo alla mancanza dell'indice.
Ho tentato di creare degli indici sulle viste (in Oracle) ma
senza successo.
Per il refresh uso Close/Open e ho scritto io un locate in delphi.
il tutto č, come potete immaginare, rapidissimo :(
Qualche consiglio da darmi ?
Grazie 1000,
		Matteo

 Qualche consiglio da darmi ?
- butta TTable e non usare Locate
soluzioni:
- usa TQuery e... boh... magari un where = 'quello che cerchi'
Ciao,
Alan Solo

senza successo.
lo credo bene   :-)
Newsgroup: it.comp.lang.delphi
Titolo: Function

Ciao a tutti, volevo sapere come dichiarare una funzione se devo ricevere
come risultato un'array.
es:
function Ciao(NetNode: PNetResourceA): string;
al posto di string cosa devo mettere????
Ciao e grazie


Con array of string a me non funziona e poi immagino che avessi già provato
te, comunque altrimenti potresti utilizzare il trucco di creare un array
pubblico che modifichi dentro la funzione e del quale controlli il risultato
dopo l'esecuzione della funzione.
Dany.
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:NkxW8.46713$Jj7.1...@news1.tin.it...

Di solito faccio cosě:
Type
   TTuoArray = Array [1..100] of String;
 function Ciao(NetNode: PNetResourceA): TTuoArray;
Ciao

"Bestius 2°"

hai provato a passarlo come parametro per riferimento (col Var davanti)?
con le StringList funziona, con gli array non ho mai provato.
Henry Baggins [trad.=Arrigo Sacchi]

Che io sappia non puoi farti restituire un'array, mapuoi provare a
farti restituire un puntatore all'array.
Per esempio se č un'array di byte hai il tipo PByteArray, altrmenti
potresti sempre
utilizzare il riferimento per parametro.
per esempio:
procedure pippo(var Valore_Di_Ritorno : array of My_Type);
Che viene compilata esattamente allo stesso modo di:
type 
  Parray_of_My_Type = ^array of My_Type;
procedure pippo(Valore_Di_Ritorno : Parray_of_My_Type);
Buona Fortuna!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Grazie per l'interesse
Ciao
Newsgroup: it.comp.lang.delphi
Titolo: Web - Parte 2 [ off topic ]

Ciao a tutti,
   sebbene sto iniziando a muovere i primi passi in questa direzione le 
lacune sono enormi.
Avete qualche link o qualche documentazione su come muovere i primi passi?
 
Per esempio ho creato una pagina html che mostra una semplice scritta (ciao) 
in rosso.
Da locale funziona con
http://localhost:8000/Test
 
 
ma messo sul server, in una directory dedicata (C:\_TestWeb\), aprendo la 
sua porta (verificata ed aperta) non c'e' verso di aprire il file.
Se l'indirizzo ip del server e' 1.2.3.4 come posso fare per aprire questo 
file ??
 
Scusatemi ... ma davvero sono all'inizio !!!
 
Buona domenica a tutti
 
Ciao
 
Daniele
 
 
 

 
 
 
-- 
Oggi c'e' una grande battaglia di idee,
ma alla fine non ci saranno ne vinti,
ne vincitori, ne idee! S. Benni da Elianto.

 sua porta (verificata ed aperta) non c'e' verso di aprire il file.
 
Che web server stai utilizzando e quale tecnologia?

 fa, come funziona
 
E' quello che ho intenzione di fare !!!!
Tutto quello che trovo parte da un livello superiore al mio.
Hai qualche link o qualche testo che parta da zero .... dalle basi?
Una sorta di tutorial che mi guidi passo passo nell'apprendere questa nuova, 
per me, strada.
 
Grazie
 
Ciao
 
Daniele
 

 Che web server stai utilizzando e quale tecnologia?
Troppo avanti ... sono molto indietro !!!
Sto muovendo i primi passi, quello di cui oggi ho bisogno e' studiarmi il 
tutto.
Il punto di partenza e' ZERO !!!
Quindi primo studiare.
Hai qualche suggerimento sulle letture da fare ?
 
Grazie
 
Ciao
 
Daniele 
 

 Troppo avanti ... sono molto indietro !!!
 
Che vuol dire "troppo avanti"? Procurarsi un web server e` il primo passo nella programmazione web.

Procurarsi un web server e` il primo passo nella programmazione web.
Questo web server sara' spiegato da qualche parte.
Ci sara' un file di testo da cui partire, non credi?
 
Io sto partendo dalla prefazione del libro !!!!
Non cerco la pappa pronta, devo capire quello che sto per fare !!!
 
Ti sono grato per l'interesse.
 
Ciao
 
Daniele

 Grazie


 a grandi linee un server web e come un server sql...
 
Eh??? :) La roba che tocca sentire su 'sto ng e` incredibile.

 Questo web server sara' spiegato da qualche parte.
 
Ma di quale "file di testo" parli? 
Cerca "web programming tutorial" su google. 

 Cerca "web programming tutorial" su google.
Grazie, adesso provvedo!!
 
Ciao
 
Daniele
Newsgroup: it.comp.lang.delphi
Titolo: sviluppare gadget per sidebar vista

ciao a tutti come si fa a sviluppare un applicazione gadget per sidebar 
vista?
Simo 

 vista?
A livello di programmazione, credo che JavaScript sia sufficiente. :-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

vuoi dirmi che sono applet??? e quindi non applicazioni vere e proprie?
Simo

 vuoi dirmi che sono applet??? e quindi non applicazioni vere e proprie?
JavaScript *non* è Java: non sono applet.
Ad ogni modo, fai una ricerca su Google per trovare i primi dettagli.
Leggi ad esempio questo sito:
http://microsoftgadgets.com/
P.S.: visto che Delphi non c'entra molto con l'argomento, siamo un 
pochino OT. ;-)
Ciao,
   Marco.


Newsgroup: it.comp.lang.delphi
Titolo: Chiamata a Word2000 da Delphi





Ciao a tutti!
Il mio problema è 
semplicissimo:
finchè non avevo installato OFFICE2000
facevo la chiamata 
da DELHI con l'istruzione:
CreateOleObject('Word.Basic')
adesso la 
stessa istruzione se installato OFFICE2000
dà la seguente segnalazione di 
errore:
"Project Poffe.exe raised exception class EOleError with message 
'Variant does not reference an automation object! Process stopped!" 

Grazie!


 


Ps:Qualcuno sò dirmi dove trovare tutte le 
istruzioni per scrivere in Excel o Word da Delphi??? Grazie 
ancora



 wrote in 
  message 
000801c0c1af$f4f972c0$1901...@metodi.com
...


Newsgroup: it.comp.lang.delphi
Titolo: [Delphi] controlli su Frame

Ho creato un form che funge da pagina iniziale per dei frame, con un menu 
laterale per richiamare i vari frame.
Primo problema, avrei bisogno di inizializzare delle edit appena apro il 
main, quindi il frame NON è stato ancora richiamato.
Ho provato a fare NomeFrame.nomeoggetto ma non funziona!!!!
Secondo problema, mentre per i form ci sono eventi oncreate, onclose....
per i frame cosa bisogna usare???
Grazie!
--- posted by geoForum on 
http://www.delphiedintorni.it

 per i frame cosa bisogna usare???
Puoi definire il "costruttore" e il "distruttore":
[...]
   TDemoFrame = class(TFrame)
   private
     { Private declarations }
   public
     { Public declarations }
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
[...]
implementation
{ TDemoFrame }
constructor TDemoFrame.Create(AOwner: TComponent);
begin
   inherited Create(AOwner);
   // ...qui il tuo codice di inizializzazione...
end;
destructor TDemoFrame.Destroy;
begin
   // ...qui il tuo codice di finalizzazione...
   inherited;
end;
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: destroy di array

salve a tutti, ho creato un array contenente dei TImage, al momento della 
distruzione della form mi da invalid pointer operation, devo fare qualcosa 
per distruggere l'array?
Simone 

 ha scritto nel messaggio 
news:48ff41c8$0$40309$4faf...@reader5.news.tin.it...

Vi sono altri componenti per contenere liste di TImage, Giorgio 

 qualcosa per distruggere l'array?
Si dovrebbe dapprima verificare il motivo per cui ottieni una "Invalid 
pointer operation"; per quanto riguarda l'array, in genere non devi fare 
nulla per l'array in quanto tale, mentre per quanto riguarda gli oggetti 
all'interno, se sono stati creati senza un "owner" devono senz'altro 
essere distrutti, altrimenti č il componente designato con questo ruolo 
a compiere l'operazione quando viene distrutto.
Se il tuo array contiene riferimenti a controlli TImage che hai 
appoggiato sul Form a designtime, non devi procedere alla distruzione 
degli oggetti: ci pensa il Form, nel momento in cui viene distrutto; č 
chiaro perň che, a quel punto, i riferimenti contenuti nel tuo vettore 
non saranno piů validi.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

purtroppo ancora non riesco a capire dove sbaglio... utilizzo Intraweb con
delphi e a runtime mi creo un array di componenti per poter impaginare un
frame a mio piacimento.
per creare i componenti uso:
IWFrame1.aArrayLink[nScheda]:=TIWLink.create(IWFrame1);
il problema è quando viene fatto il freeandnil(IWFrame1); che mi da invalid
pointer operation, se tolgo la creazione dei componenti con l'array tutto
funziona
Simone

 funziona
Perché distruggi tu il componente IWFrame?
Dovrebbe pensarci il relativo "owner".


Newsgroup: it.comp.lang.delphi
Titolo: file batch

Salve a tutti,
piccolo quesito: "qual'eì il modo migliopre per lanciare da unìapplicazione
delphi 5 un file .BAT?"
grazie

puoi usare shellexecute ..
--
Consonni Davide
bmq...@tin.it
gna...@wappi.com
webmaster of
http://gnaffy.Tripod.com
http://www.traduzioniellepi.com
Newsgroup: it.comp.lang.delphi
Titolo: [OT] [QUIZ] buon natale a tutti

Visto che il gruppo langue.. teniamolo vivo con un thread semiserio ;)
 
QUIZ del buon delphista, tre domande di fine anno:
 
Come passerete il vostro natale?
 
[1] A sciare, in vacanza
[2] A casa in famiglia col computer acceso per ripassare i socket indy
[3] Sul computer a imparare Delphi XE 2
[4] Ubriacandomi pensando ai vecchi tempi dove per gli amici ero il 
genio del pc
[4] Natale? Cos'è, uno sciroppo per la tosse?
 
 
Cosa avete chiesto a babbo natale nella consueta letterina annuale?
 
[1] Una confezione di XE2 enterprise edition autografata da David I
[2] La documentazione completa e aggiornata di tutto Firemonkey
[3] Il risanamento del debito pubblico
[5] La salute
[4] Io odio babbo natale: chi ha un fucile?
 
Tra soldi, salute, amore, cosa vorreste avere al massimo nel 2012?
 
[1] Delphi XE2, il resto è relativo
[2] Niente tanto nel 2012 tutto finirà, lo hanno detto i maya e io mi fido.
[3] cosi soldi vivo bene, con la salute godo la vita, con l'amore mi 
esalto: result := scelta[1] + scelta[2] + scelta[3];
[4] La salute: i soldi se li prenderà la manovra salva politici, e 
l'amore va e viene.
[5] fate l'amore e non la guerra
 
Ecco le mie risposte:
 
Come passerete il vostro natale?
[4]
Cosa avete chiesto a babbo natale nella consueta letterina annuale?
[1]
Tra soldi, salute, amore, cosa vorreste avere al massimo nel 2012?
[1]
 
-- 
morde
QT 4.7
Delphi (5,6,7.. expired)
Firebird Database
 

 Tra soldi, salute, amore, cosa vorreste avere al massimo nel 2012?
3
 

 [4]
 
C'è un bug ella valorizzazione della prima risposta, ti toccherà 
ubricarti con lo sciroppo :-)
 
-- 
Design for the future, because it will be here sooner than you think.
(C) Eric S. Raymond, from "The Art of Unix Programming"

Hello, morde!
You wrote  on Tue, 06 Dec 2011 10:55:06 +0100:
 
 m> QUIZ del buon delphista, tre domande di fine anno:
 
 
 m> Ecco le mie risposte:
 
 m> Come passerete il vostro natale?
 m> [4]
 m> Cosa avete chiesto a babbo natale nella consueta letterina annuale?
 m> [1]
 m> Tra soldi, salute, amore, cosa vorreste avere al massimo nel 2012?
 m> [1]
 
Ti quoto !!!
 
 
With best regards, Wego.  E-mail: 
We...@wego.com
Newsgroup: it.comp.lang.delphi
Titolo: URGENTE!!.. date e giorni

Ciao prima di tutto..
È possibile sommare x giorni ad una variabile di tipo pdatatime e ottenera
la data completa??..
Grazie a chiunque voglia rispondermi..
--
Posted from 
twingo.tiscalinet.it
 [195.130.224.85] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

"Daniele":
| Ciao prima di tutto..
| È possibile sommare x giorni ad una variabile di tipo pdatatime e ottenera
| la data completa??..
intendi TDateTime?
varabileDateTime := varabileDateTime + NumeroGiorni;
spero ti avr capito la richiesta,
ciao ciao
Alan Solo

la data completa??..
Il TDateTime e' espresso come numero di giorni a partire dal
30/12/1899 (se non erro), quindi puoi eseguire una semplice somma
intera. Non so cosa tu intenda per "data completa".
--
Andrea Laforgia (UIN 87230455)
----------------------------------------------------------
Non scrivetemi per e-mail, se non richiesto espressamente.
No replies in private e-mail, unless explicitly requested.
----------------------------------------------------------

"Andrea Laforgia":
| >È possibile sommare x giorni ad una variabile di tipo pdatatime e
ottenera
| >la data completa??..
|
| Il TDateTime e' espresso come numero di giorni a partire dal
| 30/12/1899 (se non erro)
non erri, mi sono andato a vedere l'help ed e' esatto....
minkia che memoria! ;-))
ps: secondo me chi ha inventato questo standard aveva problemi mentali,
che senso ha? Non era + 'semplice' 1/1/1900 o al limite _31_/12/1899 ...
bohh

bohh
Mah, non so.
Credo, pero', che non sia una colpa di Borland, la quale ammette di
essersi adeguata alle convenzioni Microsoft della versione 2.0 di OLE
: "Delphi 1.0 calculated the date from year 1 instead of from 1899. To
convert a Delphi 1.0 date to a Delphi 2.0 date, subtract 693594.0 from
the Delphi 1.0 date. The date format changed to be more compatible
with OLE 2.0 Automation."

Newsgroup: it.comp.lang.delphi
Titolo: Problema Ajax con D4PHP

Sto facendo qualche cosa con il programma in oggetto, ho creato una 
banalissima form con il componente Clock, un button ed una Label.
Creo un evento Button1click che ad ogni azione mi inerisce l'ora nella Label 
e fin qui funziona.
Successivamente tento di gestire l'evento con Ajax, ed il button smette di 
funzionare come desidero, ma ogni volta che lo clicco la pagina ha un 
refresh.
Vi sottopongo il codice sperando possiate aiutarmi.
<?php
        //Includes
        require_once("vcl/vcl.inc.php");
        use_unit("clock.inc.php");
        use_unit("forms.inc.php");
        use_unit("extctrls.inc.php");
        use_unit("stdctrls.inc.php");
        //Class definition
        class Unit1 extends Page
        {
               public $Button1 = null;
               public $Label1 = null;
               public $Clock1 = null;
               function Button1JSClick($sender, $params)
               {
                echo $this->Button1->ajaxCall("Button1Click");
               ?>
               //Add your javascript code here
               <?php
               }
               function Button1Click($sender, $params)
               {
               $this->Label1->Caption = date("H:i:s");
               }
        }
Come detto è veramente poca cosa, ma non gira.
Saluti
Carlo M.

Newsgroup: it.comp.lang.delphi
Titolo: Leggere il colore dei link visitati

Sarebbe un po' OT, ma provo a chiedere lo stesso, casomai qualcuno abbia 
visto qualcosa di utile in giro in qualche sorgente.
Da Delphi, come faccio a sapere qual'è il colore "di sistema" dei link:
  -visitati
  -non visitati
  -sotto il passaggio del mouse (eventuale)
In Internet Explorer c'è l'opzione Colori per impostarli, quindi da qualche 
parte si potranno leggere....
Sembra che questa informazione, che sicuramente esiste da qualche parte, sia 
particolarmente ben nascosta in rete...
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

Erano numerose volte che avevo cercato, evidentemente partendo dalle parole 
chiave sbagliate, comunque ho trovato la risposta qui:
http://tinyurl.com/5m4qp


Newsgroup: it.comp.lang.delphi
Titolo: CGI con delphi

Secondo voi è possibile (e come) realizzare applicazioni cgi (cioè che
compongano dinamicamente pagine html) con delphi 4???
Un Grazie a tutti quanti sapranno aiutarmi ...
Ricky

Hai provato a dare un' occhiata agli esempi sotto la directory Demos?
Marco Soravia.
Newsgroup: it.comp.lang.delphi
Titolo: ritagliare parte di un TJpegimage [d6]

salve, qualcuno di voi sa come si fa a ritagliare una parte rettangolare da
un Tjpegimage e risalvarla?
Simone

un timage ha una property di tipo tcanvas.
Un tcanvas ha il copyrect.
A

 ha scritto nel messaggio
news:bu93ls$okk$2...@newsreader1.mclink.it...


 altro TImage?
[ VCL Reference ]
TCanvas.CopyRect
Copies part of an image from another canvas into the canvas. 
procedure CopyRect(const Dest: TRect; Canvas: TCanvas; const Source: TRect);
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

 altro TImage?
un occhio alla guida di tcanvas proprio no, eh?
A

 ha scritto nel messaggio
news:bubai3$1nli$1...@newsreader1.mclink.it...

Newsgroup: it.comp.lang.delphi
Titolo: Qualcuno conosce la API WNetGetCachedPassword?

Se si, mi farebbe moooolto piacere avere il prototipo di questa maledetta
funzione.
Tnx
AS
"Se è Microsoft non funziona"

 funzione.
Occhio che funzia solo se sei loggato...
function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw:
DWord): Word; external mpr name 'WNetEnumCachedPasswords';
C'era un esempio in giro per il web ti riporto il readme:
Copyright (c) 1999 by Aleksey Xacker
E-mail: 
xac...@phreaker.net
WWW: 
http://www.angen.net/~xacker/
Io ti aiuterei ma domani parto per la Grecia: un saluto a tutto il NG ! ;-)
Ciao :-)
--
Andrea Magni
E-Mail: 
ama...@interac.it

 funzione.
non ho mai usato l'api che vorresti qualcuno conosca. Ma non solo !!
Ho cercato l'api nel Win32 SDK e non la trovo. Dove devo cercarla ?
Fammi sapere.....se posso ti do una mano !!
Ti saluto.....
Antonio Tarolla

Fammi sapere.....se posso ti do una mano !!
Questa fottuta API non è documentata.
Adesso di dico come l'ho beccata...
le applicazioni incluse nel pannello di controllo non sono altro che delle
DLL con estensione cambiata in CPL.
Ho beccato la Password.Cpl, l'ho copiata in un altra cartella e gli ho
ridato DLL come estensione.
A questo punto ho usato un nosoche che sta in delphi4\bin che ti da la mappa
della libreria mostrando quali dll vengono richiamate.
Tra di esse ci sta questa maledetta API che sta in MPR.DLL
Saluti 6 grazie lo stesso


Consigli per gli acquisti: trovi diversi esempi su 
www.spippolatori.com
Azathoth

 Tnx


 se serve a beccare le password ti posso postare il codice.
ma non funziona in W2000.
--
Gna...@Wappi.com
ICQ# 76488613
http://gnaffy.tripod.com/

Newsgroup: it.comp.lang.delphi
Titolo: Qualcuno usa per caso il Delphi 1 ? (non ridete, x favore)

. Grazie!

 wrote in message
8j7teb$8rb$1...@serv1.albacom.net...



wrote:


 report)
il QR 1.1 di D2 e' l'unico decente :-) della serie buggata della QuSoft.
Ora io anche per D2 cmq ho iniziato a usare ReportBuilder (la v.3.52 nello
specifico) e sto man mano buttando via QR.
Ciao, Sandro

 specifico) e sto man mano buttando via QR.
ReporBuilder è free ? c'è per D5 standard ?

 c'è per D5 standard ?
si certo.
Ciao, Sandro

no, costa mezzo milione (
www.digital-metaphors.com
)
Di recente ho visto FastReport 2.4 
web.tiscalinet.it/joined
, e' molto
migliorato e somiglia abbastanza a RB. Supporta dataset virtuali,
variabili e una procedura automatica di conversione da QReport!
E' un po' buggato, cmq. Chi ha pochi $ (come me :) ), gli dovrebbe
dare un'occhiata...
Ciao
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.it
bop...@tin.it
bpie...@hotmail.com
______________________________________________
"Madame, lei ha tra le gambe uno strumento
che puo' offrire piacere a migliaia di persone,
e tutto quello che sa fare e' grattarlo"
- Sir Thomas Beechan a una violoncellista
Newsgroup: it.comp.lang.delphi
Titolo: Come convertireste questo codice vba in Object Pascal

Come convertire questo frammento da codice Vba in Object Pascal?
 
-----------------------------------
Set MyDB = OpenDatabase(nome_database(1), False, False, "ODBC;DSN=" & 
nome_database(1) & ";UID=SYSDBA;PWD=masterkey")
Set MyRS = MyDB.OpenRecordset("select GEN_ID(GEN_GLOB,1) from rdb$database", 
dbOpenDynaset, dbSQLPassThrough)
 
If Not (MyRS.EOF) And Not (MyRS.BOF) Then
    new_val= MyRS("GEN_ID") + 1
    Else
    new_val= 0
    End If
 
MyRS.Close
MyDB.Close
-----------------------------------
 
Si tratta di leggere il valore di un generatore su un db Firebird
Ciao e grazie
RobertoA
 
 

Usi TAdoConnection e TAdoQuery.
 
A.

Newsgroup: it.comp.lang.delphi
Titolo: Riconoscimento connessione

Ciao
  sto sviluppando un programma che deve effettuare particolari operazioni
solo quando viene riconosciuta la connessione ad internet.
Come posso fare?
Grazie

Ciao,
Puoi utilizzare le RAS API per vedere se la connessione è attiva o meno.
Troverai la libreria che ti serve al seguente sito
http://www.rtfm.be/fpiette
.
Bye
--
- Carlo -
BSSoftware Tips Mailing-List Support

 Come posso fare?
    Non ho capito bene, a te interessa solo sapere quando una connessione è
attiva o meno per fare delle operazioni, o devi lavorare sui parametri di
una connessione correntemente attiva, tipo sapere l'I.P. assegnato e robe
del genere?
    Fammi sapere e poi ti aiuto.
    Saluti!
--
______________________________________
Gian Luca Dalla Torre
E - Mail: 
gianluca....@casteo.net
______________________________________
Newsgroup: it.comp.lang.delphi
Titolo: Ancora forms ...

Ho trovato le informazioni sul comando wm_MOVE e sulla cattura dei messaggi
non previsti da Delphi creando questa semplice procedura :
const
  wm_GetMove = wmApp + 2000
type
  TF_Outbar = class(TForm)
    P_Outbar: TPanel;
  protected
    procedure wmGetMove(var Message : TMessage); message wm_GetMove;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
implementation
procedure TF_Outbar.wmGetMove(var Message : TMessage);
begin
.....
.....
.....
end;
ma pur avendo riscontrato esempi simili nell'help, non riesco a catturare
l'evento!
Qualcuno ha un consiglio per ottimizzare la procedura o segnalarmi il motivo
del mio fallimento?
Grazie infinite
--------------------------------
Neo
maw...@infinito.it
ma...@yahoo.com
ma...@libero.it

 Neo
Knock, Knock!
Ciao :-)
--
Andrea Magni
E-Mail: 
ama...@interac.it

 Il codice cosě a occhio sembrerebbe corretto...


   wm_GetMove = wmApp + 2000
questo e' sicuramente un ottimo motivo per cui non riesci a
intercettare WM_MOVE: questo messaggio e' gia' definito
in windows, togli semplicemente la dichiarazione di costante.
il resto mi pare giusto.

 Hai qualche suggerimento?
Usa (come ti ha già indicato Carlo) la costante WM_MOVE invece che stare a
definirtene una tua...
Sostanzialmente ti basta cambiare quel
...; message WM_GETMOVE;
in
...; message WM_MOVE;
e sarai a cavallo...
Cmq se vuoi vincolare la posizione dovrai intercettare il WM_MOVING (cfr.
help di win32 da cui cito:
The WM_MOVING message is sent to a window that the user is moving. By
processing this message, an application can monitor the size and position of
the drag rectangle and, if needed, change its size or position.)
in quanto il WM_MOVE ti notifica solo la nuova posizione... [non hai modo di
costringere le coordinate]


 ...; message WM_MOVE;
chiedo scusa, nella fretta ho creduto di leggere WM_MOVE
al posto di WM_GETMOVE....  :-(



Newsgroup: it.comp.lang.delphi
Titolo: Float Complex 32 bit to integer 24 bit....

Buongiorno ragazzi/e
Dopo mesi e mesi di assenza mi rifaccio vivo per un problema "matematico"...
Sto scrivendo una piccola utility per maneggiare convertire dei files 
"raw" (sono campioni fatti con una radio SDR per chi volesse saperlo) in 
un'altro formato.
Ogni singolo "campione" in origine è un doppio "numero" a 32 bit complex 
float (ovvero 8 bytes totali).
Quel che devo ottenete è un doppio "numero" a 24 bit integer (6 bytes 
totali)
Qualche idea?
 
Spero tanto di essermi spiegato...altrimenti sono dolori :P
 
Grazie infinite a chiunque illumini questo buio totale in materia.
 
Buona giornata
 

 un'altro formato.
 
Stai sfruttando le risorse della scheda audio per la decodifica dei 
segnali I/Q ?
 
Giorgio
 

 totali)
 
Qual e` il formato dei numeri in entrata ed in uscita? Sii piu` specifico.

Newsgroup: it.comp.lang.delphi
Titolo: testo con sfondo trasparente du di un canvas

Grazie per l'attenzione,
c'e' qualcuno che sa dirmi come fare a mettere del testo con sfondo
trasparente su di una immagine bitmap? Se scrivo del testo nel canvas su cui
ho già messo una bitmap ho una inesorabile striscia bianca come sfondo del
testo.
Ho provato utilizzando la proprità copymode del canvas....ma non
funziona....
Grazie a tutti....
kris

 ha scritto nel messaggio
news:b62lc9$fms$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:KR4ha.32834$%p6.21...@news.edisontel.com...


Newsgroup: it.comp.lang.delphi
Titolo: Delphi e Lazarus

Una domanda da un milione di dollari:
quanto sono compatibili le applicazioni scritte in delphi con Lazarus /
Freepascal ?
Ing Giuseppe Monteleone



a causa di Windows, poco. 
ma prova a chiederlo in it-alt.comp.lang.lazarus
ciao
tiziano

 a causa di Windows, poco. 
In che senso "a causa di Windows"? :-)
Cosa c'entra Windows?
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: stampa su moduli continui

Ciao,
purtroppo i miei problemi non sembrano finire mai (e' anche un po' colpa
dell'Help non molto efficiente nella versione di Delphi 3 Standard!).
Vorrei stampare delle etichette su un modulo continuo, il problema e' che
non riesco ad impedire alla stampante di posizionarsi sul foglio successivo
una volta finita la stampa (ovviamente io vorrei che la stampante si
posizionasse sull'etichetta successiva).
Attendo vostre risposte!!!!!!
Barbara Inverardi
http://www.geocities.com/ResearchTriangle/Thinktank/3213

Attendo vostre risposte!!!!!!
se ho ben capito il tuo problema, dici che ti viene stampato un foglio per
ogni etichetta ? Ho indovinato ?
Bè, se usi le bande nei quickreport, dovresti evitare ciò.
Ora devo vedere se c' è qualche opzione adatta, ma supponiamo che tu voglia
stampare tutti i record di una tabella, come fai ? Come stabilisci la
distanza tra una riga e l' altra ?
Bè, il problema è lo stesso.
Prova ad utilizzare la banda HasDetail, qui posizioni (nella banda) un
componente "DBText" che collegherai al campo del database a cui il
quickreport fa riferimento.
Ora quando avvii la stampa, lui ti stampa tutti i record della tabella.
Poi non è che uso quickreport tutti i giorni, comunque se non sovesse
funzionare o mi sono spiegato male, scrivi qui o in privato.
Ti saluto.....buon lavoro !!
Antonio Tarolla
BSSoftware Tips Mailing - List Support

 posizionasse sull'etichetta successiva).
Di solito le etichette hanno  un passo costante anche nel salto
pagina, nel senso che la distanza tra una e l'altra è costante anche
tra quelle a cavallo di 2 pagine.
In questa sistuazione io creerei un report con la dimensione della pagina
pari ad una etichetta completa in modo che x QR quella sia una pagina.
Prova a settare da QR la dimensione e vedi se è sufficente ad evitare il
tuo problema; se dà ancora problemi devi definire sotto Windows una
stampante con impostato un modulo delle dimensioni della singola
etichetta e in QR setti il Paper Size a Default Size.
Io uso questo metodo x bolle e fatture su moduli a lunghezza non
standard e funziona.
Ciao
--
--------------------------------------------
Mirko Guidolin
COMUNE DI RESANA
Provincia di Treviso
Servizio Elaborazione Dati
--------------------------------------------
levare eventuali underscore per rispondere

 wrote in message 863ph1$66h$1...@nslave2.tin.it...


 Cosa fare?
Cosa hai fatto in dettaglio?
Che errore ti segnala?
Non mi sembre una problematica irrisolvibile quindi
se mi dai dei dettagli vediamo se si risolvere.
Non riesci proprio a scaricarti i driver giusti o almeno
compatibili (Epson Fx, IBM proprinter ecc.)?


Cosa fare?
Prima di tutto, prova a cambiare nelle prop. della stampante il tipo di
alimentazione per la carta.
Poi, installa un driver diverso.
Saluti
AS

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

zz
Newsgroup: it.comp.lang.delphi
Titolo: Quesito... audio!

Chiedo scusa se riposto il mio quesito, ma non l'ho più trovato sul NG.
Perdonatemi se è un problema esclusivamente del mio newsreader.
Salve gente, ho una bella domanda: supponiamo che disponga di una scheda
audio che gestisce 4 ingressi e 4 uscite stereo. Ora supponiamo che debba
fare in modo da inviare ad una delle uscite audio (collegato ad un mixer) un
determinato brano prelevato da una batteria di dischi scsi. Come faccio ad
indicare al componente TMediaPlayer di inviare l'output su quel canale?
E poi secondo voi posso gestirmi un altro file musicale su un altro canale,
contemporaneamente (hardware permettendo)?
In pratica l'applicazione troverebbe utilizzo in una radio, dove tutti i
files musicali si trovano in formato MP3; in questo modo mentre mando in
onda il brano sul primo canale, dovrei lavorare sul  canale ausiliario per
mettere insieme il pezzo successivo, oppure jingle pubblicitari, etc.
Non ho nemmeno la suddetta scheda audio tra le mani, per cui voglio fare una
valutazione a grandi linee prima di impelagarmi in una questione più grande
delle mie modeste (e non sapete quanto!) possibilità.
Ringrazio anticipatamente,
Guglielmo

non so se ti puo' interessare
ma su torry mi sono imbattuto
in un oggetto 'DSMixer'
sebbene non sia riuscito ad installarlo ;),
il demo .exe funziona bene...
provalo se vuoi
Ciao,
Alan Solo

Sono entrato solo ieri nel Newsgroup. Potreste dirmi che cosa sarebbe questo
torry?
grazie :->

"Ukyo Hanasu":
| Sono entrato solo ieri nel Newsgroup. Potreste dirmi che cosa sarebbe
questo
| torry?
č un sito fatto bene dove
puoi scaricarti oggetti (e non solo)
per Delphi/C++Builder, l'indirizzo č:
www.torry.ru
uno simile, ed altrettanto valido č
Delphi Super Page:
http://delphi.icm.edu.pl/
ah, dimenticavo, benvenuto! :)
Ciao,
Alan Solo

Grazie,
sono contento di essere entrato in un gruppo di discussione
così interessante. Ho già chiarito molti dei miei dubbi sulla
potenza di Delphi (navigando nelle vostre lettere ho scoperto
funzioni di Delphi che ho sempre ignorato).
Delphi Super Page lo avevo già visitato. Ora devo proprio
vedere com'è quest'altro sito (anche perchè DSP l'ho sbancato
scaricando tutto quello che ho trovato con il mio potentissimo
GetRight).
Alla prossima e grazie ancora!

Intanto ringrazio del suggerimento, poi vi farò sapere... Bye!
Newsgroup: it.comp.lang.delphi
Titolo: [D6 Pro] Link tra ClientDataSet e ... che cosa?

Sto provando ad usare il ClientDataSet e ... se si comporta da normale
dataset non ci sono problemi.
Questi intervengono se si cerca di collegarlo ad un DataSetProvider in
quanto non esiste la proprietą per eseguire la connessione oppure io non la
conosco.
La domanda č: esistono componenti che non sono disponibili nella versione D6
Pro che permettono la connessione?
Grazie a tutti quelli che vorranno rispondere.
Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

conosco.
Anche io uso D6 pro, ecco come faccio:
ClientDataSetPROVA : TClientDataSet;
DataSetProvider1: TDataSetProvider;
Ora, per fare quello che cerchi:
ClientDataSetPROVA.ProviderName := DataSetProvider1.Name;
Tutto qui.
Ciao
-- 
Morde. 
(
mo...@despammed.com
)


Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)

Grazie a tutti e 2 veramente inoltre ho comprato il libro di Cantu' su D6 ed
ho visto che se si definiscono gli indici del componente ClientDataSet
...
Object ClientDataSet : TClientDataSet
   IndexDefs = <
      Item
         Name = 'ClientDataSet1Index1'
         Fields = 'Continent'
         GroupingLevel = 1
      end >
   IndexName = 'ClientDataSet1Index1'
...
Si possono raggrupppare i record con campi uguali tramite
...
Procedure TForm1.ClientDataSet1ContinentGetText (Sender: TField;
Var Text: String; DisplayText: Boolean);
Begin
  If gbFirst In ClientDataSet1.GetGroupsState(1) Then
    Text := Sender.AsString
  Else
    Text := '' ;
End ;
...
Nel libro vengono usati :
ClientDataSet1
DataSetProvider1
DataSource1
Table1
DBGrid1
e sono collegati tra loro
Table1.DataBaseName := 'DBDEMOS' ;
Table1.TableName := 'Country.DB' ;
Table1.Active := True ;
DataSetProvider1.DataSet := Table1 ;
ClientDatSet.ProviderName := 'DataSetProvider1' ;
ClientDatSet.Active := True ;
...
Grazie ancora e Buon Natale
Mario
P.S. Il collegamento dei componenti č meglio farlo a Design-Time



--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 P.S. Il collegamento dei componenti è meglio farlo a Design-Time
Questo è vero se il progetto è semplice ed il CDS si trova nello stesso
modulo
dove si trova il datasetprovider perchè altrimenti è consigliabile in genere
agganciare
i componenti anche a  runtime. perchè delphi quando utilizzi il VFI si perde
dei collegamenti.
ciao
   gabriele
Newsgroup: it.comp.lang.delphi
Titolo: Help su SPAZIO OCCUPATO

Come posso ridurre drasticamente le dimensioni del file????
Come posso disabilitare le librerie che si caricano automaticamente in un
file eseguibile???
Queste info mi servono per realizzare un programma CGI  di dimensioni non
esagerate!!!
grazie
Il mio sito, con prog. e librerie sul delphi č  
http://jump.to/bug

Il mio sito, con prog. e librerie sul delphi è  
http://jump.to/bug
Ciao ! Ecco del codice che ti permette di avere un programma piccolissimo
senza finestre. Copia tutto su un file, chiamalo quellochevuoi.dpr e aprilo
con delphi. Attento che qui stavo vaneggiando sui socket ma non funziona
niente (è un prog vecchio che non ho più toccato)
program msx;
uses
  Windows, Messages, WinSock;
const
  AppName = 'Window1';
  Porta = 4001;
// INIZIO DEL PROGRAMMA
var
  s,sc:Tsocket;
  siz:integer;
  address:sockaddr_in;
  WSAdata:TWSAData;
  AMessage: TMsg;
  cmd:array[0..21] of char;
  input:array[0..21] of char;
  myname:array[0..21] of char;
  i:byte;
  sock:Tsockaddr;
begin
  // qui ci va la roba fuori dal loop
  WSAStartup ($0101,WSAdata);
  Zeromemory(@address, sizeof(address));
  gethostname(myname, 20);
// queste sono inutili: protocollo sempre inet (tcp)
//  hp := gethostbyname(myname)^;
//  address.sin_family := hp.h_addrtype;
  address.sin_family := PF_INET;
  address.sin_port := htons(PORTA);
  s := socket(AF_INET, SOCK_STREAM, 0);
  bind(s,address,sizeof(sockaddr_in));
  listen(s, 3);
  siz:=sizeof(sock);
while true do begin
  sc := accept(s, @sock, @siz);
  i:=0;
  cmd:='CIAO ! '#13#10;
  cmd[6]:=char(i+byte('0'));
  input:='                     '#0;
  while input[0]<>'q' do
   begin
    cmd[6]:=char(i+byte('0'));
    send(sc,cmd,9,0);
    i:=recv(sc,input,20,0);
   end;
end;
  while GetMessage(AMessage, 0, 0, 0) do begin
   // qui ci va il loop
    TranslateMessage(AMessage);
    DispatchMessage(AMessage);
  end;
  Halt(AMessage.wParam);
end.

Newsgroup: it.comp.lang.delphi
Titolo: Leggere il codice di Office 97 da un'applicazione

Sto generando un programma che mi rilevi le varie licenze installate sul PC
dove viene lanciata l'applicazione.
Mi servirebbe "scoprire" mediante qualche funzione il codice di licenza di
un'eventuale Office 97 installato.
Nel registro non ho trovato nulla.
Ho visto che (sapendolo da prima) il codice è inserito direttamente nel file
eseguibile.
C'è qualche funzione che permette di leggerlo dall'applicazione senza far
aprire Word o Excel al cliente e farglielo inserire a mano dopo averlo letto
dalle informazioni?
Grazie mille.
Giancarlo

 dalle informazioni?
Premesso che credo tu sia OT...
Non credo sia una buona tecnica.
Se cambia la versione di office, molto probabilmente cambia la sua posizione
all'interno del file exe.
Delphi ha tutta una serie di funzione per gestire i file.
Cerca nella guida.
file management routines
Altro modo?
Magari esiste una proprietà del com di Word o Excel che ti restituisce
questo valore...
Vedi VBA di Excel o Word.
Bye
AS