mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: OO ?

Sto cercando di cambiare ad una mentalità ad oggetti. Vi sottopongo qualcosa 
di quello che sto facendo allo scopo di avere critiche e suggerimenti.
 
Ho questa classe:
 
  TListOfBudgets = class(TObjectList)
  private
    .............
  public
    function  LoadFromDs(aDataset: TDataset): TListOfBudgets;
 
la function è implementata più o meno così:
function TListOfBudgets.LoadFromDs(aDataset: TDataset): TListOfBudgets;
var
  oMensili: TMensili;
begin
  result:= TListOfBudgets.Create;
  while not aDataset.Eof do
  begin
     oMensili:= TMensili.Create(.....)
     result.Add(oMensili);
     next;
  end;
 
Nel main, ho una var BudgetsList di tipo TListOfBudgets creata al create. 
Quando è necessario, eseguo una query e poi carico la BudgetsList con la 
istruzione che segue:
 
  BudgetsList:= BudgetsList.LoadFromDs(QBudgetXDBGrid);
 
Queste le domande:
- Va bene che la classe TListOfBudgets abbia una funzione che restituisce 
proprio un oggetto di questo tipo ?
  (o è meglio farne una funzione esterna?)
- per alcuni eventi, esempio cambio di anno, la BudgetsList va ricaricata 
con altri oggetti con altri valori.
  va bene semplicemente riciclare sulla istruzione sopra ? O devo fare 
qualche operazione di pulizia ? 
 
 
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
 
 

 proprio un oggetto di questo tipo ?
 
Vedi sopra. Non ti serve proprio creare una classe del genere.
 

 proprio un oggetto di questo tipo ?
Vedi sopra. Non ti serve proprio creare una classe del genere.
..
Va bene: Facciamo che io abbia FBudgets come proprietà della mia classe. 
Quando lo istanzio (per esempio con nome BudgetsList), lo inizializzo 
(inizializzo gli oggetti in esso contenuti) con valori provenienti da 
qualche fonte. La mia domanda è: se devo ri-inizializzarlo con altri valori 
(per esempio di un anno diverso), devo prima farne il free (e cancellare 
tutti gli oggetti contenuti), oppure no ? 


 tutti gli oggetti contenuti), oppure no ? 
 
No, ti basta fare un clear, ma la tua object list deve essere stata creata passando true al costruttore, in modo che si occupi della distruzione degli oggetti che contiene:
 
FBudgets := TObjectList.Create(true);
 
...
 
FBudgets.Clear();
 
Guarda la documentazione su TObjectList sul sito Embarcadero, perche` ormai e` implementata con i generics:
 
http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/Generics_Collections_TObjectList.html
 
 

No, ti basta fare un clear, ma la tua object list deve essere stata creata 
passando true al costruttore, in modo che si occupi della distruzione degli 
oggetti che contiene:
 
FBudgets := TObjectList.Create(true);
...
FBudgets.Clear();
..
Si, è implementata con True, questo l'avevo fatto. Grazie 

Newsgroup: it.comp.lang.delphi
Titolo: TLabel

Ciao NS,
ho una label di una certa lunghezza, sulla quale vado a scrivere un testo
variabile.
Vorrei ottenere, nel caso in cui il testo sia + lungo della label i
puntolini alla fine ....
Esempio:
TESTO = 'ABCDEFGHILMNO'
label.caption := 'ABCDEF...'   perchè se vi aggiungessi un'altro carattere
esso non sarebbe visibile....
Avete un'idea?
Grazie Tante....

 puntolini alla fine ....
Dovrebbe bastare un semplice algoritmo:
if length(s)>MaxLettere then
 begin
  s:=copy(s,1,MaxLettere-3);
  s:=s+'...';
 end;
il modo migliore per applicare questa cosa e' derivare TLabel con qualcosa
tipo TPuntiniLabel e fare l'override del metodo che setta la proprieta' (che
dovrebbe essere qualcosa tipo SetCaption). Ma puoi anche evitare e mettere
l'algoritmo nel tuo programma, dove scrivi sulla label.
Ciao!                        {MSX}
--
{MSX}  -  
http://msx.rules.it
Mantenitore delle FAQ di it.comp.lang.delphi,
reperibili qui: 
http://gpi.infomedia.it/abc/delphi/FaqDelphi.txt

 puntolini alla fine ....
Vai su 
http://it.torry.net/3dlabels.htm
 e prendi il componente TLabel95 v.1.0
dice che è per D2, ma l'ho compilato anche in D6... e fa proprio quello che
chiedi.
--
Jax
Newsgroup: it.comp.lang.delphi
Titolo: Generare frasi casuali

Salve a tutto il NG (spero di non essere OT)
Volevo realizzare un generatore di frasi casuali; cioe' un programma che 
una volta avviato visualizzi un Label all'interno di un Form con una frase 
scelta in maniera casuale (quindi diversa ad ogni avvio di programma) da 
una lista (es. /home/nome_utente/.lista).
Per il momento ho fatto tutto il "contorno"... riassumendo mi servirebbe 
"solo" sapere come posso fare in modo che all'avvio del programma venga 
scelta una frase in maniera casuale da un determinato file.
Non ho mai programmato in Object Pascal ma ho semplicemente una tenue 
infarinatura di C, pero' anche dei semplici consigli sarebbero davvero 
molto graditi :)
GRAZIE MILLE :)
--
Giuseppe

Ci sono vari modi...cmq uno semplice può essere:
Var
   words: Array[0..10] of string;
begin
   words[0]:='una frase uqalsiasi';
   words[1]:='anche qui una frase qualsiasi';
   words[2]:='ecc...';
   Randomize;
   Label1.caption:=Words[Random(10)];
end;

 wrote in message
HyZy7.30036$1H1.2...@news.infostrada.it...


 una lista (es. /home/nome_utente/.lista).
La pappa pronta!
procedure TForm1.FormCreate(Sender: TObject);
var
 slFrasi: TStringList;
begin
 slFrasi := TStringList.Create;
 try
  slFrasi.LoadFromFile('........');  // qui ci metti il nome del tuo file
  Randomize;
  Label1.Caption := slFrasi[Random(slFrasi.Count)];
  finally slFrasi.Free;
 end;
end;
Ciao
Jax

 una lista (es. /home/nome_utente/.lista).
Su 
community.borland.com
 c'era tempo fa un articolo tipo 'gli insulti
del bardo' che _costruisce_ le frasi pescando da un archivietto di nomi,
avverbi, aggettivi (quest'ultimi desueti e Scuotilancia-like)(es: Tu,
brutto gaglioffo con la pancia simile ad una botte da 80 galloni, giu'
le mani dal mio programma).
Molto simpatico. Le combinazioni, anche con pochi elementi per array,
diventano un numero notevole; ovv.te in italiano e' un po' piu'
difficile.
Saluti
Paolo Arosio

 La pappa pronta!
