mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Richiesta d'aiuto

Salve,
mi chiamo Alessandro ed ho un grosso problema da
risolvere.
Nel mio database c'è un campo dove ho inseriti
numeri molto lunghi e per velocizzare il mio
lavoro vorrei poter fare una ricerca del record
da me interessato digitando solo le ultime 3 o 4 cifre.
(es. il dato 12345678  ed io digiterei 678).
Riesco a farlo digitando solo le prime ma le
ultime como posso fare?
Vi prego aiutatemi
Vi ringrazio anticipatamente.

 Riesco a farlo digitando solo le prime ma le ultime como posso fare?
forse con like
where campo like "%678"
prova..
Ciao,
Alan Solo

ultime como posso fare?
puoi usare una query sql del tipo select * from tab where num like '%678'
oppure crei un nuovo campo dove memorizzi il numero al contrario
e usi una findnearest (il campo naturalmente deve essere indicizzato)
Newsgroup: it.comp.lang.delphi
Titolo: Query in access... aiuto!

Buongiorno a tutti,
non riesco ad eseguire la seguente query su un db access.  :-(
La query che devo eseguire è la seguente:
select vendite_dettaglio.articolo,
sum(vendite_dettaglio.quantita) as qty,
sum(vendite_dettaglio.importo) as imp,
sum(vendite_dettaglio.sconto) as sco,
articoli.prezzo1, articoli.prezzo2, articoli.prezzo3 from
(vendite left join vendite_dettaglio on 
vendite.id
 =
vendite_dettaglio.owner)
left join articoli on vendite_dettaglio.id_articolo = 
articoli.id
group by articolo
order by articolo
L'errore che mi ritorna è il seguente: "Impossibile eseguire una query
che non include l'espressione "prezzo1" specificata come parte di una
funzione di aggregazione."
Ma io mica voglio aggregare niente! Vorrei semplicemente visualizzare
i campi prezzo1, prezzo2, prezzo3 contenuti nella tabella articoli...
HELP !!!
Grazie mille,
Dario

 wrote:
Allora, ho trovato una scappatoia però non so se è quella corretta. Ho
utilizzato la funzione First() per ottenere il dato corretto. Ma è la
soluzione giusta?
select vendite_dettaglio.articolo, sum(vendite_dettaglio.quantita) ,
sum(vendite_dettaglio.importo), sum(vendite_dettaglio.sconto),
first(prezzo1), first(prezzo2), first(prezzo3)
from (vendite inner join vendite_dettaglio on 
vendite.id
 =
vendite_dettaglio.owner)
inner join articoli on vendite_dettaglio.id_articolo = 
articoli.id
group by articolo
order by articolo
Grazie mille,
Dario

 Ma io mica voglio aggregare niente!
Allora non usare un "group by" come fai.
A parte poi, che l'aggregazione è implicita se usi sum().
Sei off topic, comunque. Il tuo problema non c'entra con Delphi.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.delphi
Titolo: Aprire 2 finestre del browser

Come si fa ad aprire 2 url contemporaneamente in due finestre
differenti del browser ? Facendo:
ShellExecute(hwnd,"open", m_strUrl1, NULL, NULL, SW_SHOWMAXIMIZED);
ShellExecute(hwnd,"open", m_strUrl2, NULL, NULL, SW_SHOWMAXIMIZED);
vengono aperti nella stessa finestra uno dopo l'altro. Devo passare un
parametro particolare ?
Grazie in anticipo
--
Mav Rossi

"Mav Rossi" ha scritto nel messaggio news:3b4c4674...@news.tin.it...

Prova a fare le chiamate delle funzioni cosě:
ShellExecute(Application.Handle,'Open',PChar('PathIE\IE.exe'),PChar('"Url1"'
),Nil,SW_SHOWMAXIMIZED);
ShellExecute(Application.Handle,'Open',PChar('PathIE\IE.exe'),PChar('"Url2"'
),Nil,SW_SHOWMAXIMIZED);
dove "PathIE\IE.exe" č la path e l'eseguibile di Internet Explorer.
Saluti.
Alex.

Alex.
Funziona !!! Anche mettendo solo "iexplore.exe" senza il path.
Ma se uno non ha IE ?
Grazie 1000
--
Mav Rossi

 Ma se uno non ha IE ?
Umm... qlc del genere dovrebbe funzionare :
var lpBrowser : Array[0..MAX_PATH] of char;
  FindExecutable  ('C:\Windows\System\Membg.htm',nil,lpBrowser);
// --> lpBrowser contiene il percorso del programma associato al file .htm
Leggiti la documentazione comunque :)
Ciao! Davide DG.


wrote:

