mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: D7 Byte - integer cosa usare?

Sto costruendo un'applicazione che deve elaborare dei numeri inferiori a 200 
e superiori a 0.
Per quando riguarda la prestazioni dell'applicativo è meglio usare i byte o 
i nativi  integer ?
Grazie
Nicolas

 i nativi  integer ?
Salvo diversa configurazione delle opzioni di compilazione, che tu 
dichiari un /Byte/ o un /Integer/, Delphi alloca spazio per un 
/Integer/. :-)
A meno che tu non debba essere cauto riguardo la memoria occupata 
dall'applicativo, è meglio mantenere questa impostazione lavorando 
comunque con Integer poichè incontrano i favori della CPU in quanto ad 
ottimizzazione (sempre se stiamo parlando di architetture a 32 bit...).
Ciao! :-)
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

Newsgroup: it.comp.lang.delphi
Titolo: Domanda stupida? Combinazione di tasti

Sto sviluppando una piccola utility per la gestione di un gruppo di 
continuitą.
Ho tutto il mio bel protocollo di cumunicazione e il tutto č piuttosto 
banale.
Se non chč...
... il protocollo prevede l'invio di alcuni keycode che non so (o magari non 
ricordo) come riprodurre..
Ad esempio per ottenere il modello devo inviare il CTRL+A sulla 
COM1..ovviamente se mando il CTRL e poi A non succede nulla (ma non ci 
voleva un genio :) ).
Sto bestemmiando come un turco per risolvere la questione... CAzz..
Tra l'altro i metodi che uso per scrivere sulla porta sono due: uno accetta 
un puntatore ad un carattere, l'altro accetta una stringa (TCiaComPor se 
qualcuno lo conosce).
Mi sapete indicare la retta via?

 voleva un genio :) ).
Dimenticavo di aggiungere che voglio definire queste varie combinazioni di 
tasti come costanti. 

 voleva un genio :) ).
Mi rispondo da solo..
Ho trovato i corrispondenti ascci di alcune combinazioni di tasti..
Se a qualcuno possono servire... :)
Value Character
--- ---------------------- 
 0  ctrl/space
 1  ctrl/A
 2  ctrl/B
 3  ctrl/C
 4  ctrl/D
 5  ctrl/E
 6  ctrl/F
 7  ctrl/G (bell)
 8  ctrl/H (backspace)
 9  ctrl/I (horizontal tab)
10  ctrl/J (linefeed)
11  ctrl/K (vertical tab)
12  ctrl/L (form-feed)
13  ctrl/M (return)
14  ctrl/N
15  ctrl/O
16  ctrl/P
17  ctrl/Q
18  ctrl/R
19  ctrl/S
20  ctrl/T
21  ctrl/U
22  ctrl/V
23  ctrl/W
24  ctrl/X
25  ctrl/Y
26  ctrl/Z
27  ctrl/[ (escape)
28  ctrl/\
29  ctrl/]
30  ctrl/~
31  ctrl/?
Newsgroup: it.comp.lang.delphi
Titolo: aiuto non so' come fare

Lancio un programma esterno con winexec('xxx',0)
come faccio se lo voglio chiudere dal mio prg ?
grazie ancora

come faccio se lo voglio chiudere dal mio prg ?
Che tipo di programma e' (a finestre, console, ecc..) ?
--
Andrea Laforgia (ICQ 87230455)
http://www.geocities.com/AndreaLaforgia
"ci sono tre tipi di persone nel mondo : quelli che
 sono bravi in matematica e quelli che non lo sono."

 ha scritto nel messaggio
news:d9Ab6.8624$ew1.7...@news.infostrada.it...


 come faccio se lo voglio chiudere dal mio prg ?
WinExec non restituisce informazioni necessarie per operare con il processo
mappato.
Oltretutto è quantomeno sconsigliabile l'utilizzo di WinExec, a vantaggio di
funzioni Win32 effettive quali CreateProcess.
Proprio quest'utlima, combinata con TerminateProcess e CloseHandle ti
permette di ottenere il risultato richiesto.
Saluti,
--
- Carlo -
c.b...@libero.it
Newsgroup: it.comp.lang.delphi
Titolo: vb2pas

Esiste un tool che mi converta un sorgente da visual basic a pascal?
Non voglio precisione assoluta nella conversione ma almeno un aiutino...
Grazie.
--
Karletto
chiamac...@tiscalinet.it
http://www.carletto.cjb.net

Ma una ricerchina con 
www.google.it
 proprio no, eh?
http://www.google.it/search?hl=it&ie=UTF-8&oe=UTF-8&q=vb+converter+delphi&bt
nG=Cerca+con+Google&lr=A.
Bye
A.


Newsgroup: it.comp.lang.delphi
Titolo: #define in delphi

è possibile utlizzare la seguente sintassi (c) anche per delphi?
#define swap(x,y){int t;t=x;x=y;y=t;}
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:b2tcbd$kju$1...@news.newsland.it...

No.
Ciao
Giorgio