mmm... buona! :)
 
Ti ringrazio era davvero quello cui avevo bisogno :)
Ciao
PS
Grazie a tutti per i consigli :)

Newsgroup: it.comp.lang.delphi
Titolo: Eseguire applicazioni DOS

Salve a tutti !! Ho la necessità di eseguire un'applicazione DOS. Sono
riuscito a eseguirla in maniera ottimale ridirigendo anche l'output, l'input
e l'error su file del mio programma in modo da poter interagire in modo
trasparente. Ora il problema: come cavolo si fa a togliere il PROGRAMMA DI
SUPPORTO POP-UP DI WINDOWS ? Ovvero quella infida finestra che solo il
CTRL-C può distruggere. In particolare, quando l'applicazione termina, io
vorrei che si chiudesse istantaneamente, senza che l'utente debbe premere
CTRL-C ! Anche perchè se dalla mia applicazione devo aspettare che il
processo termini, essa rimane bloccata fino a che l'utente toglie il
"programma di supporto".
E poi a cosa cavolo serve il programma di supporto ???
Ciao a tutti !!                                {MSX}

 wrote in message
Fu984.36422$m62.3...@news.infostrada.it...

Newsgroup: it.comp.lang.delphi
Titolo: Terminali barcode Datalogic

C'è per caso qualcuno che sa come ricevere dati da un terminale Formula
734 via seriale?
Sto provando un po' di componenti ma non capisco come usarli :((
--
Jax

se non hai il manuale del protocollo di comunicazione, proprio di ogni
produttore, non ne uscirai mai.
Bye
A.

 produttore, non ne uscirai mai.
Ah.
--
Jax

Ciao,
nella mia azienda li utilizziamo...devi registrarti l'ocx e utilizzare
quello.
Scaricati la demo di EasyGen sul sito contiene anche l'ocx e un esempio in
visual basic.
Io mi sono occupato sia del programma di scarico/acquisizione da F732/4 che
della programmazione del Terminale laser tramite EasyGen,
quindi se hai ancora bisogno contattami in privato.
bye
Massimiliano Zonca
------------------------------------------------------------------------
SoftWay S.R.L.
Massimiliano....@Softway.it (togliere _NO_SPAM_)
www.SoftWay.it

 quindi se hai ancora bisogno contattami in privato.
Grazie 1000, domani se proprio non cavo un ragnetto dal buco, ti scrivo.
:)
--
Jax
Newsgroup: it.comp.lang.delphi
Titolo: Esportare in MDB

Salve a tutti,
dovrei esportare alcuni campi di una tabella Paradox 7.0 in una tabella 
Access.
Il problema sta nel fatto che la tabella la devo creare da programma.
Potete consigliarmi qualcosa ?
-- 
Daniele Napoli
nap...@drsoft.it
 

 Potete consigliarmi qualcosa ?
Se devi crearti la tabella a runtime ti conviene far capo al DDL ( Data 
Definitin Language ) creando prima il database e poi la tabella che deve 
contenere i record per poi popolarla.
Guarda qui :
http://msdn.microsoft.com/library/default.asp?url=/library/en-
us/dnacc2k/html/acintsql.asp
Diego
--- posted by geoForum on 
http://www.delphiedintorni.it


Prova ad usare i componenti KaDao che, se non ricordo male, sono anche free.
Saluti, Giuseppe

Newsgroup: it.comp.lang.delphi
Titolo: editor delphi ....help....dove sono i pallini blu?

Sto usando delphi 6 personal ed ho un problema gigantesco.
Stro scrivendo una funzione ma l'ide di delphi non mi mette i pallini
azzurri a lato del codice e di conseguenza non mi esegue alcune
righe.......ho provato a ricompilare a fare il rebuild...niente sono
disperato....è come se quelle righe fossero dei
commenti.....boh!!!.....aiuto....PLEASE...
Grazie
k