?!? Non trovo nessun "FindExecutable" o simile nel mio help... :-(
--
Mav Rossi

?!? Non trovo nessun "FindExecutable" o simile nel mio help... :-(
Trovato... Grazie 1000
--
Mav Rossi

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

Imposto "DefaultDraw=False"
Metto del codice nell'evento: DBGrid1DrawDataCell
ma questo non viene mai eseguito, anche provando con un breakpoint???
Grazie, Giorgio 

Giorgio Padoan ha scritto:

Scusa, cosa devi disegnare nella griglia? E poi, perchč non gestisci
l'evento OnDrawColumnCell? Hai una versione vecchia di Delphi? 
Questo un piccolo estratto dalla guida in linea: 
Do not write an OnDrawDataCell event handler. OnDrawDataCell is obsolete
and included for backward compatibility. Instead, write an
OnDrawColumnCell event handler.
Ciao.
--- posted by geoForum on 
http://www.delphiedintorni.it


Prima di leggerti ho trovato che l'evento OnDrawColumnCell viene richiamato 
ma niente per OnDrawDataCell.
Cosi' ho modificato cmq quello che mi serviva: i colori dei alcuni records, 
Giorgio
Newsgroup: it.comp.lang.delphi
Titolo: [d3] vecchia applicazione e problemi con qreport

salve, dovendo fare una piccola modifica ad un vecchio progetto delphi3,
lanciando una stampa fatta tempo fa con quickreport mi esce l'errore Cannot
Create File se la stampa č fatta in piu' pagine.... cosa posso fare per
capire l'errore???
Simone

Se non vado errato, su win2000 dovresti cambiare nelle variabili di 
ambiente il valore di temp o tmp che mi pare fosse troppo lungo rispetto 
  a quanto preventivato da quelli di qr.
Magari se cerchi nei vecchi post trovi maggiori dettagli.
Bye
A

 ha scritto nel messaggio
news:bvqlea$1in0$1...@newsreader2.mclink.it...

Newsgroup: it.comp.lang.delphi
Titolo: Stampa/preview Delphi 5-6-7

Buon giorno a tutti e scusatemi se ripeto la domanda.
Sono alla ricerca di un ottimo tool per la stampa/preview con delphi 
che abbia come caratteristica principale il fatto di poter essere 
costruire/modificare/gestire in modo completo da codice delphi i report 
in quanto utilizzao stampa parametrizzabili da utente.
Utilizzo quickreport ma ha problemi in fase di stampa in particolare 
con :
  - campi testo di dimensione variabili (più controlli sulla stessa 
banda e con "top/left" diversi.
  - Calcolo dell'altezza dei controlli di stampa prima della stampa 
della banda a cui appartengono ( per posizionare eventuali altri 
controlli)
Ho provato la trial di Fastreport (anche se mi è sembrato ben fatto) ma 
mi rende difficile gestire eventi onBeforeprint di controlli e banda 
(mi sono fermato a questo punto) e quindi gestione completa da codice.
Mi va bene qualsiasi tipo di soluzione: freeware, opensource, 
commerciale.
Sono in possesse di un crystall report 7 (acquistato alcuni anni fa) ma 
non sono mai riuscito ad utilizzarlo in quanto non ero mai riuscito a 
gestire tutto da codice.
Sperando in una vostra risposta vi ringrazio di nuovo.
 Ciao, Guido
-- 
Questa è una firma automatica di MesNews.
Sito: 
http://www.mesnews.net

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

 in quanto utilizzao stampa parametrizzabili da utente.
Ciao,
se vuoi avere il completo controllo del report da codice guarda questo
link
http://www.idealsoftware.com/ev_concept.php
.
Puoi scaricare il prodotto per prova, č funzionante al 100 %, c'č solo
la
dicitura "demo" ripetuta piů volte nelle stampe.
Ciao
Micky
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.delphi
Titolo: Win2000 - portare in primo piano l'applicazione.

Salve
Ho un applicativo che fà da menù e che lancia applicativi esterni usando
ShellExecute().
Fino ad oggi usavo Win95/98/NT e l'applicazione lanciata veniva messa
in primo piano mentre ora con Win2000 il nuovo programma rimane sotto
e devo fare Alt-Tab x portarlo in primo piano.
Volevo sapere se c'è qualche funzione per fare in modo che un programma
si porti in primo piano da solo.
Chiedo una funzione xchè potrebbe servirmi anche in altri casi.
Grazie
--
--------------------------------------------
Mirko Guidolin
COMUNE DI RESANA
Provincia di Treviso
Servizio Elaborazione Dati
--------------------------------------------
Non rispondere in E-Mail


Se ho capito bene, devi chiamare questa funzione API:
BOOL SetForegroundWindow(
    HWND hWnd  // handle of window to bring to foreground
   );
p.s.: guarda sull'help di Win32
ciao
Solid Snake

 visibilità dell'applicazione lanciata...
La cosa strana è che spesso fà lo stesso anche con programmi non miei.
Es. da Outlook Ex. se clicco su un link la finestra di IE và sotto ad
OutLook.
Comunque la funzione indicata penso sia quello che mi serve; penso di
aggiungerla da qualche parte all'attivazione delle appicazioni e quindi
dovrei sempre avere l'handle della form.
Ciao e grazie
--
--------------------------------------------
Mirko Guidolin
COMUNE DI RESANA
Provincia di Treviso
Servizio Elaborazione Dati
--------------------------------------------
levare eventuali underscore per rispondere
Newsgroup: it.comp.lang.delphi
Titolo: Convertire le seguenti funzioni....

Chi saprebbe convertire le seguenti funzioni nel formato
per Delphi 4.0 ???
/* IEEE floating point format to Microsoft Basic floating point format */
int fieee2msbin(float *src, float *dst) {
    union {
 float a;
 u_long b;
    } c;
    u_short man;
    u_short exp;
    c.a = *src;
    if (c.b) {  /* not zero */
 man = c.b &gt;&gt; 16;
 exp = ((man &lt;&lt; 1) &amp; 0xff00) + 0x0200;
 if (exp &amp; 0x8000 != (man &lt;&lt; 1) &amp; 0x8000)
     return 1; /* exponent overflow */
 man = man &amp; 0x7f | (man &gt;&gt; 8) &amp; 0x80; /* move sign */
 man |= exp;
 c.b = c.b &amp; 0xffff | (long)man &lt;&lt; 16;
    }
    *dst = c.a;
    return 0;
}
/* Microsoft Basic floating point format to IEEE floating point format */
int fmsbin2ieee(float *src, float *dst) {
    union {
 float a;
 u_long b;
    } c;
    u_short man;
    u_short exp;
    c.a = *src;
    if (c.b) {  /* not zero */
 man = c.b &gt;&gt; 16;
 exp = (man &amp; 0xff00) - 0x0200;
 if (exp &amp; 0x8000 != man &amp; 0x8000)
     return 1; /* exponent overflow */
 man = man &amp; 0x7f | (man &lt;&lt; 8) &amp; 0x8000; /* move sign */
 man |= exp &gt;&gt; 1;
 c.b = c.b &amp; 0xffff | (long)man &lt;&lt; 16;
    }
    *dst = c.a;
    return 0;
}
Grazie per l'aiuto. Dany

Sei sicuro che gli algoritmi siano corretti ?
Io ho tradotto da C a Delphi, ma prima di postare, voglio essere
sicuro che tutto funzioni. Ho provato a compilare le routine in C, ma
non funzionano come dovrebbero.
--
Andrea Laforgia
"Nessun linguaggio di programmazione e' perfetto"
                              - Bjarne Stroustrup

E' tutto quello che mi hanno mandato!!
Altro non so.
Dany
Newsgroup: it.comp.lang.delphi
Titolo: lettura file di testo

Oggi è il mio primo giorno di programmazione in delphi (7).
Sono un programmatore VB6 e purtroppo per VB6 la velocità non esiste.
Devo elaborare una serie di loop nidificati.
Per farvi un idea...qualcosa del genere:
for a = 1 to 5000
   for b = 1 to 10
      for c = 1 to 88
         for d = c + 1 to 89
            for e = d + 1 to 90
               for f = 1 to 4
                  for g = f + 1 to 5
i vari next
5000*117000*4005*10 credo che siano un po' troppi per VB6 e quindi...
eccomi qui!
L'aiuto che chiedo è questo:
come si fa ad aprire il file archivio.dat (binario) che ha queste
caratteristiche... (1 to 5000, 10, 1 to 5) as byte ???
come caricarlo in un array in un colpo solo?
In vb6 c'è l'istruzione Get
ecco il codice vb6:
Dim Est(1 To 5000, 10, 1 To 5) As Byte
Open App.Path & "\archivio.dat" For Binary As #10
Get #10, , Est
Close #10
potrei conoscere le equivalenti righe in delphi?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 leggere questa variabile record nel file.
***
Forse non sono stato chiaro:
non so aprire un file con delphi. Oggi è il primo giorno che l'utilizzo!
Avevo postato il codice per aprire un file e caricarlo in un array con
VB6
Potresti essere così gentile di scriverlo in delphi?
Grazie.
PS..
ho cercato qualcosa in giro ma non ho trovato nulla al riguardo (manuali
compresi)


 Potresti essere cosě gentile di scriverlo in delphi?


 compresi)
Vediamo se ho capito: nei manuali e nella guida in linea non hai trovato 
*niente* che spiegasse come aprire, chiudere, leggere e scrivere un file 
in delphi?
AS

Newsgroup: it.comp.lang.delphi
Titolo: Valore Null su Campo

esiste un modo per evitare di controllare ogni volta che
risuti necessario assegnare un Valore di Campo ad un controllo
TEdit o TDBedit, per evitare il sollevamento dell'eccezione ?
if ClientDataSet['NomeCampo']<>Null then
begin
 <controllo>.Text:=ClientDataSet['NomeCampo']
end;
grazie Maurizio 

<controllo>.Text:= ClientDataSet.FIELDBYANME('NomeCampo').AsString ?
AS
Newsgroup: it.comp.lang.delphi
Titolo: AIUTO VI PREGO..

Io devo fare un programma per calcolare gli scarti e sfridi..
per semplificare il tutto parleremo di stuzzicadenti..
In commercio esistono vari tipi di stuzzicadenti.. questi si caratterizzano
in lunghezza..
(es. vendono solo quelli lungi 6 cm e quelli lunghi 12 cm) quindi per
ottenere una particolare lunghezza io devo ottenerla componendo o spezzando
gli stecchini a seconda della lunghezza voluta.. (es, per fare 4 cm devo
comprarne uno lungo 6, mi restano 2 cm che posso recuperare per
un'altro/i)..
quindi se io ho un elenco di stecchini commerciali..
e uno di quelli che voglio ottenere come faccio a calcolare il minor spreco
possibile incollando anche il minor possibile???
capisco che è una cosa un pò rompipalle ma ringrazio cmq chi volesse
rispondermi..
--
Posted from 
laguna.tiscalinet.it
 [195.130.224.86] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Se puoi disporre in maniera indeterminata di uno "stecchino" multiplo della
misura che serve a te allora il problema è semplicissimo. Disponendo invece
di una quantità limitata di entrambi i tipi ti conviene impostare un sistema
studiando come ottimizzare (massimizzare) la funzione economica
minimizzando i costi; i tuoi vincoli sono le quantità di "stecchini" di cui
disponi.
Non ti so dire proprio esattamente; sono solo piccole reminiscenze di
calcolo
dell'anno scorso. Spero solo di non esserti stato completamente inutile.
Ciàh...
Newsgroup: it.comp.lang.delphi
Titolo: [DELPHI 6] Due semplici domande (credo)

Salve a tutti,
vorrei sapere se è possibile far partire un applicazione esterna con il
Delphi e se si come.
Infine potreste consigliarmi un BUON componente per gestire i file zip ?
Grazie,
Kaldais

Infine potreste consigliarmi un BUON componente per gestire i file zip ?
it.torry.net
, cerca zip
oppure gli ottimi abbrevia di turbopower
http://sourceforge.net/projects/tpabbrevia/
--
Morde. 
morde[at]programmer[.]net

Newsgroup: it.comp.lang.delphi
Titolo: TRADING INT.CO.LTD.-Assumiamo pc-workers..

Ricerchiamo,a livello internazionale e per espansione
della  nostra Società di Trading,personale per varie
posizioni:
-Segretarie/i
-Operatori/trici data-Terminalisti
-Mail Processors
(prevista progressione in carriera,con relative
posizioni dirigenziali:Supervisor,Data Manager)
I livelli di stipendio sono calcolabili e corrisposti in U.S.$;
intorno ai 2000/2500 dollari mensili per le posizioni
di neo-collaborazione,ed in base al rendimento
verificato.
Non è necessario un curriculum-vitae/esperienza
specifica;consigliata una buona conoscenza del Web
ed E-commerce,nonchè l'inglese.
Opzionabile,per i livelli iniziali offerti
(post-ciclo di sperimentazione a rapporto avviato),
il part-time/full-time.
L'attività richiesta è inquadrata nella categoria
Telelavoro/Telework;l'offerta è reale.Serietà
e applicazione requisiti indispensabili.
Per ulteriori informazioni e dettagli,replicare via
email a questo messaggio.

 wrote in
message 8s9e5g$ep6$1...@nslave3.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: oracle su Delphi..

Come faccio ad usare un DB Oracle con Delphi???
D6 ENT.
ciao e grazie..

 ciao e grazie..

dbexpress.
Bye
AS

 ha scritto nel messaggio
news:g4MB8.19391$5k4.4...@twister2.libero.it...

Non sono sicuro che basti, mi sa che almeno la parte
client di Net8 deve essere installata.
                                                        danilo

 wrote in message
ab7tot$vsh$1...@newsreader.mailgate.org...


Newsgroup: it.comp.lang.delphi
Titolo: Evidenziare form ridimensionabili

Salve, č possibile evidenziare che una form modale č ridimensionabile,
come accade per le form standard "Apri" e "Salva" che visualizzano
delle linee inclinate parallele in basso a destra?
Grazie in anticipo.
Alessandro

delle linee inclinate parallele in basso a destra?
aggiungi una TStatusBar alla form, č nella palette Win32
Ciao,
Alan Solo

 Alan Solo
Purtroppo la status bar visualizza le barre inclinate soltanto quando
sono visibili le scroll bar (nel mio caso non sono mai visibili) e
inoltre viene visualizzato il rettangolo a sinistra che invece io
vorrei non si vedesse (come nelle Dialog standard "Apri" e "Salva").
E' possibile ottenere questo?
Saluti.
Alessandro

Alessandro
	Ciao
	MassimoB
 

 	MassimoB
Problema risolto con la StatusBar standard.
Bastava impostare:
StatusBar.Align:=AlNone;
StatusBar.Anchors:=[akRigth,akBottom];
StatusBar.SimplePanel:=FALSE;
Infine nella proprietà Panels creare un nuovo panel con le
caratteristiche desiderate.
Come spesso accade la soluzione è più semplice di quello che sembra.
Saluti.
Alessandro

Alessandro
	Ciao
	MassimoB
Newsgroup: it.comp.lang.delphi
Titolo: [Catturare dati Web] Mi servirebbe qualche consiglio

Ciao,
vorrei che la mia applicazione si collegasse al motore di ricerca
http://adds.aviationweather.gov/tafs/
 con un aeroporto passato tramite
una editbox, ad esempio LIRF (che sta per Fiumicino) e mostrasse in una
memo le stringhe ricercate. Tutto questo senza mai visualizzare la pagina
ovviamente.
Per recuperare dalla pagina HTML le informazioni che mi servono non
ho problemi (c'e' un esempio su Mastering D6) ma per passare al motore
di ricerca il parametro LIRF, come faccio?
Non sono molto pratico di HTML ed il codice della pagina e' un po ostico...
Ciao
  Miyomo

 la pagina ovviamente.
Devi utilizzare i componenti INDY, TidHTTP. Per il passaggio dei
parametri devi conoscere il funzionamento dell'HTML e del protocollo
HTTP (almeno le basi). Se cerchi in rete si trovano esempio, oltre ai
demos di Indy. Tra i vecchi post guarda
3pMmb.353648$
R32.11...@news2.tin.it
 sull'upload dei file, tratta
anche come gestire il post dei dati via HTTP.
Saluti.
-- 
I'am what I'am, I do what I can

Newsgroup: it.comp.lang.delphi
Titolo: Aprire cassetto cd

Quali sono le istruzioni in delphi che, premendo un pulsante, fanno aprire
il cassetto del cdrom?
Mille grazie
Ciao
                                                Valer

 il cassetto del cdrom?
Faq 4.1: 
http://gpi.infomedia.it/abc/delphi/FaqDelphi.txt
--
- Carlo -
c.b...@libero.it

 X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
Che cosa vuoi postare postare postare oggi? :D
-- 
All resistance is futile! Prepare to be disassembled !

Newsgroup: it.comp.lang.delphi
Titolo: errore!!!! ma xche???

ragazzi, 
sto installando un componente! dal menu Component/Install Component 
seleziono il file .pas premo OK compilo e mi da l''errore: 
[Fatal Error] Could not create output file 'c:\programmi\borland\delphi6
\Projects\Bpl;C:\Programmi\Borland\Delphi6\Projects\Bpl\GR32_DSGN_D6.bpl'
ma xche?
------------------------
Diego Di Filippo
  R&amp;D Software Developer
 
www.ada-project.com
-----------------------
--- posted by geoForum on 
http://www.delphiedintorni.it

 ma xche?
Controlla il path in Environment Options->Library->BPL output directory, 
potrebbe essere lě il problema.

niente!
cmq da lo stesso errore!!!
chi mi da una mano?

------------------------


 > directory, potrebbe essere lě il problema.
Project - Options - Directories/Conditionals, prova a vedere se c'č
qualcosa di strano all'interno di Output directory.
guastatore

 \Projects\Bpl;C:\Programmi\Borland\Delphi6\Projects\Bpl\GR32_DSGN_D6.bpl'
Il percorso che ti riporta non è valido. Nota come sia effettivamente 
composto da un nome di directory, un punto e virgola ed un altro nome di 
directory (oltre al file).
Il problema, quasi sicuramente sta nella configurazione ed in particolare 
nell'opzione BPL output directory.
Ciao,
Gianluca.

Ho risolto!
nel "BPL output directory" ho inserito "$(DELPHI)\Projects\Bpl" ed ha 
compilato e installato tutto correttamente.
Infatti prima c'erano due path separati da ";".
grazie Gianluca.

------------------------

Newsgroup: it.comp.lang.delphi
Titolo: OnkeyPress Edit

ciao
all'evento OnKeyPress di un'edit devo sostituire alcuni "char" con altri.
 tipo quando premo "g" deve venir scritto "#" come posso fare?
mi dite come si ritorna alla situazione originale dopo
aver inserito un "PasswordChar='*' " ?
tipo "pippo"  "*****" come torno a vedere che c'è scritto dietro agli
asterischi?
grazie
erik

continua...
e per verificare all'evento OnChange sempre dell'edit che non vengano
inseriti caratteri non validi??
cioč tipo 'c' << carattere non valito
o  il carattete non viene scritto e magari faccio emettere un "beep" oppure
eliminarlo subito dopo
Ri Grazie
erik

 aver inserito un "PasswordChar='*' " ?
Per la semplice lettura, leggi la proprietà "Text" dell'edit, o se vuoi che
torni in chiaro metti "PasswordChar:=#0".
Ciao.
Giuseppe

asterischi?
Da programma leggendo la proprietà Text, a disegno non impostando
alcun password char.
-- 
Andrea Laforgia - a.laforgia(at)
libero.it
"There are three kinds of people in this world; 
 those who are good at maths and those who aren't".

 Esempio:
 case Key of
 'c','d': key:= #0;  // non scrive niente
----------------------
ok per il resto tutto bene ma usando il case sulla var "Key", come l'esempio
che mi hai fatto quì sopra,
assegno a 'c','d' il valore di nullo nell'edit
il punto è che ci sono un bel pò di caratteri e forse mi converrebbe fare
tipo :
If key <> '1','2','#'..... così elimino tutto il resto.
 si può fare in modo semplice?
ciao
erik

 If key <> '1','2','#'..... così elimino tutto il resto.
case key of
'0'..'9','*','#': key:= key
else key:= #0;
end;
com'è così? Altrimenti fai come credi più giusto... tanto alla fine una vale
l'altra. Non credo tu abbia problemi di ottimizzazione del codice proprio in
questo punto. Se i caratteri da controllare sono parecchio frammentati fai
così (probabilmente ti piacerà comunque. E' più leggibile):
Const
QuelliCheVoglio: set of char = ['0'..'9','a'..'z','#','*'];
e poi all'interno della procedure:
if not (key in QuelliCheVoglio) then key:= #0;
Ciao
Giuseppe
Newsgroup: it.comp.lang.delphi
Titolo: Free Delphi community edition

Mi piacerebbe provarla ma temo conflitti con la versione Delphi 7
che ho gia installata sul mio pc.
 
Poi nelle limitazioni della licenza leggo :
1) 
La licenza Community è inoltre sottoposta a un termine temporale di 1 anno, che Embarcadero ha promesso di estendere o che
ipoteticamente si presume potrà essere rinnovato con l’arrivo di nuovi aggiornamenti.
2)
A questo si aggiunge l’impossibilità di accedere alle versioni precedenti di Delphi
 
Potrei rischiare per il punto 1 anche se non starei tranquillo
ma al punto 2 significa che sullo stesso pc non potrei usare anche D7 ?
 
 
Grazie,
:-)
 
 

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

Io trovo invece difficolta' (non riesce proprio) ad aggangiare il server 
per scaricare i pacchetti.
 
Con la 10.3.1 funzionava, poi scaricato la 10.3.2 e richiesto nuovo 
codice (quello della 10.3.1 non viene riconosciuto).
 
Il nr.licenza viene riconosciuto, scarica l'Installer, ma poi
dopo poco arriva il messaggio "Impossibile accedere al Server - 
Forbidden", avvia Delphi per la scelta tema Chiaro/Scuro ma nessun
pacchetto e' stato scaricato.
 
Questa Community qualche dubbio me lo lascia.
 


non so che dirti perchè io ho la 10.3.1, la nuova la installi sulla 
vecchia, comunque potrebbe essere anche un problema di firewall


 
Nella pagina iniziale della 10.3.1 leggo
 
Sample Applications
The Embarcadero GetIt server could not be reached.
 
Upcoming Events
Error parsing events feed content.
 
evidentemente hanno qualche problemino con i  server


Questo problemino potrebbero averlo almeno da una settimana,
quando avevo provato ad installare la 10.3.2
 
Oppure ad essere ... perfidi ... , non hanno piu' voglia di
distribuire la versione free.


Ciao,
  non so se hanno risolto ma mi arrivano email (l'ultima di una settimana 
fa) da embarcadero che, per problemi loro di server, l'installazione della 
nova versione potrebbe avere problemi.
Ciao
Daniele
 


A me risulta che i problemi siano stati risolti (sono durati per qualche giorno)
Sono riuscito regolarmente a installare senza problemi RX 10.3.2

 Sono riuscito regolarmente a installare senza problemi RX 10.3.2
 
L'ho installato ieri ....
Mi ha disinstallato la precedente 10.3.1 ... adesso devo reinstallare tutte 
le librerie ...
Mannaggia ... e' un lavoraccio (con conseguente perdita di tempo ...).
 
Ho visto "IDERA" .... e' di nuovo passato di mano ??
 
Ciao
 
Daniele
Newsgroup: it.comp.lang.delphi
Titolo: help con WM_KEYDOWN

non riesco a capire che cosa ci vada messo in wparam e in lparam per fare la
simulazione dei tasti: F1-F12 e tipo CTRL+I oppure ALT+SHIFT+CTRL+V.
Grazie 1000 per l'attenzione ; )
Simone
--
Quasar Computer System s.n.c.
Montichiari -BS-
Tel. 0309650679 Fax. 0309651021
www.qcs.it

 simulazione dei tasti: F1-F12 e tipo CTRL+I oppure ALT+SHIFT+CTRL+V.
Con un WM_KEYDOWN la "veggo buia" per te ... :)
Perchè ricorrere al WM_KEYDOWN quando Keybd_Event (o Sendkeys.pas) ti
semplifica il lavoro?
--
- Carlo -
c.b...@libero.it

 wrote in message