#define swap(x,y){int t;t=x;x=y;y=t;}
No ed č anche giusto cosě.
Anche in C una tecnica simile (specie con l'introduzione delle
funzioni "inline", mutate dal C++, nell'ultimo standard) č ormai
"deprecated".  Ci sono compilatori, poi, che considerano per default
"inline" tutte le funzioni e quindi una scrittura come quella non ha
senso, oltre ad avere il grosso svantaggio d'essere difficilmente
"debuggabile".  E` sicuramente meglio scrivere la funzione esplicita,
sia in C, che in Delphi.
-- 
Andrea Laforgia
"God is dead." -- Nietzsche
"Nietzsche is dead." -- God

 grazie
Prego
Andrea


wrote:

La tecnica è la seguente: 
procedure TForm1.Button1Click(Sender: TObject);
var
  a, b: Integer;
begin
  a := 5;
  b := 3;
  ShowMessageFmt('a = %d, b= %d', [a, b]);
  a := a xor b;
  b := a xor b;
  a := a xor b;
  ShowMessageFmt('a = %d, b= %d', [a, b]);
end;
ma sfortunatamente, in generale, non è il modo più veloce di compiere
uno swap tra valori interi.


Newsgroup: it.comp.lang.delphi
Titolo: Barra Applicazioni

Come posso fare a mettere una mia applicazione ridotta come iconcina vicino
all'orologio.....
E' un'applicazione che a certe ore del giorno esegue delle operazioni e non
volevo tenerla nella barra delle applicazioni .
Grazie anticipatamente.

Potresti utilizzare il componente TCoolTrayIcon, carino, semplice da
utilizzare e soprattutto Free!
Cerca su Google oppure te lo mando in mail!
Seek
"Lupen" ha scritto nel messaggio


Newsgroup: it.comp.lang.delphi
Titolo: Testo dei Messaggi

Salve a tutta l'allegra banda del NG.
Volevo rendere abbastanza indipendente la gestione dei messaggi da far
vedere all'utente (sia i messaggi di errore che quelli di informazione).
Attualmente sono stringhe statiche che io metto dentro MessageDLG o
ShowMessage, quindi se un messaggio va cambiato da 'Ciao Mondo' a 'Ciao
Italia' mi tocco ricompilare il tutto.
Non volevo neanche usare una tabella per evitare di portarmi dietro il
BDE. Che cosa posso usare?
Grazie,
          Marco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Utilizza un clientdataset e salva il contenuto delle stringhe in un
file xml.
Distribuisci questo file (che volendo gli utenti potrebbero anche
tradursi.....) e poi lo ricarichi nel clientdataset al momento del
lancio dell'applicazione.
Ciao, Rocco.

BDE. Che cosa posso usare?
Usare le "resourcestring" (magari in una DLL).
In questo modo, le uniche cose che cambi sono le risorse.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]
Newsgroup: it.comp.lang.delphi
Titolo: ..e tanto per cambiare TTreeView!!!

OK... sono QUASI a posto... se non che mi trovo ad un altro problema...
spero semplice
Nella mia TTreeView ci sono 3 livelli... vorrei usare un font differente a
seconda della tipologia
del singolo elemento. I primi 2 funzionano, il terzo NO! Perchč? Ho
riportato qui sotto parte
del codice sorgente. "Stricando un butun" :) parte la procedura che mi
costruisce l'albero e
con TreeCustomDrawItem cambio i colori dei fonts a seconda del livello
passato.
----------------------------------------------------------------------------
------------------
procedure TfrmStampaStatistiche.SpeedButton1Click(Sender: TObject);
begin
   With qrySelect Do Begin
      Liv_1 := Tree.Items.Add(Nil, Nominativo.Text);
         { Per ogni mese}
         TotMese := 0;
         For Ind := 1 To 12 Do Begin
            { Per ogni costo }
            Liv_2  := Tree.Items.AddChild (Liv_1, aMesi[Ind]);
            Liv_3  := Tree.Items.AddChild (Liv_2, PreparaMese('REP',
FieldByName));
            Liv_4  := Tree.Items.AddChild (Liv_2, 'TOTALE MESE : ' +
FormatNum(TotMese));
            TotMese := 0;
         End;
         Liv_2  := Tree.Items.AddChild (Liv_1, 'TOTALE ANNO : ' +
FormatNum(TotAnno));
   End;
End;
procedure TfrmStampaStatistiche.TreeCustomDrawItem(Sender: TCustomTreeView;
Node: ..................
begin
   If Node = Liv_1 Then Begin
      Tree.Canvas.Font.Style := [fsBold];
      Tree.Canvas.Font.Color := clRed;
   End Else
   If Node = Liv_2 Then Begin
      Tree.Canvas.Font.Style := [];
      Tree.Canvas.Font.Color := clBlue;
   End Else
   If Node = Liv_3 Then Begin
      Tree.Canvas.Font.Style := [];
      Tree.Canvas.Font.Color := clBlack;
   End Else
/////////////    questo qua sotto LIV_4 č quello che non mi
funziona!!!!!!!!!!!! Tutti gli altri sě!!!!
////////////   mi viene visualizzato come LIV_3
   If Node = Liv_4 Then Begin
      Tree.Canvas.Font.Style := [];
      Tree.Canvas.Font.Color := clGreen;
   End;
-------------------------------------------------------
Grazie per l'attenzione e per l'aiuto!!!
Dario
-- 
Posted from IDENT:qmailr@[217.57.169.195] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG



^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Qui c'e' un errore! AddChild(Liv_3

Comunque, c'e' un modo molto piu' semplice per sapere il livello di un
nodo: TTreeNode.Level
quindi
case Node.Level of
  0: begin
        Tree.Canvas.Style etc ect
      end;	
  1:.....
else
  etc. 
end;
Ciao,
Massimo.
Newsgroup: it.comp.lang.delphi
Titolo: [OOP] Per AlwaysHC (Next Ware)


Grazie moltisimo... non l'ho provato ma di te mi fido... appena mi
rispondi a quella cosa tipo CreateForm mi metto suito al lavoro...
Grazie Moltisimo di nuovo...
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Scusami ma sono troppo impegnato... ti rispondo domani
Ciao
Mirko

Ciao a tutti e soprattutto al Razziatore!
"
  TComponentClass = class of TComponent;
procedure TApplication.CreateForm(InstanceClass: TComponentClass; var
Reference);
var
  Instance: TComponent;
begin
  Instance := TComponent(InstanceClass.NewInstance);
  TComponent(Reference) := Instance;
  try
    Instance.Create(Self);
  except
    TComponent(Reference) := nil;
    raise;
  end;
  if (FMainForm = nil) and (Instance is TForm) then
  begin
    TForm(Instance).HandleNeeded;
    FMainForm := TForm(Instance);
  end;
end;
"
Questo e' il sorgente della create form... credo che si commenti da
solo.
Per il resto... i metodi virtual e dynamic sono estensibili tramite
override... mentre
quelli dichiarati senza queste parole non lo sono... visto che tu vuuoi
usare
l'ereditarietą... faresti bene a studiarti l'help. Se non vuoi tutti
queste complicazioni
puoi sempre usare type TOggetto=object!!!!
I metodi possono essere di 3/4 tipi:
privati, visibili solo dalle classi dichiarate nella stessa unit.
protected, come prima ma visibili anche alle classi ereditate
public, visibili sempre
publiched, visibili anche a design-time... quelli che vedi nell'object
inspector
L'inerithed ti permette di risalire la catena dei metodi sovrascritti in
maniera
automatica. Quelle che hai scritto tu dovrevve fare la stessa cosa ma
non e' molto bello a vedersi!
E poi... dimmi tu
Scusa per il ritardo
Ciao
Mirko

Scusa per il ritardo
De nada... anche se non ho capito perche non hai risposto all'altro
post ma ho dovuto generarne un altro...

Newsgroup: it.comp.lang.delphi
Titolo: SQL + pulita

Scusate,
volevo solo dire che in questo thread 
si sta parlando (Giancarlo, coreggimi se sbaglio)
di eleganza/leggibilità del codice e non di prestazioni,
quindi la soluzione di Andrea Laforgia
mi sembra la più esatta. Volevo solo aggiungere
che il codice sql della query, volendo, può essere impostato
anche a design time, e a runtime settare solamente i parametri:
with Query1 do begin
 Close;
 ParamByName('PARAMETRO1').AsString := edtParametro1.Text;
 ParamByName('PARAMETRO2').AsString := edtParametro2.Text;
 Open;
end;
...è sicuramente "meglio", o cmq, + leggibile in questo modo,
a mio avviso.
Ciao
Alan
---
Questo servizio e' realizzato con Wappi della Virtex
Connetti ad internet il tuo telefonino: 
http://www.wappi.com/
--
Posted from [194.243.91.36] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ...è sicuramente "meglio",
L' eleganza e la leggibilità del codice mal si conciliano con la dicotomia
"meglio/peggio"....  ;)
Ho visto guru della programmazione Delphi scrivere gli operatori booleani (e
solo quelli)  in maiuscolo (cosa che a me fa inorridire..).
Altri navigare fra quintali di codice non indentato (sob..).
Credo che non finirò mai di stupirmi al riguardo.
Spesso è questione di gusti..
..anche se l'uso di best practices e coding styles comuni dovrebbe essere
ormai scontato per tutti.
Ciao,
-=SIMO=-

solo quelli)  in maiuscolo (cosa che a me fa inorridire..).
Incredibile ! fuciliamoli ! ;)
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------
#exclude <windows.h>


Ripeto, questione di gusti (discutibili...)
-=SIMO=-


Vedi tu..a me fa veramente schifo, altro che leggibilità...
-=SIMO=-
Newsgroup: it.comp.lang.delphi
Titolo: [OT] Terminali portatili

Scusate l'OT , ma mi fido di voi e delle vostre esperienze.
Io lavoro con terminali portatili ECO486 della Meteor, con lettura bar code 
e quantità e successivo scarico su pc via seriale o via culla infrarossi.
In pratica sono dei 486 con dos "embedded" , disco A: C. e D: su flash 
memory. Posso fare sviluppo personalizzato o in c con librerie o con un 
"wizard software "
Di listino gli affari costano circa 750 euro.
Avete esperienza (positiva) di altri terminali con costi inferiori o simili 
e facilmente interfacciabili e programmabili ?
Grazie in anticipo
Giulio 

"GiulioC" ha scritto nel messaggio

Ti posso solo dire che Meteor è il meglio che puoi trovare sotto l'aspetto 
dei lettori di codici a barre. Ne ho usati alcuni con satellite ad onde 
radio presso un ristorante e mi sono trovato benissimo. Oltretutto dal "lato 
PC" dovrebbe ancora essere disponibile un OCX che praticamente si occupa di 
tutte le problematiche comunicazione.
Un'altra soluzione potrebbe essere basata su PocketPC: so che esistono dei 
terminali industriali con il lettore di barcode integrato, oppure ci sono le 
classiche "opzioni" da aggiungere ai palmari normalmente in commercio. Ma 
dipende un pò dal budget e da cosa devi fare. Avresti ovviamente di una 
programmazione tradizionale (usando gli embedded Visual Tools o il Compact 
Framework). Penso esista qualcosa a livello di PalmOS, anzi probabilmente 
potresti trovare un maggior numero di risorse.
Ciao,
Gianluca.

> Io lavoro con terminali portatili ECO486 della Meteor, con lettura
Anni fa avevo avuto sotto mano dei "Norad"...
In pratica erano dei pc.. con windows 3.1 e 2 slot pcmcia per metterci le 
memory
con installato il SO... avevano solo la tastiera numerica.. il monitor 
toutch screen...
A ritrovarli sarebbero fantastisci per delle applicazioni che ho in mente..
C'era pure il lettore barcode e la lan wi fi da collegarci.. ai tempi 
costavano
una fucilata.. ora.. a trovarli.. sarebbero degli affari :)) 

 Anni fa avevo avuto sotto mano dei "Norad"...
Correggo :) Norand...
http://www.microassociates.net/intermec/6350.html
Qui per vedere la loro essenzialità :)
Peccato il prezzo.. ma su ebay forse ne ho trovati
a 39$.. quasi quasi ne prendo uno per ricordo :P 

 a 39$.. quasi quasi ne prendo uno per ricordo :P
Ah.. cosa non da poco.. sopra a questi 486 gira tranquillamente
win3.11.. quindi si possono fare dei programmi di acquisizione
dati in delphi 1 molto semplici ma potenti!!
E se costano 39$ aggiungo molto economici :P 


Symbol, Intermec, Dolphin, Psion, Bancolini, Datalogic..ecc.
Tutte marche che hanno a catalogo terminali portatili con barcode reader.
S.O. da Dos a Win 3.1, 95 e CE oppure proprietari. La maggior parte si
programma in C + librerie date in dotazione.

ciao, ho avuto un esperienza con lo stesso terminale e anche con lettori usb
meteor di barcode... sinceramente il lettori vanno benissimo, ma il
terminale è un casino programmarlo, tutto via dos
Newsgroup: it.comp.lang.delphi
Titolo: Funzione di arrotondamento Euro

Buongiorno a tutti,
dovrei realizzare una funzione che mi permetta di arrotondare per
difetto un prezzo.
L'arrotondamento deve avvenire in base al secondo parametro passato
che mi identifica il valore dell'arrotondamento.
function ArrotondaPrezzo(Prezzo: Currency; Coefficente: real):
Currency;
Cerco di spiegarmi con degli esempi:
Prezzo = 65,75
Coefficente = 0,10
Result = 65,70
Prezzo = 65,75
Coefficente = 0,50
Result = 65,50
Prezzo = 65,75
Coefficente = 1,00
Result = 65
Prezzo = 65,75
Coefficente = 10,00
Result = 60
Il coefficente è un valore (in realtà espresso in Euro) che mi indica
la soglia dell'arrotondamento.
Qualcuno sa darmi due dritte su come realizzare tale funzione? Ho
provato a realizzarne una basata sulle funzioni Trunc() e Frac() ma il
risultato è stato una funzione lunghissima che per altro non sempre mi
dava il risultato corretto (se volete vi posto il codice che ho
scritto ), eppure ho l'impressione che si possa fare in modo molto più
semplice... ma come?  H E L P ! ! !
Grazie mille,
Dario

 Qualcuno sa darmi due dritte su come realizzare tale funzione?
function MyRound(const aValue: Currency; aFactor: Double): Currency;
begin
  Result := Int(aValue/aFactor)*aFactor;
end;
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 end;
Wow grazie mille Andrea!

Newsgroup: it.comp.lang.delphi
Titolo: [newbie] sottostringa

scusate la domanda scema...
qual'è la funzione che permette di estrarre da una stringa una sottostringa 
(ad esempio i primi 3 caratteri di una stringa)?
grazie 

 (ad esempio i primi 3 caratteri di una stringa)?
La funzione *Copy*; digitala e premi F1 per maggiori informazioni, 
oppure dai un'occhiata su questo sito:
http://www.delphibasics.co.uk/RTL.asp?Name=Copy
Ciao! :-)
-- 
MARCO «Alka» BREVEGLIERI
   (
http://www.marco.breveglieri.name
)
Leggi le FAQ di ICLD: 
http://icld.altervista.org

 ha scritto nel messaggio 
news:GfWke.1436648$35.53...@news4.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Zoes

Qualcuno di voi usa seriamente gli Zoes?????
Tanto per poter scambiare un paio di opinioni visto che qua mi sa che non li
usa nessuno!!!!!
Grazie


Il mio suddito li usa, mi paiono buoni, ma con alcuni buchi.Li trovo molto
lenti quando si cerca di filtrare i record, per il momento cmq abbiamo
provato i filtri solo attraverso la proprietà filter del componente
TZMySQLTable!
AVE

Io sto manutenendo un'applicazione che usa gli Zoes per MySql. Mi sono letto
un pò di documentazione tanto per capire con cosa ho a che fare. Sembrano
interessanti... ma non ci metterei la mano sul fuoco.
Ciao.
Gianluca.

Dove hai trovato la documentazione???
Mi interesserebbe molto per capire come si usa la proprietà Filter visto che
va sempre in errore

>Il mio suddito li usa, [CUT]
Suddito ???????????

 usa nessuno!!!!!
sempre se stiamo parlando delle zeos lib, mi risulta che alcuni le
stanno usando.
Ciao
Gianni Giusti
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 va sempre in errore
Se stiamo parlando delle zeos lib la documentazione è inclusa nel
pacchetto in formato html.
Per filtrare i record puoi sempre usare gli apposito componenti che
trovi sul sito:
http://www.zeoslib.org/zeos_zc_main.php
Funzionano bene e ti risparmiano molte righe di codice


 TZMySQLTable!
Con i server SQL si dovrebbe sempre usare i componenti "Tquery".


Ma la documentazione inclusa è veramente povera. Ho provato anche a filtrare
con l'esempio nella cartella
zeosdbo\examples\simple_mysql , ma applicando il filtro va in errore.
Qualcuno è riuscito a farlo andare???
Newsgroup: it.comp.lang.delphi
Titolo: Delphi 7 e Word: gestire tabelle

Ciao a tutti...
Io vorrei, con i componenti nativi di Delphi 7, inserire alcuni record
in una tabella di Word. O meglio, creare un documento nuovo, e creare
un elenco di record in base ad un determinato filtro. Purtroppo non ho
trovato molta documentazione in giro, ho provato con il vecchio sistema
createoleobject('Word.basic') ma non funziona...Non credo siano molte
righe di codice, qualcuno puo' darmi una mano?
Grazie a chi mi vorra' rispondere

 ha scritto nel messaggio 
news:1124794763.8...@z14g2000cwz.googlegroups.com...


L'uso di applicazione msOffice da una app delphi è uno degli argomenti
+ gettonati su questo ng da un po di tempo a questa parte.
Suggerisco di aggiungere un po di fino nelle faq.
Sintetizzo in questa risposta alcuni punti..
1) L'uso di Office via ole automation è leggermente OT in questo NG.
Delphi si limita a "dire a word o excel" cosa fare, tecnica che vale
per tutti i rad, linguaggi etc per windows.
2) Documentare questo argomento non spetta a mamma Borland.
Siccome si tratta di app MICROSOFT, la relativa documentazione spetta a
loro e solo a LORO.
Questo è il motivo x cui, nella guida di delphi, non se ne trova
traccia.
3) Tutto quanta riguarda ole automation per word, excel etc è
documentato in :
* la guida vba di office.
Se non la trovate nelle cartelle di office sui vs pc, avete
probabilmente installato office con il setup predefinito (aaaargh!) e
non custom.
* il sito 
msdn.com
* probabilmente sui ng della gerarchia di zio billy
4) Per le altre applicazione utilizzate via ole vale lo stesso
discorso.
La documentazione non spetta a Borland ma:
AL PRODUTTORE DELLA APPLICAZIONE CHE DOVETE PILOTARE VIA OLE
AUTOMATION.
5) in delphi esiste una palette di componenti server per gestire ole
automation con office. Per gli stessi motivi descritti al punto 2
questi componenti non sono documentati.
Questi componenti sono comodi SOPRATUTTO x evitare i problemi legati al
 late binding, che invece è drammaticamente presente se si usano le
funzioni CreateOleObject, getActiveOleObject
Queste due funzioni sono documentate nella guida in linea di delphi.
6) tra le varie suites ex-turbopower esiste anche OfficePartner.
Questa suite può essere scaricata da sourceforge, uno dei "soliti
siti".
7) Le parole elencate qui sotto sono messe al solo scopo di includere
questo post nelle ricerche legate all'argomento originale di questo
thread:
excel
word
ole
automation
vba
createoleobject
getactiveoleobject
pdf
acrobat
reader
autocad
open
office
AS

 un elenco di record in base ad un determinato filtro....
I componenti che ti ha indicato Stefano sono molto buoni, ma prova anche 
i componenti EKRTF "
http://ekrtf.code.net.ru/
".
Diego
--- posted by geoForum on 
http://www.delphiedintorni.it

 Suggerisco di aggiungere un po di fino nelle faq.
Fatto (con qualche leggera modifica):
http://www2.samatel.com/icld/modules.php?op=modload&name=FAQ&file=index&myfaq=yes&id_cat=2
Domanda nr. 9
P.S: devi avere problemi con lo Shift: non usi una maiuscola
nemmeno se ti costringono con la forza!
:-)
Ciao
-- 
ACSH
[D4]
Chi fa da se', fatica il doppio
Newsgroup: it.comp.lang.delphi
Titolo: Creazione query visuale

Ciao a tutti.
Vorrei sapere se esiste un programma che permetta di costruire delle query 
in modo visuale, piu' o meno come succede con Access.
La mancanza di un tool simile impedisce a quasi tutti i miei utenti di 
usare IB... in favore di Access :( 
La cosa migliore sarebbe avere un programma sia per win che per linux... :))
Grazie a tutti...

 ha scritto nel messaggio
news:agf10k$9k6$1...@atlantis.cu.mi.it...


 di un query builder visuale. In seguito chissà
Grazie per il consiglio... IbAccess lo uso gia con da qualche tempo.
ora vado a scaricare il programma che mi hai indicato.

 in modo visuale, piu' o meno come succede con Access.
http://www.aipoint.com/b_asi/sqlConstructor/index.htm
Ciao
Gianni Giusti

Newsgroup: it.comp.lang.delphi
Titolo: Id versione

Salve a Tutti i componenti di questo newsgroup, vorrei sapere se esiste nella
vcl una funzione che riporta la versione corrente del .exe compilato in delphi
Grazie in anticipo (Sauro)
-- 
Posted from  [217.58.172.46] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

vcl una funzione che riporta la versione corrente del .exe compilato in delphi
Io uso GPVersion (by Primoz Gabrijelcic): 2K zippato, per Delphi 4 in su
(funziona anche con il mio D6).
Al solito non si sono sprecati per scrivere un file di help/istruzioni
per cui l'ho dovuto usare un po' "a naso".  :-(
Se non lo trovi te lo invio.
Simone
_______________________________________________________
 All resistance is futile ! Prepare to be assimilated !

 wrote in message
499c1e2728867638fc9...@mygate.mailgate.org...


Newsgroup: it.comp.lang.delphi
Titolo: [D5] Ping

Gentili partecipanti,
come al solito ho un piccolo problemino e non so da dove iniziare.......
Mi e stato di chiesto di realizzare una piccola applicazione  che invia un
ping ad una serie di IP e che registri in un file di testo, oppure altra
destinazione (e questo non e il problema) i risultati ottenuti.
ho gia installato i componenti INDY che credo facciano al mio caso, ma tra
questi non ho trovato alcun componente che mandi una richiesta Ping.
Grazie a chi vorra aiutarmi
Saluti
Michele

 Ping.
Prova la ICS - Internet Component Suite del mitico Piette:
http://overbyte.alexid.fr/frame_index.html
--
Jax

 
http://overbyte.alexid.fr/frame_index.html
Grazie
Michele

 
http://overbyte.alexid.fr/frame_index.html
L'ho provata e devo dire che proprio quello che cercavo !!
Grazie 0,52 euro
Michele
Newsgroup: it.comp.lang.delphi
Titolo: PageControl e problema visualizzazione tabs

Ho un pagecontrol con svariati tabs e dentro una procedura
imposto la visualizzazione tramite tabvisible := false/true
di questi tabs a seconda di cosa io debba visualizzare.
Il mio problema è che i tabs non scompaiono subito e quindi
c'è un noioso effetto visivo.
C'è una funzione tipo beginupdate/endupdate?

 c'è un noioso effetto visivo.
Prova a nascondere il controllo *TPageControl* con il metodo /Hide/ o 
con la proprietà /Visible/ all'inizio dell'elaborazione per 
visualizzarlo nuovamente al termine dell'aggiornamento delle schede.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Newsgroup: it.comp.lang.delphi
Titolo: Query con parameter

DO + Access
Speravo di potere utilizzare un Parameter con la funzione 'in' ma non mi 
funziona.
Mi spiego:
    'Select * from XYZ where PROVINCIA in ("MI,NA") ' funziona
invece
    'Select * from XYZ where PROVINCIA in (:PARAM01) ';
    XYZ.Paramateres.ParambyName('PARAM01').Value:='MI,NA'; NON funziona.
Non funziona neanche con .. :='"MI","NA"'
Sbaglio ? Non si può fare così ?
E allora come posso fare ?
Guido

     XYZ.Paramateres.ParambyName('PARAM01').Value:='MI,NA'; NON funziona.
Certo che non funziona ed è anche corretto, perché stai confondendo la
sintassi SQL con la semantica SQL !!!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
Ti ringrazio della precisazione che peraltro non mi aiuta molto
G.

Guido Noe' ha scritto:

Perché non ti sei sforzato di capire che ho scritto.  Tu non sai
distinguere cosa è sintassi e cosa è semantica di un linguaggio (come SQL).
Come pretendi che quanto richiedi funzioni ?
Se vuoi passare dei parametri in numero discreto tra cui scegliere un
valore, allora devi eseguire delle OR distinte:
select provincia from province where 
  (id_provincia = :param1) or (id_provincia = :param2) or ...
di certo non puoi trasformare ciò che è semantica (il valore del
parametro) in ciò che è sintassi (la stringa con le province separate
dalla virgola).


 
Temevo che fosse questa la risposta. E' che io vorrei che gli utenti 
mettessero ad esempio in un Edit la lista delle provincie desiderate e 
pertanto a priori non so se saranno una,due,tre o di più.
A questo punto penso che non mi resti che costruire materialmente la 
linea SQL e cambiare l'SQL con SQL[x]:=.. etc etc.
Che dici ?
Grazie in anticipo
Guido

 linea SQL[...]
Direi di sě.  Direi che in pseudo-code, la condizione where č costruibile
cosě:
SQL := 'select provincia from province where ';
for I := 1 to NumeroProvince do
begin
  if I > 1 then
    SQL := SQL + ' or ';
  SQL := SQL + Format('(id_provincia=''%s'')', [IdProvincia[I]]);
end;

Newsgroup: it.comp.lang.delphi
Titolo: Form MDI e Child

Ciao a tutti,
premetto che ho capito solo come aprire una form child mdi questa
mattina.....
che lunga.... per imparare.... non si finirà mai....
Il primo problema al quale non sono riuscito a dare seguito è il seguente.
Ho la mia Bella formmamma con un pannello align top e un altro align left; a
destra c'e' un bel bucone dove va a crearsi la formfiglia.
Nelle proprieta' della formfiglia metto align allclient e questa si
posiziona come dovrebbe dentro il bucone che ho lasciato nella princiale...
l'unico incoveniente è che è piu grande del previsto a destra e in basso
andandosi a creare due barre di scorrimento per vederla tutta.... compresi i
tasti di minimiza maximiza e chiusura della stessa...
sapreste dirmi come superare ... il problemuccio ???
P.S.
SMAU 2003  ---- mi pare di aver letto che non c'e' ne Borland ne la squadra
di Marco Cantu ... mi confermate??
Stefano

Imposta la MDIChild con la proprieta' WindowState=wsMaximized e dovresti
risolvere.
Ciao, Sandro

 di Marco Cantu ... mi confermate??
negli ultimi anni lo SMAU è diventato una manifestazione per non-operatori,
imho.
L'anno scorso volevo vedere alcune cose su Sybase.
Ho trovato una azienda partner in italia di Sybase ma quando sono andato al
loro stand ho trovato solo uno striscione con su scritto Sybase..... :((((
A
--
Per rispondere non usare il reply ma scrivere al seguente indirizzo:
alsalvati(at)
supereva.it


Imposta a design time per la form figlia dimensioni inferiori a quelle che
hai
esempio :
Width:=100 ;
Height:=100 ;
Ciao
--------------------------------
Inviato via 
http://usenet.libero.it


Thread errato ? Digestione faticosa ? :-)))))))))
Ciao Alberto
Andrea

 squadra di Marco Cantu ... mi confermate??
Ormai SMAU non ha piu' molto senso per i "tecnici", l'unico stand che
resiste e' Microsoft...
Non c'e' piu' Sun, non c'e' Oracle, non c'e' Palm... e quest'anno nemmeno
Borland...
Devo andarci per conto della ditta... e spero che non sia come l'anno scorso
(la cosa piu' interessante che ho visto e' stata Warcraft III), e che l'eta'
media dei visitatori torni a livelli accettabili (lo stand della TIM con la
musica da discoteca, i ragazzini schiamazzanti e le signorine che lanciano
cappellini e' qualcosa di deprimente IMHO... per non parlare dello stand
Waitec con il karaoke... :-( )

Ciao A.
Scusa il Post ... ho grandi casini con il mio server ...
Andrea

> Thread errato ? Digestione faticosa ? :-)))))))))
nel post originale si parlava anche dello smau.
Sono in crisi post-vacanza ma non a questo livello... ;D


Cazzata
Please. Pietą ...

 Borland...
E Linux ??? ci sara'???
Newsgroup: it.comp.lang.delphi
Titolo: Testo Giustificato

Qualcuno ha il codice per utilizzare il testo giustificato in editore di 
testo?

 testo?
Cosa significa "editore di testo"? Memo, Richedit, Word, la Mondadori?
ACSH
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 testo?
Puoi guardare qui
http://www.delphipages.com/records.cfm?kw=align+text+justify
C. 


grazie adesso ci guardo!


Mi hanno passato questo componente che modifica RichEdit adesso ho 
l'allineamento Giustificato ti posto il link del componente:
http://www.torry.net/vcl/edits/rich/justifyrichedit.zip

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

Premetto che temo sia una domanda stupida ma ho fretta di risolvere e
pur avendo googlato tanto non ho trovato ancora risposta.
Perchè queste istruzioni:
ch:='T';
keybd_event(byte(ch), MapVirtualKey(byte(ch), 0), 0, 0);
anzichè darmi una 'T' maiuscola mi danno una 't' minuscola? In
particolare sembra considerare allo stesso modo lettere grandi e
minuscole. Ho provato a modificare tutti i parametri ma mi deve essere
sfuggito qualcosa.
Qualcuno può aiutarmi?
Saluti e grazie in anticipo,
Paolo

 sfuggito qualcosa.
Stando all'help, la funzione usa i virtual key code, ossia non
lavora con codici ascii dei caratteri, ma simula la pressione dei
tasti
della tastiera: la pressione di un tasto genera sempre una lettera
minuscola, per generare la lettera maiuscola direi che devi prima
generare la pressione di SHIFT, poi la pressione di 'T' e poi
il rialzo di SHIFT.
Non so se cambia simulando la pressione del CAPS LOCK...
ciao
Giacomo

On 9 Lug, 12:25, Giacomo Degli Esposti

In effetti rileggendo meglio avrei potuto capirlo prima, solo che mi
illudevo di poter evitare di controllare carattere per carattere e
switchare lo shift alla bisogna.
Mi adatterò.
Molte grazie.
Ciao,
Paolo
Newsgroup: it.comp.lang.delphi
Titolo: Delphi 2010 Seattle + Android

Ciao a tutti,
  sto iniziando i primi passi in questo campo.
Il progetto di prova e' molto semplice, una main form con 2 label, 2 bottoni 
(uno apre una seconda form, l'altro chiude l'applicazione).
Usando i componenti forniti, ho notato che per le label (forse mi sta 
sfuggendo qualcosa) manca l'allineamento del testo.
Se non e' una mia mancanza, c'e' un modo automatico per centrare il testo 
??? (o va fatto a mano??)
 
Disarmante il riconoscimento IDE/ANDROID, immediato con Samsung S4 + Android 
5.1
 
Continuo, nel poco tempo che mi rimane, nel complicare sempre di piu' il 
progetto test !!!
 
Ciao
 
Daniele 
 

 testo
 
Label1.TextSettings.HorzAlign := TTextAlign.Center;
 
HTH
David Lastrucci
 
 

 Label1.TextSettings.HorzAlign := TTextAlign.Center;
 
Grazie per la risposta, lo studio ..... continua ....
 
Ciao & grazie
 
Daniele
Newsgroup: it.comp.lang.delphi
Titolo: bitmap su oggetto button

come mai la bitmap assegnata alla proprietà Gliph dell'oggetto BitBut (almeno 
così ricordo superficialmente che si chiami) scompare se l'oggetto è 
disabilitato.
Ringrazio per le risposte
-- 
by \ \/ /\/
PerezDeQueya80 on AzzurraNET.org
http://digilander.iol.it/IVNhp


Prova a usare come Gliph un'immagine che effettivamente è composta da due
immagini affiancate. Ossia, se la tua immagine è 32*32 usa una 64*32. La
prima parte viene usata per lo stato Enabled=True, l'altra invece per lo
stato False. Questo ti permette di usare due immagini <> a seconda dello
stato.
Almeno così mi sembra di ricordare...  ;o)
Ciao,
G.

 l'oggetto è disabilitato.
Non è che scompare: dipende dal bitmap che gli assegni.
Se gli dai un solo bitmap e NumGlyphs = 1, delphi tenterà di "ingrigire" il bitmap, per
dargli un effetto di disabilitato, appunto, quando il pulsante è disabilitato.
Ho notato che ci riesce spesso, ma con bitmap a molti colori o con bordi non esattamente
definiti disegna un bmp totalmente trasparente.
In questo caso è meglio che specifichi tu stesso un bmp da usare per l'oggetto quando è
disabilitato: per far questo devi "raddoppiare" il tuo bitmap (se 
p.es
. è 16x16, fallo
diventare 32x16); nella prima metà (sinistra) lasciaci il tuo bmp, nella metà di destra
disegnaci tu un bmp per quando il BitBtn è disabilitato. Ricordati poi di mettere
NumGlyphs = 2 (anche se delphi spesso si accorge da solo che i bmp sono due).
Comunque è tutto spiegato molto bene anche sull'help della proprietà Glyph:
"If only one image is present, bit buttons attempt to represent the other states by
altering the image slightly for the different states, although the Down state is always
the same as the Up state. If you aren't satisfied with the results, you can provide
additional images in the bitmap."
--
Jax

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

Salve salvino.
Sono alla ricerca di un componente chiamato FormulaOne, chi ne sà qualcosa??
Conoscete per caso l'indirizzo preciso del sito della Pinnacle???
Vi prego di aiutarmi!!!
Grazie 10000

 ha scritto nel messaggio
news:8e800l$u9o$1...@news.unina.it...


 wrote in message 8e800l$u9o$1...@news.unina.it...

Newsgroup: it.comp.lang.delphi
Titolo: bitmap di grandi dimensioni

esiste qualche comonente free, magari i codici dei componenti per
gestire (zoom, pan ecc) file bitmap di grandi dimensioni? parliamo di
circa 50 MB


anche jpg, tiff, qualuncue cosa, ma parliamo sempre di 50 MB minimo in
qualunque formato anche jpg

in passato sul ng si č parlato di librerie grafiche.
A parte cio, ti suggerisco un occhio sui soliti siti.
Ma ti anticipo che, imho, difficilmente troverai agratis quello che ti 
serve. :-(
A.

 circa 50 MB
Essendomi occupato di immagini digitalizzate per un paio d'anni, 
onestamente dimensioni del genere mi sembrano un tantino eccessive.
Sei proprio sicuro che siano quelle le dimensioni cui vai incontro?
Eventualmente, puoi comprimerle un pò? Esistono molti algoritmi di
compressione e sinceramente mi sembra strano che non siano applicabili.
Andrea

Eventualmente, puoi comprimerle un pò? 
E se volesse un formato raw per lavorarci sopra?

 E se volesse un formato raw per lavorarci sopra?
assolutamente non sono eccessive, si tratta di ortofoto di alta o
altissim risoluzione e che coprono una porzione abbastanza estesa del
territorio.
OK per le librerie grafiche, sono anche disposto a sborsare qualche
euro, ma visto che si tratta di sviluppare un'applicazione che serva
solo a me, il mio budget non è molto elevato, qualche consigio in
proposito?
qualche libreria, anche non free ma con sorgenti e che non costi molto
e che sia BUONA e mi permetta di rispolvere il mio problemaa?

proposito?
Quando parli di "gestire", che tipo di operazioni vorresti fare nello
specifico? Te lo chiedo perché non è detto che serva una libreria; se
è un formato raw BMP Windows, te la cavi bene anche con funzioni
banali. Spiega più in dettaglio che tipo di operazioni vuoi fare.

 banali. Spiega più in dettaglio che tipo di operazioni vuoi fare.
Molto semplicemente la mia applicazione deve aprire un file BMP o jpg
o altro, mi deve consentire di fare zoom, pan (e basta non mi serve
altro).
In più devo avere la possibilità di poter disegnare delle linee,
conservando l'immagine originale però.
L'ideale sarebbero i layer (come autocad per chi lo conosce) in modo
che su un layer metto la mia immagine e su un altro ci disegno le mie
linee.
Ade esempio, ho provato le gr32 che gestiscono i layer, solo che se
disegno una linea su un layer, il layer sottostante viene
completamente oscurato.
Si può settare la trasparenza del layer di sopra ma così facendo vedo
quello di sotto ma non vedo più niente sul layer di sopra.
insomma, mi servirebbe un layer con lo sfondo trasparente.
Non penso di essere stato molto chiaro boh...

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

Con la versione Enterprise hai i driver per Oracle, sia direct che ODBC.
Hai la versione Enterprise?
Ciao,
Marco
_________________________________________________________________
Get your FREE download of MSN Explorer at 
http://explorer.msn.com/intl.asp
-- 
Posted from [194.184.86.122] by way of 
f264.law7.hotmail.com
 [216.33.236.142] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in
message F264vxNZTZPxr...@hotmail.com...

Newsgroup: it.comp.lang.delphi
Titolo: Relazionare tabelle

Ciao a tutto il gruppo,
qualcuno mi suggerisce un modo rapido per relazionare 2 tabelle sullo stesso
form.
Grazie Franco
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

1) andare sulla property MasterSource della tabella
2) premere f1
AS

 form.
Cheintendi per "relazionare" e soprattutto che intendi per 
"tabelle"?  Le tabelle sono strutture fisiche di un DB, Delphi 
metet a disposizione solo dei componenti per poter interfacciare e 
utilizzare un DB.  Dovresti specificare che versione di Delphi 
stai utilizzando, che tipo di DB, quali componenti per l'accesso 
ai dati e che cosa vuoi fare *esattamente*.  I metodi cambiano, a 
seconda di molti parametri.

 form.
Ti ho gia' risposto nell'altro thread: documentati sul master detail.
ciao!
-- 
Morde. 
ICLDweb: 
http://www2.samatel.com/icld/

 ha scritto:



Grazie al tuo suggerimento ho risolto
6 1 grande!!
Franco



 Sul form visualizzo i dati della tabella1 utilizzando TDBNavigator[...]
Ometti quali componenti usi per l'accesso ai dati... Impossibile 
aiutarti cosě...

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

Ragazzi ho bisogno di un' informazione:
esiste un comando per chiudere la connessione di un modem attivata da un'
altra applicazione?
ciao Raf


(credo) >RasHangUp<, RasEnumConnections
Tuttavia non mi pare che siano disponibili gli header in Delphi (5)...
nel Builder sì
Sorry, non so altro.
--
Ciao !  Davide DG.

 ha scritto nel messaggio
news:EdGl7.110467$TS4.9...@news2.tin.it...

Guarda questo sito
http://overbyte.alexid.fr/frame_index.html
--
Massimo
mago_merlino(at)
bigfoot.com
Newsgroup: it.comp.lang.delphi
Titolo: Strano errore con i file.

Ciao a tutti,
avendo quanto segue:
  Type PX = Record
                       FileName: String;
                     End;
 Var TmpFile: File Of PX;  TmpCert: PX;
AssignFile (TmpFile, 'pippo.ppp');
     FileMode := fmOpenRead;
     Reset (TmpFile);
     ReadLn (TmpFile, TmpCert);
CloseFile (TmpFile);
Mi viene segnato l'errore:
       [Pascal Error] work.dpr(163): E2008 Incompatible types
In corrispondenza della riga:
       ReadLn (TmpFile, TmpCert);
Non capisco il perchč. A cosa č dovuto l'errore?
Grazie in anticipo per la risposta.
Cooper. 

Non capisco il perchè. A cosa è dovuto l'errore?
Leggi l'help di ReadLn e lo capisci da solo.
I file di testo, in ogni caso, non si leggo a questo modo, ma mediante
TStringStream o TStringList.

 ha scritto nel messaggio 
news:9kvf32hhf1ltpirg0...@4ax.com...

La mia intenzione era trattare un file binario (un file di record) non un 
file di testo. Sono sempre stato abituato a usare questo metodo e fra 
l'altro anche nel sito: 
delphibasic.co.uk
 e piu precisamente all'indirizzo: 
http://www.delphibasics.co.uk/Article.asp?Name=Files
 continua a usarlo.
Personalmente mi veniva piu comodo questo metodo per quanto concerne la 
gestione degli errori... Se devo usare l'oggetto TFileStream, ok dovrei 
scrivere nel caso della lettura qualcosa del tipo:
  Type PX = Record
                       FileName: String;
                     End;
Var TmpFile: TFileStream; TmpCert: PX;   FileName: String;
con:
       If Not FileExists(FileName) Then ..... Else
         Begin
           Try
             TmpFile := TFileStream.Create (FileName, fmOpenRead);
             TmpFile.Read (Cert, SizeOf (Cert));
             TmpFile.Free;
           Except
             On Exception Do .....
           End;
         End;
I puntini indicano ciò che deve fare in caso di errori.
Usando questa soluzione, come posso intercettare tutti i possibili codici di 
errore che possono derivare durante l'operazione di lettura (e in generale 
di scrittura) del file?
Col vecchio metodo, usavo IOResult... qui come dovrei procedere?
Il mio obiettivo è leggere il record contenuto all'interno del file 
prevenendo ogni situazione che possa generare errori (sempre in merito alla 
gestione del file).
Grazie ancora, Cooper.

di scrittura) del file?
Le eccezioni standard Delphi non prevedono dei codici d'errore, ma
TFileStream, in lettura, si appoggia all'API ReadFile() di Windows,
quindi investigando con GetLastError() si risale alla condizione
d'errore specifica.

>             TmpFile := TFileStream.Create (FileName, fmOpenRead);
---------->   try


...
Except
    On E: Exception do
        ShowMessage('Tipo di Errore: '+E.Message);
    end;
Giorgio 

        ShowMessage('Tipo di Errore: '+E.Message);
Meglio ricorrere a GetLastError() piuttosto che andare a controllare
il messaggio d'errore dell'eccezione.
Newsgroup: it.comp.lang.delphi
Titolo: Sniffer RS232

Salve,
vorrei sapere se e' possibile creare uno sniffer rs232 sotto XP ?
Volevo creare un monitor per controllare i programmi che colloquiano con la
seriale.
E' fattibile la cosa ?
Se si... mi date qualche spunto ?
Grazie
xoooox
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Se si... mi date qualche spunto ?
Procurati il cavo ed un software che ti permetta di vedere cio' che ti
arriva sulla seriale (io uso il QModem).
Acqua

Ciao,
mi serve un programma che legga il colloquio con un programma e la seriale.
Su internet ci sono, li ho provati e funzionano pero' volevo fare qualcosa
da inglobare in una
mia applicazione.
La tua soluzione e' comoda per alcuni casi di debug... pero' poco
portabile...
Per esempio sul mio laptop ho una seriale... come si fa...
Mi serve una soluzione software...
Ti ringrazio comunque
xoooox

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

> Per esempio sul mio laptop ho una seriale... come si fa...
Io manco quella, uso gli adattatori USB.
prova a cercare, magari esistono componenti utili al tuo scopo...
Acqua

mia applicazione.
Temo che serva un filter driver - e con Delphi sfortunatamente non si 
possono scrivere driver.
--- posted by geoForum on 
http://www.delphiedintorni.it

Newsgroup: it.comp.lang.delphi
Titolo: Come fare ?

Vorrei mostrare all'utente un elenco di operazioni contabili di cui fornirò 
il totale. Vorrei dargli la possibilità di escludere quei movimenti che non 
volesse totalizzare.
Immagino una specie di DBGrid, ma  con un check box che l'utente potrebbe 
spuntare per escludere la transazione dal conteggio.
Come potrei fare? C'è qualche componente adatto ad un'esigenza del genere ? 
(Un CheckListBox non va bene, perchè vorrei almeno 4 o 5 colonne di dati da 
mostrare) 
 
 
---
Questa e-mail è priva di virus e malware perché è attiva la protezione avast! Antivirus.
http://www.avast.com
 
 

Ciao Stark,
 
S> (Un CheckListBox non va bene, perchè vorrei almeno 4 o 5 colonne di
S> dati da mostrare)
 
Una TListView con CheckBoxes a True e ViewStyle a vsReport dovrebbe funzionare
 
David
 
 

 
"David"  ha scritto nel messaggio 
news:7f4ddcd6a39348...@news.eternal-september.org...

Non la conosco. Vado ad esplorare. Grazie 

Newsgroup: it.comp.lang.delphi
Titolo: costrutto IF THEN ELSE

Ciao a tutti
In una form ho dei campi DBEdit  e vorrei porre una condizione del
genere prima di fare la post del record
if DBEdit1<>0 or DBEdit2<>0 or DBEdit3<>' ' then 
table1.post
else
..................altra azione.
dove DBEdit1 e DBEdit2 sono collegati a campi della tabella dichiarati Date
mentre il DBEdit3 e' collegato ad un campo di tipo String.
Ho provato in vari modi a costruire questa if ma ottengo degli errori
riguardanti la sintassi in compilazione ed errori di conversione.(la data<>0
mi da errore di conversione)
C'e' qualcuno che mi puo' illuminare su come fare una if del genere ??
Scusate ma sono agli inizi.
Grazie 1000                             Gigi

 ..................altra azione.
Prova cosě:
if ( (DBEdit1.text <> '0') or (DBEdit2.text <> '0') or (DBEdit3.text <> '
')) then
 
table1.post
else
   ............altra azione.
Delphi č schizzignoso x le parentesi.
Ciao
--
--------------------------------------------
Mirko Guidolin
COMUNE DI RESANA
Provincia di Treviso
Servizio Elaborazione Dati
--------------------------------------------
levare eventuali underscore per rispondere

 per espressione booleana.
Sono d'accordo.
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

(secondo me) piu' elegante, e in molti casi si risparmiano parentesi.
bč, hai ragione. Se molte volte non si cerca un' alternativa bisogna
scrivere un botto di codice che potrebbe essere semplificato con due righe
ben scritte.
Se i campi fossero molti, io userei un ciclo cosě con 3-4 righe controllo
tutti i campi che voglio !!
Ti saluto.....ciao !!
Antonio Tarolla
BSSoftware Tips Mailing - List Support