Il compilatore ottimizza (se č impostata l'opzione) il codice eliminando in
automatico alcune parti del codice che non
verrebbero mai eseguite, ad esempio questa:
If false Then
  begin
    ...
    codice mai eseguito e senza pallini
    ...
  end
else
  begin
    ...
    codice sempre eseguito e con pallini
    ...
  end

 Il compilatore ottimizza (se è impostata l'opzione) il codice eliminando


 ciao..
Spesso anche io ho bisogno di vedere il valore di una variabile per il debug
e se il
compilatore me la elimina utilizzo un trucco banale tipo aggiungere un paio
di line
dopo che riutilizzino il valore della variabile tipo:
info:=.....;
if info<>.... then
  info:=....
else
  info:=....
ed in genere riesco a vedere cosa contiene la variabile info, altrimenti
devi metterci un'istruzione tipo showmessage nell'if

devi metterci un'istruzione tipo showmessage nell'if
oppure puoi utilizzare un debugger e aggiungere una riga tipo questa:
debugger.LogMsg('Passato per di qui');
Poi, basta disabilitare il debugger, senza bisogno intervenire sul codice per
rimuovere le righe di debug.
Ciao
-- 
Morde. 
morde[at]programmer[.]net

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

 Se ho il l'oggetto TDataTimePicker e voglio visualizzare in Panel1 la 
data riportata nel calendario(TDataTimePicker) come faccio?
--- posted by geoForum on 
http://www.delphiedintorni.it

 data riportata nel calendario(TDataTimePicker) come faccio?
Voilà:
  procedure TForm1.Button1Click(Sender: TObject);
  begin
    Panel1.Caption := FormatDateTime('dd/mm/yyyy hh:nn:ss', 
      DateTimePicker1.DateTime)
  end;
Saluti
	Marco Bortolani
	info @ 
marcobortolani.it

Grazie Marco!


Newsgroup: it.comp.lang.delphi
Titolo: aiutatemi .....sono in crisi .....ragazzi ci siete?.....rispondetemi......sempre errori

delphi runtime error 256 at 0001c498
rdbms-with soap- web xml-soap-tcp\ip-d com corba

 ha scritto nel messaggio
news:ak7u4k$ctq$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.delphi
Titolo: Componenti Delphi per Elettronica Digitale

Salve a tutti,
vorrei sapere se qualcuno sa se esistono dei componenti Delphi che
rappresentano dei componenti
elettronici digitali.
Grazie in anticipo a chi mi vorrà dare un'indicazione.
Giordano

elettronici digitali.
Io ne ho fatti alcuni: un indicatore di bit, un dip a 8 posizioni, un
led, un display, un voltmetro (questo e' mezzo digitale :))
Se e' questo il genere che ti interessa, posso mandarteli, ma sono
proprio artigianali. :)
Ciao.Alberto.
-------------------------------------------------------------
Alberto Rubinelli           Mail : 
alb...@retrocomputing.net
A2 SISTEMI                  Http : 
www.retrocomputing.net
Via Costantino Perazzi 22   Tel 0321 640149
28100 NOVARA (NO) - ITALY   Fax 0321 391769
ICQ : 49872318              Odigo : 5269083


Non mi interessa una cosa sofisticata quindi penso che i tuoi componenti
vadano più che bene. Se me li puoi inviare il mio email è:
giordan...@casaccia.enea.it
Grazie mille e ciao,
Giordano

Newsgroup: it.comp.lang.delphi
Titolo: Indy 10 + D2005

Un aiuto per cortesia...
Con Indy 9 + D5 potevo agganciare un Intercept a oggeto SMTP ad esempio.
Ora con D2k5 non sono riuscito a farlo. L'oggetto SMTP non ha la possibilità 
di specificare un intercept (per intenderci quello con il fulmine).
Grazie !

 ha scritto nel messaggio 
news:CVXXd.1035592$35.38...@news4.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: Gestire la immagini in formato mpeg

Ciao a tutti,
vorrei sapere se esiste un componente per gestire le immagini in formato
mpeg.
Attendo notizie..
Grazie
BOBO.

mpeg.
MPEG non è un tipo di immagine.
E'un formato video compresso utilizzato ad esempio per la tv via satellite o
per i dvd.
Gestire è una parola grossa: cosa intendi?
O magari parli di JPEG: in questo caso esiste la unit jpeg apposita oltre
alla classe TJpegImage.
Saluti
AS
"Se è Microsoft non funziona"
Newsgroup: it.comp.lang.delphi
Titolo: Appendere dati memo

Ho una memo contenente tre colonne di dati
esempio:
verdi              viola             marroni
rosa               gialli              rosa
neri                bianchi         rosso
vorrei che codesti dati fossero appesi ad una tabella
contenete tre campi A B C
verdi,rosa e neri appesi al campo A
viola,gialli e bianchi appesi al campoB
marroni,rosa e rosso appesi al campo C
Vi ringrazio per il vostro aiuto
Paolo 

Var
  Campo1, Campo2 Campo3 : String ;
  i : Integer ;
Begin
   Table1.Open ;
   For i:=0 To n Do // n è il numero di righe-1 della memo
     Begin
       Campo1 := Trim( (LeftStr( Memo1.Lines[i], 15) ) ; // controlla ii nhumero di
caratteri e attenzione ai tab
       Campo2 := Trim ( MidStr ( Memo1.Lines[i], 20, 15) ) ;
       Campo3 :=Trim ( RightStr (Memo1.Lines[i], 15) ) ;
      Table1.Append ;
      Table1.FieldByName('A').AsString := Campo1 ;
      Table1.FieldByName('B').AsString := Campo2 ;
      Table1.FieldByName('C').AsString := Campo3 ;
      Table1.Post
  End ;
Ciao
Mario - (
mari...@inwind.it
)
PS. Anzichè n metti Memo1.Count-1, oppure fai un for ...each
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Ti ringrazio molto per la risposta,che cosa devo dichiarare come Uses per 
far funzionare la funzione LeftStr?
Perche' mi da' questo errore:
Undeclared identifier LeftStr
Ho in parte risolto perche' ho inserito a parte la funzione LeftStr,ma 
vorrei migliorare il tutto.
Di nuovo grazie 

Ho risolto dichiarando StrUtils nella sezione Uses
Di nuovo grazie

Newsgroup: it.comp.lang.delphi
Titolo: possibile inserire "plug-in" all'interno di un eseguibile ?

non riesco a collegarmi ad un vecchio mio post :( lo trovate qui:
http://groups.google.it/group/it.comp.lang.delphi/browse_thread/thread/bd51d2467230e08b/7a9b04206eac263d?lnk=gst&q=scriptors&rnum=24&hl=it#7a9b04206eac263d
scusate , dopo un periodo di pausa ho ripreso il mio Hobby ;)
in realtà vorre sapere se è possibile fare quanto segue (supponiamo
che sia sempre io ad eseguire entrambe le attività)
1. creo il programma (in delphi) ... in vari frame
2. compilo il tutto creando un eseguibile
3. creo un frame (ho a disposizione i sorgenti quindi verifico che
funzioni)
4. compilo il frame creando un eseguibile e/o qualunque altro tipo di
estenzione (???)
se, e solo se, all'interno della directory del main program c'è un
file "FrameX", viene attivato un menù ed i relativi comandi fanno capo
al "FrameX"
__________
altra possibilità
1 creo il programma a frame
2. tolgo un frame dal programma
3. compilo il programma
4. ... come faccio ad aggiungere il frame eliminato in precedenza ???
spero di essere riuscito a farmi capire ... e grazie anticipate per le
risposte ;)

se non è possibile ditelo ...
anche se la mia filosofia è che "tutto è possibile ... basta scoprire
la strada giusta (con il dovuto studio)"
Newsgroup: it.comp.lang.delphi
Titolo: ExitWindowsEx e risparmio energetico

chiamando ExitWindowsEx durante lo sleep mode, explorer non viene terminato
ma rimane bloccato e il computer si ferma sulla classica finestra 'Termina
applicazione' senza riuscire a portare a termine lo shutdown. come si puň
ovviare a questo problema? esiste un'API da chiamare per uscire dallo sleep
mode prima di effettuare lo shutdown?
--
il rospo

 mode prima di effettuare lo shutdown?
Ummm... la sparo così a caso... prova ad inviare al desktop un comando
tastiera o mouse.
 (mouse_event   o usa i messaggi tipo wm_keydown o wm_char ecc ecc).
Magari è solo una vaccata... ma prova!! e fammi sapere pls se funziona ;-)
Ciao!! Davide DG

Newsgroup: it.comp.lang.delphi
Titolo: Qualche domanda sui Real

ho un paio di domande alle quali non ho trovato risposta sulla guida di 
Delphi nè altrove, quindi le chiedo qui:
 - qualcuno sa quale range dei Real è considerato NaN? (Not a Number)
   e quanto valgono le costanti POSITIVE_INFINITE e NEGATIVE_INFINITE?
 - qualcuno sa la struttura dei Real a 32 bit e di quelli a 48? intendo
   dire, quanti byte formano il segno, quanti la caratteristica e quanti
   la mantissa? in pratica, se dovessi scrivere Real e Real48 come dei
   record, come dovrei fare?
grazie in anticipo :)

 grazie in anticipo :)

 1 bit segno, 8 bit esponente, 20 bit mantissa (in ordine)

  1 11111111 00100010001001010101010 = NaN
tnx
in esadecimale (mi prendo la libertà di convertirli :) :
$00000000   0
$80000000  -0
$7F800000   infinito
$FF800000  -infinito
NaN:
$7F800001..$7FFFFFFF
$FF800001..$FFFFFFFF