dwxa7.588$fA3....@news.infostrada.it...

per il semplice fatto che devo madare la simulazione della pressione dei
tasti a una specifica finestra di cui ho l'handle, esisterebbe l'api
PostKeybdMessage che è praticamente il keybd_event pero' che viene spedito
ad un handle specifico peccato che sia disponibile solo per winCE :(
p.s.
ho provato senkeys, ma purtroppo la finestra target deve essere selezionata
altrimenti non funge

simulazione dei tasti: F1-F12 e tipo CTRL+I oppure ALT+SHIFT+CTRL+V.
come wParam basta che gli passi le virtual key, con delphi ti trovi
delle costanti comode in windows.pas VK_F1, VK_F2 ecc...
Ciao,
Alan Solo

 wrote in message
5wprO3nx03gtWt...@4ax.com...

ti ringrazione per l'hint, adesso riesco a simulare la totalitą della
tastiera, ora mi manca di aggiungerci i vari ctrl, alt e shift :(
spero di riuscire a trovare qualche cosa : ) poi al massimo vi faccio sapere

 ti ringrazione per l'hint, adesso riesco a simulare la totalità della





Newsgroup: it.comp.lang.delphi
Titolo: Nt Service

Avrei bisogno di sviluppare un applicazione da poter far diventare un
serivizio di windows nt, mi sapreste aiutare?
Grazie.
Ciao Alfio

 serivizio di windows nt, mi sapreste aiutare?
Su D4c/s c'è New... Service Application.
Non mi pare nelle versioni precedenti. Se non hai la d4 o sup. resta in
attesa di altri suggerimenti,
perchè io saprei farlo solo così.
 Ciao! Davide DG.
Newsgroup: it.comp.lang.delphi
Titolo: Interbase su Linux

Scusate l'ignoranza...
posso usare Interbase server su server Linux e le applicazioni dei client
che accedono al DB (con BDE e SQL link) su WIN2000 ??
Grazie
Val

 che accedono al DB (con BDE e SQL link) su WIN2000 ??
Non so se con BDE e SQL Links e' possibile, ma e' sicuramente
possibile con i componenti nativi Interbase.
L'ho gia' fatto, da Windows 2000 a Linux Red Hat e funziona
a meraviglia.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

sinex wrote:

Credo che tramite BDE sul lato client non si possa..ma se usi IBX, 
Zeoslib, FreeIB o DBExpress o FIBPLUS.....il tutto funziona 
correttamente..io per i miei esperimenti uso firebird rc2 su linux 
redhat 7.2 e client Windows2000 Porfessional....con IBX 6.02 su Delphi 6 
Profesional .....
Un saluto....
Qualcuno puo' rispondere alla mia questione sui BLOB...per favore....

 possibile con i componenti nativi Interbase.
Posso usare IBX anche con Delphi 4 ?

 
Purtroppo No, sono per Delphi 5 Prof/Ent con i rispettivi Update pack
Ciao
Simone

 Purtroppo No, sono per Delphi 5 Prof/Ent con i rispettivi Update pack
In alternativa cosa posso usare con Delphi 4 ?

 
Io ho D5 e uso con soddisfazione gli IBO che sono disponibili praticamente 
con tutte le versione di Delphi (e anche C++ Builder), però sono a 
pagamento
Ciao
Simone

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

Ciao a tutti.
Sono un principiante di Delphi.
Mi sapreste indicare qualche buona guida (possibilmente gratuita) in rete
che possa aiutarmi ad iniziare con Delphi? Oppure un suggerimento su un buon
manuale da acquistare...
Grazie a tutti.

 ha scritto nel messaggio
news:a0cgkl$hna$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.delphi
Titolo: AIUTO delphi 6

Qualcuno sa dirmi come scaricare delphi 6 con download accelerator?
Dopo essermi registrato sul sito della borland, ed aver ricevuto le password, quando tento di scaricarlo con il DAP, mi vengono richieste username e password (ho provato ad inserire quelle fornite dal sito borland ma non funzionano) per ovviare a cio' mi toccherebbe scaricarlo normalmente con la finestra di windows, ma essendo un file troppo grosso non l'ho ancora fatto. Potreste aiutarmi?
Ringrazio anticipatamente. 
------------------------------------------------------------------------
Questo messaggio e` stato inviato da 
http://www.inwind.it

 anticipatamente. 
prova a lasciare entrambi i campi vuoti e a dare l'ok, dovrebbe scaricarlo,
Ciao, Antò.

Newsgroup: it.comp.lang.delphi
Titolo: [OT]: libero e Inwind cambiano News Server

segnalo a chi è cliente libero e inwind, e usa un client per la
lettura delle news che da gennaio probabilmente i vecchi news sever
non funzioneranno +. Per inwind si passa da:
news.inwind.it
a: 
powernews.inwind.it
il motivo lo sanno solo loro [allego mail ricevuta]
Auguri a tutti
Gentile Cliente,
Ti consigliamo, se non l'hai già fatto, di affrettarti a cambiare la
configurazione
del tuo client di partecipazione ai newsgroup.
Attraverso la nuova piattaforma unificata "Usenet" di Infostrada,
Libero,
Iol ed
inwind, consultare e partecipare ai gruppi di discussione, sarà ancora
più
gradevole, veloce ed affidabile.
Ricorda che le piattaforme precedenti saranno attive ancora per pochi
giorni,
solo fino al 01/01/2002. Al fine di evitarTi disagi, Infostrada,
Libero, Iol
ed inwind
ti consigliano di effettuare l'operazione quanto prima.
Potrai disporre di tutte le nuove potenzialità, semplicemente variando
i
parametri di configurazione del tuo programma di News, impostando il
nome
del nuovo Server, secondo la seguente tabella di corrispondenza:
powernews.infostrada.it
 in sostituzione di 
news.infostrada.it
 o
news.net24.it
powernews.libero.it
 in sostituzione di 
news.libero.it
powernews.iol.it
 in sostituzione di 
news.iol.it
powernews.inwind.it
 in sostituzione di 
news.inwind.it
Per conoscere tutti i dettagli su come effettuare questa semplice
operazione, collegaTi agli indirizzi:
http://libero.iol.it/libero_informa/newsgroup/aiuto_newsgroup.phtml
http://newsgroup.inwind.it/migrazione/
Ti ringraziamo per la collaborazione.
---------------------------------------------
Io queste cose tecnologiche non le capisco...
                   Lanciatemi i componenti!

> il motivo lo sanno solo loro [allego mail ricevuta]
Beh il motivo dovrebbe essere che, unendo 4 server, possono incrementare di
molto le prestazioni.. ad esempio basta che tengano una sola copia della
gerarchia IT su un solo server, invece che quattro, e lo stesso vale per
tutti i newsgroup, per le sincronizzazioni per usenet ecc ecc.. In generale
il server dovrebbe essere piu' veloce ed avere piu' gruppi e migliore
feeding..
Almeno, dovrebbe essere cosi' :)
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
Newsgroup: it.comp.lang.delphi
Titolo: Locate su più campi

Esiste un modo per realizzare un Locate su piů campi?
Grazie Enrico

Locate('CAMPO1;CAMPO2', VarArrayOf([VALORECAMPO1,VALORECAMPO2]),[])
Ciao.

 Locate('CAMPO1;CAMPO2', VarArrayOf([VALORECAMPO1,VALORECAMPO2]),[])
ma attento che e' un sistema usa le librerie dell'ole ed e' puttosto lento,
nel caso in cui si chiami parecchie volte ad es. in un loop. D'altronde non
ci sono alternative.
Ciao, Sandro

Grazie
Enrico


Newsgroup: it.comp.lang.delphi
Titolo: Modificare cartella corrente

 
          Ciao a tutti,
ho un progetto in cui vado a chiamare altri programmi (di cui ho solo gli
eseguibili) con queste 3 specifiche:
        NomeFileExe:='C:\Tmp\ElabProDef.Exe'
        SetCurrentDir(ExtractFileDir(NomeExe));
        Esito:=ShellExecute(Form1.Handle,'open',PChar(NomeExe),'',nil,SW_SHOWNORMAL);
naturalmente cambiando di volta in volta.
Con 3 eseguibili ho un problema. Questi infatti leggono dei files di
configurazione che risiedono nella stessa cartella dell'eseguibile. Ognuno
di loro mi dice che non ha trovato il suo file di configurazione.
Secondo me questo succede perchè nel momento in cui lancio questi eseguibili
il sistema vede come "Cartella corrente" quella del mio eseguibile e non
quella dove c'è l'eseguibile che voglio lanciare.
Qualche idea per sistemare?
Grazie in anticipo, Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Se non ricordo male la ShellExecute ha tra i parametri uno che
permette di specificare la cartella di lavoro?
Io tempo fa' ho utilizzato la funzione  "CreateProcess", ed anche in
questo caso mi pare ci fosse un parametro che permette di settare la
directory di lavoro del processo che si intende lanciare.
Se non riesci puoi sempre utilizzare un programma di lancio!
Fai 3 programmini delphi che lanciano gli eseguibili in questione,
dove ognuno ovviamente setta la dir corretta.
Ciao
Maurizio

> Qualche idea per sistemare?
Per la cronaca ho risolto utilizzando i processi:
        DirExe:=ExtractFileDir(NomeExe);
        MyProcess:=TProcess.Create(nil);
        MyProcess.CommandLine:=NomeExe;
        MyProcess.CurrentDirectory:=DirExe;
                             // la riga sopra è qualla che mi ha risolto il problema
        MyProcess.ShowWindow:=swoShow;
        MyProcess.Priority:=ppNormal;
        MyProcess.Execute;
        MyProcess.Free;

Newsgroup: it.comp.lang.delphi
Titolo: Problemi con DBLookupComboBox... Aiuto!

Vorrei che gli Items della combobox fossero in automatico i dati di una
determinata colonna (o campo) del mio DB in modo da non dover inserirli
tutti a mano e anche perchè se un domani dossesse esserci per esempio un
altra marca di auto, non si dovrebbe andare a modificare tutto il prog.
Io ho provato con la DBLookupComboBox ma mi ripete più volte le stesse
cose... Cioè se due auto sono BMW nella lista mi ritrovo 2 volte BMW.
Hai un rimedio a questo?
Grazie fin da ora!!!
Marco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Hai un rimedio a questo?
DBLookUpComboBox č corretto!
Il problema semmai č nella query/tabella utilizzata.
Se hai una tabella di questo genere:
UTENTE    MARCA AUTO
Pippo            BMW
Pluto             MERCEDES
Topolino        BMW
....
Dovresti basare il tuo lookup su una query di questo genere:
SELECT DISTINCT MARCA_AUTO FROM <tuatabella>  ORDER BY MARCA_AUTO
ciao
Solid Snake IT

Grazie! Mi mancava la parte "SELECT DISTINCT MARCA_AUTO FROM <tuatabella>
ORDER BY MARCA_AUTO"
Solid



Se posso darti un consiglio: evita del tutto di usare query
se stai lavorando con Paradox.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]

 wrote in message
3c83d941...@news.tin.it...


Ricordi???
Si, ma non e' il metodo piu' corretto.



Già! Cmq ci proverò...  grazie! ;-)
Newsgroup: it.comp.lang.delphi
Titolo: D6 pro ottenere Nome eseguibile

Ho realizzato un Datamodule che impiego in tre applicativi simili.
Per migliorare la portabilità dello stesso vorrei caricare alcuni parametri 
dal registro di sistema  specifici dell'eseguibile in cui il datamodule è 
inserito.
Esiste una qualche funzione che mi dice se il mio applicativo è "pippo.exe" 
oppure "pluto.exe".
Saluti Carlo 

 oppure "pluto.exe".
La proprietà /ExeName/ dell'oggetto *Application*.
Se fai una ricerca nel gruppo con Google, troverai anche come 
estrapolare il percorso dal nome del file, oppure ottenere solamente il 
nome del file e così via.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 ha scritto nel messaggio 
news:43f37e2f$1...@newsgate.x-privat.org...



Wow! ;-)
Facciamo le cose complete...
ExtractFileExt
Restituisce l'estensione.
ExtractFileDir
Restituisce la cartella... ossia come ExtractFilePath senza il backslash.
ExtractFileDrive
Estrae il nome del drive.
IncludeTrailingPathDelimiter
Include in un percorso, se non lo ha, il backslash.
ExcludeTrailingPathDelimiter
Esclude, se ce l'ha, il backslash.
E in aggiunta alcune funzioni avanzate (che non ho mai capito se "avanzate" 
significa che sono importanti o che sono scarti):
ParamCount
Restituisce il numero di parametri della riga di comando.
ParamStr(n)
Restituisce il parametro N della riga di comando.
E per i più smanettoni se in ParamStr si chiede il parametro 0 si otterrà 
l'Exename. Et voilà il cerchio si chiude.
Con simpatia
Giuseppe


E che ne diresti di fare le cose alla grandissima e dare una sbirciata alla 
cartella source del tuo delphi? :-)
In particolare se apri il file sysutils.pas troverai le funzioni già citate 
più molte ma molte altre che se ti serve interagire con il sistema ad un 
livello più bassino degli oggetti già pronti ti torneranno utili.
A volte per capire a fondo il funzionamento anche di un oggetto è una bella 
cosa leggersi il suo codice. Vuoi mettere una sana lettura a Classes.pas o a 
Buttons.pas o a Windows.pas... manco Fedor Michajlovitch Dostoevskij è così 
affascinante. :-D
Ciao!
Giuseppe

cartella source del tuo delphi? :-)
Basta molto meno, basta premere F1.

Newsgroup: it.comp.lang.delphi
Titolo: Risoluzione 1024

Come faccio a cambiarla a 640 all'avvio di una app?!

Ciao David,
sto notando che i messaggi inviati tramite mailgate non sono visibili fuori
dal mailgate stesso.
Infatti la tua risposta sul server news di Interbusiness non è presente,
come per altro tutte quelle mie inviate da una settimana a questa parte
facendomi realmente impazzire!
Accertati e in caso fammi sapere se noti lo stesso malfunzionamento.
Ciao,
  Fabio
Newsgroup: it.comp.lang.delphi
Titolo: ArcGIS con Delphi 6

Salve a tutti. Non so se questa è l'area più adatta per parlare di
questo argomento, se ho sbagliato vi prego di indirizzarmi
correttamente. Volevo sapere come faccio ad usare ArcGIS unitamente a
Delphi6! So che si può fare perchè ho letto sul sito della ESRI che
delphi è uno dei linguaggi che può supportare le funzionalità di
arcGis. il problema è che non so come fare o cosa scaricare ed
installare. Navigando ho solo letto che si può fare ma non ho trovato
niente che mi dica come fare. AIUTO!!! grazie!

qua:
http://edndoc.esri.com/arcobjects/9.2/CPP_VB6_VBA_VCPP_Doc/COM/IntroToCOM.htm
si parla di com.
un com lo usi da qls ambiente di sviluppo per winzozz, compresi quelli
per .net, che usano
i com via interoperabilita.
ergo, usi il COM che loro ti danno. Se è fatto bene, puoi pilotare
arcgis come una marionetta....
Pax vobiscum.
A.

Newsgroup: it.comp.lang.delphi
Titolo: Errore su Eventi e firebird

pezzi che uso
Delphi 6.2
firebird (2.0-2.1)
coponemti di accesso
dbxpress per i dati e FibPlus per gli eventi
ho messo degli eventi in un db firebird (versione 2.0) in un programma
client server
fino a 20 giorni fa funzionava tutto egregiamente sia in locale che in
rete,
Adesso in locale funziona tutto eventi compresi, in rete invece se mi
collego da un client a un server (win a 64bit e 2003 server a 32bit)
quando collego il pezzo dei fib (ho provato anche con gli IBO) al
Database e avvio il componente per gli eventi mi si congela tutto e mi
viene fuori questo errore:
Unable to complete network request to host "xxxxxx".
Failed to establish a secondary connection for event processing.
Impossibile stabilire la connessione. Risposta non corretta della
parte connessa dopo l'intervallo di tempo oppure mancata risposta
dall'host collegato.
a qualcuno e capitato qualcosa di simile???
Grazie
Ettore Boscolo

 Unable to complete network request to host "xxxxxx".
non ho capito: hai un client a 64 bit e un server a 32?
A.


forse sono stato confuso , ma sono decisamente lesso,
il cliente che ho usato per fare le prove è a 32 bit con win xp home
l'ho collegato prima a un server a 64 bit con Xp a 64 bit e mi viene
fuori l'errore
dopo ho collegato al client a un 32bit con win 2003 server e funziona
per inciso a un cliente dove fino ad un mese fa il programma
funzionava
dove aveva come serve un xp a 32 bit improvvisamente  non funziona più
spero di essere stato più chiaro
grazie dell'attenzione
Ettore

 dove aveva come serve un xp a 32 bit improvvisamente  non funziona più
questa è una frase da utente finale...Cosa vuol dire "non funziona
piu'?
A.

 A.

 precedenza.
Se tu non hai fatto upgrade ti suggerisco di controllare se con
windows update è passato qualcosa tipo sp3 di xp o cose simili, sia
lato client che lato server.
A.

 A.
anche io penso che la colpa sia di un qualche misterioso aggiornamento
di windows,
infatti il motivo principale per cui ho postato la domanda è perchè
volevo vedere se a qualche altro era capitata
la stessa cosa, avendo fatto prima una ricerca con google in inglese e
non avendo trovato nulle.
tra l'altro conscio che potevo avere introdotto qualche errore nel db
ho fatto delle prove con il db firebird di prova il famoso
EMPLOYEE.FDB
e mi capita la stessa cosa!
Ettore
Newsgroup: it.comp.lang.delphi
Titolo: Stampa su modulo continuo

Ciao a tutti e buon 2014 !!!!
   ho un piccolo problema con la stampa su modulo continuo, la stampante e' 
installata correttamente sul pc e il modulo continuo e' rappresentato da una 
bobinetta (rotolino) di carta termica largo 50mm (5 centimetri) lungo 5 
metri.
Quando lancio la stampa, per ora e' una prova, con la stampa di "PROVA 
STAMPA", la stringa viene stampata correttamente ma
anziche' finire li, escono un qualcosa come 6cm di carta bianca.
E' ovvio che si tratta o di un salto pagina o di un "a capo", ma non  so 
come toglierlo !!!
 
Ecco la procedura con cui stampo !!!
 
Procedure TestPrint;
Var  I : Integer;
begin
    if Printer.Printers.Count=0 then Exit;
    I:= Printer.Printers.IndexOf('StampanteModuloContinuo');  // E' il nome 
della stampante installata sul pc
    Printer.PrinterIndex := I; // Esiste ...
    Printer.BeginDoc;
    Printer.Canvas.TextOut(5,10,'PROVA STAMPA');
    Printer.EndDoc
end;
 
Dove posso intervenire ??
 
Grazie
 
Buon 2014
 
Ciao, Daniele 
 


sulle impostazioni del driver della stampante?
 
se hai bisogno di lunghezze diverse, puoi "creare" diverse stampanti, ognuna con le dimensioni del foglio che ti serve.
 
da programma selezioni la stampante che è impostata per la dimensione che vuoi et voilà!
 
hth
r
 

 vuoi et voilà!
 
Il problema la da il printer.enddoc perche' mette di default un salto 
pagina.
Ho poi controllato il driver di questa stampantina ed e' una stampante only 
text, quindi affrontero' il problema andndo a scriverci direttamente.
Considerata la lunghezza media delle linee da stampare, non e' neanche 
necessario centrarle sulla larghezza del rotolino.
 
Appena risolvo avviso!!
 
ciao
 
Daniele

Newsgroup: it.comp.lang.delphi
Titolo: attendere la chiusura di un'applicazione esterna

ora che ho capito come si esegue un'applicazioone esterna mi serve sapere 
come faccio partire l'applicazione 2 dopo che sia terminata l'applicazione 
1.
per ora faccio così, ma non è come intendo io xkè vengono eseguite tutte e 2 
le applicazioni quasi insieme.
grazie. ivan.
procedure TForm1.Button1Click(Sender: TObject);
var
Path : string;
PCharPath : array[0..400] of Char;
para:string;
parametri: array[0..300] of Char;
begin
Path := extractfiledir(Application.ExeName);
if (uppercase(estensione)='.MP3') then
begin
  StrPCopy(PCharPath, Path+'\lame mp3\lame.exe');
  para:=' --decode "'+dirfile+'\'+nomefile+'.mp3" 
"'+path+'\'+nomefile+'.wav"';
  StrPCopy(parametri,para);
  ShellExecute(Handle , 'open', PCharPath , parametri , nil , 0);
end;
if (aac.Checked=true) then
begin
  StrPCopy(PCharPath, Path+'\aac psytel\aacenc.exe');
  para:=' -br 128 -if "'+path+'\'+nomefile+'.wav" -of 
"'+dirfile+'\'+nomefile+'.aac"';
  StrPCopy(parametri,para);
  ShellExecute(Handle , 'open', PCharPath , parametri , nil , 0);
end;
end; 

 l'applicazione 1.
http://www.swissdelphicenter.ch/torry/showcode.php?id=93
-- 
I am what I am, I do what I can
Vuoi supportarmi? 
http://url.repository.biz/go/3E
Do. Or do not. There is not try.
Newsgroup: it.comp.lang.delphi
Titolo: [?] evento onclick di controllo a runtime

Ciao a tutti sono nuovo del NG
volevo chiedere a qualcuno di aiutarmi nella risoluzione di questo problema:
Uso delphi 4.
Ho creato a runtime un array di controlli TImage che ho provveduto poi a
riempire con delle bmp.
Ora volendo intercettare l'evento onclick, ho provato con
procedure nome_procedura(Sender: TObject);
e poi ho assegnato
Immagine[x].onclick:=nome_procedura;
Ebbene quando clicco su uno qualsiasi dei controlli TImage, l'evento viene
intercettato, ma non so come fare per farmi ritornare l'indice del controllo
su cui ho cliccato.
Sono sicuro di essermi spiegato molto male come al solito!
Grazie comunque di avermi letto. Confido in un vostro suggerimento.
Amadeus

Prova a vedere sender cos ati dice.
Ad esempio nella proc metti una cosa del tipo:
showmessage( sender.Name)
Saluti
AS
Ps: se la proc fosse comune ok, ma nel tuo caso creerei procedure separate,
sia pr un fatto di leggibilita' del codice sia per semplificarmi la vita ed
il debug della applicazione.... :((
"Se è Microsoft non funziona"

su cui ho cliccato.
Potresti assegnare un indice alla proprieta' "Tag" di ogni TImage, man
mano che li crei, e nel gestore di evento esamini questo valore.
Il valore del Tag, difatti, variera' a seconda del controllo.


    Potresti utilizzare la proprietą Tag del componente. Questa proprietą č
un intero (sono degli extra byte) utilizzabili dall'utente... Delphi non li
controlla e tu potresti schiaffarci l'indice, poi dalla tua procedura lo
leggi... Non č il massimo dell'eleganza perņ...
    Saluti!
_________________________________
Gian Luca Dalla Torre
E - Mail: 
gianluca....@casteo.net
_________________________________

Newsgroup: it.comp.lang.delphi
Titolo: ADO Connection e Transazioni nidificate.

Salve a tutti,
Devo poter nidificare delle transazioni con ADO come nell'esempio sotto:
Il problema e' che la 2° "begintrans" da errore.
Qualcuno puo' aiutarmi?
Grazie!
esempio:
procedure TForm1.Button3Click(Sender: TObject);
var
nc:longint;
begin
    // 1° livello di tranzazione
    nc:=aCnn.BeginTrans;
    ShowMessage(inttostr(nc));
    aCnn.Execute('insert into tmp_ord (cdn_ord) values(7777)');
    // 2° livello di tranzazione
    nc:=aCnn.BeginTrans;
    ShowMessage(inttostr(nc));
    aCnn.Execute('insert into tmp_ord (cdn_ord) values(7778)');
    aCnn.RollbackTrans ; // rollback del livello 2 (test)
    aCnn.RollbackTrans ; // rollback del livello 1 (test)
end;

 Il problema e' che la 2° "begintrans" da errore.
Quale errore? 
Che messaggio? 
Su quale Db? 
Che versione di Delphi?
Che versione di ADO?
Bye
AS
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:60faeb7cadeb11af8e...@mygate.mailgate.org...


 3) Oracle Provider for Ole Db
Da quel che so non dovrebbe essere un problema di Oracle.
Hai fatto un test per la stessa operazione via BDE?
Magari dipende da ADO.