nonzero. 
lo so :)
apposta ho chiesto il range

   record, come dovrei fare?
Non potresti farlo, perche' a differenza del linguaggio C, non puoi
specificare il numero di bit durante la costruzione di un record.
--
Walkie...@Libero.It (ICQ# 8143647)

Delphi nè altrove, quindi le chiedo qui:
Esistono diversi tipi reali : Real48, Single, Double, Extended, Comp e
Currency
Real48 e' formato da 6 byte (48 bit) divisi in :
1  bit di segno
39 bit di mantissa
8  bit di esponente
Questo tipo NON puo' memorizzare NaN e infiniti (si produce un
overflow error).
Il tipo Single e' formato da 4 byte (32 bit) ed e' diviso in :
1  bit di segno
8  bit di esponente
23 bit di mantissa
Il NaN si ottiene con esponente = 255 e mantissa <> 0.
Il tipo Double e' formato da 8 byte (64 bit) ed e' diviso in :
1  bit di segno
11 bit di esponente
52 bit di mantissa
Il NaN si ottiene con esponente = 2047 e mantissa <> 0.
Il tipo Extended e' formato da 10 byte (80 bit) ed e' diviso in :
1  bit di segno
15 bit di esponente
64 bit di mantissa
Il NaN si ottiene con esponente = 32767 e mantissa <> 0.
Comp e Currency sono a 64 bit e vengono rappresentati come interi con
segno.  Non possono memorizzare NaN.
Newsgroup: it.comp.lang.delphi
Titolo: Programmatore delphi Molise

Cerco un programmatore in Molise per un Programma Borland delphi 6.
Ho molta urgenza

I non abito in molise ma sono attalmente disponibile.
Anche se non č minimamnete corretto ti chiedo, se deciderai di contattarmi,
di scrivere a 
mari...@inwind.it
.
Ciao
Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.lang.delphi
Titolo: D2006 TRichEdit non vede ipertesti

D2006 , con Update2 + HotFix
inserendo un componente TRichEdit e caricando un file .rtf,
con RichEdit1.Lines.LoadFromFile(nome),
riconosce Font e Colori , ma non i collegamenti ipertestuali,
mi mette < prima del collegamentoi e > dopo lo stesso
si puo' ovviare , in qualche modo ? 

Maurizio ha scritto:

Se non ricordo male, il supporto ai collegamenti ipertestuali non è una 
caratteristica del formato RTF, quindi l'editor che ti mostra questo 
tipo di informazioni provvede esso stesso a riconoscerle e a trattarle 
come tali.
Per avere un controllo *TRichEdit* in grado di supportare collegamenti 
ipertestuali, prova a leggere questo articolo:
http://delphi.about.com/od/vclusing/l/aa111803a.htm
(in lingua inglese)
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
     Non hai la possibilità di scaricare Turbo Delphi Explorer?
     Te lo spedisco io!! [
http://blog.marco.breveglieri.name/?p=48
]

> (in lingua inglese)
articolo interessante, molte grazie.
ciao Maurizio

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

prova, con le scuse

prova, con le scuse
it.test
free.it.test
ci sono una valanga di newsGroups di test perchè devi
sporcare proprio questo NG????
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it

 ha scritto nel messaggio
news:TaBxc.29149$G%.5663@tornado.fastwebnet.it...


Fabbiuzzu,
  u fattu ca addumannò scusa un significa ca u pò fari!!!
--
Acqua

Esagerato. Pippo ha chiesto pure scusa.
[OT] questo è un luogo publico ... domani entro con la
macchina nella vetrina della scuola di tuo figlio con
sul cofano un cartellone "Chiedo scusa" e tutti diranno
a chi mi arresterà ..."Esagerati, ha chiesto pure
scusa" :) ... ovviamente il paragone è esagerato ...
comunque quello che mi ha dato MOLTO fastidio è che non
è stato un errore (gli errori sono sempre perdonati) ma
è stato altamente voluto in quanto le scuse non le ha
postate in un messaggio successivo ma nello stesso
messaggio ... ci sono luoghi opportuni per fare le
proprie prove ...
con questo chiudo l'inutile conversazione ... :-|

Newsgroup: it.comp.lang.delphi
Titolo: systray RxTrayIcon

Ho inserito nel mio progetto il componente chiamato RxTrayIcon (anche perchè
non ne conosco altri), questo componente dovrebbe fare in modo da mettere un
icona sulla systray quando lo avvio, io però vorrei fare la seguente cosa :
quando minimizzo la form, il pulsante sulla
barra non comparisse, e cliccando sull'icona la form diventa "massimizzata".
Grazie a tutti
Antonio Volpe


wrote:

dunque:
1) ti crei un popupmenu che assegni alla trayicon
2) assegni ad un item (restore o qiualcosa di simile) la proprietà
default a true
3) nell'evento onclick scrivi
procedure TMainForm.Restore1Click(Sender: TObject);
begin
  Application.Restore;
  Application.BringToFront;
end;
in questo modo facendo doppio click sull'icona viene ripristinata la
form. Puoi anche assegnare il codice all'evento OnDblClick della
TrayIcon, ma in questo caso non devi/non puoi  assegnare un popupmenu
al componente.
infine, nell'evento onminimize:
ShowWindow(Application.Handle, SW_HIDE);
e il gioco è fatto.
Ciao
-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"

 e il gioco è fatto.
Quasi fatto,cioè non trovo l'evento onminimize, o almeno non sta sull'
oggetto form,da che oggetto lo prendo l'evente onminimize.


oggetto form,da che oggetto lo prendo l'evente onminimize.
TApplicationEvents, lo trovi nella paletta Additional.
Ciao.


 ha scritto nel messaggio
news:yTiVP5UNmbri2J2=fSO3DR...@4ax.com...


 e cliccando sull'icona la form diventa "massimizzata".
Devi impostare anche il campo tvRestoreClick della proprietà Visibility a
True
Ciao

Newsgroup: it.comp.lang.delphi
Titolo: Procedura in Interbase

Ciao a tutti
ho il seguente problema, devo far eseguire uno script che crea una procedura
ad interbase.
La procedura non ne vuole sapere di essere eseguita ritornando sempre
SQL error code = -104 Token unknown - line 36, char 43 ?
la linea in questione è la seguente  SELECT MAX(IDTABELLAA) FROM TABELLAA
INTO:Test
dove test è dichiarato
DECLARE VARIABLE test INTEGER;
Questa procedura comunque gira tranquillamente, do estratto lo script e sto
provando ad eseguirlo ma niente da fare.
Avete qualche suggerimento ?

Giuseppe scriveva fra l'altro:

f-up su it.comp.software.database,
Non si capisce bene cosa non funzioni, la procedura o lo script di
creazione di questa?
la seguente gira su FB 1.0.3, creata con IBE.
CREATE PROCEDURE NEW_PROCEDURE
RETURNS (
    MAXVAL INTEGER)
AS
DECLARE VARIABLE NEW_VAR INTEGER;
begin
  MAXVAL = 0;
  select max(ID) from reduceddata into :NEW_VAR;
  MAXVAL = NEW_VAR;
  suspend;
end
Saluti
Paolo Arosio
-- 
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"

xche postare solo parte della procedure? posta tutto il codice e vediamo.
A

 ha scritto nel messaggio
news:qR_Bb.21571$5o6...@tornado.fastwebnet.it...

ora non ricordo se IB sia case sensitive... cmq prova a verificare le
maiuscole, prova anche a lasciare uno spazio tra INTO e i due punti  e
magari invece di fare
INTO :Test
prova
INTO Test
Senza i due punti...
Spero che funzioni:D
Salvo
Newsgroup: it.comp.lang.delphi
Titolo: [delphi] evidenziare i campi input

Ho una form nella quale sono presenti dei TEdit per input dati. Il 
cliente mi ha chiesto di evidenziare con il colore giallo il componente 
TEdit corrente nel quale sta effettuando l'input, per non confondersi 
dato che l'attività che svolge permette solo l'input ad intervalli 
regolari,interrotto per dar retta ai suoi clienti.
Ho provato ad impostare la proprietà TEdit.Brush.color:=clYellow 
nell'evento onEnter ed TEdit.Brush.color:=clWhite nelle'evento onExit, 
ma funziona solo per alcuni ed per altri no, oppure rimangono tutti in 
giallo e non capisco perchè... Ho provato anche a selezionare il 
componente con la proprietà TForm.ActiveControl, ma niente... ma non mi 
viene in mente niente altro.
Suggerimenti?
Sembra una stupidata, ma vi assicuro che mi ha fatto perdere interi 
pomeriggi...
--- posted by geoForum on 
http://www.delphiedintorni.it

 pomeriggi...
Effetivamente e' una stupidata, ed a volte sono le stupidaggini a far 
perdere tempo perche' hanno la capacita' passare inoservate. :-)
Ciao
---
Ryo GQI 

uluzzu ha scritto:

Ciao,
   io ho fatto una form, ho trascinato una decina di TEdit, li ho 
evidenziati simultaneamente ed ho implementato i seguenti eventi come segue:
procedure TForm1.Edit1Enter(Sender: TObject);
begin
   TEdit(sender).Color := clYellow;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
   TEdit(Sender).Color := clWhite;
end;
... e funziona. Ho capito male?
Ciao,
baba.

 Suggerimenti?
Nonostante i suggerimenti che ti hanno dato siano tutti corretti, c'č
un'altra soluzione che č piů appropriata: derivarti il tedit e implementare
l'evento onenter e onexit lě dentro.
Cosě facendo avrai un altro tedit da inserire in ogni tua form a piacere.
http://delphi.about.com/od/vclwriteenhance/l/aa120603a.htm
ma ci sono tanti altri esempi basta cercare: io me lo sono scritto da me
per imparare un po' all'inizio con delphi (TMordeEdit)
ciao! ;)
-- 
Morde. 
ICLDweb: 
http://www2.samatel.com/icld/

Newsgroup: it.comp.lang.delphi
Titolo: sommare campi record

ciao a tutti,
come faccio a sommare il contenuto del campo "numfattura" di tutti i record
che hanno lo stesso ID???
ciao!

 ha scritto nel messaggio
news:tBEP9.44713$R45.2...@news2.tin.it...

Non so se ho capito bene quello che vuoi fare (anche perchč sei stato poco
chiaro nella domanda), ma provo a darti una risposta:
Fai una query
select ID, sum(numfattura)
from tabellafatture
group by ID
Ciao Giorgio

 Non so se ho capito bene quello che vuoi fare (anche perchè sei stato poco


 ha scritto nel messaggio
news:BpZP9.49791$R45.2...@news2.tin.it...

Se non vuoi fare una query fai una cosa di questo tipo:
procedure TForm1.SommaCampo;
var Somma:double;
begin
Table1.First;
while not Table1.EOF do
 begin
  Somma:=Somma+Table1.FieldByName('NumFattura').AsFloat;
  Table1.Next;
 end;
Label1.Caption:=FloatToStr(Somma);
end;
Ciao
Giorgio

 ciao
Puoi  usare i campi aggregati del clientdataset
^_Goblin_^
Newsgroup: it.comp.lang.delphi
Titolo: Ordinare frame

Ciao a tutti.
In un panel inserisco n frame tutti allineati Align:=alTop
Questi frame sono inseriti in un ordine preciso e così devono
rimanere, il primo più in alto, poi il secondo, ecc..
Come faccio a definirne l'ordine?
 
Lo chiedo perchè la seconda volta che li inserisco ottengo risultati
diversi e non capisco perchè...
 
Grazie,
Matteo

 Come faccio a definirne l'ordine?
 
Probabilmente dipende dalla posizione predefinita in cui vengono inseriti rispetto a quelli già presenti.
 
Così su due piedi, potresti tentare di impostare la proprietà "Align" prima al valore /alBottom/ e poi ad /alTop/ quando aggiungi il Frame al contenitore, sperando che non dia effetti collaterali visibili a video.
 
Ciao,
  Marco.
 
-- 
MARCO BREVEGLIERI
#Home: 
http://www.marco.breveglieri.name
 
#Blog: 
http://www.compilaquindiva.net
 

 Probabilmente dipende dalla posizione predefinita in cui vengono inseriti rispetto a quelli già presenti.
 
La soluzione che ho trovato e che riporto a futura memoria è quella di
forzare il top del nuovo frame un pixel sotto il precedente ma prima
di aggiungerlo nel panel.
Es:
NuovoFrame.Top:=FramePrecedente.Top+FramePrecedente.Height + 1;
NuovoFrame.Parent:=PanelContenitoreDeiFrame;
 
spero sia chiaro.
Matteo

Newsgroup: it.comp.lang.delphi
Titolo: Form come il Desktop

Ciao a tutti!
Vorrei fare un form grande esattamente come il desktop, senza alcun
tipo di bordo. 
In orizzontale tutto ok, mi occupa l'intero desktop, ma in verticale
e' piu' stretto di alcuni pixel (la proprieta' clientheight non arriva
alla risoluzione verticale che mi serve). Forse se li riserva per
qualche altra proprieta' che ho lasciato attiva, ma non saprei...
Chris

Il 22 giu 2001 Christian Meneghini ha espresso la sua creatività scrivendo:

Prova con:
    	BorderSyle := bsNone
    	WindowState := wsMaximized
Ciao ciao.
-- 
WulfMp3
wul...@email.it
"Poni ciò che sei nel minimo che fai."

 tipo di bordo. 
BorderStyle := bsNone;
left := 0;
top := 0;
clientheight := screen.Height;
clientwidth := screen.width;
Ciao, Davide DG.
Newsgroup: it.comp.lang.delphi
Titolo: stile Outlook

Come creare una applicazione stile outlook 2000, cioè con una main form che,
oltre al solito menù in alto, è divisa in due parti, con a sinistra una
colonna con i bottoni che si spostano in alto una volta premuti e con le
icone che si evidenziano al passaggio del mouse, e con a destra inserita la
finestra figlia ?
Esiste qualcosa di già pronto ?? Ultimamente ho visto diversi programmi
strutturati in questa maniera..è tipico di un qualche strumento di sviluppo?
Grazie
Valerio

 ha scritto nel messaggio
news:hU2X5.409$z4....@twister2.tin.it...


faccio pubblicità gratuita eh eh...
Dream OutBar : 
www.dream-com.com
E' shareware ma, secondo me, ne vale la pena....
ciao
Solid Snake IT

> delle bella interfacce garfiche. :-)
dai, non ci credo.. pure tu fan del mitico Edward "Eddie" Garf e delle sue
interfacce!! wowwwwwwwwwwwwwwwwwwwwwwwwwww!! pensavo di essere l'unico ad
adorare quei pulsantini sfumati e ombreggiati e le finestre con gli effetti
acqua sulle barre.. e pensare che c'e' chi le trova un po' gotiche.. mah..
secondo me sono bellissime!! Altro che le interfacciaccie MS!
Ciao, Sandro

e con a destra inserita la finestra figlia ?
una static o un suo equivalente, in cui "forzare" la finestra figlia
--
-----BEGIN GEEK CODE BLOCK-----
Version 3.1 (with proprietary extensions)
GE/M/S/O  d-  s:---  !a  c++++(c)>$  ul p+>+++   l+>++  e->----  w++>$  n++
o--  k-  w++  o?  m?  v?  ps++  pe-  y+>+++  pgp++  t+  5?  x++(+)  r  tv--
b++>++++  di++  d++  g--  e  h!  !r  xy**
------END GEEK CODE BLOCK------

Cos'e' il pager?? E una static???
il pager e' un controllo che con due pulsanti (sopra/sotto oppure
sinistra/destra, a seconda del layout) permette di scorrere una finestra
figlia all'interno del suo rettangolo. Spero di aver capito bene cosa
chiedevi... io ho in mente Outlook Express, ma tu parli di Outlook, quindi
probabilmente non c'ho preso...
Uno static e' una finestra generica, un rettangolo con un hwnd e null'altro


Newsgroup: it.comp.lang.delphi
Titolo: Jpg, Gif e co

Hola gente
volevo sapere se in una Timage era possibile aprire dei formati
diversi dalle bpm windows... per visualizzare dei file jpg, gif
animate e non o altri formati che devo fare???
devo forse inserire in altro componente aggiuntivo???
bye

MadBull,

se guardi solo un paio di gg indietro (24.10.2001) trovi un thread
intitolato Gif che fa al caso tuo ;-)
ciao
Antonio

> volevo sapere se in una Timage era possibile aprire dei formati
Il TImage di Delphi apre BMP, WMF, ICO, EMF, WMF
Perchè il TImage legga anche il JPEG devi aggiungere "jpeg" nella uses della
unit
Per le GIF scarica da 
www.sendai.it/encom
 nella sezione componenti TGIFImage
di Anders Melander e buon divertimento!
Max Etere

 wrote:
grazie per gli aiuti  : )
Newsgroup: it.comp.lang.delphi
Titolo: Piccolo adattamento codice da StringGrid a DBGrid

Vorrei nel codice di cui sotto adattare la linea  A che si riferisce ad una 
StringGrid con 6 record
alla linea B che si riferisce ad una DBGrid sempre con 6 record,la linea A 
mi crea giustamente un elenco del tipo:
rossi
verdi
gialli
viola
verdi
neri
mentre la linea B mi crea solo il primo record:
rossi
........
for Row := 1 to 6 do
  begin
A  Players[Row].PlayerName := SchedaIscrizioni.PlayersGrid.Cells[Nome 
Colonna, Row];  Giusta
B Players[Row].PlayerName 
:=SchedaIscrizioni.PlayersGrid.Fields[1].DisplayText;  Mi da' solo il primo 
record
Grazie per la risposta
Paolo 

Prova con qualcosa del genere...
Repeat
    for j := 0 to DBGrid1.FieldCount-1 do
        begin
          if (j>0) then s:=s+', ';
          s:=s+DBGrid1.Fields[j].AsString;
          showmessage(s);
        end;
      s:= '';
      DBGrid1.DataSource.DataSet.Next;
Until DBGrid1.DataSource.DataSet.Eof;
--- posted by geoForum on 
http://www.delphiedintorni.it

Scusa, meglio cosě...
Poi metti a posto tu in base a cosa vuoi vedere, questa la scorre tutta
Per vedere solo una particolare colonna metti ad esempio J:=1 etc.
DBGrid1.DataSource.DataSet.First;
Repeat
    for j := 0 to DBGrid1.FieldCount-1 do
        begin
          s:=DBGrid1.Fields[j].AsString;
          showmessage(s);
        end;


Newsgroup: it.comp.lang.delphi
Titolo: Report Builder e campi blob

Sto' provando la trial di ReportBuilder, mi sembra un prodotto fantastico
anche se abbastanza costoso e complesso da usare. Nel report che sto
tentando di realizzare ci sono due componenti memo per leggere due campi
blob, come posso gestire in maniera dinamica gli spazi di bianco che si
creano tra un campo e l'altro? Mi spiego meglio, se i due campi blob non
sono abbastanza pieni di testo si creano degli antiestetici spazi di bianco
tra l'ultima riga di testo e il bordo inferiore del componente memo.
Viceversa se il campo blob contiene molto testo il componente memo di rb non
"si allunga" di conseguenza. Qualche consiglio? Thanks
Med

 ha scritto nel messaggio
news:b9v668$gdt$1...@newsreader.mailgate.org...


> Qualche consiglio? Thanks
metti la proprieta' "stretch" del campo memo a true e vedrai che la band si
allunghera' proporzionalmente al testo contenuto nel memo.
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: [Delphi] Creazione frame

Ho provato a ricreare L'esempio scaricato dal blog di Marco, per quanto 
riguarda i frame.
Mi è capitata una cosa insolita:
quando creo i frame secondari, se chiudo i file e li riapro, mi esce un 
avviso:
Error readingNomeFile.TabOrder:Property TabOrder does not 
exist.Ignore.........
Quando poi apro il presunto frame in modalità grafica è diventato un 
form , (evidente è la barra del titolo)cosa che i frame non hanno!!!Anche 
se nell'exe
i file sono definiti TFrame.!!!!!
attualmente uso turbo explorer.
--- posted by geoForum on 
http://www.delphiedintorni.it

 form [...]
Probabilmente, hai sbagliato a creare il Frame che deriva dalla classe 
base della gerarchia, inserendo nel progetto un Frame normale e 
successivamente modificando il codice a mano.
Per creare un Frame partendo da uno già esistente nel progetto, 
sfruttando quindi la VFI (Visual Form Inheritance) di Delphi, devi 
selezionare la voce di menu [File|New|Other...], posizionarti sul nodo 
"Inheritable Items" (cioè "elementi ereditabili"), scegliere la base del 
tuo Frame da cui ereditare, assicurarti che l'opzione "Inherit" sia 
selezionata (in genere è forzata) e premere OK per inserire il Frame.
I Frame e i Form che ereditano da altri elementi analoghi, all'interno 
del progetto, descrivono questa condizione anche nel file DFM, che non 
viene adeguatamente configurato se crei un Frame nuovo, da zero, e 
modifichi semplicemente il codice affinché erediti da quello che desideri.
E' una domanda molto frequente... forse dovrei aggiungere questa 
informazione all'articolo sul blog che, in effetti, da per scontata la 
conoscenza di questo passaggio. :-)
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)


Grazie adesso funziona!
E' poco che smanazzo in delphi, quindi vi chiedo di avere pazienza.
Grazie


 E' poco che smanazzo in delphi, quindi vi chiedo di avere pazienza.
E sei apprezzabile perche' si vede che ti dai da fare :)
Pero' permettimi un consiglio : ogni tanto, prova ad immaginare che non 
esista internet ed a risolvere il problema da solo: ti serve ad 
accrescere la tua capacita' di analisi e di risoluzione dei problemi.
:)
Ciao.Alberto.
-- 
================================================================
Alberto Rubinelli - A2 SISTEMI 
news.aioe.org
 ThunderBird 2.0.0.14
Via Costantino Perazzi 22 - 28100 NOVARA - ITALY
Tel 0321 640149   Fax 0321 391769   BBS 0321 392320
Mail: 
alb...@oldcomputers.de
skype: albertorubinelli  ICQ : 49872318
Visita il mio museo di computers: 
http://www.oldcomputers.it
================================================================
Newsgroup: it.comp.lang.delphi
Titolo: Report Manager Designer

Volevo segnalare questo, se a qualcuno pu� tornare utile
http://reportman.sourceforge.net/
gratuito anche per usi commerciali
C. 

 
http://reportman.sourceforge.net/
Ottimo, ho dato un'occhiata alla documentazione, sembra ben fatto.
qui:
http://reportman.sourceforge.net/repmanstandard.html
si vedono le features disponibili se acquisti la versione pro.
Sembra che siano dei samples e drivers per il BDE (obsoleto).
Ciao
-- 
Morde

 Sembra che siano dei samples e drivers per il BDE (obsoleto).
Io non l'ho mai provato, ma c'era un thread su questo ng del 17/12/2009 
e le voci non sembravano entusiasmanti.

 e le voci non sembravano entusiasmanti.
Ciao a tutti, rispondo qui come aggiornamento al thread qui richiamato.
In queste settimane ho utilizzato a pieno Report Manager facendo delle 
stampe fiscali. Ho messo le immagini dei moduli come sfondo delle 
singole pagine, ho posizionato i campi sopra e ho ottenuto dei risultati 
ottimi come qualitï¿œ di stampa e come utilizzo a livello di programma.
L'unica pecca che lamento ï¿œ la poca documentazione, compensata perï¿œ 
dalla disponibilitï¿œ del codice sorgente che mi ha consentito di capire 
come risolvere le cose.
Nel complesso il giudizio sul componente ï¿œ molto positivo.
Saluti a tutti

 Nel complesso il giudizio sul componente ï¿œ molto positivo.
Posso chiederti di fare questa prova e postare il risultato:
dall'anteprima di un report esegui una ricerca impostando dei caratteri 
da trovare nell'apposito campo e poi premere il pulsante di ricerca (il 
binocolo) e vedere cosa succede? a me scompaiono gran parte dei dati 
visualizzati. Io ho provato con l'esempio (sample4.rep) a corredo del 
designer e scompaiono le descrizioni dei pesci.
Grazie, ciao.

 
A cosa serve cercare del testo in un'anteprima?
Te lo chiedo perchï¿œ io non ho mai trovato uno scenario simile dai 
clienti..
MAgari c'ï¿œ qualche modo di lavorare che ne ha bisogno.
Ciao
-- 
Morde

 MAgari c'ï¿œ qualche modo di lavorare che ne ha bisogno.
Ciao, intendevo dire mentre visualizzi il report a video per 
controllarlo prima di stamparlo.
Ciao.

 Saluti a tutti
Ok, vorrï¿œ dire che mi mangio la lingua ;-)
Ciao

Newsgroup: it.comp.lang.delphi
Titolo: Responso TIdHttp.DoRequest

Qualcuno può spiegarmi come si può leggere il responso dell'operazione
DoRequest? 
A leggere la guida di Delphi (molto povera purtroppo) mi pare di aver 
capito che la risposta è in formato TStream, però non riesco a leggerla!
Posto il codice che ho usato:
var risp: TStream;
    buf: array[0..256] of char;
begin
  risp := TStream.Create;
  idhttp.dorequest(hmget, 'http(etc)', nil, risp);
  risp.seek(0, soBeginning)
  risp.read(buf,0);
  ...
Purtroppo mi viene restituito un errore di "seek"  :(
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 leggerla!
Per quale motivo utilizzi DoRequest e non Get o Post o Head?
-- 
I'am what I'am, I do what I can

 Purtroppo mi viene restituito un errore di "seek"  :(
TStream e' una classe astratta, quindi non la puoi usare.
Ciao,
Andrea
Newsgroup: it.comp.lang.delphi
Titolo: Creazione runtime di componente

Ciao,
avrei la necessità di creare runtime un numero variabile
di TClientDataSet.
 with  TClientDataset.Create(Application) do
//ecc ecc
come faccio poi ad accedere ai vari componenti che creo, ad esempio per 
liberarli?
Se chiudo l'applicazione, i TClientDataset vengono liberati o la memoria 
rimane impegnata?
Grazie! 

se un componente ha un owner, cosa succede quando l'owner viene
liberato?  La risposta Ci viene AL SOLITO dalla guida in linea:
/*---------------------------------
Delphi syntax:
property Owner: TComponent;
C++ syntax:
__property TComponent* Owner = {read=FOwner};
Description
Use Owner to find the owner of a component. The Owner of a component is
responsible for two things:
The memory for the owned component is freed when its owner's memory is
freed.
[cut]
The owner of a component is determined by the parameter passed to the
constructor when the component is created. For components created in
the form designer, the form is automatically assigned as the Owner.
/*---------------------------------
Se poi l'esigenza è quella di distinguerli x usarli allora suggerisco
prima di tutto l'assegnazione di un nome, e poi l'uso di una tlist per
contenerli:
var
  TmpCds: TClientDataset;
MyList := TList.Create;
   TmpCds := TClientDataset.Create(Application);
   TmpCds.Name := 'kazzoneso1';
  ..
  MyList.Add(TmpCds);
...
Potresti usare una tobjectlist.
In quel caso, l'uso del costruttore è diverso:
   TmpCds := TClientDataset.Create(NIL);
Mo tu ti chiedi: PERCHE?
Semplice! la tobjectlist, come scritto nella guida in linea, fa la free
degli oggetti che contiene quando chiami la sua free.
AS

 ha scritto nel messaggio 
news:1128004430.6...@g43g2000cwa.googlegroups.com...


 Comunque grazie molte, mi hai chiarito qualche concetto.
Prego.
AS


No. Ma "spingi F1" equivale ad un tonnetto da 5 kg!
:-D
Ciao!

degli oggetti che contiene quando chiami la sua free.
Giusto in quanto la  proprietą OwnsObjects dell'tobjectlist č settata a true 
di default
Da Help:
OwnsObjects allows TObjectList to control the memory of its objects. If 
OwnsObjects is true (the default).....
 Goblin 

Ritornando alla TObjectList,
Come accedo ai CliendDataset in essa contenuti?
Cosi?
with (ClientDSList.Items[0] as TClientDataSet) do begin
E se volessi accedere ad un nome specifico di ClientDataset?
Devo scorrere la lista e trovare l'indice corrispondente per poi accederci
come sopra?
Grazie! 

 accederci come sopra?
Si. Oppure puoi usare una TStringList.
Nella prop string metti il nome, nella object metti il clientdataset
creato usando Application come Owner e per leggerlo:
TClientDataSet(MiaStringList.object[0])
AS

 AS
Newsgroup: it.comp.lang.delphi
Titolo: Interrupt su parallela ?

Lo so che l'argomento è discusso e ridiscusso...
Volevo sapere se si può gestire un interrupt da un segnale esterno tramite
delphi, preferibilmente su parallela.
ciao e grazie.

 delphi, preferibilmente su parallela.
Vediamo se ho capito bene.
Hai una scatola che ti manda su un pin un segnale e tu vorresti catturare
questo segnale tramite porta parallela e poi leggerlo con Delphi?
Ci sono diversi tool. Tempo fa ho usato TVicHW32, poi un tool della Sunix
che sfrutta le sue schede di I/O, poi, avendo bisogno di prestazioni, ho
mollato tutto e mi sono scritto un mio driver.
Bye,
Raktzo

 questo segnale tramite porta parallela e poi leggerlo con Delphi?
Bhè, detto così sarebbe molto facile...in realtà il computer deve stare a
fare gli affaracci suoi...e quando arriva questo segnale (interrupt) deve
compiere una certa azione.
Ciao.

 compiere una certa azione.
Avevo capito bene. Hai verificato le soluzione che ti ho dato?
Ne ho ricardato un'altro WinRT della bSquare. L'ho usato per qualche anno
con WinNT.
Hai già idea di come usare la parallela? Usi una PCI o quella interna?
Bye,
Raktzo

 delphi, preferibilmente su parallela.
Non puoi fare il polling?
-- 
The purpose of computing is insight, not numbers.  - Hamming
News 2000 [v 2.06] - 
http://www.akapulce.net/socket2000

Newsgroup: it.comp.lang.delphi
Titolo: problema DLL  :-(

un saluto a tutti, ho un problema:
non riesco a far eseguire su un altro pc un exe che ho creato (che nel mio
pc funziona senza problemi); infatti mi viene richista una dll (ipps20.dll)
che fa parte di un pack di componenti  (VideoLab) che ho usato nel progetto.
come posso risolvere ? devo necessariamente fornire la dll insieme al mio
exe e registrarla sull'altro pc?
grazie
[Fabry]
--
---------------------------------------------------------------------
"Eliminate annoying spam!
My mailbox is protected by iHateSpam, the #1-rated spam buster."
http://www.ihatespam.net

[Fabry]
Ciao MassimoB
--------------------------- 
http:\\
www.massimobeschi.it

 Ciao MassimoB
grazie molto gentile
ci provo
[Fabry]
Newsgroup: it.comp.lang.delphi
Titolo: Direttive {$ ...}

Buongiorno a voi del NG
ho due info da chiederVi sulla compilazione con le direttive
1 ) mi capita che compilando un progetto con queste direttive in testa alle
unit ....
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNIT_PLATFORM OFF}
...poi in fase di debug se seguo passo passo la procedura mi capita di non
avere allineato la riga che evidenzia l'ide di delphi con il  punto dove
dovrei essere ....
Già in fase di build del progetto mi mette i pallini del debug dove magari
non dovrebbero stare...( tipo su righe che non hanno codice !!! ) ... e
ancor + bello e che non sempre lo fa...
2) il dpr del progetto è così fatto :
program Linea;
uses
  Forms,
    .....
{$R *.res}
begin
     Application.Initialize;
     Application.Title := 'Modulo Linea';
     Application.CreateForm(TdmdOraMain, dmdOraMain);
     {$IFDEF ORACLE}
     with dmdOraMain do
     {$ENDIF}
     if OraDB.Connected then
     begin
          Application.CreateForm(TsrcMainMenu, srcMainMenu);
          Application.CreateForm(TCommonForm, CommonForm);
          Application.CreateForm(TsrcElenco, srcElenco);
          Application.Run;
     end;
end.
ma mi capita che tutte le volte che aggiungo unit al progetto delphi mi fa
sparire la riga con la direttiva
     {$IFDEF ORACLE}
e non mantiene + l'indentazione che ho messo...
Conoscete qualche modo per ovviare a tutto questo ?
Grazie !
-- 
Alberto Menghini

 e non mantiene + l'indentazione che ho messo...
Delphi agisce in diversi modi sul file principale del progetto, ad 
esempio quando modifichi il titolo della tua applicazione dalle opzioni 
di progetto. Inoltre, in questo file viene tenuta la traccia di tutte le 
unit utilizzate e delle form che devono essere create automaticamente.
Inserire manualmente delle istruzioni può causare il fallimento di 
queste "funzionalità in background" di Delphi oppure ci si può ritrovare 
con il codice reindentato e manipolato, oppure ancora con 
l'impossibilità di modificare le opzioni del progetto.
La soluzione più rapida, a mio avviso, è quella di demandare istruzioni 
speciali da compiere all'avvio dell'applicazione e direttive di 
compilazione a routine esterne al file di progetto DPR, oppure di 
accettare che Delphi riveda l'indentazione del codice in virtù dei 
meccanismi RAD che lo governano.
Ciao! :-)
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it